home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Contributions / Workbench / RexxArpLib3p6 / rexx / addlibs.rexx next >
OS/2 REXX Batch file  |  1998-06-20  |  1KB  |  51 lines
  1. /* Add resident libraries */
  2. arg doit
  3.  
  4. if show('p', 'PingServer') then
  5.     call sendparsed('PingServer', QUIT, 2400, 2100, 64)
  6. say remlib( "rexxarplib.library" )
  7. "avail flush"
  8.  
  9. if doint = 'YES' then
  10.     if ~show(L, 'rexxsupport.library') then
  11.         say 'rexxsupport.library' addlib( 'rexxsupport.library',0,-30,0)
  12.     else
  13.         say 'rexxsupportlib.library already loaded.'
  14.  
  15. if ~show(L, 'rexxarplib.library') then
  16.     say 'rexxarplib.library' addlib( 'rexxarplib.library',0,-30,0)
  17. else
  18.     say 'rexxarplib.library already loaded.'
  19.  
  20. if doint = 'YES' then
  21.     if ~show(L, 'rexxmathlib.library') then
  22.         say 'rexxmathlib.library' addlib( 'rexxmathlib.library',0,-30,0)
  23.     else
  24.         say 'rexxmathlib.library already loaded.'
  25. /*
  26. *   Add the QuickSort port, so we can use QSORT.
  27. *   First check if the port is already up. If not, run QuickSort
  28. *   and wait for the port to be there.
  29. */
  30. if doit = 'YES' then
  31.     if ~show("p","QuickSortPort") then
  32.     do
  33.        say 'Loading QuickSort'
  34.        'run sys:c3/quicksort >nil:'
  35.        do i = 1 to 10
  36.           if ~showlist("p","QuickSortPort") then call delay 20
  37.           else leave i
  38.        end
  39.        if showlist("p","QuickSortPort") then call addlib("QuickSortPort",-30)   
  40.     end
  41.     else
  42.         say 'QuickSort already loaded.'
  43.  
  44. /* 'ZEDREXX:c/AddREXXLibs >NIL: <NIL:' */
  45. if upper(getenv("rexxdossupport")) = "YES" then
  46. do
  47.     if ~show(L, 'RexxDosSupport.library') then
  48.         say 'RexxDosSupport.library' addlib( 'RexxDosSupport.library', 0, -30, 2 )
  49.     else
  50.         say 'RexxDosSupport.library already loaded.'
  51. end