gforth/kernel/paths.fs - diff

Return to paths.fs CVS log

Up to [gforth] / gforth / kernel

version 1.10, 1999/02/21 14:55:44	version 1.11, 1999/02/22 21:39:43
Line 195 Create tfile 0 c, 255 chars allot	Line 195 Create tfile 0 c, 255 chars allot
r> r> ofile +place	r> r> ofile +place
open-ofile ;	open-ofile ;

	\ !! returns 2 stack items if file is not found, not just the ior
: open-path-file ( adr len path-addr -- fd adr1 len2 0 \| ior ) \ gforth	: open-path-file ( adr len path-addr -- fd adr1 len2 0 \| ior ) \ gforth
\G Look in path path-addr for the file specified by adr len.	\G Look in path path-addr for the file specified by adr len.
\G If found the resulting path and an open file descriptor	\G If found the resulting path and an open file descriptor
Line 212 Create tfile 0 c, 255 chars allot	Line 213 Create tfile 0 c, 255 chars allot
2drop 2drop 2drop -&38	2drop 2drop 2drop -&38
THEN ;	THEN ;

	\ !! returns 2 stack items if file is not found, not just the ior
: open-fpath-file ( adr len -- fd adr1 len2 0 \| ior ) \ gforth	: open-fpath-file ( adr len -- fd adr1 len2 0 \| ior ) \ gforth
\G Look in the Forth search path for the file specified by adr len.	\G Look in the Forth search path for the file specified by adr len.
\G If found the resulting path and an open file descriptor	\G If found the resulting path and an open file descriptor