home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / autorexx.lha / AutoRexx.CED < prev    next >
Encoding:
Text File  |  1992-10-19  |  714 b   |  39 lines
  1. /****** AutoRexx.CED *****************
  2. *
  3. *   $VER: AutoRexx.CED 1.0 (18-Oct-92)
  4. *
  5. **************************************/
  6. OPTIONS RESULTS
  7. ADDRESS 'AUTOREXX'
  8.  
  9. /*
  10.  * First, grab the word from CED
  11.  */
  12. AUR_GETCEDWORD
  13. if RESULT = 'RESULT' THEN DO
  14.     EXIT
  15. END
  16. function = RESULT
  17. filename = 'T:' || function || '.ADoc'
  18.  
  19. /*
  20.  * Get the function from AutoRexx and make a file in T:
  21.  */
  22. AUR_AUTOGET function filename
  23. IF rc~=0 THEN DO
  24.     ADDRESS 'rexx_ced'
  25.     CEDToFront
  26.     Okay1 "The " || function || "() function is not present in your autodocs..."
  27.     EXIT
  28. END
  29. ELSE DO
  30.     /*
  31.      * Tell CED to load the file, taking notice to any previous autodoc
  32.      * files loaded
  33.      */
  34.     AUR_FILETOCED filename
  35.     ADDRESS COMMAND Run Delete filename
  36. END
  37.  
  38. EXIT
  39.