Group: comp.lang.forth · Group Profile · Search for E0001 in comp.lang.forth
Author: Bernd Paysan
Date: Jul 14, 2007 12:56
... 0 FEFF FEFF wc, 2 FF00 FF60 wc, 2 FFE0 FFE6 wc, 0 FFF9 FFFB wc, 0 1D167 1D169 wc, 0 1D173 1D182 wc, 0 1D185 1D18B wc, 0 1D1AA 1D1AD wc, 2 20000 2FFFD wc, 2 30000 3FFFD wc, 0 E0001 E0001 wc, 0 E0020 E007F wc, 0 E0100 E01EF wc, here wc-table - Constant #wc-table \ inefficient table walk: : wcwidth ( xc -- n ) wc-table #wc-table over + swap ?DO dup I 2@ within IF I...
| 
