home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 426.lha / QuickSort / addrexxlib.rexx < prev    next >
OS/2 REXX Batch file  |  1990-10-02  |  721b  |  27 lines
  1. /** addrexxlib.rexx
  2. *
  3. *   This adds various libraries to ARexx's list, including
  4. *   QuickSort. Run this in your startup sequence or use it
  5. *   as an example.
  6. *
  7. **/
  8. check = addlib('rexxsupport.library',0,-30,0) 
  9. check = addlib('rexxmathlib.library',0,-30,0)
  10. check = addlib('rexxarplib.library',0,-30,0)
  11.  
  12. /*
  13. *   Add the QuickSort port, so we can use QSORT.
  14. *   First check if the port is already up. If not, run QuickSort
  15. *   and wait for the port to be there.
  16. */
  17. if ~showlist('p','QuickSortPort') then
  18. do
  19.    "run quicksort >nil:"
  20.    do i = 1 to 10
  21.       if ~showlist('p','QuickSortPort') then call delay 20
  22.       else leave i
  23.    end
  24.    if showlist('p','QuickSortPort') then call addlib('QuickSortPort',-30)   
  25. end
  26. exit 0
  27.