gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/int.fs between versions 1.39 and 1.40

version 1.39, 1999/11/06 15:01:17	version 1.40, 1999/11/08 22:01:10
Line 32 require ~+/kernel/version.fs \ version-s	Line 32 require ~+/kernel/version.fs \ version-s
require ./../chains.fs	require ./../chains.fs

: tib ( -- c-addr ) \ core-ext	: tib ( -- c-addr ) \ core-ext
\G @var{c-addr} is the address of the Terminal Input Buffer.	\G @i{c-addr} is the address of the Terminal Input Buffer.
\G OBSOLESCENT: @code{source} superceeds the function of this word.	\G OBSOLESCENT: @code{source} superceeds the function of this word.
>tib @ ;	>tib @ ;

Defer source ( -- c-addr u ) \ core	Defer source ( -- c-addr u ) \ core
\ used by dodefer:, must be defer	\ used by dodefer:, must be defer
\G @var{c-addr} is the address of the input buffer and @var{u} is the	\G @i{c-addr} is the address of the input buffer and @i{u} is the
\G number of characters in it.	\G number of characters in it.

: (source) ( -- c-addr u )	: (source) ( -- c-addr u )
Line 54 Defer source ( -- c-addr u ) \ core	Line 54 Defer source ( -- c-addr u ) \ core
\ word parse 23feb93py	\ word parse 23feb93py

: sword ( char -- addr len ) \ gforth s-word	: sword ( char -- addr len ) \ gforth s-word
\G Parses like @code{word}, but the output is like @code{parse} output	\G Parses like @code{word}, but the output is like @code{parse} output.
	\G @xref{core-idef}
\ this word was called PARSE-WORD until 0.3.0, but Open Firmware and	\ this word was called PARSE-WORD until 0.3.0, but Open Firmware and
\ dpANS6 A.6.2.2008 have a word with that name that behaves	\ dpANS6 A.6.2.2008 have a word with that name that behaves
\ differently (like NAME).	\ differently (like NAME).
Line 63 Defer source ( -- c-addr u ) \ core	Line 64 Defer source ( -- c-addr u ) \ core
2dup + r> - 1+ r> min >in ! ;	2dup + r> - 1+ r> min >in ! ;

: word ( char "<chars>ccc<char>-- c-addr ) \ core	: word ( char "<chars>ccc<char>-- c-addr ) \ core
\G Skip leading delimiters. Parse @var{ccc}, delimited by	\G Skip leading delimiters. Parse @i{ccc}, delimited by
\G @var{char}, in the parse area. @var{c-addr} is the addres of a	\G @i{char}, in the parse area. @i{c-addr} is the address of a
\G transient region containing the parsed string in	\G transient region containing the parsed string in
\G counted-strinng format. If the parse area was empty or	\G counted-string format. If the parse area was empty or
\G contained no characters other than delimiters, the resulting	\G contained no characters other than delimiters, the resulting
\G string has zero length. A program may replace characters within	\G string has zero length. A program may replace characters within
\G the counted string. OBSOLESCENT: the counted string has a	\G the counted string. OBSOLESCENT: the counted string has a
Line 74 Defer source ( -- c-addr u ) \ core	Line 75 Defer source ( -- c-addr u ) \ core
sword here place bl here count + c! here ;	sword here place bl here count + c! here ;

: parse ( char "ccc<char>" -- c-addr u ) \ core-ext	: parse ( char "ccc<char>" -- c-addr u ) \ core-ext
\G Parse @var{ccc}, delimited by @var{char}, in the parse	\G Parse @i{ccc}, delimited by @i{char}, in the parse
\G area. @var{c-addr u} specifies the parsed string within the	\G area. @i{c-addr u} specifies the parsed string within the
\G parse area. If the parse area was empty, @var{u} is 0.	\G parse area. If the parse area was empty, @i{u} is 0.
>r source >in @ over min /string over swap r> scan >r	>r source >in @ over min /string over swap r> scan >r
over - dup r> IF 1+ THEN >in +! ;	over - dup r> IF 1+ THEN >in +! ;

Line 84 Defer source ( -- c-addr u ) \ core	Line 85 Defer source ( -- c-addr u ) \ core

[IFUNDEF] (name) \ name might be a primitive	[IFUNDEF] (name) \ name might be a primitive

