Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uunet!cs.utexas.edu!ut-emx!walt.cc.utexas.edu!hcobb
From: hcobb@walt.cc.utexas.edu (Henry J. Cobb)
Newsgroups: comp.lang.rexx
Subject: Switch statement in (A)Rexx
Keywords: switch,select,case
Message-ID: <23226@ut-emx.UUCP>
Date: 16 Jan 90 12:58:56 GMT
Sender: news@ut-emx.UUCP
Reply-To: hcobb@walt.cc.utexas.edu (Henry J. Cobb)
Organization: The University of Texas at Austin, Austin, Texas
Lines: 24

------snip-&-clip-------------#1-in-a-sequence-------------------------------
/*
	Switch.rexx	This Program does nothing useful

	Oh, ye of little faith.  Tis easy to switch in (or to) Rexx!
*/

if sw. = "SW." then do		/* Why should you do this test? */
	sw. = "say default"
	sw.1 = " say a"
	sw.2 = "a = a +1; interpret sw.1"		
				/* Is this a function pointer? */
	sw.3 = "parse version b; say b"
end

a = 1
do i = 1 to 4
	interpret sw.i		/* Love that crazy syntax! */
end

/*	Complaints should be sent to:

	Henry J. Cobb	hcobb@ccwf.cc.utexas.edu
*/