home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 54 / af054sub.adf / aguide-343.lha / AmigaGuide / AG_V34 / rexx / autodoc.rexx next >
Encoding:
OS/2 REXX Batch file  |  1992-12-30  |  1.6 KB  |  76 lines
  1. /** $VER: Autodoc.ttx 1.0 (5.Aug.91)
  2.  ** Written by David N. Junod
  3.  **
  4.  ** Display hypertext Autodoc page.
  5.  **
  6.  ** Add the following lines to your S:user-startup file.
  7.  **
  8.  **   RX "AddLib('amigaguide.library',0,-30)"
  9.  **   RX "LoadXRef('autodocs.xref')"
  10.  **
  11.  **/
  12.  
  13. OPTIONS RESULTS
  14. PARSE ARG word mode
  15.  
  16. IF ~SHOW('L','amigaguide.library') THEN
  17.    CALL ADDLIB('amigaguide.library',0,-30)
  18.  
  19. /* See if the Autodoc cross-reference table is loaded */
  20. line = GetXRef("OpenWindow()")
  21. IF line = 10 THEN DO
  22.  
  23.    /* The Autodoc table wasn't loaded, so load it. */
  24.    LoadXRef(autodocs.xref)
  25.    END
  26.  
  27. /* See if the word is in the cross-reference table */
  28. function = word
  29. xref = 0
  30. line = GetXRef(function)
  31. IF line = 10 THEN DO
  32.   /* Add the parens to the name */
  33.   function = word||"()"
  34.  
  35.   /* Try again */
  36.   line = GetXRef(function)
  37.   IF line = 10 THEN DO
  38.      function = word
  39.      END
  40.   ELSE DO
  41.      xref = 1
  42.      END
  43.   END
  44. ELSE DO
  45.   xref = 1
  46.   END
  47.  
  48. /* See if we have an Autodoc viewing window open */
  49. IF ~SHOW('P','AUTODOCS') THEN DO
  50.  
  51.   /* See if we are trying to load a database or a document */
  52.   IF xref = 0 THEN
  53.      cmd = "run AmigaGuide "||function||" portname AUTODOCS"
  54.   ELSE
  55.      cmd = "run AmigaGuide document "||function||" portname AUTODOCS"
  56.  
  57.   ADDRESS COMMAND cmd
  58.  
  59.   END
  60.  
  61. ELSE DO
  62.  
  63.   /* See if we are trying to load a database or a document */
  64.   IF xref = 0 THEN
  65.      cmd = "Link "||function||"/main"
  66.   ELSE
  67.      cmd = "Link "||function
  68.  
  69.   /* Align the window */
  70.   ADDRESS AUTODOCS cmd
  71.  
  72.   /* I want it to come to the front, because I have limited space */
  73.   ADDRESS AUTODOCS "windowtofront"
  74.  
  75.   END
  76.