: (name) ( -- c-addr count )	: (name) ( -- c-addr count ) \ gforth
source 2dup >r >r >in @ /string (parse-white)	source 2dup >r >r >in @ /string (parse-white)
2dup + r> - 1+ r> min >in ! ;	2dup + r> - 1+ r> min >in ! ;
\ name count ;	\ name count ;
Line 242 AValue forth-wordlist \ variable, will b	Line 243 AValue forth-wordlist \ variable, will b
AVariable lookup forth-wordlist lookup !	AVariable lookup forth-wordlist lookup !
\ !! last is user and lookup?! jaw	\ !! last is user and lookup?! jaw
AVariable current ( -- addr ) \ gforth	AVariable current ( -- addr ) \ gforth
\G VARIABLE: holds the wid of the current compilation word list.	\G @code{Variable} -- holds the wid of the current compilation word list.
AVariable voclink forth-wordlist wordlist-link voclink !	AVariable voclink forth-wordlist wordlist-link voclink !
\ lookup AValue context ( -- addr ) \ gforth	\ lookup AValue context ( -- addr ) \ gforth
Defer context ( -- addr ) \ gforth	Defer context ( -- addr ) \ gforth
Line 286 hex	Line 287 hex
then ;	then ;

: name>string ( nt -- addr count ) \ gforth head-to-string	: name>string ( nt -- addr count ) \ gforth head-to-string
\g @var{addr count} is the name of the word represented by @var{nt}.	\g @i{addr count} is the name of the word represented by @i{nt}.
cell+ count $1F and ;	cell+ count $1F and ;

: ((name>)) ( nfa -- cfa )	: ((name>)) ( nfa -- cfa )
Line 575 has? file 0= [IF]	Line 576 has? file 0= [IF]
[THEN]	[THEN]

: evaluate ( c-addr u -- ) \ core,block	: evaluate ( c-addr u -- ) \ core,block
\G Save the current input source specification. Store -1 in	\G Save the current input source specification. Store @code{-1} in
\G @code{source-id} and 0 in @code{blk}. Set @code{>IN} to 0 and	\G @code{source-id} and @code{0} in @code{blk}. Set @code{>IN} to
\G make the string @var{c-addr u} the input source and input	\G @code{0} and make the string @i{c-addr u} the input source
\G buffer. Interpret. When the parse area is empty, restore the	\G and input buffer. Interpret. When the parse area is empty,
\G input source specification.	\G restore the input source specification.
push-file #tib ! >tib !	push-file #tib ! >tib !
>in off	>in off
[ has? file [IF] ]	[ has? file [IF] ]
blk off loadfile off -1 loadline !	blk off loadfile off -1 loadline !
Line 626 max-errors 6 * cells allot	Line 627 max-errors 6 * cells allot
\ Loadfilename ( addr u )	\ Loadfilename ( addr u )

: dec. ( n -- ) \ gforth	: dec. ( n -- ) \ gforth
\G Display @var{n} as a signed decimal number, followed by a space.	\G Display @i{n} as a signed decimal number, followed by a space.
\G !! not used...	\ !! not used...
base @ decimal swap . base ! ;	base @ decimal swap . base ! ;

: dec.r ( u -- ) \ gforth	: dec.r ( u -- ) \ gforth
\G Display @var{u} as a unsigned decimal number	\G Display @i{u} as a unsigned decimal number
base @ decimal swap 0 .r base ! ;	base @ decimal swap 0 .r base ! ;

: hex. ( u -- ) \ gforth	: hex. ( u -- ) \ gforth
\G Display @var{u} as an unsigned hex number, prefixed with a "$" and	\G Display @i{u} as an unsigned hex number, prefixed with a "$" and
\G followed by a space.	\G followed by a space.
\G !! not used...	\ !! not used...
[char] $ emit base @ swap hex u. base ! ;	[char] $ emit base @ swap hex u. base ! ;

: typewhite ( addr u -- ) \ gforth	: typewhite ( addr u -- ) \ gforth
\ like type, but white space is printed instead of the characters	\G Like type, but white space is printed instead of the characters.
bounds ?do	bounds ?do
i c@ #tab = if \ check for tab	i c@ #tab = if \ check for tab
#tab	#tab

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.39
changed lines
	Added in v.1.40