/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 */
    2. 

  2. PARSE ARG dist prog parm
    3. 

  3. dist=forwardtoback(dist);
    4. 

  4. prog=forwardtoback(prog);
    5. 

  5. 'set BEGINLIBPATH='dist'\bin;%BEGINLIBPATH%'
    6. 

  6. 'set LIBPATHSTRICT=T'
    7. 

  7. prog parm
    8. 

  8. exit
    9. 

  9. 

  10. forwardtoback: procedure
    11. 

  11.   arg pathname
    12. 

  12.   parse var pathname pathname'/'rest
    13. 

  13.   do while (rest <> "")
    14. 

  14.     pathname = pathname'\'rest
    15. 

  15.     parse var pathname pathname'/'rest
    16. 

  16.   end
    17. 

  17.   return pathname
    18.