AmigaOS Manual: ARexx Elements of ARexx - Revision history

Janne Peräaho at 03:25, 17 May 2020

2020-05-17T03:25:11Z

← Older revision		Revision as of 03:25, 17 May 2020
Line 23:		Line 23:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/This is an ARexx comment/		/* This is an ARexx comment */
	</syntaxhighlight>		</syntaxhighlight>

Line 29:		Line 29:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/A /nested/ comment/		/* A /nested/ comment */
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 03:24, 17 May 2020

2020-05-17T03:24:41Z

← Older revision		Revision as of 03:24, 17 May 2020
Line 83:		Line 83:

	/* Number definitions */		/* Number definitions */
	number. = '(not found)'		number. = '(not found)'
	number.wsh = '(555) 001-0001'		number.wsh = '(555) 001-0001'
	addr. = '(not found)'		addr. = '(not found)'
	number.CBM = '(555) 002-0002'		number.CBM = '(555) 002-0002'
	addr.CBM = '1200 Wilson Dr., West Chester, PA, 19380'		addr.CBM = '1200 Wilson Dr., West Chester, PA, 19380'

	/* (Work is done here) */		/* (Work is done here) */

Janne Peräaho at 03:23, 17 May 2020

2020-05-17T03:23:51Z

← Older revision		Revision as of 03:23, 17 May 2020
Line 299:		Line 299:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	start: /Begin execution/		start: /* Begin execution */
	syntax: /Error processing/		syntax: /* Error processing */
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 03:23, 17 May 2020

2020-05-17T03:23:26Z

← Older revision		Revision as of 03:23, 17 May 2020
Line 329:		Line 329:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	'delete' 'myfile' /AmigaDOS command/		'delete' 'myfile' /* AmigaDOS command */
	'jump' current+10 /An editor command/		'jump' current+10 /* An editor command */
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 02:51, 17 May 2020

2020-05-17T02:51:39Z

← Older revision		Revision as of 02:51, 17 May 2020
Line 400:		Line 400:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/Prints status of ED. ED must be running before this program is started./		/* Prints status of ED. ED must be running before this program is started. */
	/ED ports are named 'Ed', 'Ed_1', 'Ed_2', and so on./		/* ED ports are named 'Ed', 'Ed_1', 'Ed_2', and so on. */
	DEFAULT_ED = "Ed "/This name is case sensitive/		DEFAULT_ED = "Ed "/* This name is case sensitive */

	/Procedure to follow if ED isn't running, or if only a second/		/* Procedure to follow if ED isn't running, or if only a second */
	/(or later) instance of ED is running./		/* (or later) instance of ED is running. */
	DO WHILE ~ SHOW( 'p', DEFAULT_ED ) /Look for port/		DO WHILE ~ SHOW( 'p', DEFAULT_ED ) /* Look for port */
	SAY "Cannot find port named" DEFAULT_ED		SAY "Cannot find port named" DEFAULT_ED
	SAY "Available ports:"		SAY "Available ports:"
	SAY SHOW( 'P' ) '0a'X		SAY SHOW( 'P' ) '0a'X

	/Let user choose port if we can't find it/		/* Let user choose port if we can't find it */
	SAY "Enter different name for port, or QUIT to quit "		SAY "Enter different name for port, or QUIT to quit "
	DEFAULT_ED = READLN( stdout )		DEFAULT_ED = READLN( stdout )
	IF STRIP( UPPER( DEFAULT_ED ) ) = 'QUIT' THEN EXIT 10 /Let user quit/		IF STRIP( UPPER( DEFAULT_ED ) ) = 'QUIT' THEN EXIT 10 /* Let user quit */
	END		END

	SAY "Using ED port" DEFAULT_ED		SAY "Using ED port" DEFAULT_ED

	/Now that port is found, have ARexx address it./		/* Now that port is found, have ARexx address it. */
	ADDRESS VALUE DEFAULT_ED		ADDRESS VALUE DEFAULT_ED

	/* Set up some useful stem variables*/		/* Set up some useful stem variables */
	STEM.0 = 15 /Number of ED ARexx variables/		STEM.0 = 15 /* Number of ED ARexx variables */
	STEM.1 = 'LEFT' /Left margin (SL)/		STEM.1 = 'LEFT' /* Left margin (SL) */
	STEM.2 = 'RIGHT' /Right margin (SR)/		STEM.2 = 'RIGHT' /* Right margin (SR) */
	STEM.3 = 'TABSTOP' /Tab stop setting (ST)/		STEM.3 = 'TABSTOP' /* Tab stop setting (ST) */
	STEM.4 = 'LMAX' /Max visible line on screen/		STEM.4 = 'LMAX' /* Max visible line on screen */
	STEM.5 = 'WIDTH' /Width of screen in chars/		STEM.5 = 'WIDTH' /* Width of screen in chars */
	STEM.6 = 'X' /Physical X pos. on screen-from 1/		STEM.6 = 'X' /* Physical X pos. on screen-from 1 */
	STEM.7 = 'Y' /Physical Y pos. on screen-from 1/		STEM.7 = 'Y' /* Physical Y pos. on screen-from 1 */
	STEM.8 = 'BASE' /Window base/		STEM.8 = 'BASE' /* Window base */
	/Base is 0 unless screen is shifted right)/		/* Base is 0 unless screen is shifted right) */
	STEM.9 = 'EXTEND' /Extended margin value (EX)/		STEM.9 = 'EXTEND' /* Extended margin value (EX) */
	STEM.10 = 'FORCECASE' /Case sensitivity flag/		STEM.10 = 'FORCECASE' /* Case sensitivity flag */
	STEM.11 = 'LINE' /Current line number/		STEM.11 = 'LINE' /* Current line number */
	STEM.12 = 'FILENAME' /File being edited/		STEM.12 = 'FILENAME' /* File being edited */
	STEM.13 = 'CURRENT' /Text of current line/		STEM.13 = 'CURRENT' /* Text of current line */
	STEM.14 = 'LASTCMD' /Last extended command/		STEM.14 = 'LASTCMD' /* Last extended command */
	STEM.15 = 'SEARCH' /Last search string/		STEM.15 = 'SEARCH' /* Last search string */

	/Ask ED to put values into stem variable 'STEM.'/		/* Ask ED to put values into stem variable 'STEM.' */
	'RV' '/STEM/' /RV is an ED command used to send into from ED to ARexx/		'RV' '/STEM/' /* RV is an ED command used to send into from ED to ARexx */

	/STEM.1 is LEFT, and STEM.LEFT now holds a value from ED./		/* STEM.1 is LEFT, and STEM.LEFT now holds a value from ED. */
	/Here is a way to print that information./		/* Here is a way to print that information. */
	DO i = 1 TO STEM.0		DO i = 1 TO STEM.0
	ED_VAR = STEM.1		ED_VAR = STEM.1
	SAY STEM.1 "=" STEM.ED_VAR /Print ED variable/value/		SAY STEM.1 "=" STEM.ED_VAR /* Print ED variable/value */
	END		END
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 02:48, 17 May 2020

