[frontierkernel-commits] Frontier/Common/source memory.c,1.6,1.7,

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3827/Common/source

Modified Files:
	memory.c 
Log Message:
Added seekhandlestreamchar.

Index: memory.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/memory.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** memory.c	21 Mar 2005 02:43:14 -0000	1.6
--- memory.c	9 Mar 2006 22:18:57 -0000	1.7
***************
*** 2575,2578 ****
--- 2575,2601 ----
  
  
+ long seekhandlestreamchar (handlestream *s, byte chseek)  {
+ 	
+ 	/*
+ 	return the number of characters skipped
+ 	*/
+ 	
+ 	byte *p = *(*s).data;
+ 	long ctskipped = 0;
+ 	
+ 	while ((*s).pos < (*s).eof) {
+ 		
+ 		if (p [(*s).pos] == chseek)
+ 			break;
+ 		
+ 		++ctskipped;
+ 		
+ 		++(*s).pos;
+ 		}
+ 	
+ 	return (ctskipped);
+ 	} /*skiphandlestreamchars*/
+ 
+ 
  boolean readhandlestreamfieldtohandle (handlestream *s, byte chdelimiter, Handle *hreturned) {