gforth/kernel/errore.fs - diff

Return to errore.fs CVS log

Up to [gforth] / gforth / kernel

version 1.4, 1998/12/08 22:03:09	version 1.7, 1999/05/17 15:07:02
Line 22	Line 22
\ The errors are defined by a linked list, for easy adding	\ The errors are defined by a linked list, for easy adding
\ and deleting. Speed is not neccassary at this point.	\ and deleting. Speed is not neccassary at this point.

	require ./io.fs
	require ./nio.fs

AVariable ErrLink \ Linked list entry point	AVariable ErrLink \ Linked list entry point
NIL ErrLink !	NIL ErrLink !

Line 34 decimal	Line 37 decimal
\ error numbers between -512 and -2047 are for OS errors and are	\ error numbers between -512 and -2047 are for OS errors and are
\ handled with strerror	\ handled with strerror

	has? OS [IF]
: >stderr ( -- )	: >stderr ( -- )
r> outfile-id >r stderr to outfile-id	r> outfile-id >r stderr to outfile-id
>exec r> to outfile-id ;	>exec r> to outfile-id ;
	[ELSE]
	: >stderr ;
	[THEN]

: .error ( n -- )	: .error ( n -- )
>stderr	>stderr
cr ." Error: "
ErrLink	ErrLink
BEGIN @ dup	BEGIN @ dup
WHILE	WHILE