home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / comms / html-heaven / arexx / html-polyed.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-08  |  2KB  |  65 lines
  1. /* HTML-Helper Arexx script for PolyEd 2.0
  2.  * Ver      : 1.2 (7th January 1996)
  3.  * Copyright: Paul Kolenbrander (InterNet: paul@serena.iaehv.nl)
  4.  * Function : Pass on the HTML commands from HTML-Helper to PolyEd.
  5.  *            Detect if block is selected and if so drape tag pairs
  6.  *            around the block and then deselect it.
  7.  * Problems : none.   
  8.  * Input    : HTMLCMD - The HTML command to be inserted.
  9. */
  10.  
  11. OPTIONS RESULTS                             /* enable return codes       */
  12. PARSE ARG MYCMD HTMLCMD
  13. HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-1) /* strip leading space    */
  14.  
  15. /* HTMLCMD = STRIP((TRANSLATE(HTMLCMD,'','\')), B,'"') */
  16.                                             /* Strip quotes at each end. */
  17.  
  18. ADDRESS "POLYED.1"                          /* Default, edit if needed   */ 
  19.  
  20. 'LOCKGUI'
  21.  
  22. 'GETATTR' APPLICATION STEM APP.             /* Check if block is defined */
  23. BeginLine = APP.VAR_BLOCKSTARTLINE
  24. BeginCol  = APP.VAR_BLOCKSTARTCOL
  25. EndLine   = APP.VAR_BLOCKENDLINE
  26. EndCol    = APP.VAR_BLOCKENDCOL
  27. Current   = APP.CURRENTPROJECT
  28.  
  29. if BeginLine = EndLine & BeginCol = EndCol then
  30.                                             /* Not a block. drop it in.  */
  31.    'TEXT'  HTMLCMD                          /* Insert at current pos.    */
  32. else do 
  33.    if POS('><',HTMLCMD) ~= 0 then do        /* Is it a split command?    */
  34.                                             /* If yes, then....          */
  35.       CMD2 = right(HTMLCMD,(LENGTH(HTMLCMD)-(LASTPOS('<',HTMLCMD))+1))
  36.       CMD1 = substr(HTMLCMD,1,(LENGTH(HTMLCMD)-LENGTH(CMD2)))
  37.       CMD1 = CMD1||'"'
  38.       CMD2 = '"'||CMD2
  39.       'GOTOLINE' EndLine + 1                /* Move to end and put 2nd   */
  40.       'GOTOCOLUMN' EndCol + 1
  41.       'TEXT' CMD2
  42.       'GOTOLINE' BeginLine + 1              /* Move to start and put 1st */
  43.       'GOTOCOLUMN' BeginCol + 1
  44.       'TEXT' CMD1
  45.     end
  46.     else
  47.       'TEXT' HTMLCMD                        /* Insert at current pos.    */
  48.     'BLOCK FORGET'
  49. end
  50.  
  51. IF MYCMD = 'SAVE' THEN DO
  52.    'SAVE'
  53.    'GETATTR' PROJECT NAME current STEM PR.
  54.    bestand = PR.FILENAME
  55.    IF bestand = '' | bestand = 'BESTAND' THEN DO
  56.       ADDRESS COMMAND 'rx S:HTMLVIEW.rexx'
  57.    END
  58.    ELSE DO
  59.       ADDRESS COMMAND 'rx S:HTMLVIEW.rexx '||bestand
  60.    END
  61. END
  62.  
  63. 'UNLOCKGUI' 
  64. EXIT                                        /* And exit the script.      */
  65.