home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / srev13g.zip / MSPACE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-13  |  871b  |  42 lines
  1. /*  */
  2.  
  3. parse  upper arg isdel isfil
  4. foo=rxfuncquery('sysloadfuncs')
  5. if foo=1 then do
  6.   say 'Loading REXXUtil library '
  7.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8.   call SysLoadFuncs
  9. end
  10.  
  11.  
  12. foo=rxfuncquery('rexxlibregister')
  13. if foo=1 then do
  14.  say ' loading REXXLIB '
  15.  call rxfuncadd 'rexxlibregister','rexxlib', 'rexxlibregister'
  16.  call rexxlibregister
  17. end
  18.  
  19.  
  20. if isdel=""  then isdel="?"
  21.  
  22. if  abbrev(translate(isdel),'D')=1 then do
  23.    foo=macroclear()
  24.     say " clearing macrospace " foo
  25. end
  26.  
  27. if abbrev(isdel,"L")=1 then do
  28.     say " Loading macrolib "
  29.     foo=macroload(isfil)
  30.     if foo<>1 then
  31.        say " Error: # " foo
  32. end
  33.  
  34. if  isdel="?" | abbrev(isdel,'H')=1 then do
  35.     say " MSPACE D : delete all procedures in macrospace (careful, it's global "
  36.    say " MSPACE L : Load a macrospace library "
  37. end
  38.  
  39.  
  40. exit
  41.  
  42.