Rexx
Rexx (restructured extended executor) is a high-level programming language developed at IBM by Mike Cowlishaw.[6][7] Both proprietary and open source Rexx interpreters exist for a wide range of computing platforms, and compilers exist for IBM mainframe computers.[8] Rexx is used for scripting, application macros and application development. As a general purpose scripting language, Rexx is considered a precursor to Tcl and Python. Rexx is supported in a variety of environments. It is the primary scripting language in some operating systems including OS/2, MVS, VM, AmigaOS and is used for macros in some software including SPF/PC, KEDIT, THE and ZOC. With an engine installed, Rexx can be used for scripting and macros in programs that use a Windows Scripting Host ActiveX scripting engine (such as VBScript or JScript). Rexx is supplied with VM/SP Release 3 on up, TSO/E Version 2 on up, OS/2 (1.3 and later, where it is officially named Procedures Language/2), AmigaOS Version 2 on up, PC DOS (7.0 or 2000), ArcaOS,[9] and Windows NT 4.0 (Resource Kit: Regina). In the late 1980s, Rexx became the common scripting language for IBM Systems Application Architecture, where it was renamed "SAA Procedure Language REXX". A script is associated with a Rexx interpreter at runtime in various ways based on context. In mainframe computing, a Rexx script or command is sometimes referred to as an EXEC since that is the name of the file type used for similar CMS EXEC,[10] and EXEC 2[11] scripts and for Rexx scripts on VM/SP R3 through z/VM. The first line of a script specifies the use of a Rexx interpreter in a comment either by identifying the code as Rexx language or by file path via NameOriginally, the language was called REX, short for Reformed Executor, but an extra "X" was added to avoid confusion with other products. The name was originally all uppercase because that was the only way to represent it in mainframe code at the time. Both editions of Mike Cowlishaw's first book on the language use all-caps, REXX, although the cover graphic uses mixed case. His book on NetRexx uses mixed case but all caps in the cover graphic with large and small caps, NETREXX. An expansion that matches the abbreviation, REstructured eXtended eXecutor, was used for the system product in 1984.[12] The name Rexx (mixed case) is used in this article, and is commonly used elsewhere. AttributesObjective and subjective attributes of Rexx include:
Some claim that Rexx is a relatively simple language. With only 23 instructions (such as Some claim that Rexx code looks similar to PL/I code, but has fewer notations. With fewer notations, it tends to be is harder to parse via a translator, but is easier to write. Simplifying coding was intentional as noted by the Rexx design goal of the principle of least astonishment.[12] Historypre–1990On his own time, Mike Cowlishaw developed the language and an interpreter for it in assembly language between 20 March 1979 and mid-1982 with the intent to replace the languages EXEC and EXEC 2.[6] Mike also intended Rexx to be a simplified and easier to learn version of PL/I, but some claim that Rexx has problematic differences from PL/I. Rexx was first described in public at the SHARE 56 conference in Houston, Texas, in 1981,[13] where customer reaction, championed by Ted Johnston of SLAC, led to it being shipped as an IBM product in 1982. Over the years IBM included Rexx in almost all of its operating systems (VM/CMS, MVS TSO/E, IBM OS/400, VSE/ESA, AIX, PC DOS, and OS/2), and has made versions available for Novell NetWare, Windows, Java, and Linux. The first non-IBM version was written for PC DOS by Charles Daney in 1984/5[7] and marketed by the Mansfield Software Group (founded by Kevin J. Kearney in 1986).[6] The first Rexx compiler appeared in 1987, written for CMS by Lundin and Woodruff.[14] Other versions have also been developed for Atari, AmigaOS, Unix (many variants), Solaris, DEC, Windows, Windows CE, Pocket PC, DOS, Palm OS, QNX, OS/2, Linux, BeOS, EPOC32/Symbian, AtheOS, OpenVMS,[15]: p.305 Apple Macintosh, and Mac OS X.[16] ARexx, a Rexx interpreter for Amiga, was included with AmigaOS 2 onwards and was popular for scripting and application control. Many Amiga applications have an "ARexx port" which allows control of the application via a Rexx script. Notably, a Rexx script can switch between Rexx ports to control multiple applications. 1990 to presentIn 1990, Cathie Dager of SLAC organized the first independent Rexx symposium, which led to the forming of the Rexx Language Association. Symposia are held annually. Several freeware versions of Rexx are available. In 1992, the two most widely used open-source ports appeared: Ian Collier's REXX/imc for Unix and Anders Christensen's Regina[5] (later adopted by Mark Hessling) for Windows and Unix. BREXX is well known for WinCE and Pocket PC platforms, and has been "back-ported" to VM/370 and MVS. OS/2 has a visual development system from Watcom VX-REXX. Another dialect was VisPro REXX from Hockware. Portable Rexx by Kilowatt and Personal Rexx by Quercus are two Rexx interpreters designed for DOS and can be run under Windows as well using a command prompt. Since the mid-1990s, two newer variants of Rexx have appeared:
In 1996 American National Standards Institute (ANSI) published a standard for Rexx: ANSI X3.274–1996 "Information Technology – Programming Language REXX".[17] More than two dozen books on Rexx have been published since 1985. Rexx marked its 25th anniversary on 20 March 2004, which was celebrated at the Rexx Language Association's 15th International REXX Symposium in Böblingen, Germany, in May 2004. On October 12, 2004, IBM announced their plan to release their Object REXX implementation's sources under the Common Public License. Recent releases of Object REXX contain an ActiveX Windows Scripting Host (WSH) scripting engine implementing this version of the Rexx language. On February 22, 2005, the first public release of Open Object Rexx (ooRexx) was announced. This product contains a WSH scripting engine which allows for programming of the Windows operating system and applications with Rexx in the same fashion in which Visual Basic and JScript are implemented by the default WSH installation and Perl, Tcl, Python third-party scripting engines. As of January 2017[update] Rexx was listed in the TIOBE index as one of the fifty languages in its top 100 not belonging to the top 50.[18] In 2019, the 30th Rexx Language Association Symposium marked the 40th anniversary of Rexx. The symposium was held in Hursley, England, where Rexx was first designed and implemented.[19] ToolkitsRexxUtil – a package of file and directory functions, windowed I/O, and functions to access system services such as WAIT and POST – is available for most Rexx environments.[20][21][22] Rexx/Tk – a toolkit for graphics to be used in Rexx programmes in the same fashion as Tcl/Tk – is widely available. RxxxEd – an integrated development environment (IDE) for Rexx – was developed for Windows.[15] RxSock for network communication as well as other add-ons to and implementations of Regina Rexx have been developed, and a Rexx interpreter for the Windows command line is supplied in most resource kits for various versions of Windows and works in DOS as well. Syntax
Types of statementRexx has three types of statement
LoopingThe language provides loop control similar to many other languages. A loop begins with A loop is aborted (early exit) via Conditional loopThe language supports testing a condition either before ( do while [condition] [instructions] end do until [condition] [instructions] end Repetitive loopA loop can increment a variable and stop when a limit is reached. do index = start [to limit] [by increment] [for count] [instructions] end The increment value is 1 if the The language permits counted loops, where an expression is computed at the start of the loop and the instructions within the loop are executed that many times: do expression [instructions] end The language supports an unconditional loop via do forever [instructions] end Combined loopLike PL/I, Rexx allows both conditional and repetitive elements to be combined in the same loop:[24] do index = start [to limit] [by increment] [for count] [while condition] [instructions] end do expression [until condition] [instructions] end ConditionalThe language provides for conditional execution via if [condition] then do [instructions] end else do [instructions] end For a single instruction block, if [condition] then [instruction] else [instruction] Multiple condition branchingThe language provides multiple condition branching via select when [condition] then [instruction or nop] when [condition] then do [instructions or nop] end otherwise [instructions or nop] end The The VariableTyping systemVariables are typeless and initially are evaluated as their names in upper case. Thus a variable's type can vary with its use in the program: say hello /* => HELLO */
hello = 25
say hello /* => 25 */
hello = "say 5 + 3"
say hello /* => say 5 + 3 */
interpret hello /* => 8 */
drop hello
say hello /* => HELLO */
EvaluationIf no Compound variableThe language provides the compound variable construct which supports adding fields (called tails) to a variable (called a stem in this context) to support data structures such as lists, arrays, n-dimensional arrays, sparse or dense arrays, balanced or unbalanced trees and records. The language does not provide special support for numeric array indexing like many other languages do. Instead, a compound variable with numeric tails produce a similar effect.[25] The following code defines variables do i = 1 to 10
stem.i = 10 - i
end
Unlike a typical array, a tail (index) need not identify (be named) an integer value. For example, the following code is valid: i = 'Monday'
stem.i = 2
A default value can be assigned to a stem via stem. = 'Unknown'
stem.1 = 'USA'
stem.44 = 'UK'
stem.33 = 'France'
In this case The whole stem (including any default value) can be erased with the drop stem.
By convention (not part of the language) the compound add_word: procedure expose dictionary.
parse arg w
n = dictionary.0 + 1
dictionary.n = w
dictionary.0 = n
return
A stem can have multiple tails. For example: m = 'July'
d = 15
y = 2005
day.y.m.d = 'Friday'
Multiple numerical tail elements can be used to provide the effect of a multi-dimensional array. Features similar to the compound variable are found in other languages including associative arrays in AWK, hashes in Perl and hash tables in Java, dynamic objects in JavaScript. Most of these languages provide a mechanism to iterate over the keys (tails) of such a construct, but this is lacking in classic Rexx. Instead, it is necessary to store additional information. For example, the following procedure might be used to count each occurrence of a word. add_word: procedure expose count. word_list
parse arg w .
count.w = count.w + 1 /* assume count. has been set to 0 */
if count.w = 1 then word_list = word_list w
return
and then later: do i = 1 to words(word_list)
w = word(word_list,i)
say w count.w
end
More recent Rexx variants, including Object REXX and ooRexx, provide a construct to iterate over the tails of a stem. do i over stem.
say i '-->' stem.i
end
ParseThe
If origin describes the input as one of the following:
template can be a combination of variables, literal delimiters, and column number delimiters. ExamplesUsing a list of variables as template: myVar = "John Smith"
parse var myVar firstName lastName
say "First name is:" firstName
say "Last name is:" lastName
displays: First name is: John
Last name is: Smith
Using column number delimiters: myVar = "(202) 123-1234"
parse var MyVar 2 AreaCode 5 7 SubNumber
say "Area code is:" AreaCode
say "Subscriber number is:" SubNumber
displays: Area code is: 202
Subscriber number is: 123-1234
InterpretThe X = 'square'
interpret 'say' X || '(4) ; exit'
SQUARE: return arg(1)**2
The Valour software package relied upon Rexx's interpretive ability to implement an OOP environment.[citation needed] Another use was found in an unreleased Westinghouse product called Time Machine that was able to fully recover following an otherwise fatal error.[citation needed] Numericsay digits() fuzz() form() /* => 9 0 SCIENTIFIC */
say 999999999+1 /* => 1.000000000E+9 */
numeric digits 10 /* only limited by available memory */
say 999999999+1 /* => 1000000000 */
say 0.9999999999=1 /* => 0 (false) */
numeric fuzz 3
say 0.99999999=1 /* => 1 (true) */
say 0.99999999==1 /* => 0 (false) */
say 100*123456789 /* => 1.23456789E+10 */
numeric form engineering
say 100*123456789 /* => 12.34567890E+9 */
say 53 // 7 /* => 4 (rest of division)*/
numeric digits 50
n=2
r=1
do forever /* Newton's method */
rr=(n/r+r)/2
if r=rr then leave
r=rr
end
say "sqrt" n ' = ' r
sqrt 2 = 1.414213562373095048801688724209698078569671875377
numeric digits 50
e=2.5
f=0.5
do n=3
f=f/n
ee=e+f
if e=ee then leave
e=ee
end
say "e =" e
e = 2.7182818284590452353602874713526624977572470936998 Error handlingThe
The following fragment prints a message when the user terminates (halts) it: signal on halt;
do a = 1
say a
do 100000 /* a delay */
end
end
halt:
say "The program was stopped by the user"
exit
Since Rexx version 4, a handler can be named. In the following example, the handler ChangeCodePage: procedure
signal on syntax name ChangeCodePage.Trap
return SysQueryProcessCodePage()
ChangeCodePage.Trap: return 1004
When a condition is handled (as configured via See alsoNotesReferences
Further reading
External linksWikimedia Commons has media related to REXX (programming language).
|
Portal di Ensiklopedia Dunia