THEN synbad();
FI
- SWITCH wdval IN
+ switch(wdval) {
case '&':
IF i
THEN chksym(sym);
FI
- ENDSW
+ }
return(i);
}
ELSE io=0;
FI
- SWITCH wdval IN
+ switch(wdval) {
case CASYM:
{
return(t);
}
- ENDSW
+ }
reserv++; word();
IF io=inout(io)
THEN t=makefork(0,t); t->treio=io;
iof=wdnum;
- SWITCH wdval IN
+ switch(wdval) {
case DOCSYM:
iof |= IODOC; break;
default:
return(lastio);
- ENDSW
+ }
chkword();
iop=(IOPTR)getstak(IOTYPE);
THEN scc=0200;
FI
FI
- SWITCH c = *p++ IN
-
+ switch(c = *p++) {
case '[':
{BOOL ok; INT lc;
ok=0; lc=077777;
case 0:
return(scc==0);
- ENDSW
+ }
}
static void addg(as1,as2,as3)
#define ELIF } else if (
#define FI ;}
-#define SWITCH switch(
-#define IN ){
-#define ENDSW }
#define FOR for(
#define WHILE while(
#define DO ){
/* skip chars up to } */
REG CHAR c;
WHILE (c=readc()) && c!=endch
- DO SWITCH c IN
+ DO switch(c) {
case SQUOTE: skipto(SQUOTE); break;
case DOLLAR: IF readc()==BRACE
THEN skipto('}');
FI
- ENDSW
+ }
OD
IF c!=endch THEN error(badsub) FI
}
sigchk();
execve(p, &t[0] ,xecenv);
- SWITCH errno IN
-
+ switch(errno) {
case ENOEXEC:
flags=0;
comdiv=0; ioset=0;
xecmsg=badexec;
case ENOENT:
return(prefix);
- ENDSW
+ }
}
/* for processes to be waited for */
treeflgs = t->tretyp; type = treeflgs&COMMSK;
oldexit=exitval; exitval=0;
- SWITCH type IN
+ switch(type) {
case TCOM:
{
newline();
FI
- SWITCH internal IN
+ switch(internal) {
case SYSDOT:
IF a1
default:
internal=builtin(argn,com);
-
- ENDSW
+
+ }
IF internal
THEN IF io THEN error(illegal) FI
OD
}
break;
- ENDSW
+ }
exitset();
FI