home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / comms / html-heaven / arexx / html-skoed.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-08  |  2KB  |  60 lines
  1. /* HTML-Helper Arexx script for SkoEd
  2.  * Ver      : 1.1 (7th January 1996)
  3.  * Author   : paul Kolenbrander (paul@serena.iaehv.nl)
  4.  * Function : Pass on the HTML commands from HTML-Helper to SkoEd.
  5.  * Input    : HTMLCMD - The HTML command to be inserted.
  6. */
  7.  
  8. OPTIONS RESULTS                              /* enable return codes     */
  9. OPTIONS FAILAT 11                            /* Needed for block detect */
  10. PARSE ARG MYCMD HTMLCMD
  11.  
  12. HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-1) /* strip leading space   */
  13.  
  14. ADDRESS 'SKOED1'                             /* Default, edit if needed */
  15.  
  16. HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-2) /* strip leading/trailing "*/
  17.  
  18. IF POS('><',HTMLCMD) ~= 0 THEN DO             /* Is it a split command?  */
  19.                                               /* If yes, then....        */
  20.  
  21.  "Mark"
  22.  "EndOfBlock"
  23.  IF RC = 0 THEN DO                         /* error means no block    */
  24.    CMD2 = right(HTMLCMD,(LENGTH(HTMLCMD)-(LASTPOS('<',HTMLCMD))+1))
  25.    CMD1 = substr(HTMLCMD,1,(LENGTH(HTMLCMD)-LENGTH(CMD2)))
  26.    "EndOfBlock"
  27.    "String("||CMD2||")"                       /* Insert at block end     */
  28.    "StartOfBlock"
  29.    "String("||CMD1||")"                       /* Insert at block begin   */
  30.    "Block_Hide"                               /* And clean up            */
  31.    "Goto_Mark"
  32.    "UnMark"
  33.  END
  34.   else DO
  35.    "Goto_Mark"
  36.    "String("||HTMLCMD||")"                   /* Insert at current pos   */
  37.    "UnMark"
  38.   END
  39. END
  40. else
  41.    "String("||HTMLCMD||")"                   /* Insert at current pos   */
  42. IF MYCMD = 'SAVE' THEN DO
  43.    "Save_File"
  44.    "Get_Var(FileName)"
  45.    bestand = Result 
  46.    "Get_Var(FilePath)"
  47.    pad     = Result 
  48.    pad = pad||bestand
  49.    say pad
  50.    IF RESULT = -1 THEN DO
  51.       ADDRESS COMMAND 'rx S:HTMLVIEW.rexx'
  52.    END
  53.    ELSE DO
  54.       ADDRESS COMMAND 'rx S:HTMLVIEW.rexx '||pad
  55.    END
  56.  
  57. END
  58.  
  59. EXIT                                          /* And exit the script.    */
  60.