home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / comms / html-heaven / arexx / html-ced.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-08  |  2KB  |  84 lines
  1. /***
  2.   ** HTML.rexx
  3.   **
  4.   ** $VER: HTML.rexx 2.2. (8 January 1996)
  5.   **
  6.   ** This script inserts HTML-Heaven codes into the CED document. If no 
  7.   ** block is currently defined, the skeleton code is inserted.  If a block
  8.   ** IS defined, though, this script will sandwhich the block between the 
  9.   ** HTML codes.  
  10.   **
  11.   ** This script requires CygnusEd Professional v3.5 (or later) to run as
  12.   ** well as HTML-Heaven.
  13.   **
  14.   ** Copyright 1995 By Paul Kolenbrander (paul@serena.iaehv.nl)
  15.   */
  16.  
  17. OPTIONS RESULTS                             
  18. PARSE ARG MYCMD HTMLCMD 
  19.  
  20. ADDRESS 'rexx_ced'
  21.  
  22. HTMLCMD = SUBSTR(HTMLCMD, 2, LENGTH(HTMLCMD) - 1) /* rem leading ' ' */
  23. HTMLCMD = SUBSTR(HTMLCMD, 2, LENGTH(HTMLCMD) - 2) 
  24.  
  25. IF POS('><',HTMLCMD) ~= 0 THEN DO            /* Is it a split command? */
  26.    STATUS BLOCKY
  27.    IF (RESULT = -1) THEN DO
  28.       CEDTOFRONT
  29.       TEXT HTMLCMD 
  30.    END
  31.    ELSE DO
  32.       CMD2 = right(HTMLCMD,(LENGTH(HTMLCMD)-(LASTPOS('<',HTMLCMD))+1))
  33.       CMD1 = substr(HTMLCMD,1,(LENGTH(HTMLCMD)-LENGTH(CMD2)))
  34.       STATUS CLIPUNIT
  35.       OldClipUnit = Result
  36.       SET CLIPBOARD UNIT OldClipUnit + 1
  37.       CEDTOFRONT
  38.       CUT
  39.       IF (RESULT ~= 1) THEN DO
  40.          CEDTOFRONT
  41.          OKAY1 "Error while deleting block"
  42.       END
  43.       TEXT CMD1 
  44.       PASTE
  45.       TEXT CMD2
  46.       SET CLIPBOARD UNIT OldClipUnit
  47.    END
  48. END
  49. ELSE DO
  50.    CEDTOFRONT
  51.    TEXT HTMLCMD 
  52. END
  53.  
  54. IF MYCMD = 'SAVE' THEN DO
  55.    SAVE
  56.    STATUS FILENAME
  57.    MYFILE = RESULT
  58.    IF RESULT = -1 THEN DO
  59.       ADDRESS COMMAND 'rx S:HTMLVIEW.rexx'
  60.    END
  61.    ELSE DO
  62.       IF OPEN('tempname', 'T:TempRexxFile', 'READ') ~= 1 THEN DO  
  63.          OPEN('tempname','T:TempRexxFile','WRITE')
  64.          WRITELN('tempname',MYFILE)
  65.          CLOSE('tempname')
  66.          ADDRESS COMMAND 'rx S:HTMLVIEW.rexx '||MYFILE
  67.       END
  68.       ELSE DO
  69.          OLDFILE = READLN('tempname')
  70.          IF UPPER(OLDFILE) = UPPER(MYFILE) THEN DO
  71.             ADDRESS COMMAND 'rx S:HTMLVIEW.rexx'
  72.          END
  73.          ELSE DO
  74.             OPEN('tempname','T:TempRexxFile','WRITE')
  75.             WRITELN('tempname',MYFILE)
  76.             CLOSE('tempname')
  77.             ADDRESS COMMAND 'rx S:HTMLVIEW.rexx '||MYFILE
  78.          END
  79.       END
  80.    END
  81. END
  82.  
  83. EXIT 0
  84.