/*
** cedmacros.ced
**
** $VER: html.ced 2.2 (02.17.1999)
**
** Arexx script to choose CygnusED HTML 3.2 Arexx script
**
** This script works with CygnusEd Professional v4.2
**
** Copyright © Eric BELLE
*/

/*
**------------------------------------------------------------------------------
**	Initialisation
**------------------------------------------------------------------------------
*/

OPTIONS RESULTS							/* Tell CygnusEd to return results. */
NL = '0A'X									/* Alias for new line. */
KRETURN = RAWKEY 68					/* Shortcut to the return key. */
KTAB = RAWKEY 66						/* Shortcut to the tab key. */
STATUS TABSARESPACES				/* Return TAB mode ("tab" or "space"). */
IF RESULT = 1								/* Test the TAB mode. */
THEN "TABS = SPACES"				/* Switch TAB mode from "space" to "tab". */
ELSE NOP										/* No operation. */
TAB SIZE 1									/* Set TAB size proportional to 2 spaces. */

/*
**------------------------------------------------------------------------------
**	Choose HTML Arexx script
**------------------------------------------------------------------------------
*/

ScriptChoice = "no"
Do While (ScriptChoice="no")

	OKAY2 ,
			"CygnusED HTML scripts 2.2:                    "	||	NL	||,
			"~~~~~~~~~~~~~~~~~~~~~~~~~                     "	||	NL	||,			
			"   (1) - Main structure          |     (16) - Iso latin 1          "	||	NL	||,
			"   (2) - Title                   |     (17) - Center               "	||	NL	||,
			"   (3) - Font options            |     (18) - Table structure      "	||	NL	||,
			"   (4) - Text aspect             |     (19) - Table cells          "	||	NL	||,
			"   (5) - Paragraph               |     (20) - Table caption        "	||	NL	||,
			"   (6) - Sub paragraph           |     (21) - Anchor               "	||	NL	||,
			"   (7) - List structure          |     (22) - Map structure        "	||	NL	||,
			"   (8) - List items              |     (23) - Map sensible area    "	||	NL	||,
			"   (9) - Glossary structure      |     (24) - Link                 "	||	NL	||,
			"  (10) - Glossary items          |     (25) - Image                "	||	NL	||,
			"  (11) - New line                |     (26) - Formular             "	||	NL	||,
			"  (12) - No new line             |     (27) - Formular input       "	||	NL	||,
			"  (13) - Horizontal bar          |     (28) - Formular text area   "	||	NL	||,
			"  (14) - Comment                 |     (29) - Formular list        "	||	NL	||,
			"  (15) - Remove all comments     |     (30) - Formular button      "

	IF (RESULT=0)
	THEN EXIT 0
	ELSE ScriptChoice="ok"

	GETNUMBER 1 '"Which script?"' 1 30
	ScriptNumber = RESULT

	IF (ScriptNumber=" ")
	THEN ScriptChoice = "no"
	ELSE NOP
END

/*
**------------------------------------------------------------------------------
**	Execute choosen HTML Arexx script
**------------------------------------------------------------------------------
*/

SELECT
	WHEN (ScriptNumber=1)  THEN CALL "CED_HTML:html_main.ced"
	WHEN (ScriptNumber=2)  THEN CALL "CED_HTML:html_title.ced"
	WHEN (ScriptNumber=3)  THEN CALL "CED_HTML:html_font.ced"
	WHEN (ScriptNumber=4)  THEN CALL "CED_HTML:html_textaspect.ced"
	WHEN (ScriptNumber=5)  THEN CALL "CED_HTML:html_paragraph.ced"
	WHEN (ScriptNumber=6)  THEN CALL "CED_HTML:html_subparagraph.ced"
	WHEN (ScriptNumber=7)  THEN CALL "CED_HTML:html_list.ced"
	WHEN (ScriptNumber=8)  THEN CALL "CED_HTML:html_list_items.ced"
	WHEN (ScriptNumber=9)  THEN CALL "CED_HTML:html_glossary.ced"
	WHEN (ScriptNumber=10) THEN CALL "CED_HTML:html_glossary_items.ced"
	WHEN (ScriptNumber=11) THEN CALL "CED_HTML:html_newline.ced"
	WHEN (ScriptNumber=12) THEN CALL "CED_HTML:html_nonewline.ced"
	WHEN (ScriptNumber=13) THEN CALL "CED_HTML:html_bar.ced"
	WHEN (ScriptNumber=14) THEN CALL "CED_HTML:html_comment.ced"
	WHEN (ScriptNumber=15) THEN CALL "CED_HTML:html_strip.ced"
	WHEN (ScriptNumber=16) THEN CALL "CED_HTML:html_isolatin.ced"
	WHEN (ScriptNumber=17) THEN CALL "CED_HTML:html_center.ced"
	WHEN (ScriptNumber=18) THEN CALL "CED_HTML:html_table.ced"
	WHEN (ScriptNumber=19) THEN CALL "CED_HTML:html_table_cells.ced"
	WHEN (ScriptNumber=20) THEN CALL "CED_HTML:html_table_caption.ced"
	WHEN (ScriptNumber=21) THEN CALL "CED_HTML:html_anchor.ced"
	WHEN (ScriptNumber=22) THEN CALL "CED_HTML:html_map.ced"
	WHEN (ScriptNumber=23) THEN CALL "CED_HTML:html_map_area.ced"
	WHEN (ScriptNumber=24) THEN CALL "CED_HTML:html_link.ced"
	WHEN (ScriptNumber=25) THEN CALL "CED_HTML:html_image.ced"
	WHEN (ScriptNumber=26) THEN CALL "CED_HTML:html_formular.ced"
	WHEN (ScriptNumber=27) THEN CALL "CED_HTML:html_formular_single.ced"
	WHEN (ScriptNumber=28) THEN CALL "CED_HTML:html_formular_multiple.ced"
	WHEN (ScriptNumber=29) THEN CALL "CED_HTML:html_formular_list.ced"
	WHEN (ScriptNumber=30) THEN CALL "CED_HTML:html_formular_button.ced"
	OTHERWISE NOP
END

/*
**------------------------------------------------------------------------------
**	End of cedmacros.ced Arexx script
**------------------------------------------------------------------------------
*/

EXIT 0