home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / rexx / man.cpr < prev    next >
Encoding:
Text File  |  1996-12-24  |  528 b   |  28 lines
  1. /* display help for library functions
  2.    Usage: man <function>
  3.      
  4.               where    <function> is a function in the SAS/C library
  5. */
  6.    
  7. address 'COMMAND'
  8. 'version >nil: exec.library 36 '
  9. lrc = rc
  10.  
  11. if (rc = 0) then
  12.   check = addlib('rexxsupport.library',0,-30,0) 
  13.  
  14. address
  15.  
  16. parse arg expr 
  17. say expr
  18. if (expr = '?') then
  19.    do
  20.    do i = 2 to 4
  21.       'd "' strip(sourceline(i),'T', "0a"x) '"'
  22.    end
  23.    exit(0)
  24.    end
  25.  
  26. address 'COMMAND'
  27.  'run >nil: amigaguide sc:help/sc_lib.guide pubscreen SC_CPR.1 doc ' || expr || '()'
  28.