search for: text_seek

...static int text_fgetc(Rconnection con) { - Rtextconn this = (Rtextconn)con->private; + Rloopconn this = (Rloopconn)con->private; if(this->save) { int c; c = this->save; @@ -1700,48 +1716,69 @@ else return (int) (this->data[this->cur++]); } -static double text_seek(Rconnection con, double where, int origin, int rw) +static double loop_seek(Rconnection con, double where, int origin, int rw) { - if(where >= 0) error(_("seek is not relevant for text connection")); + if(where >= 0) error(_("seek is not relevant for loop connection&quot...

..."cannot allocate memory for raw connection")); + } + memcpy(this->data, RAW(raw), nbytes); + this->nchars = nbytes; + this->cur = this->save = 0; +} + static Rboolean text_open(Rconnection con) { con->save = -1000; @@ -1736,57 +1741,79 @@ static double text_seek(Rconnection con, double where, int origin, int rw) { - if(where >= 0) error(_("seek is not relevant for text connection")); + if(where >= 0) error(_("seek is not relevant for this connection")); return 0; /* if just asking, always at the beginning */ } -stat...