/*
 * WRITE macro to obtain SAS/C library help on current function
 *
 * Place the cursor on or behind an SAS/C library function
 * and the corresponding AmigaGuide page will be popped on
 * screen.
 *
 * written 20/09/1993 by Lars Hanke
 * © 1993 by MGR - Software, Asgard
 *
 * default keymapping:
 *            KEY 'control help' DoRexx "scman.wrx" 1;
 *
 * initialization:
 *   set "helppath" to where your helps are to be found
 *
 */


/* set helppath to where you placed the SAS/C AmigaGuides
   by default they are placed in SC:Help/                  */

helppath = "XDOC:guides/help/"

if ~show('P',WRITE) then say "This is only useful with WRITE running"

address 'WRITE'
options results

'VERSIONCHECK 40000 "SCMan.wrx"'
IF RC~=0 THEN DO
  exit 10
END

'GETVAR "_CurrentWord"'
item = RESULT

if item = "RESULT" then
do
  'GETVAR "_XPos"'
  x=RESULT
  'GETVAR "_YPos"'
  y=RESULT
  'LASTWORD'
  'GETVAR "_CurrentWord"'
  item = RESULT
  'GOTO' x y
end

item=compress(item,"*[]()")

address 'COMMAND'
'run >nil: amigaguide '||helppath||'sc_lib.guide doc' item||'()'