gforth/kernel/xchars.fs - diff

Return to xchars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 2005/01/12 21:21:53	version 1.5, 2006/12/31 13:39:19
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 Free Software Foundation, Inc.	\ Copyright (C) 2005,2006 Free Software Foundation, Inc.

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

Line 33 DEFER XC@ ( xc-addr -- xc )	Line 33 DEFER XC@ ( xc-addr -- xc )
DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded	DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded
DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )	DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )
DEFER XC-SIZE ( xc -- u ) \ size in cs	DEFER XC-SIZE ( xc -- u ) \ size in cs
	DEFER X-WIDTH ( addr u -- n ) \ size in fixed chars
DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc	DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc

\ derived words, faster implementations are probably possible	\ derived words, faster implementations are probably possible
Line 75 DEFER -TRAILING-GARBAGE ( addr u1 -- add	Line 76 DEFER -TRAILING-GARBAGE ( addr u1 -- add
['] c!+? is xc!+?	['] c!+? is xc!+?
['] count is xc@+	['] count is xc@+
['] c-size is xc-size	['] c-size is xc-size
	['] nip IS x-width
['] noop is -trailing-garbage	['] noop is -trailing-garbage
;	;