bool QFile::at( Offset pos )
{
if ( !isOpen() ) {
#if defined(QT_CHECK_STATE)
qWarning( "QFile::at: File is not open" );
#endif
return FALSE;
}
if ( isSequentialAccess() )
return FALSE;
bool ok;
if ( isRaw() ) {
off_t l = ::lseek( fd, pos, SEEK_SET );
ok = ( l != -1 );
pos = (Offset)l;
} else { // buffered file
#if defined(QT_LARGEFILE_SUPPORT)
ok = ( ::fseeko(fh, pos, SEEK_SET) == 0 );
#else
ok = ( ::fseek(fh, pos, SEEK_SET) == 0 );
#endif
}
if ( ok )
#if defined(QT_LARGEFILE_SUPPORT) && !defined(QT_ABI_QT4)
ioIndex = pos > UINT_MAX ? UINT_MAX : (Offset)pos;
#else
ioIndex = (Offset)pos;
#endif
#if defined(QT_CHECK_RANGE)
else
JointState::MODE JointState::getMode() const
{
if (isPosition()) return POSITION;
else if (isSpeed()) return SPEED;
else if (isEffort()) return EFFORT;
else if (isRaw()) return RAW;
else if (isAcceleration()) return ACCELERATION;
else if (hasPosition() || hasSpeed() || hasEffort() || hasRaw() || hasAcceleration())
throw std::runtime_error("getMode() called on a JointState that has more than one field set");
else
return UNSET;
}
int QFile::writeBlock( const char *p, uint len )
{
#if defined(CHECK_NULL)
if ( p == 0 && len != 0 )
warning( "QFile::writeBlock: Null pointer error" );
#endif
#if defined(CHECK_STATE)
if ( !isOpen() ) { // file not open
warning( "QFile::writeBlock: File not open" );
return -1;
}
if ( !isWritable() ) { // writing not permitted
warning( "QFile::writeBlock: Write operation not permitted" );
return -1;
}
#endif
int nwritten; // number of bytes written
if ( isRaw() ) // raw file
nwritten = WRITE( fd, p, len );
else // buffered file
nwritten = fwrite( p, 1, len, fh );
if ( nwritten != (int)len ) { // write error
if ( errno == ENOSPC ) // disk is full
setStatus( IO_ResourceError );
else
setStatus( IO_WriteError );
if ( isRaw() ) // recalc file position
index = (int)LSEEK( fd, 0, SEEK_CUR );
else
index = fseek( fh, 0, SEEK_CUR );
} else {
index += nwritten;
}
if ( index > length ) // update file length
length = index;
return nwritten;
}
int QFile::readBlock( char *p, uint len )
{
#if defined(CHECK_NULL)
if ( !p )
qWarning( "QFile::readBlock: Null pointer error" );
#endif
#if defined(CHECK_STATE)
if ( !isOpen() ) { // file not open
qWarning( "QFile::readBlock: File not open" );
return -1;
}
if ( !isReadable() ) { // reading not permitted
qWarning( "QFile::readBlock: Read operation not permitted" );
return -1;
}
#endif
int nread = 0; // number of bytes read
if ( !ungetchBuffer.isEmpty() ) {
// need to add these to the returned string.
int l = ungetchBuffer.length();
while( nread < l ) {
*p = ungetchBuffer[ l - nread - 1 ];
p++;
nread++;
}
ungetchBuffer.truncate( l - nread );
}
if ( nread < (int)len ) {
if ( isRaw() ) { // raw file
nread += READ( fd, p, len-nread );
if ( len && nread <= 0 ) {
nread = 0;
setStatus(IO_ReadError);
}
} else { // buffered file
nread += fread( p, 1, len-nread, fh );
if ( (uint)nread != len ) {
if ( ferror( fh ) || nread==0 )
setStatus(IO_ReadError);
}
}
}
ioIndex += nread;
return nread;
}
/**
* Construct String Container from R object
* @param rstr R object
*
* if you want nrecycle > n, call set_nrecycle
*/
StriContainerListRaw::StriContainerListRaw(SEXP rstr)
{
this->data = NULL;
if (isNull(rstr)) {
this->init_Base(1, 1, true);
this->data = new String8[this->n]; // 1 string, NA
if (!this->data) throw StriException(MSG__MEM_ALLOC_ERROR);
}
else if (isRaw(rstr)) {
this->init_Base(1, 1, true);
this->data = new String8[this->n];
if (!this->data) throw StriException(MSG__MEM_ALLOC_ERROR);
this->data[0].initialize((const char*)RAW(rstr), LENGTH(rstr),
false/*memalloc*/, false/*killbom*/, false/*isASCII*/); // shallow copy
}
else if (Rf_isVectorList(rstr)) {
R_len_t nv = LENGTH(rstr);
this->init_Base(nv, nv, true);
this->data = new String8[this->n];
if (!this->data) throw StriException(MSG__MEM_ALLOC_ERROR);
for (R_len_t i=0; i<this->n; ++i) {
SEXP cur = VECTOR_ELT(rstr, i);
if (!isNull(cur))
this->data[i].initialize((const char*)RAW(cur), LENGTH(cur),
false/*memalloc*/, false/*killbom*/, false/*isASCII*/); // shallow copy
// else leave as-is, i.e. NA
}
}
else { // it's surely a character vector (args have been checked)
R_len_t nv = LENGTH(rstr);
this->init_Base(nv, nv, true);
this->data = new String8[this->n];
if (!this->data) throw StriException(MSG__MEM_ALLOC_ERROR);
for (R_len_t i=0; i<this->n; ++i) {
SEXP cur = STRING_ELT(rstr, i);
if (cur != NA_STRING)
this->data[i].initialize(CHAR(cur), LENGTH(cur),
false/*memalloc*/, false/*killbom*/, false/*isASCII*/); // shallow copy
// else leave as-is, i.e. NA
}
}
}
/**
* Construct String Container from R character vector
* @param rstr R character vector
*
* if you want nrecycle > n, call set_nrecycle
*/
StriContainerListRaw::StriContainerListRaw(SEXP rstr)
{
this->data = NULL;
if (isNull(rstr)) {
this->init_Base(1, 1, true);
this->data = new String8*[this->n];
this->data[0] = NULL;
}
else if (isRaw(rstr)) {
this->init_Base(1, 1, true);
this->data = new String8*[this->n];
this->data[0] = new String8((const char*)RAW(rstr), LENGTH(rstr), false); // shallow copy
}
else if (Rf_isVectorList(rstr)) {
R_len_t nv = LENGTH(rstr);
this->init_Base(nv, nv, true);
this->data = new String8*[this->n];
for (R_len_t i=0; i<this->n; ++i) {
SEXP cur = VECTOR_ELT(rstr, i);
if (isNull(cur))
this->data[i] = NULL;
else
this->data[i] = new String8((const char*)RAW(cur), LENGTH(cur), false); // shallow copy
}
}
else {
R_len_t nv = LENGTH(rstr);
this->init_Base(nv, nv, true);
this->data = new String8*[this->n];
for (R_len_t i=0; i<this->n; ++i) {
SEXP cur = STRING_ELT(rstr, i);
if (cur == NA_STRING)
this->data[i] = NULL;
else
this->data[i] = new String8(CHAR(cur), LENGTH(cur), false); // shallow copy
}
}
}
bool QFile::at( int pos )
{
if ( !isOpen() ) {
#if defined(CHECK_STATE)
warning( "QFile::at: File is not open" );
#endif
return FALSE;
}
bool ok;
if ( isRaw() ) { // raw file
pos = (int)LSEEK(fd, pos, SEEK_SET);
ok = pos != -1;
} else { // buffered file
ok = fseek(fh, pos, SEEK_SET) == 0;
}
if ( ok )
index = pos;
#if defined(CHECK_RANGE)
else
warning( "QFile::at: Cannot set file position %d", pos );
#endif
return ok;
}
int QFile::getch()
{
#if defined(CHECK_STATE)
if ( !isOpen() ) { // file not open
warning( "QFile::getch: File not open" );
return EOF;
}
if ( !isReadable() ) { // reading not permitted
warning( "QFile::getch: Read operation not permitted" );
return EOF;
}
#endif
int ch;
if ( isRaw() ) { // raw file (inefficient)
char buf[1];
ch = readBlock( buf, 1 ) == 1 ? buf[0] : EOF;
} else { // buffered file
if ( (ch = getc( fh )) != EOF )
index++;
else
setStatus(IO_ReadError);
}
return ch;
}
void Mind::run()
{
int i, raw;
activityMonitor monitor;
struct epoll_event *e = NULL;
std::string buf;
ircEvent event;
User user;
std::string tmp;
moduleMap::const_iterator it;
_irc = new irc();
if (!_irc->connect(_conf.get("server"), atoi(_conf.get("port").c_str())))
throw Exception("Cannot connect to server... aborting");
_irc->setNick(_conf.get("nick"));
_irc->setIdent(_conf.get("ident"));
_irc->setRealname(_conf.get("realname"));
if ((tmp = _conf.get("oper")) == "true")
{
_irc->setOper(true);
_irc->setOperNick(_conf.get("operUsername"));
_irc->setOperPass(_conf.get("operPassword"));
}
_irc->auth();
if (_conf.exists("auth"))
_irc->setNsPass(_conf.get("auth"));
_irc->identify();
if (_irc->isOper())
_irc->oper();
if (_conf.exists("autojoin"))
{
tmp = _conf.get("autojoin");
_irc->join(tmp);
}
monitor.setFd(_irc->getSock()->getFd());
monitor.setEvents(EPOLLIN | EPOLLERR | EPOLLHUP);
if (!monitor.init())
{
*_logger << "Unable to init the activity monitor";
return;
}
while (_run)
if (monitor.checkActivity())
{
if (!(e = monitor.getActivity()))
{
_irc->end();
return;
}
for (i = 0; i < monitor.getNb(); ++i)
{
if (e[i].events & EPOLLHUP || e[i].events & EPOLLERR)
{
_irc->end();
return;
}
if (e[i].events & EPOLLIN)
{
_irc->run();
buf = _irc->getBuf();
event = _irc->getEvent();
try {
user = irc::makeUser(buf);
}
catch (Exception &e) {
event = UNKNOWN;
}
if (isAdmin(user.getNick()))
execAdmin(event, buf);
if (isRaw(buf)) // the message is not an 'IRC event'
{
raw = atoi(Utils::getToken(buf, " ", 2).c_str());
/* broadcast to every module */
for (it = _mod.begin(); raw != -1 && it != _mod.end(); ++it)
if (it->second->isEventable())
it->second->onRaw(raw, buf);
}
/* broadcast irc event to every module */
for (it = _mod.begin(); event != UNKNOWN && it != _mod.end(); ++it)
if (it->second->isEventable())
it->second->execEvent(event, user, buf);
event = UNKNOWN;
}
}
}
_irc->end();
*_logger << "Connection closed.";
return;
}
bool QFile::open( int m )
{
if ( isOpen() ) { // file already open
#if defined(CHECK_STATE)
warning( "QFile::open: File already open" );
#endif
return FALSE;
}
if ( fn.isNull() ) { // no file name defined
#if defined(CHECK_NULL)
warning( "QFile::open: No file name specified" );
#endif
return FALSE;
}
init(); // reset params
setMode( m );
if ( !(isReadable() || isWritable()) ) {
#if defined(CHECK_RANGE)
warning( "QFile::open: File access not specified" );
#endif
return FALSE;
}
bool ok = TRUE;
if ( isRaw() ) { // raw file I/O
int oflags = OPEN_RDONLY;
if ( isReadable() && isWritable() )
oflags = OPEN_RDWR;
else if ( isWritable() )
oflags = OPEN_WRONLY;
if ( flags() & IO_Append ) { // append to end of file?
if ( flags() & IO_Truncate )
oflags |= (OPEN_CREAT | OPEN_TRUNC);
else
oflags |= (OPEN_APPEND | OPEN_CREAT);
setFlags( flags() | IO_WriteOnly ); // append implies write
} else if ( isWritable() ) { // create/trunc if writable
if ( flags() & IO_Truncate )
oflags |= (OPEN_CREAT | OPEN_TRUNC);
else
oflags |= OPEN_CREAT;
}
#if defined(HAS_TEXT_FILEMODE) && !defined(_OS_MAC_)
if ( isTranslated() )
oflags |= OPEN_TEXT;
else
oflags |= OPEN_BINARY;
#endif
#if defined(HAS_ASYNC_FILEMODE)
if ( isAsynchronous() )
oflags |= OPEN_ASYNC;
#endif
fd = OPEN( (const char *)fn, oflags, 0666 );
if ( fd != -1 ) { // open successful
STATBUF st;
FSTAT( fd, &st );
length = (int)st.st_size;
index = (flags() & IO_Append) == 0 ? 0 : length;
} else {
ok = FALSE;
}
} else { // buffered file I/O
const char *perm = 0;
char perm2[4];
bool try_create = FALSE;
if ( flags() & IO_Append ) { // append to end of file?
setFlags( flags() | IO_WriteOnly ); // append implies write
perm = isReadable() ? "a+" : "a";
} else {
if ( isReadWrite() ) {
if ( flags() & IO_Truncate ) {
perm = "w+";
} else {
perm = "r+";
try_create = TRUE; // try to create if not exists
}
} else if ( isReadable() ) {
perm = "r";
} else if ( isWritable() ) {
perm = "w";
}
}
strcpy( perm2, perm );
#if defined(HAS_TEXT_FILEMODE)
if ( isTranslated() )
strcat( perm2, "t" );
else
strcat( perm2, "b" );
#endif
fh = fopen( (const char *)fn, perm2 );
if ( !fh && try_create ) {
perm2[0] = 'w'; // try "w+" instead of "r+"
fh = fopen( (const char *)fn, perm2 );
}
if ( fh ) {
STATBUF st;
FSTAT( FILENO(fh), &st );
length = (int)st.st_size;
index = (flags() & IO_Append) == 0 ? 0 : length;
} else {
ok = FALSE;
}
}
if ( ok ) {
setState( IO_Open );
} else {
init();
if ( errno == EMFILE ) // no more file handles/descrs
setStatus( IO_ResourceError );
else
setStatus( IO_OpenError );
}
return ok;
}
bool QFile::open( int m )
{
if ( isOpen() ) { // file already open
#if defined(QT_CHECK_STATE)
qWarning( "QFile::open: File already open" );
#endif
return FALSE;
}
if ( fn.isEmpty() ) { // no file name defined
#if defined(QT_CHECK_NULL)
qWarning( "QFile::open: No file name specified" );
#endif
return FALSE;
}
init(); // reset params
setMode( m );
if ( !(isReadable() || isWritable()) ) {
#if defined(QT_CHECK_RANGE)
qWarning( "QFile::open: File access not specified" );
#endif
return FALSE;
}
bool ok = TRUE;
struct stat st;
if ( isRaw() ) {
int oflags = O_RDONLY;
if ( isReadable() && isWritable() )
oflags = O_RDWR;
else if ( isWritable() )
oflags = O_WRONLY;
if ( flags() & IO_Append ) { // append to end of file?
if ( flags() & IO_Truncate )
oflags |= (O_CREAT | O_TRUNC);
else
oflags |= (O_APPEND | O_CREAT);
setFlags( flags() | IO_WriteOnly ); // append implies write
} else if ( isWritable() ) { // create/trunc if writable
if ( flags() & IO_Truncate )
oflags |= (O_CREAT | O_TRUNC);
else
oflags |= O_CREAT;
}
#if defined(HAS_TEXT_FILEMODE)
if ( isTranslated() )
oflags |= OPEN_TEXT;
else
oflags |= OPEN_BINARY;
#endif
#if defined(HAS_ASYNC_FILEMODE)
if ( isAsynchronous() )
oflags |= OPEN_ASYNC;
#endif
fd = qt_open( QFile::encodeName(fn), oflags, 0666 );
if ( fd != -1 ) { // open successful
::fstat( fd, &st ); // get the stat for later usage
} else {
ok = FALSE;
}
} else { // buffered file I/O
QCString perm;
char perm2[4];
bool try_create = FALSE;
if ( flags() & IO_Append ) { // append to end of file?
setFlags( flags() | IO_WriteOnly ); // append implies write
perm = isReadable() ? "a+" : "a";
} else {
if ( isReadWrite() ) {
if ( flags() & IO_Truncate ) {
perm = "w+";
} else {
perm = "r+";
try_create = TRUE; // try to create if not exists
}
} else if ( isReadable() ) {
perm = "r";
} else if ( isWritable() ) {
perm = "w";
}
}
qstrcpy( perm2, perm );
#if defined(HAS_TEXT_FILEMODE)
if ( isTranslated() )
strcat( perm2, "t" );
else
strcat( perm2, "b" );
#endif
for (;;) { // At most twice
fh = fopen( QFile::encodeName(fn), perm2 );
if ( !fh && try_create ) {
perm2[0] = 'w'; // try "w+" instead of "r+"
try_create = FALSE;
} else {
break;
}
}
if ( fh ) {
::fstat( fileno(fh), &st ); // get the stat for later usage
} else {
ok = FALSE;
}
}
if ( ok ) {
setState( IO_Open );
// on successful open the file stat was got; now test what type
// of file we have
if ( (st.st_mode & S_IFMT) != S_IFREG ) {
// non-seekable
setType( IO_Sequential );
length = INT_MAX;
ioIndex = 0;
} else {
#if defined(QT_LARGEFILE_SUPPORT) && !defined(QT_ABI_QT4)
length = st.st_size > UINT_MAX ? UINT_MAX : (Offset)st.st_size;
#else
length = (Offset)st.st_size;
#endif
ioIndex = (flags() & IO_Append) == 0 ? 0 : length;
if ( !(flags()&IO_Truncate) && length == 0 && isReadable() ) {
// try if you can read from it (if you can, it's a sequential
// device; e.g. a file in the /proc filesystem)
int c = getch();
if ( c != -1 ) {
ungetch(c);
setType( IO_Sequential );
length = INT_MAX;
ioIndex = 0;
}
resetStatus();
}
}
} else {
init();
if ( errno == EMFILE ) // no more file handles/descrs
setStatus( IO_ResourceError );
else
setStatus( IO_OpenError );
setErrorStringErrno( errno );
}
return ok;
}
static SEXP lbinary(SEXP call, SEXP op, SEXP args)
{
/* logical binary : "&" or "|" */
SEXP x, y, dims, tsp, klass, xnames, ynames;
R_xlen_t mismatch, nx, ny;
int xarray, yarray, xts, yts;
mismatch = 0;
x = CAR(args);
y = CADR(args);
if (isRaw(x) && isRaw(y)) {
}
else if (!isNumber(x) || !isNumber(y))
errorcall(call,
_("operations are possible only for numeric, logical or complex types"));
tsp = R_NilValue; /* -Wall */
klass = R_NilValue; /* -Wall */
xarray = isArray(x);
yarray = isArray(y);
xts = isTs(x);
yts = isTs(y);
if (xarray || yarray) {
if (xarray && yarray) {
if (!conformable(x, y))
error(_("binary operation on non-conformable arrays"));
PROTECT(dims = getAttrib(x, R_DimSymbol));
}
else if (xarray) {
PROTECT(dims = getAttrib(x, R_DimSymbol));
}
else /*(yarray)*/ {
PROTECT(dims = getAttrib(y, R_DimSymbol));
}
PROTECT(xnames = getAttrib(x, R_DimNamesSymbol));
PROTECT(ynames = getAttrib(y, R_DimNamesSymbol));
}
else {
PROTECT(dims = R_NilValue);
PROTECT(xnames = getAttrib(x, R_NamesSymbol));
PROTECT(ynames = getAttrib(y, R_NamesSymbol));
}
nx = XLENGTH(x);
ny = XLENGTH(y);
if(nx > 0 && ny > 0) {
if(nx > ny) mismatch = nx % ny;
else mismatch = ny % nx;
}
if (xts || yts) {
if (xts && yts) {
if (!tsConform(x, y))
errorcall(call, _("non-conformable time series"));
PROTECT(tsp = getAttrib(x, R_TspSymbol));
PROTECT(klass = getAttrib(x, R_ClassSymbol));
}
else if (xts) {
if (XLENGTH(x) < XLENGTH(y))
ErrorMessage(call, ERROR_TSVEC_MISMATCH);
PROTECT(tsp = getAttrib(x, R_TspSymbol));
PROTECT(klass = getAttrib(x, R_ClassSymbol));
}
else /*(yts)*/ {
if (XLENGTH(y) < XLENGTH(x))
ErrorMessage(call, ERROR_TSVEC_MISMATCH);
PROTECT(tsp = getAttrib(y, R_TspSymbol));
PROTECT(klass = getAttrib(y, R_ClassSymbol));
}
}
if(mismatch)
warningcall(call,
_("longer object length is not a multiple of shorter object length"));
if (isRaw(x) && isRaw(y)) {
PROTECT(x = binaryLogic2(PRIMVAL(op), x, y));
} else {
if (!isNumber(x) || !isNumber(y))
errorcall(call,
_("operations are possible only for numeric, logical or complex types"));
x = SETCAR(args, coerceVector(x, LGLSXP));
y = SETCADR(args, coerceVector(y, LGLSXP));
PROTECT(x = binaryLogic(PRIMVAL(op), x, y));
}
if (dims != R_NilValue) {
setAttrib(x, R_DimSymbol, dims);
if(xnames != R_NilValue)
setAttrib(x, R_DimNamesSymbol, xnames);
else if(ynames != R_NilValue)
setAttrib(x, R_DimNamesSymbol, ynames);
}
else {
if(XLENGTH(x) == XLENGTH(xnames))
setAttrib(x, R_NamesSymbol, xnames);
else if(XLENGTH(x) == XLENGTH(ynames))
setAttrib(x, R_NamesSymbol, ynames);
}
if (xts || yts) {
setAttrib(x, R_TspSymbol, tsp);
setAttrib(x, R_ClassSymbol, klass);
UNPROTECT(2);
}
UNPROTECT(4);
return x;
}
static SEXP lunary(SEXP call, SEXP op, SEXP arg)
{
SEXP x, dim, dimnames, names;
R_xlen_t i, len;
len = XLENGTH(arg);
if (!isLogical(arg) && !isNumber(arg) && !isRaw(arg)) {
/* For back-compatibility */
if (!len) return allocVector(LGLSXP, 0);
errorcall(call, _("invalid argument type"));
}
if (isLogical(arg) || isRaw(arg))
x = PROTECT(duplicate(arg)); // copy all attributes in this case
else {
x = PROTECT(allocVector(isRaw(arg) ? RAWSXP : LGLSXP, len));
PROTECT(names = getAttrib(arg, R_NamesSymbol));
PROTECT(dim = getAttrib(arg, R_DimSymbol));
PROTECT(dimnames = getAttrib(arg, R_DimNamesSymbol));
if(names != R_NilValue) setAttrib(x, R_NamesSymbol, names);
if(dim != R_NilValue) setAttrib(x, R_DimSymbol, dim);
if(dimnames != R_NilValue) setAttrib(x, R_DimNamesSymbol, dimnames);
UNPROTECT(3);
}
switch(TYPEOF(arg)) {
case LGLSXP:
for (i = 0; i < len; i++) {
// if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
LOGICAL(x)[i] = (LOGICAL(arg)[i] == NA_LOGICAL) ?
NA_LOGICAL : LOGICAL(arg)[i] == 0;
}
break;
case INTSXP:
for (i = 0; i < len; i++) {
// if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
LOGICAL(x)[i] = (INTEGER(arg)[i] == NA_INTEGER) ?
NA_LOGICAL : INTEGER(arg)[i] == 0;
}
break;
case REALSXP:
for (i = 0; i < len; i++){
// if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
LOGICAL(x)[i] = ISNAN(REAL(arg)[i]) ?
NA_LOGICAL : REAL(arg)[i] == 0;
}
break;
case CPLXSXP:
for (i = 0; i < len; i++) {
// if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
LOGICAL(x)[i] = (ISNAN(COMPLEX(arg)[i].r) || ISNAN(COMPLEX(arg)[i].i))
? NA_LOGICAL : (COMPLEX(arg)[i].r == 0. && COMPLEX(arg)[i].i == 0.);
}
break;
case RAWSXP:
for (i = 0; i < len; i++) {
// if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
RAW(x)[i] = 0xFF ^ RAW(arg)[i];
}
break;
default:
UNIMPLEMENTED_TYPE("lunary", arg);
}
UNPROTECT(1);
return x;
}
static SEXP lbinary(SEXP call, SEXP op, SEXP args)
{
/* logical binary : "&" or "|" */
SEXP
x = CAR(args),
y = CADR(args);
if (isRaw(x) && isRaw(y)) {
}
else if ( !(isNull(x) || isNumber(x)) ||
!(isNull(y) || isNumber(y)) )
errorcall(call,
_("operations are possible only for numeric, logical or complex types"));
R_xlen_t
nx = xlength(x),
ny = xlength(y);
Rboolean
xarray = isArray(x),
yarray = isArray(y),
xts = isTs(x),
yts = isTs(y);
SEXP dims, xnames, ynames;
if (xarray || yarray) {
if (xarray && yarray) {
if (!conformable(x, y))
errorcall(call, _("non-conformable arrays"));
PROTECT(dims = getAttrib(x, R_DimSymbol));
}
else if (xarray && (ny != 0 || nx == 0)) {
PROTECT(dims = getAttrib(x, R_DimSymbol));
}
else if (yarray && (nx != 0 || ny == 0)) {
PROTECT(dims = getAttrib(y, R_DimSymbol));
} else
PROTECT(dims = R_NilValue);
PROTECT(xnames = getAttrib(x, R_DimNamesSymbol));
PROTECT(ynames = getAttrib(y, R_DimNamesSymbol));
}
else {
PROTECT(dims = R_NilValue);
PROTECT(xnames = getAttrib(x, R_NamesSymbol));
PROTECT(ynames = getAttrib(y, R_NamesSymbol));
}
SEXP klass = NULL, tsp = NULL; // -Wall
if (xts || yts) {
if (xts && yts) {
if (!tsConform(x, y))
errorcall(call, _("non-conformable time series"));
PROTECT(tsp = getAttrib(x, R_TspSymbol));
PROTECT(klass = getAttrib(x, R_ClassSymbol));
}
else if (xts) {
if (nx < ny)
ErrorMessage(call, ERROR_TSVEC_MISMATCH);
PROTECT(tsp = getAttrib(x, R_TspSymbol));
PROTECT(klass = getAttrib(x, R_ClassSymbol));
}
else /*(yts)*/ {
if (ny < nx)
ErrorMessage(call, ERROR_TSVEC_MISMATCH);
PROTECT(tsp = getAttrib(y, R_TspSymbol));
PROTECT(klass = getAttrib(y, R_ClassSymbol));
}
}
if (nx > 0 && ny > 0) {
if(((nx > ny) ? nx % ny : ny % nx) != 0) // mismatch
warningcall(call,
_("longer object length is not a multiple of shorter object length"));
if (isRaw(x) && isRaw(y)) {
x = binaryLogic2(PRIMVAL(op), x, y);
}
else {
if(isNull(x))
x = SETCAR(args, allocVector(LGLSXP, 0));
else // isNumeric(x)
x = SETCAR(args, coerceVector(x, LGLSXP));
if(isNull(y))
y = SETCAR(args, allocVector(LGLSXP, 0));
else // isNumeric(y)
y = SETCADR(args, coerceVector(y, LGLSXP));
x = binaryLogic(PRIMVAL(op), x, y);
}
} else { // nx == 0 || ny == 0
x = allocVector(LGLSXP, 0);
}
PROTECT(x);
if (dims != R_NilValue) {
setAttrib(x, R_DimSymbol, dims);
if(xnames != R_NilValue)
setAttrib(x, R_DimNamesSymbol, xnames);
else if(ynames != R_NilValue)
setAttrib(x, R_DimNamesSymbol, ynames);
}
else {
if(xnames != R_NilValue && XLENGTH(x) == XLENGTH(xnames))
setAttrib(x, R_NamesSymbol, xnames);
else if(ynames != R_NilValue && XLENGTH(x) == XLENGTH(ynames))
setAttrib(x, R_NamesSymbol, ynames);
}
if (xts || yts) {
setAttrib(x, R_TspSymbol, tsp);
setAttrib(x, R_ClassSymbol, klass);
UNPROTECT(2);
}
UNPROTECT(4);
return x;
}
uint QFile::size() const
{
STATBUF st;
if ( isOpen() ) {
FSTAT( fh ? FILENO(fh) : fd, &st );
return st.st_size;
} else {
#if defined(__CYGWIN32_)
STAT( QFile::encodeName(fn), &st );
#else
QString str = fn;
reslashify(str);
#ifdef QT_LARGEFILE_SUPPORT
if ( _wstati64( (wchar_t*) str.ucs2(), &st ) != -1 ) {
#else
if ( _wstat( (wchar_t*) str.ucs2(), &st ) != -1 ) {
#endif
#endif
return st.st_size;
}
}
return 0;
}
/*!
\fn int QFile::at() const
Returns the file index.
\sa size()
*/
/*!
Sets the file index to \e pos. Returns TRUE if successful, otherwise FALSE.
Example:
\code
QFile f( "data.bin" );
f.open( IO_ReadOnly ); // index set to 0
f.at( 100 ); // set index to 100
f.at( f.at()+50 ); // set index to 150
f.at( f.size()-80 ); // set index to 80 before EOF
f.close();
\endcode
\warning The result is undefined if the file was \link open() opened\endlink
using the \c IO_Append specifier.
\sa size(), open()
*/
bool QFile::at( int pos )
{
if ( !isOpen() ) {
#if defined(CHECK_STATE)
qWarning( "QFile::at: File is not open" );
#endif
return FALSE;
}
bool ok;
if ( isRaw() ) { // raw file
pos = (int)LSEEK(fd, pos, SEEK_SET);
ok = pos != -1;
} else { // buffered file
ok = fseek(fh, pos, SEEK_SET) == 0;
}
if ( ok )
ioIndex = pos;
#if defined(CHECK_RANGE)
else
qWarning( "QFile::at: Cannot set file position %d", pos );
#endif
return ok;
}
/*!
Reads at most \e len bytes from the file into \e p and returns the
number of bytes actually read.
Returns -1 if a serious error occurred.
\warning We have experienced problems with some C libraries when a buffered
file is opened for both reading and writing. If a read operation takes place
immediately after a write operation, the read buffer contains garbage data.
Worse, the same garbage is written to the file. Calling flush() before
readBlock() solved this problem.
\sa writeBlock()
*/
int QFile::readBlock( char *p, uint len )
{
#if defined(CHECK_NULL)
if ( !p )
qWarning( "QFile::readBlock: Null pointer error" );
#endif
#if defined(CHECK_STATE)
if ( !isOpen() ) { // file not open
qWarning( "QFile::readBlock: File not open" );
return -1;
}
if ( !isReadable() ) { // reading not permitted
qWarning( "QFile::readBlock: Read operation not permitted" );
return -1;
}
#endif
int nread; // number of bytes read
if ( isRaw() ) { // raw file
nread = READ( fd, p, len );
if ( len && nread <= 0 ) {
nread = 0;
setStatus(IO_ReadError);
}
} else { // buffered file
nread = (int)fread( p, 1, len, fh );
if ( (uint)nread != len ) {
if ( ferror( fh ) || nread==0 )
setStatus(IO_ReadError);
}
}
ioIndex += nread;
return nread;
}
/*! \overload int writeBlock( const QByteArray& data )
*/
/*! \reimp
Writes \e len bytes from \e p to the file and returns the number of
bytes actually written.
Returns -1 if a serious error occurred.
\warning When working with buffered files, data may not be written
to the file at once. Call flush() to make sure the data is really
written.
\sa readBlock()
*/
int QFile::writeBlock( const char *p, uint len )
{
#if defined(CHECK_NULL)
if ( p == 0 && len != 0 )
qWarning( "QFile::writeBlock: Null pointer error" );
#endif
#if defined(CHECK_STATE)
if ( !isOpen() ) { // file not open
qWarning( "QFile::writeBlock: File not open" );
return -1;
}
if ( !isWritable() ) { // writing not permitted
qWarning( "QFile::writeBlock: Write operation not permitted" );
return -1;
}
#endif
int nwritten; // number of bytes written
if ( isRaw() ) // raw file
nwritten = WRITE( fd, p, len );
else // buffered file
nwritten = (int)fwrite( p, 1, len, fh );
if ( nwritten != (int)len ) { // write error
if ( errno == ENOSPC ) // disk is full
setStatus( IO_ResourceError );
else
setStatus( IO_WriteError );
if ( isRaw() ) // recalc file position
ioIndex = (int)LSEEK( fd, 0, SEEK_CUR );
else
ioIndex = fseek( fh, 0, SEEK_CUR );
} else {
ioIndex += nwritten;
}
if ( ioIndex > length ) // update file length
length = ioIndex;
return nwritten;
}
/*!
Returns the file handle of the file.
This is a small positive integer, suitable for use with C library
functions such as fdopen() and fcntl(), as well as with QSocketNotifier.
If the file is not open or there is an error, handle() returns -1.
\sa QSocketNotifier
*/
int QFile::handle() const
{
if ( !isOpen() )
return -1;
else if ( fh )
return FILENO( fh );
else
return fd;
}
/*!
Closes an open file.
The file is not closed if it was opened with an existing file handle.
If the existing file handle is a \c FILE*, the file is flushed.
If the existing file handle is an \c int file descriptor, nothing
is done to the file.
Some "write-behind" filesystems may report an unspecified error on
closing the file. These errors only indicate that something may
have gone wrong since the previous open(). In such a case status()
reports IO_UnspecifiedError after close(), otherwise IO_Ok.
\sa open(), flush()
*/
void QFile::close()
{
bool ok = FALSE;
if ( isOpen() ) { // file is not open
if ( fh ) { // buffered file
if ( ext_f )
ok = fflush( fh ) != -1; // flush instead of closing
else
ok = fclose( fh ) != -1;
} else { // raw file
if ( ext_f )
ok = TRUE; // cannot close
else
ok = CLOSE( fd ) != -1;
}
init(); // restore internal state
}
if (!ok)
setStatus (IO_UnspecifiedError);
return;
}
bool QFile::open( int m )
{
if ( isOpen() ) { // file already open
#if defined(CHECK_STATE)
qWarning( "QFile::open: File already open" );
#endif
return FALSE;
}
if ( fn.isNull() ) { // no file name defined
#if defined(CHECK_NULL)
qWarning( "QFile::open: No file name specified" );
#endif
return FALSE;
}
init(); // reset params
setMode( m );
if ( !(isReadable() || isWritable()) ) {
#if defined(CHECK_RANGE)
qWarning( "QFile::open: File access not specified" );
#endif
return FALSE;
}
bool ok = TRUE;
STATBUF st;
if ( isRaw() ) { // raw file I/O
int oflags = OPEN_RDONLY;
if ( isReadable() && isWritable() )
oflags = OPEN_RDWR;
else if ( isWritable() )
oflags = OPEN_WRONLY;
if ( flags() & IO_Append ) { // append to end of file?
if ( flags() & IO_Truncate )
oflags |= (OPEN_CREAT | OPEN_TRUNC);
else
oflags |= (OPEN_APPEND | OPEN_CREAT);
setFlags( flags() | IO_WriteOnly ); // append implies write
} else if ( isWritable() ) { // create/trunc if writable
if ( flags() & IO_Truncate )
oflags |= (OPEN_CREAT | OPEN_TRUNC);
else
oflags |= OPEN_CREAT;
}
#if defined(HAS_TEXT_FILEMODE)
if ( isTranslated() )
oflags |= OPEN_TEXT;
else
oflags |= OPEN_BINARY;
#endif
#if defined(HAS_ASYNC_FILEMODE)
if ( isAsynchronous() )
oflags |= OPEN_ASYNC;
#endif
#if defined(__CYGWIN32_)
fd = OPEN( QFile::encodeName(fn), oflags, 0666 );
#else
QString str = fn;
reslashify(str);
fd = _wopen( (wchar_t*) str.ucs2(), oflags, 0666 );
#endif
if ( fd != -1 ) { // open successful
FSTAT( fd, &st ); // get the stat for later usage
} else {
ok = FALSE;
}
} else { // buffered file I/O
QCString perm;
char perm2[4];
bool try_create = FALSE;
if ( flags() & IO_Append ) { // append to end of file?
setFlags( flags() | IO_WriteOnly ); // append implies write
perm = isReadable() ? "a+" : "a";
} else {
if ( isReadWrite() ) {
if ( flags() & IO_Truncate ) {
perm = "w+";
} else {
perm = "r+";
try_create = TRUE; // try to create if not exists
}
} else if ( isReadable() ) {
perm = "r";
} else if ( isWritable() ) {
perm = "w";
}
}
qstrcpy( perm2, perm );
if ( isTranslated() )
strcat( perm2, "t" );
else
strcat( perm2, "b" );
while (1) { // At most twice
#if defined(__CYGWIN32_)
fh = fopen( QFile::encodeName(fn), perm2 );
#else
QString str = fn;
QString prm( perm2 );
reslashify(str);
fh = _wfopen( (wchar_t*) str.ucs2(), (wchar_t*) prm.ucs2() );
#endif
if ( !fh && try_create ) {
perm2[0] = 'w'; // try "w+" instead of "r+"
try_create = FALSE;
} else {
break;
}
}
if ( fh ) {
FSTAT( FILENO(fh), &st ); // get the stat for later usage
} else {
ok = FALSE;
}
}
if ( ok ) {
setState( IO_Open );
// on successful open the file stat was got; now test what type
// of file we have
if ( (st.st_mode & STAT_MASK) != STAT_REG ) {
// non-seekable
setType( IO_Sequential );
length = INT_MAX;
ioIndex = (flags() & IO_Append) == 0 ? 0 : length;
} else {
length = (int)st.st_size;
ioIndex = (flags() & IO_Append) == 0 ? 0 : length;
if ( !(flags()&IO_Truncate) && length == 0 && isReadable() ) {
// try if you can read from it (if you can, it's a sequential
// device; e.g. a file in the /proc filesystem)
int c = getch();
if ( c != -1 ) {
ungetch(c);
setType( IO_Sequential );
length = INT_MAX;
}
}
}
} else {
init();
if ( errno == EMFILE ) // no more file handles/descrs
setStatus( IO_ResourceError );
else
setStatus( IO_OpenError );
}
return ok;
}
