![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to utf-8.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to utf-8.fs CVS log | Up to [gforth] / gforth |
| version 1.20, 2006/02/19 22:15:05 | version 1.22, 2006/02/20 08:22:28 |
|---|---|
| Line 128 $80 Value max-single-byte | Line 128 $80 Value max-single-byte |
| nip nip over - | nip nip over - |
| then ; | then ; |
| [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 ; |
| : set-encoding-utf-8 ( -- ) | : set-encoding-utf-8 ( -- ) |