Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.43, 1995/10/16 18:33:11 | version 1.44, 1995/10/26 22:48:40 |
---|---|
Line 1661 Variable argc | Line 1661 Variable argc |
: process-path ( addr1 u1 -- addr2 u2 ) | : process-path ( addr1 u1 -- addr2 u2 ) |
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings | \ addr1 u1 is a path string, addr2 u2 is an array of dir strings |
here >r | align here >r |
BEGIN | BEGIN |
over >r [char] : scan | over >r [char] : scan |
over r> tuck - ( rest-str this-str ) | over r> tuck - ( rest-str this-str ) |