gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.13, 2007/12/31 18:40:26	version 1.15, 2008/12/31 15:29:14
Line 1	Line 1
\ extended characters (either 8bit or UTF-8, possibly other encodings)	\ extended characters (either 8bit or UTF-8, possibly other encodings)
\ and their fixed-size variant	\ and their fixed-size variant

\ Copyright (C) 2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 2005,2006,2007,2008 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 88 Defer -trailing-garbage ( xc-addr u1 --	Line 88 Defer -trailing-garbage ( xc-addr u1 --
holdptr @ dup holdbuf u< -&17 and throw	holdptr @ dup holdbuf u< -&17 and throw
8 xc!+? 2drop drop ;	8 xc!+? 2drop drop ;

	: xc, ( xchar -- ) here unused xc!+? 2drop dp ! ;

\ fixed-size versions of these words	\ fixed-size versions of these words

: char- ( c-addr1 -- c-addr2 )	: char- ( c-addr1 -- c-addr2 )