Diff for /gforth/utf-8.fs between versions 1.20 and 1.21

version 1.20, 2006/02/19 22:15:05 version 1.21, 2006/02/19 22:35:40
Line 128  $80 Value max-single-byte Line 128  $80 Value max-single-byte
         nip nip over -          nip nip over -
     then ;      then ;
   
   [IFDEF] wcwidth
 : 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

Removed from v.1.20  
changed lines
  Added in v.1.21


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>