home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xwplascr.zip / XWPL0208.ZIP / release / install / test.cmd < prev    next >
OS/2 REXX Batch file  |  2000-01-04  |  866b  |  34 lines
  1. /* AufrufPfad = C:\os2tools\xfolder\install> */
  2.  
  3. /* DO NOT CHANGE the following */
  4. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. /* aus crobj001.cmd */
  8. parse source dir;
  9. say "parse source dir";
  10. say dir;
  11. parse var dir x1 x2 dir;
  12. say "parse var dir x1 x2 dir";
  13. say "  "dir x1 x2;
  14. dir = filespec("D", dir)||filespec("P", dir);
  15. say "dir = filespec("D", dir)||filespec("P", dir)";
  16. say "  "dir;
  17. pdir = left(dir, length(dir)-8);
  18. say "pdir = left(dir, length(dir)-8)";
  19. say "  pdir: "pdir;
  20. idir = dir;
  21. say "idir = dir";
  22. say "  dir: "dir;
  23. dir = pdir||"\bin\";
  24. say "dir = pdir||\bin\";
  25. say "  dir: "dir;
  26.  
  27. /* aus install.cmd */
  28. parse source mydir;
  29. parse var mydir x1 x2 mydir;
  30. mydir = filespec("D", mydir)||filespec("P", mydir);
  31. if (right(mydir, 1) = "\") then
  32.     mydir = left(mydir, length(mydir)-1);
  33. say mydir;
  34.