home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / misc / dlerror / arexx / dicehelp.ged next >
Encoding:
Text File  |  1995-05-29  |  1.8 KB  |  90 lines
  1. /* $VER: DICEHelp 1.0 (25.5.95) Doguet Emmanuel
  2. **
  3. **      DICEHelp help system for GoldED
  4. **
  5. **      ARexx script by Doguet Emmanuel
  6. */
  7. OPTIONS RESULTS
  8.  
  9. /* Datas */
  10. hostname = address()
  11. portname = 'DICEHELP'
  12. tempname = 't:DICEHelp.temp'
  13. Title = 'DICEHelp'
  14.  
  15. 'LOCK CURRENT'                  /* Lock GUI, gain access   */
  16. OPTIONS FAILAT 10               /* ignore warnings         */
  17.  
  18. /* We take the current word */
  19. 'QUERY WORD VAR MOT'
  20.  
  21. /* If no word, we enter it ? */
  22. if MOT='' then do
  23.     'REQUEST TITLE='Title' BODY="Enter expression to search:" STRING'
  24.     IF RC=5 THEN DO
  25.         'UNLOCK' 
  26.         EXIT
  27.     END
  28.     MOT = result
  29. end
  30.  
  31. /* We search the port of DICE HELP */
  32. if ~show('p',portname) then do
  33.         address COMMAND 'RUN >NIL: <NIL: DCC:BIN/DICEHelp REXXSTARTUP'
  34.  
  35.         do i = 1 to 6
  36.                 if ~show('p',portname) then do
  37.                         address COMMAND 'wait 1'
  38.                 end
  39.         end
  40.  
  41.         if ~show('p',portname) then do
  42.             'REQUEST BODY="DICEHelp program not found!"'
  43.             'UNLOCK'
  44.             exit
  45.         end
  46. end
  47.  
  48. /* We have the port of DICE HELP */
  49. address VALUE portname
  50.  
  51. /* We send the command to DICE Help for search... */
  52. T MOT
  53.  
  54. /* GoldED port become the current port */
  55. address VALUE hostname
  56.  
  57. IF RC=0 THEN DO
  58.     if WORD( RESULT, 1) = 'E' THEN              /* If DICE Help return an error */
  59.     DO
  60.         'REQUEST TITLE='Title' BODY="Item '"'"MOT"'"' not found!"'
  61.     END
  62.     ELSE DO
  63.         'OPEN NEW t:DICEHelp.temp'
  64.         'WINDOW ARRANGE 0'
  65.     END
  66. END
  67.  
  68. ELSE
  69.     IF RC=1 THEN do
  70.         'REQUEST TITLE='Title' BODY="Not found !"'
  71.     END
  72.     ELSE do
  73.         'REQUEST TITLE='Title' BODY="Error code: 'RC'."'
  74.     END
  75.  
  76. address value hostname
  77. 'UNLOCK' 
  78.  
  79. EXIT
  80. /* End of script */
  81.  
  82.  
  83.  
  84. SYNTAX:
  85.  
  86. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  87. address value hostname
  88. 'UNLOCK'
  89. EXIT 
  90.