PageRenderTime 15ms CodeModel.GetById 10ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 1ms

/build/os2/test_os2.cmd

http://github.com/zpao/v8monkey
Batch | 17 lines | 16 code | 1 blank | 0 comment | 1 complexity | 608c79524c8ed4b7bc27cf1690992cb9 MD5 | raw file
 1/* Invoke unit tests on OS/2 */
 2PARSE ARG dist prog parm
 3dist=forwardtoback(dist);
 4prog=forwardtoback(prog);
 5'set BEGINLIBPATH='dist'\bin;%BEGINLIBPATH%'
 6'set LIBPATHSTRICT=T'
 7prog parm
 8exit
 9
10forwardtoback: procedure
11  arg pathname
12  parse var pathname pathname'/'rest
13  do while (rest <> "")
14    pathname = pathname'\'rest
15    parse var pathname pathname'/'rest
16  end
17  return pathname