gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.10, 2007/10/17 15:50:01	version 1.12, 2007/12/31 17:34:59
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 Free Software Foundation, Inc.	\ Copyright (C) 2005,2006,2007 Free Software Foundation, Inc.

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

Line 83 Defer -trailing-garbage ( xc-addr u1 --	Line 83 Defer -trailing-garbage ( xc-addr u1 --
over >r +x/string	over >r +x/string
r> xc@ ;	r> xc@ ;

Create xholdbuf 8 allot
: xhold ( xc -- )	: xhold ( xc -- )
\G Put xc into the pictured numeric output	\G Put xc into the pictured numeric output
xholdbuf 8 xc!+? 2drop	dup xc-size negate chars holdptr +!
BEGIN 1- dup xholdbuf u>= WHILE dup c@ hold REPEAT drop ;	holdptr @ dup holdbuf u< -&17 and throw
	8 xc!+? 2drop drop ;

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