[gforth] / gforth / utf-8.fs  

gforth: gforth/utf-8.fs

Diff for /gforth/utf-8.fs between version 1.21 and 1.22

version 1.21, Sun Feb 19 22:35:40 2006 UTC version 1.22, Mon Feb 20 08:22:28 2006 UTC
Line 128 
Line 128 
         nip nip over -          nip nip over -
     then ;      then ;
   
 [IFDEF] wcwidth  [IFUNDEF] wcwidth
       : wcwidth abort ;
   [THEN]
   
 : u8width ( xcaddr u -- n )  : u8width ( xcaddr u -- n )
     0 rot rot over + swap ?DO      0 rot rot over + swap ?DO
         I xc@+ swap >r wcwidth +          I xc@+ swap >r wcwidth +
     r> I - +LOOP ;      r> I - +LOOP ;
 [THEN]  
   
 : set-encoding-utf-8 ( -- )  : set-encoding-utf-8 ( -- )
     ['] u8emit is xemit      ['] u8emit is xemit

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help