gforth/kernel/paths.fs - diff

Return to paths.fs CVS log

Up to [gforth] / gforth / kernel

version 1.32, 2007/12/31 19:02:25	version 1.33, 2008/07/12 20:14:26
Line 66	Line 66
\ create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic	\ create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic
0 avalue fpath ( -- path-addr ) \ gforth	0 avalue fpath ( -- path-addr ) \ gforth

	: make-path ( -- addr )
	$400 chars dup 2 cells + allocate throw >r
	0 swap r@ 2! r> ;

: os-cold ( -- )	: os-cold ( -- )
$400 chars dup 2 cells + allocate throw to fpath	make-path to fpath
0 swap fpath 2!
pathstring 2@ fpath only-path	pathstring 2@ fpath only-path
init-included-files ;	init-included-files ;

Line 78	Line 81
\G add the directory @i{c-addr len} to @i{path-addr}.	\G add the directory @i{c-addr len} to @i{path-addr}.
>r	>r
\ len check	\ len check
r@ cell+ @ over + r@ @ u> ABORT" path buffer too small!"	r@ cell+ @ over + r@ @ u> ABORT" path buffer too small!" \ !! grow it
\ copy into	\ copy into
tuck r@ cell+ dup @ cell+ + swap cmove	tuck r@ cell+ dup @ cell+ + swap cmove
\ make delimiter	\ make delimiter