Return to utf-8.fs CVS log | Up to [gforth] / gforth |
version 1.41, 2010/02/14 18:04:16 | version 1.43, 2011/09/01 20:09:23 |
---|---|
Line 1 | Line 1 |
\ UTF-8 handling 12dec04py | \ UTF-8 handling 12dec04py |
\ Copyright (C) 2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc. | \ Copyright (C) 2004,2005,2006,2007,2008,2009,2010 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 300 here wc-table - Constant #wc-table | Line 300 here wc-table - Constant #wc-table |
['] +u8/string is +x/string | ['] +u8/string is +x/string |
[ [THEN] ] | [ [THEN] ] |
['] u8@ is xc@ | ['] u8@ is xc@ |
[ [IFDEF] xc!+ ] | |
['] u8!+ is xc!+ | |
[ [THEN] ] | |
['] u8!+? is xc!+? | ['] u8!+? is xc!+? |
['] u8@+ is xc@+ | ['] u8@+ is xc@+ |
['] u8len is xc-size | ['] u8len is xc-size |