version 1.5, 2003/08/24 22:58:54
|
version 1.6, 2003/08/30 19:55:13
|
Line 32 Variable path$ 2 arg path$ $!
|
Line 32 Variable path$ 2 arg path$ $!
|
Variable pathes$ 2 arg pathes$ $! |
Variable pathes$ 2 arg pathes$ $! |
Variable exe$ |
Variable exe$ |
|
|
pathes$ 1 1 $del |
\ pathes$ 1 1 $del s" /cygdrive/" pathes$ 0 $ins |
s" /cygdrive/" pathes$ 0 $ins |
\ : fixpathes ( addr u -- ) |
: fixpathes ( addr u -- ) |
\ bounds ?DO I c@ '\ = IF '/ I c! THEN LOOP ; |
bounds ?DO I c@ '\ = IF '/ I c! THEN LOOP ; |
\ pathes$ $@ fixpathes |
pathes$ $@ fixpathes |
|
s" .;" pathes$ 0 $ins |
s" .;" pathes$ 0 $ins |
|
|
: fix-exe ( offset addr u -- ) |
: fix-exe ( offset addr u -- ) |