1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
|
case OP_POPUP:
nxttok();
if(tokent!=TF_INT || tokenv<0 || tokenv>32) ParseError("Expected number from 0 to 32");
if(tokenv) AddInst2(OP_POPUPARGS,tokenv); else AddInst(OP_POPUP);
nxttok();
if(tokent!=TF_CLOSE) ParseError("Unterminated (PopUp)\n");
break;
case OP_PATTERN: case OP_PATTERNS:
case OP_PATTERN_C: case OP_PATTERNS_C:
case OP_PATTERN_E: case OP_PATTERNS_E:
AddInst(tokenv);
cl->codes[ptr]=peep=parse_pattern(cla,ptr+1,hash);
ptr=peep;
break;
case OP_BROADCAST:
nxttok();
if(Tokenf(TF_MACRO) || !Tokenf(TF_NAME) || tokenv<0x4000 || tokenv>0x7FFF) ParseError("Class name expected\n");
|
|
|
|
|
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
|
case OP_POPUP:
nxttok();
if(tokent!=TF_INT || tokenv<0 || tokenv>32) ParseError("Expected number from 0 to 32");
if(tokenv) AddInst2(OP_POPUPARGS,tokenv); else AddInst(OP_POPUP);
nxttok();
if(tokent!=TF_CLOSE) ParseError("Unterminated (PopUp)\n");
break;
case OP_PATTERN: case OP_PATTERNS: case OP_PATTERNC:
case OP_PATTERN_C: case OP_PATTERNS_C: case OP_PATTERNC_C:
case OP_PATTERN_E: case OP_PATTERNS_E: case OP_PATTERNC_E:
AddInst(tokenv);
cl->codes[ptr]=peep=parse_pattern(cla,ptr+1,hash);
ptr=peep;
break;
case OP_BROADCAST:
nxttok();
if(Tokenf(TF_MACRO) || !Tokenf(TF_NAME) || tokenv<0x4000 || tokenv>0x7FFF) ParseError("Class name expected\n");
|