home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / ads / adsdbase / ced_html.lha / CED_HTML / Html / html_image.ced < prev    next >
Encoding:
Text File  |  1999-01-11  |  7.3 KB  |  293 lines
  1. /*
  2. ** html_image.ced
  3. **
  4. ** $VER: html_image.ced 1.6 (01.07.1999)
  5. **
  6. ** Arexx script for HTML v3.2 image options
  7. **
  8. ** This script works with CygnusEd Professional v4.2
  9. **
  10. ** Copyright ⌐ Eric BELLE
  11. */
  12.  
  13. /*
  14. **------------------------------------------------------------------------------
  15. **    Initialisation
  16. **------------------------------------------------------------------------------
  17. */
  18.  
  19. OPTIONS RESULTS                            /* Tell CygnusEd to return results. */
  20. NL = '0A'X                                    /* Alias for new line. */
  21. KRETURN = RAWKEY 68                    /* Shortcut to the return key. */
  22. KTAB = RAWKEY 66                        /* Shortcut to the tab key. */
  23. STATUS TABSARESPACES                /* Return TAB mode ("tab" or "space"). */
  24. IF RESULT = 1                                /* Test the TAB mode. */
  25. THEN "TABS = SPACES"                /* Switch TAB mode from "space" to "tab". */
  26. ELSE NOP                                        /* No operation. */
  27. TAB SIZE 1                                    /* Set TAB size proportional to 2 spaces. */
  28.  
  29. /*
  30. **------------------------------------------------------------------------------
  31. **    Image type
  32. **------------------------------------------------------------------------------
  33. */
  34.  
  35. ImageType = "q"
  36. DO WHILE ~(ImageType="d" | ImageType="m",
  37.                     | ImageType=" " | ImageType="RESULT")
  38.     GETSTRING "d" '"Image type: (d)efault, (m)ap?"'
  39.     ImageType = RESULT
  40. END
  41.  
  42. IF (ImageType="RESULT" | ImageType=" ")
  43. THEN EXIT 0
  44. ELSE NOP
  45.  
  46. IF (ImageType="m")
  47. THEN DO
  48.     GETSTRING '"Map"' '"Map indentification name?"'
  49.     MapName= RESULT
  50.  
  51.     IF (MapName=" " | MapName="RESULT")
  52.     THEN EXIT 0
  53.     ELSE NOP
  54. END
  55. ELSE NOP
  56.  
  57. /*
  58. **------------------------------------------------------------------------------
  59. **    Image name
  60. **------------------------------------------------------------------------------
  61. */
  62.  
  63. ImageLocation = "q"
  64. DO WHILE ~(ImageLocation="l" | ImageLocation="a" | ImageLocation="u",
  65.                     | ImageLocation=" " | ImageLocation="RESULT")
  66.     GETSTRING "l" '"Image location: (l)ocal, (a)bsolute, (u)niversal?"'
  67.     ImageLocation = RESULT
  68. END
  69.  
  70. IF (ImageLocation="RESULT" | ImageLocation=" ")
  71. THEN EXIT 0
  72. ELSE NOP
  73.  
  74. SELECT
  75.     WHEN (ImageLocation="l") THEN DO
  76.         GETSTRING "Image" '"Image name with its relative path?"'
  77.         ImageName = RESULT
  78.  
  79.         IF (ImageName=" " | ImageName="RESULT")
  80.         THEN EXIT 0
  81.         ELSE NOP
  82.  
  83.         OpenImage = '<IMG SRC="' || ImageName    ||    '"'
  84.     END
  85.     WHEN (ImageLocation="a") THEN DO
  86.         STATUS DIRNAME
  87.         HtmlFileDir = RESULT || "/"
  88.  
  89.         GETFILENAME HtmlFileDir '"Select Image"'
  90.         ImageName = RESULT
  91.  
  92.         IF (ImageName=" " | ImageName="RESULT")
  93.         THEN EXIT 0
  94.         ELSE NOP
  95.  
  96.         OpenImage = '<IMG SRC="file://localhost/' || ImageName    ||    '"'
  97.     END
  98.     WHEN (ImageLocation="u") THEN DO
  99.         GETSTRING "Image" '"Image name with its universal path?"'
  100.         ImageName = RESULT
  101.  
  102.         IF (ImageName="RESULT" | ImageName=" ")
  103.         THEN EXIT 0
  104.         ELSE NOP
  105.  
  106.         OpenImage = '<IMG SRC="file://' || ImageName    ||    '"'
  107.     END
  108.     OTHERWISE NOP
  109. END
  110.  
  111. /*
  112. **------------------------------------------------------------------------------
  113. **    Text for image substitution
  114. **------------------------------------------------------------------------------
  115. */
  116.  
  117. GETSTRING '"text"' '"Text for image substitution?"'
  118. ImageText = RESULT
  119.  
  120. IF (ImageText="RESULT")
  121. THEN EXIT 0
  122. ELSE NOP
  123.  
  124. /*
  125. **------------------------------------------------------------------------------
  126. **    Image size options
  127. **------------------------------------------------------------------------------
  128. */
  129.  
  130. ImageSize = "q"
  131. DO WHILE ~(ImageSize="y" | ImageSize="n" | ImageSize="d",
  132.                     | ImageSize=" " | ImageSize="RESULT")
  133.     GETSTRING "d" '"Image size options: (y)es, (n)o, (d)efault?"'
  134.     ImageSize = RESULT
  135. END
  136.  
  137. IF (ImageSize="RESULT" | ImageSize=" ")
  138. THEN EXIT 0
  139. ELSE NOP
  140.  
  141. SELECT
  142.     WHEN (ImageSize="d") THEN DO
  143.         ImageWidth = "100"
  144.         ImageHeight = "100"
  145.         ImageBorder = "0"
  146.     END
  147.     WHEN (ImageSize="y") THEN DO
  148.         GETNUMBER "100" '"Width (pixels)?"'
  149.         ImageWidth = RESULT
  150.  
  151.         IF (ImageWidth="RESULT" | ImageWidth=" ")
  152.         THEN EXIT 0
  153.         ELSE NOP
  154.  
  155.         GETNUMBER "100" '"Height (pixels)?"'
  156.         ImageHeight = RESULT
  157.  
  158.         IF (ImageHeight="RESULT" | ImageHeight=" ")
  159.         THEN EXIT 0
  160.         ELSE NOP
  161.  
  162.         GETNUMBER 0 '"Border (pixels)?"' 0 32768
  163.         ImageBorder = RESULT
  164.  
  165.         IF (ImageBorder=" ")
  166.         THEN EXIT 0
  167.         ELSE NOP
  168.     END
  169.     OTHERWISE NOP
  170. END
  171.  
  172. /*
  173. **------------------------------------------------------------------------------
  174. **    Image position options
  175. **------------------------------------------------------------------------------
  176. */
  177.  
  178. ImagePosition = "q"
  179. DO WHILE ~(ImagePosition="y" | ImagePosition="n" | ImagePosition="d",
  180.                     | ImagePosition=" " | ImagePosition="RESULT")
  181.     GETSTRING "d" '"Image position options: (y)es, (n)o, (d)efault?"'
  182.     ImagePosition = RESULT
  183. END
  184.  
  185. IF (ImagePosition="RESULT" | ImagePosition=" ")
  186. THEN EXIT 0
  187. ELSE NOP
  188.  
  189. SELECT
  190.     WHEN (ImagePosition="d") THEN DO
  191.         ImagePositionMode = "n"
  192.         HorizontalTextDistance = "10"
  193.         VerticalTextDistance = "10"
  194.     END
  195.     WHEN (ImagePosition="y") THEN DO
  196.         ImagePositionMode = "q"
  197.         DO WHILE ~(ImagePositionMode="l" | ImagePositionMode="c" | ImagePositionMode="r",
  198.                             | ImagePositionMode="n" | ImagePositionMode=" " | ImagePositionMode="RESULT")
  199.             GETSTRING "c" '"Image position: (l)eft, (c)enter, (r)ight, (n)o?"'
  200.             ImagePositionMode = RESULT
  201.         END
  202.  
  203.         IF (ImagePositionMode="RESULT" | ImagePositionMode=" ")
  204.         THEN EXIT 0
  205.         ELSE NOP
  206.  
  207.         OKAY2 "You know have to specify the distance "             ||    NL    ||,
  208.                     "between the image en the surrounding text"        ||    NL    ||,
  209.                     "(Lateral and vertical)."
  210.  
  211.         IF (RESULT=" " | RESULT="RESULT")
  212.         THEN EXIT 0
  213.         ELSE
  214.  
  215.         GETNUMBER 10 '"Lateral (pixels)?"' 0 32768
  216.         HorizontalTextDistance = RESULT
  217.  
  218.         IF (HorizontalTextDistance=" ")
  219.         THEN EXIT 0
  220.         ELSE NOP
  221.  
  222.         GETNUMBER 10 '"Vertical (pixels)?"' 0 32768
  223.         VerticalTextDistance = RESULT
  224.  
  225.         IF (VerticalTextDistance=" ")
  226.         THEN EXIT 0
  227.         ELSE NOP
  228.     END
  229.     OTHERWISE NOP
  230. END
  231.  
  232. /*
  233. **------------------------------------------------------------------------------
  234. **    Html image marks
  235. **------------------------------------------------------------------------------
  236. */
  237.  
  238. IF (ImageSize="n")
  239. THEN ImageSizeString = ""
  240. ELSE DO
  241.     ImageSizeString =                                            " BORDER="    ||    ImageBorder
  242.     ImageSizeString = ImageSizeString ||    " WIDTH="        ||    ImageWidth
  243.     ImageSizeString = ImageSizeString    ||    " HEIGHT="    ||    ImageHeight
  244. END
  245.  
  246. SELECT
  247.     WHEN (ImagePositionMode="c") THEN ImagePosition = ""
  248.     WHEN (ImagePositionMode="n") THEN ImagePosition = ""
  249.     WHEN (ImagePositionMode="r") THEN ImagePosition = " ALIGN=RIGHT"
  250.     WHEN (ImagePositionMode="l") THEN ImagePosition = " ALIGN=LEFT"
  251.     OTHERWISE NOP
  252. END
  253.  
  254. IF (ImagePosition="n")
  255. THEN ImagePositionString = ""
  256. ELSE DO
  257.     ImagePositionString =    ImagePosition
  258.     ImagePositionString = ImagePositionString ||    " HSPACE=" || HorizontalTextDistance
  259.     ImagePositionString = ImagePositionString    ||    " VSPACE=" || VerticalTextDistance
  260. END
  261.  
  262. ImageString =                                    OpenImage
  263. ImageString = ImageString ||     ' ALT="'            ||    ImageText                        || '"'
  264. ImageString = ImageString ||    ImageSizeString    ||    ImagePositionString
  265.  
  266. SELECT
  267.     WHEN (ImageType="d") THEN ImageString = ImageString || ">"
  268.     WHEN (ImageType="m") THEN ImageString = ImageString || ' USEMAP="#' || MapName || '">'
  269.     OTHERWISE NOP
  270. END
  271.  
  272. /*
  273. **------------------------------------------------------------------------------
  274. **    HTML image structure
  275. **------------------------------------------------------------------------------
  276. */
  277.  
  278. IF (ImagepositionMode="c")
  279. THEN DO
  280.     TEXT "<CENTER>" ; "AUTO-INDENT" ; KTAB
  281.     TEXT ImageString ; "AUTO-INDENT" ; BACKTAB
  282.     TEXT "</CENTER>"
  283.     END
  284. ELSE TEXT ImageString
  285.  
  286. /*
  287. **------------------------------------------------------------------------------
  288. **    End of html_image.ced Arexx script
  289. **------------------------------------------------------------------------------
  290. */
  291.  
  292. EXIT 0
  293.