mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-05 08:35:26 +00:00
18 lines
387 B
Batchfile
18 lines
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
|