985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
|
cl->codes[ptr++]=tokenv&15;
} else if(Tokenf(TF_NAME)) {
switch(tokenv) {
case OP_ADD: case OP_CLIMB: case OP_EIGHT: case OP_FOUR:
case OP_HEIGHT: case OP_LOC: case OP_MARK: case OP_SUB:
case OP_DIR: case OP_DIR_C: case OP_DIR_E: case OP_DIR_EC:
case OP_OBJTOPAT: case OP_OBJBOTTOMAT: case OP_CUT: case OP_MUL:
case OP_OBJABOVE: case OP_OBJBELOW: case OP_TRACE:
case 0x0200 ... 0x02FF: // message
case 0x4000 ... 0x7FFF: // class
case 0xC000 ... 0xFFFF: // message
cl->codes[ptr++]=tokenv;
break;
case OP_BEGIN: case OP_IF:
if(depth==31) ParseError("Too much pattern nesting\n");
|
|
|
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
|
cl->codes[ptr++]=tokenv&15;
} else if(Tokenf(TF_NAME)) {
switch(tokenv) {
case OP_ADD: case OP_CLIMB: case OP_EIGHT: case OP_FOUR:
case OP_HEIGHT: case OP_LOC: case OP_MARK: case OP_SUB:
case OP_DIR: case OP_DIR_C: case OP_DIR_E: case OP_DIR_EC:
case OP_OBJTOPAT: case OP_OBJBOTTOMAT: case OP_CUT: case OP_MUL:
case OP_OBJABOVE: case OP_OBJBELOW: case OP_TRACE: case OP_NEXT:
case 0x0200 ... 0x02FF: // message
case 0x4000 ... 0x7FFF: // class
case 0xC000 ... 0xFFFF: // message
cl->codes[ptr++]=tokenv;
break;
case OP_BEGIN: case OP_IF:
if(depth==31) ParseError("Too much pattern nesting\n");
|