home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / SetUp_MCF.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-08-02  |  967 b   |  40 lines
  1. /* */
  2.  
  3. if ~show('L',"rexxsupport.library")            then do
  4.     if ~addlib("rexxsupport.library", 0, -30, 0)    then do
  5.         say "Rexxsupport.library not loaded. Script Exiting!"
  6.         exit 10
  7.     end
  8. end
  9.  
  10. address command "Assign >Ram:MCF.SetUp"
  11. if showlist('A', "MCF")                then address command "Copy MCF:MCF.Ops MCF"
  12.  
  13. iname = "Ram:MCF.SetUp"
  14. oname = "CleanUp_MCF.rexx"
  15.  
  16. call open("Input", iname, 'R')
  17. call open("Output", oname, 'W')
  18.  
  19. call writeln("Output", "/* */")
  20. xx = readln("Input")
  21. do    until eof("Input")
  22.     parse value xx with dev dir
  23.     dir = '"' || strip(dir) || '"'
  24.     ldev = " " || upper(dev) || " "
  25.     if 0 ~= pos(ldev, " REXX MCF ENV ")    then
  26.         call writeln("Output", "address command Assign" '"' || dev || ':"' "'" || dir || "'")
  27.     xx = readln("Input")
  28. end
  29. call writeln("Output", "exit")
  30.  
  31. call close("Input")
  32. call close("Output")
  33.  
  34. address command "Delete >nil: Ram:MCF.SetUp"
  35. address command Assign "Rexx:" Rexx
  36. address command Assign "ENV:"  Env
  37. address command Assign "MCF:"  MCF
  38.  
  39. exit
  40.