2012-05-21 04:12:37 -07:00
|
|
|
REM This Source Code Form is subject to the terms of the Mozilla Public
|
|
|
|
|
REM License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
|
|
|
REM file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
|
|
2009-03-01 22:26:26 -08:00
|
|
|
/* Invoke unit tests on OS/2 */
|
|
|
|
|
PARSE ARG dist prog parm
|
|
|
|
|
dist=forwardtoback(dist);
|
2009-03-26 16:45:15 -07:00
|
|
|
prog=forwardtoback(prog);
|
2009-03-01 22:26:26 -08:00
|
|
|
'set BEGINLIBPATH='dist'\bin;%BEGINLIBPATH%'
|
|
|
|
|
'set LIBPATHSTRICT=T'
|
2009-03-26 16:45:15 -07:00
|
|
|
prog parm
|
2009-03-01 22:26:26 -08:00
|
|
|
exit
|
|
|
|
|
|
|
|
|
|
forwardtoback: procedure
|
|
|
|
|
arg pathname
|
|
|
|
|
parse var pathname pathname'/'rest
|
|
|
|
|
do while (rest <> "")
|
|
|
|
|
pathname = pathname'\'rest
|
|
|
|
|
parse var pathname pathname'/'rest
|
|
|
|
|
end
|
|
|
|
|
return pathname
|
