gforth/kernel/paths.fs - diff

Return to paths.fs CVS log

Up to [gforth] / gforth / kernel

version 1.9, 1999/02/03 00:10:25	version 1.10, 1999/02/21 14:55:44
Line 156 Create tfile 0 c, 255 chars allot	Line 156 Create tfile 0 c, 255 chars allot
tfile count over c@ pathsep? IF 1 /string THEN	tfile count over c@ pathsep? IF 1 /string THEN
ofile +place	ofile +place
THEN ;	THEN ;

: compact// ( adr len -- adr2 len2 )
\ deletes phrases like "//" out of our directory name 2dec97jaw
over >r
BEGIN dup WHILE
over c@ pathsep? over 1- 0<> and
IF over 1+ c@ pathsep?
IF 1- over 1+ swap move
THEN
THEN
1 /string
REPEAT
drop r> tuck - ;

: compact.. ( adr len -- adr2 len2 )	: compact.. ( adr len -- adr2 len2 )
\ deletes phrases like "xy/.." out of our directory name 2dec97jaw	\ deletes phrases like "xy/.." out of our directory name 2dec97jaw
Line 195 Create tfile 0 c, 255 chars allot	Line 182 Create tfile 0 c, 255 chars allot

: reworkdir ( -- )	: reworkdir ( -- )
remove~+	remove~+
ofile count compact// compact..	ofile count compact..
nip ofile c! ;	nip ofile c! ;

: open-ofile ( -- fid ior )	: open-ofile ( -- fid ior )