2020-05-17T02:48:27Z

← Older revision		Revision as of 02:48, 17 May 2020
Line 463:		Line 463:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/Given string '123', if cursor is on 3, macro converts string to '213'./		/* Given string '123', if cursor is on 3, macro converts string to '213'. */
	HOST = ADDRESS() /Find out which ED called us/		HOST = ADDRESS() /* Find out which ED called us */
	ADDRESS VALUE HOST /. . . and talk to it./		ADDRESS VALUE HOST /* . . . and talk to it. */

	'rv' '/CURR/' /Have ED put info in stem CURR/		'rv' '/CURR/' /* Have ED put info in stem CURR */

	/We'll need two pieces of information:/		/* We'll need two pieces of information: */
	currpos = CURR.X /Position of cursor on line/		currpos = CURR.X /* Position of cursor on line */
	currling = CURR.CURRENT /Contents of current line/		currling = CURR.CURRENT /* Contents of current line */
	IF ( currpos > 2 ) THEN currpos = currpos - 1 /Must work on current line/		IF ( currpos > 2 ) THEN currpos = currpos - 1 /* Must work on current line */
	ELSE DO /Report error and exit/		ELSE DO /* Report error and exit */
	'sm /Cursor must be at pos. 2 or more to the right/'		'sm /Cursor must be at pos. 2 or more to the right/'
	EXIT 10		EXIT 10
	END		END

	/Need to reverse the CURRPOSth and CURRPOSth-1 chars and/		/* Need to reverse the CURRPOSth and CURRPOSth-1 chars and */
	/replace the current line with the new one./		/* replace the current line with the new one. */
	DROP CURR. /STEM variable CURR is no longer needed; save some memory/		DROP CURR. /* STEM variable CURR is no longer needed; save some memory */
	'd' /Tell ED to delete current line/		'd' /* Tell ED to delete current line */
	currlin = swapch( currpos, currlin ) /Swap 2 chars/		currlin = swapch( currpos, currlin ) /* Swap 2 chars */
	'i /'\| \|currlin\| \|'/ /Insert modified line/		'i /'\| \|currlin\| \|'/ /* Insert modified line */
	DO i = 1 TO currpos /Place cursor back at start/		DO i = 1 TO currpos /* Place cursor back at start */
	'cr' /ED's 'cursor right' command/		'cr' /* ED's 'cursor right' command */
	END		END

	EXIT /All done/		EXIT /* All done */

	/Function to swap two characters/		/* Function to swap two characters */
	swapch: ~~procedure~~		swapch: PROCEDURE
	PARSE ARG cpos,clin		PARSE ARG cpos,clin
	chl = SUBSTR( clin, cpos, 1 ) /Get character/		chl = SUBSTR( clin, cpos, 1 ) /* Get character */
	clin = DELSTR( clin, cpos, 1 ) /Delete it from string/		clin = DELSTR( clin, cpos, 1 ) /* Delete it from string */
	clin = INSERT( chl, clin, cpos - 2, 1 ) /Insert to create transposition/		clin = INSERT( chl, clin, cpos - 2, 1 ) /* Insert to create transposition */
	RETURN clin /Return modified string/		RETURN clin /* Return modified string */
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 02:45, 17 May 2020

