[gforth] / gforth / utf-8.fs  

gforth: gforth/utf-8.fs

Diff for /gforth/utf-8.fs between version 1.25 and 1.26

version 1.25, Sun Dec 31 13:39:14 2006 UTC version 1.26, Sat May 5 17:26:02 2007 UTC
Line 91 
Line 91 
   
 \ utf-8 stuff for xchars  \ utf-8 stuff for xchars
   
 : +u8/string ( c-addr1 u1 -- c-addr2 u2 )  : u8string+ ( xcaddr u -- xcaddr u' )
     over dup u8>> swap - /string ;      over + u8>> over - ;
   : u8string- ( xcaddr u -- xcaddr u' )
       over + u8<< over - ;
   
 : -u8/string ( c-addr1 u1 -- c-addr2 u2 )  : +u8string ( xc-addr1 u1 -- xc-addr2 u2 )
       over dup u8>> swap - /string ;
   : -u8string ( xc-addr1 u1 -- xc-addr2 u2 )
     over dup u8<< swap - /string ;      over dup u8<< swap - /string ;
   
 : u8@ ( c-addr -- u )  : u8@ ( c-addr -- u )
Line 287 
Line 291 
     ['] u8key is xkey      ['] u8key is xkey
     ['] u8>> is xchar+      ['] u8>> is xchar+
     ['] u8<< is xchar-      ['] u8<< is xchar-
     ['] +u8/string is +x/string  [ [IFDEF] xstring+ ]
     ['] -u8/string is -x/string      ['] u8string+ is xstring+
       ['] u8string- is xstring-
       ['] +u8string is +xstring
       ['] -u8string is -xstring
   [ [THEN] ]
     ['] u8@ is xc@      ['] u8@ is xc@
     ['] u8!+? is xc!+?      ['] u8!+? is xc!+?
     ['] u8@+ is xc@+      ['] u8@+ is xc@+

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help