home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
text
/
editors
/
mat
/
paths
< prev
next >
Wrap
Text File
|
1990-10-08
|
689b
|
18 lines
.K dest
.BRA {
.KET }
;; PATHS -- Preserves current path in a re-executable script.
run path >PIPE:s_path
mat >{dest$re-path} P "~(C:|Current directory)" T "path ^O" label "failat 25^Bpath reset" PIPE:s_path label "failat 10"
protect {dest$re-path} +S
;; The output of the PATH command is PIPEd into Mat, which builds the
;; script from the lines it gets. Note first the use of the match
;; negation character ("~") to discard the current directory and C:.
;; Each line in the main body is simply "path <directory-name>".
;; Preceding the main body are two lines (generated by a single label)
;; "failat 25" and "path reset"; at the end another label generates
;; "failat 10".