@@ -1466,6 +1466,94 @@ redata_generic_genname(char *filename,char *prefix, char *postfix, char *buf, in

         return(name);

 }

+long

+redata_searchforward(redata_t *redata, long posini, char *str, int len)

+{

+        int numchunk;

+        int offset;

+        int avail;

+        long chunkstartpos;

+        rechunk_t *chunk;

+        char *ptr;

+        if(redata==NULL || posini<0 || (posini+len)>redata_getsize(redata) || len<0 || (str==NULL && len>0))

+                return(-1); /* sanity check failed */

+        if(len==0)

+                return(posini); /* nothing to do, empty string is always equal */

+        if(redata_getposptr(redata,posini,&numchunk,&offset)!=0)

+                return(-1); /* couldn't get pos */

+        chunkstartpos=posini-offset;

+        for(;numchunk<redata->sizechunks

+          ;chunkstartpos+=chunk->useddata,numchunk++,offset=0) {

+                chunk=redata->chunks[numchunk];

+                avail=chunk->useddata-offset;

+                while(avail>0 && (ptr=memchr(chunk->data+offset,str[0],avail))!=NULL) {

+                        offset=ptr-((char *)(chunk->data));

+                        if(redata_memcmp(redata,chunkstartpos+offset,str,len)==0)

+                                return(chunkstartpos+offset);

+                        offset++;

+                        avail=chunk->useddata-offset;

+                }

+        }

+        return(-1); /* not found */

+}

+

+long

+redata_searchbackwards(redata_t *redata, long posini, char *str, int len)

+{

+        int numchunk;

+        int offset;

+        long chunkstartpos;

+        rechunk_t *chunk;

+        char *ptr;

+        if(redata==NULL || posini<0 || (posini+len)>redata_getsize(redata) || len<0 || (str==NULL && len>0))

+                return(-1); /* sanity check failed */

+        if(len==0)

+                return(posini); /* nothing to do, empty string is always equal */

+        if(redata_getposptr(redata,posini,&numchunk,&offset)!=0)

+                return(-1); /* couldn't get pos */

+        chunkstartpos=posini-offset;

+        for(offset++;numchunk>=0

+          ;numchunk--

+          ,offset=(numchunk>=0)?redata->chunks[numchunk]->useddata:0

+          ,chunkstartpos-=(numchunk>=0)?redata->chunks[numchunk]->useddata:0) {

+                chunk=redata->chunks[numchunk];

+                while(offset>0 && (ptr=mymemrchr(chunk->data,str[0],offset))!=NULL) {

+                        offset=ptr-((char *)(chunk->data));

+                        if(redata_memcmp(redata,chunkstartpos+offset,str,len)==0)

+                                return(chunkstartpos+offset);

+                }

+        }

+        return(-1); /* not found */

+}

+

+int

+redata_memcmp(redata_t *redata, long pos, char *str, int len)

+{

+        int numchunk;

+        int offset;

+        int avail;

+        int ncompared;

+        rechunk_t *chunk;

+        int res;

+        if(redata==NULL || pos<0 || (pos+len)>redata_getsize(redata) || len<0 || (str==NULL && len>0))

+                return(-1); /* sanity check failed, return "this is smaller" */

+        if(len==0)

+                return(0); /* nothing to do, empty string is always equal */

+        if(redata_getposptr(redata,pos,&numchunk,&offset)!=0)

+                return(-1); /* couldn't get pos */

+        for(ncompared=0;numchunk<redata->sizechunks;numchunk++,offset=0) {

+                chunk=redata->chunks[numchunk];

+                avail=chunk->useddata-offset;

+                avail=(avail>(len-ncompared))?(len-ncompared):avail;

+                if((res=memcmp(chunk->data+offset,str+ncompared,avail))!=0 || (ncompared+avail)==len)

+                        return(res); /* comparison finished */

+                ncompared+=avail;

+        }

+        return(-1); /* not enough data in chunks */

+

+}

+

+

 int

 redata_generic_utf8len(char *ptr, int size)

 {

@@ -163,6 +163,11 @@ undostack_t *redata_getstack(redata_t *redata, undo_t *undo);

 char *redata_generic_genname(char *filename,char *prefix, char *postfix, char *buf, int bufsize);

+/* search */

+long redata_searchforward(redata_t *redata, long posini, char *str, int len);

+long redata_searchbackwards(redata_t *redata, long posini, char *str, int len);

+int redata_memcmp(redata_t *redata, long pos, char *str, int len);

+

 /* utf8 convenience functions */

 /* calculate the number of utf8-charaters in buffer */