зеркало из https://github.com/mozilla/pjs.git
18 строки
387 B
Batchfile
18 строки
387 B
Batchfile
|
/* Invoke unit tests on OS/2 */
|
||
|
PARSE ARG dist prog parm
|
||
|
dist=forwardtoback(dist);
|
||
|
prog=forwardtoback(prog);
|
||
|
'set BEGINLIBPATH='dist'\bin;%BEGINLIBPATH%'
|
||
|
'set LIBPATHSTRICT=T'
|
||
|
prog parm
|
||
|
exit
|
||
|
|
||
|
forwardtoback: procedure
|
||
|
arg pathname
|
||
|
parse var pathname pathname'/'rest
|
||
|
do while (rest <> "")
|
||
|
pathname = pathname'\'rest
|
||
|
parse var pathname pathname'/'rest
|
||
|
end
|
||
|
return pathname
|