2020-05-17T02:45:54Z

← Older revision		Revision as of 02:45, 17 May 2020
Line 518:		Line 518:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/Launch a new Shell/		/* Launch a new Shell */
	ADDRESS command		ADDRESS command
	conwindow = "CON:0/0/640/100/NewOne/Close"		conwindow = "CON:0/0/640/100/NewOne/Close"

	/Create a command file/		/* Create a command file */
	CALL OPEN out, "ram:temp", write		CALL OPEN out, "ram:temp", write
	CALL WRITELN out, 'echo "This is a test"'		CALL WRITELN out, 'echo "This is a test"'
	CALL CLOSE out		CALL CLOSE out

	/Open the new Shell window/		/* Open the new Shell window */
	'newshell' conwindow "ram:temp"		'newshell' conwindow "ram:temp"

Janne Peräaho: Made the source code easier to read

2020-05-17T02:44:49Z

Made the source code easier to read

← Older revision		Revision as of 02:44, 17 May 2020
Line 69:		Line 69:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	/A telephone book to show compound variables./		/* A telephone book to show compound variables. */
	IF ARG() ~ = 1 THEN DO		IF ARG() ~ = 1 THEN DO
	SAY "USAGE: rx phone name"		SAY "USAGE: rx phone name"
	EXIT 5		EXIT 5
	END		END

	/Open window to display phone nos/addresses./		/* Open window to display phone nos/addresses. */
	CALL OPEN out, "con:0/0/640/60/ARexx Phonebook"		CALL OPEN out, "con:0/0/640/60/ARexx Phonebook"
	IF ~ result THEN DO		IF ~ result THEN DO
	SAY "Open failure ... sorry"		SAY "Open failure ... sorry"
	EXIT 10		EXIT 10
	END		END

	/Number definitions/		/* Number definitions */
	number. = '(not found)'		number. = '(not found)'
	number.wsh = '(555) 001-0001'		number.wsh = '(555) 001-0001'
Line 86:		Line 88:
	number.CBM = '(555) 002-0002'		number.CBM = '(555) 002-0002'
	addr.CBM = '1200 Wilson Dr., West Chester, PA, 19380'		addr.CBM = '1200 Wilson Dr., West Chester, PA, 19380'

	/(Work is done here)/		/* (Work is done here) */
	ARG name /The name/		ARG name /* The name */
	CALL WRITELN out, name \| \| " 's number is" number.name		CALL WRITELN out, name \| \| " 's number is" number.name
	CALL WRITELN out,name \| \| " 's address is" addr.name		CALL WRITELN out,name \| \| " 's address is" addr.name
	CALL WRITELN out, "Press Return to exit."		CALL WRITELN out, "Press Return to exit."
	CALL READLN out		CALL READLN out

	EXIT		EXIT
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 15:03, 3 January 2019

2019-01-03T15:03:54Z

← Older revision		Revision as of 15:03, 3 January 2019
Line 304:		Line 304:

	<syntaxhighlight lang="rexx">		<syntaxhighlight lang="rexx">
	~~When~~ = 'Now is the time'		when = 'Now is the time'
	answ = 3.14 * fact(5)		answ = 3.14 * fact( 5 )
	</syntaxhighlight>		</syntaxhighlight>

Janne Peräaho at 14:55, 3 January 2019

2019-01-03T14:55:31Z

← Older revision		Revision as of 14:55, 3 January 2019
Line 442:		Line 442:
	/STEM.1 is LEFT, and STEM.LEFT now holds a value from ED./		/STEM.1 is LEFT, and STEM.LEFT now holds a value from ED./
	/Here is a way to print that information./		/Here is a way to print that information./
	DO i = 1 to STEM.0		DO i = 1 TO STEM.0
	ED_VAR = STEM.1		ED_VAR = STEM.1
	SAY STEM.1 "=" STEM.ED_VAR /Print ED variable/value/		SAY STEM.1 "=" STEM.ED_VAR /Print ED variable/value/