[gforth] / gforth / utf-8.fs  

gforth: gforth/utf-8.fs

Diff for /gforth/utf-8.fs between version 1.11 and 1.12

version 1.11, Tue Jan 4 22:22:08 2005 UTC version 1.12, Wed Jan 5 16:24:33 2005 UTC
Line 62 
Line 62 
   
 \ scan to next/previous character  \ scan to next/previous character
   
 : u8>> ( u8addr -- u8addr' )  $80 >r  : u8>> ( u8addr -- u8addr' )  u8@+ drop ;
     BEGIN  count r> and maxascii <> $C0 >r  UNTIL  rdrop ;  
 : u8<< ( u8addr -- u8addr' )  : u8<< ( u8addr -- u8addr' )
     BEGIN  1- dup c@ $C0 and maxascii <>  UNTIL ;      BEGIN  1- dup c@ $C0 and maxascii <>  UNTIL ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help