CASE, an early 'bilingual' XEDIT macro -- 15 December 1981 ========================================================== */* Install REX if need be &GOTO -OLDLANG */ arg what whatelse if what = '?' then signal 'TELL' t = abbrev('SWITCH',what,1) if t>0 | what='*' then do 'COMMAND TRANSFER CASE' pull a b if a = 'M' then nucase = 'U' whatelse if a = 'U' then nucase = 'M' whatelse if what = '*' then nucase = a whatelse end else nucase = what whatelse 'COMMAND SET CASE' nucase 'COMMAND QUERY CASE' exit rc TELL: queue ' CASE Mixed | Switch | Uppercase | * ' queue 'Extends the CASE subcommand by allowing Switch or * as' queue 'the first parameter.' 'MACRO HELPMSG CASE' exit rc /* Bilingual "install REX if necessary" code... -OLDLANG &CONTROL OFF EXEC REX I &IF &RETCODE = 0 EXEC &0 &1 &2 &EXIT &RETCODE */