Rexx - Programming language

Rexx is a programming language created in 1979 by Mike Cowlishaw.

#304on PLDB

45Years Old

263Repos

Rexx (Restructured Extended Executor) is an interpreted programming language developed at IBM by Mike Cowlishaw. It is a structured, high-level programming language designed for ease of learning and reading. Proprietary and open source REXX interpreters exist for a wide range of computing platforms; compilers exist for IBM mainframe computers. Read more on Wikipedia...

Tags: programming language
Interview with the creator of Rexx: 1.
There are at least 263 Rexx repos on GitHub
Early development of Rexx happened in IBM
The Google BigQuery Public Dataset GitHub snapshot shows 69 users using Rexx in 71 repos on GitHub
There are 11 Project Euler users using Rexx
Explore Rexx snippets on Rosetta Code
Rexx on HOPL
Rexx appears in the TIOBE Index
Rexx Ubuntu package
Pygments supports syntax highlighting for Rexx
GitHub supports syntax highlighting for Rexx
Rexx appears in the Quine Relay project
Indeed.com has 40 matches for "rexx engineer".
See also: (17 related languages) ARexx, NetRexx, Object Rexx, PL/I, Algol, EXEC, EXEC 2, Perl, Assembly language, Tcl, Python, Java, Linux, Unix, Solaris, Visual Basic, JScript
5 PLDB concepts link to Rexx: JAL compiler, mal, Pawn, PAWN, Pygments

Example from Riju:

say "Hello, world!"

Example from hello-world:

<<hello.rexx>>=
Say "Hello World"

Example from Linguist:

/* rexx */
PARSE ARG filnamn
IF filnamn='' THEN DO
   filnamn='raw'
   filnamn='font.shapes'
   end
IF ~open(fil,filnamn,r) THEN EXIT 10
pixwidth=48
ebwidth=pixwidth/8
pixheight=48
depth=4
SAY "Skriver utfil..."
CALL open utfil,"RAM:utfil",W
CALL skriv pixwidth,2
CALL skriv pixheight,2
CALL skriv depth,2
CALL skriv ebwidth,2
bltsize=Right(C2B(D2C(pixheight)),10,"00")
bltsize=bltsize || Right(C2B(D2C(ebwidth)),6,"00")
/* SAY bltsize */
CALL skriv C2D(B2C(bltsize)),2
CALL skriv 0,4 /* xhandle, yhandle*/
CALL skriv 0,4 /* datapekare */
CALL skriv 0,4 /* cookiepekare */
CALL skriv ebwidth*pixheight,2 /* onebpmem */
CALL skriv ebwidth*pixheight+pixheight*2,2 /* onebpmemx */
CALL skriv ebwidth*pixheight*depth,2 /* allbpmem */
CALL skriv ebwidth*pixheight*depth+pixheight*2*depth,2 /* allbpmemx */
CALL skriv 0,2 /* padding */
CALL Close utfil
EXIT

skriv:
say "Skriver TEMPLATEquot;D2X(arg(1)) "("arg(2) "byte)"
call writech utfil,right(D2C(ARG(1)),ARG(2),"00"x)
return

visacookie:
   rad=copies('00'x,pixheight*ebwidth)
   say "Initierar bitmap till" pixheight*ebwidth*depth
   say "Ett bitplan =" pixheight*ebwidth
   bmap.=''
   say "laser in"
   do bitplan=1 to depth
      say "laser plan" bitplan
      rad=bitor(rad,readch(fil,pixheight*ebwidth))
      end
   ln=1
   say "skriver ut"
   do for pixheight
      say c2b(substr(rad,ln,bredd/8))
      ln=ln+bredd/8
      end
return

Example from Wikipedia:

ChangeCodePage: procedure /* protect SIGNAL settings */
 signal on syntax name ChangeCodePage.Trap
 return SysQueryProcessCodePage()
 ChangeCodePage.Trap: return 1004 /* windows-1252 on OS/2 */

Language features

Feature	Supported	Example	Token
Strings	✓	"Hello world"	"
MultiLine Comments	✓	/* A comment */	/* */
Print() Debugging	✓		say
Comments	✓	* => 1000000000 */
Semantic Indentation	X
Line Comments	X