home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / ads / adsdbase / ced_html.lha / CED_HTML / Html / html_glossary.ced < prev    next >
Encoding:
Text File  |  1999-01-11  |  2.0 KB  |  69 lines
  1. /*
  2. ** html_glossary.ced
  3. **
  4. ** $VER: html_glossary.ced 1.3 (12.20.1998)
  5. **
  6. ** Arexx script for HTML v3.2 glossary structure
  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. **    Item number
  32. **------------------------------------------------------------------------------
  33. */
  34.  
  35. GETNUMBER 1 '"How many items?"' 1 32768
  36. ItemNumber = RESULT
  37.  
  38. IF (ItemNumber=" ")
  39. THEN EXIT 0
  40. ELSE NOP
  41.  
  42. /*
  43. **------------------------------------------------------------------------------
  44. **    Html glossary structure
  45. **------------------------------------------------------------------------------
  46. */
  47.  
  48. TEXT "<DL>" ; "AUTO-INDENT" ; KTAB
  49. DO I=1 TO ItemNumber
  50.     TEXT "<DT>" ; "AUTO-INDENT" ; KTAB
  51.     ItemText = "Should be modified - Item" || I
  52.     TEXT ItemText ; "AUTO-INDENT" ; BACKTAB
  53.     TEXT "</DT>" ; "AUTO-INDENT"
  54.     TEXT "<DD>" ; "AUTO-INDENT" ; KTAB
  55.     DefinitionText = "Should be modified - Definition" || I
  56.     TEXT DefinitionText ; "AUTO-INDENT" ; BACKTAB
  57.     TEXT "</DD>" ; "AUTO-INDENT"
  58.     END
  59. BACKTAB
  60. TEXT "</DL>"
  61.  
  62. /*
  63. **------------------------------------------------------------------------------
  64. **    End of html_glossary.ced Arexx script
  65. **------------------------------------------------------------------------------
  66. */
  67.  
  68. EXIT 0
  69.