flex.c

来自「Linux下VB解释器」· C语言 代码 · 共 2,039 行 · 第 1/5 页

	YY_BREAK case 24:
	  YY_RULE_SETUP return tENDIF;
	YY_BREAK case 25:
	  YY_RULE_SETUP return tENDIF;
	YY_BREAK case 26:
	  YY_RULE_SETUP return tWEND;
	YY_BREAK case 27:
	  YY_RULE_SETUP return tWEND;
	YY_BREAK case 28:
	  YY_RULE_SETUP return tSEND;
	YY_BREAK case 29:
	  YY_RULE_SETUP return tSEND;
	YY_BREAK case 30:
	  YY_RULE_SETUP return tSEND;
	YY_BREAK case 31:
	  YY_RULE_SETUP return tSEND;
	YY_BREAK case 32:
	  YY_RULE_SETUP return tEXPORT;
	YY_BREAK case 33:
	  YY_RULE_SETUP return tERROR;
	YY_BREAK case 34:
	  YY_RULE_SETUP return tFOR;
	YY_BREAK case 35:
	  YY_RULE_SETUP return tBREAK;
	YY_BREAK case 36:
	  YY_RULE_SETUP return tSWITCH;
	YY_BREAK case 37:
	  YY_RULE_SETUP return tCASE;
	YY_BREAK case 38:
	  YY_RULE_SETUP return tDEFAULT;
	YY_BREAK case 39:
	  YY_RULE_SETUP return tLOOP;
	YY_BREAK case 40:
	  YY_RULE_SETUP return tDO;
	YY_BREAK case 41:
	  YY_RULE_SETUP return tTO;
	YY_BREAK case 42:
	  YY_RULE_SETUP return tAS;
	YY_BREAK case 43:
	  YY_RULE_SETUP return tREADING;
	YY_BREAK case 44:
	  YY_RULE_SETUP return tWRITING;
	YY_BREAK case 45:
	  YY_RULE_SETUP return tSTEP;
	YY_BREAK case 46:
	  YY_RULE_SETUP return tNEXT;
	YY_BREAK case 47:
	  YY_RULE_SETUP return tWHILE;
	YY_BREAK case 48:
	  YY_RULE_SETUP return tWEND;
	YY_BREAK case 49:
	  YY_RULE_SETUP return tREPEAT;
	YY_BREAK case 50:
	  YY_RULE_SETUP return tUNTIL;
	YY_BREAK case 51:
	  YY_RULE_SETUP return tGOTO;
	YY_BREAK case 52:
	  YY_RULE_SETUP return tGOSUB;
	YY_BREAK case 53:
	  YY_RULE_SETUP return tSUB;
	YY_BREAK case 54:
	  YY_RULE_SETUP return tSUB;
	YY_BREAK case 55:
	  YY_RULE_SETUP return tLOCAL;
	YY_BREAK case 56:
	  YY_RULE_SETUP return tSTATIC;
	YY_BREAK case 57:
	  YY_RULE_SETUP return tON;
	YY_BREAK case 58:
	  YY_RULE_SETUP return tINTERRUPT;
	YY_BREAK case 59:
	  YY_RULE_SETUP return tCONTINUE;
	YY_BREAK case 60:
	  YY_RULE_SETUP return tLABEL;
	YY_BREAK case 61:
	  YY_RULE_SETUP return tIF;
	YY_BREAK case 62:
	  YY_RULE_SETUP return tTHEN;
	YY_BREAK case 63:
	  YY_RULE_SETUP return tELSE;
	YY_BREAK case 64:
	  YY_RULE_SETUP return tELSIF;
	YY_BREAK case 65:
	  YY_RULE_SETUP return tELSIF;
	YY_BREAK case 66:
	  YY_RULE_SETUP return tENDIF;
	YY_BREAK case 67:
	  YY_RULE_SETUP return tENDIF;
	YY_BREAK case 68:
	  YY_RULE_SETUP return tOPEN;
	YY_BREAK case 69:
	  YY_RULE_SETUP return tCLOSE;
	YY_BREAK case 70:
	  YY_RULE_SETUP return tSEEK;
	YY_BREAK case 71:
	  YY_RULE_SETUP return tTELL;
	YY_BREAK case 72:
	  YY_RULE_SETUP return tPRINT;
	YY_BREAK case 73:
	  YY_RULE_SETUP return tUSING;
	YY_BREAK case 74:
	  YY_RULE_SETUP return tREVERSE;
	YY_BREAK case 75:
	  YY_RULE_SETUP return tCOLOUR;
	YY_BREAK case 76:
	  YY_RULE_SETUP return tCOLOUR;
	YY_BREAK case 77:
	  YY_RULE_SETUP return tBACKCOLOUR;
	YY_BREAK case 78:
	  YY_RULE_SETUP return tBACKCOLOUR;
	YY_BREAK case 79:
	  YY_RULE_SETUP return tPRINT;
	YY_BREAK case 80:
	  YY_RULE_SETUP return tINPUT;
	YY_BREAK case 81:
	  YY_RULE_SETUP return tRETURN;
	YY_BREAK case 82:
	  YY_RULE_SETUP return tDIM;
	YY_BREAK case 83:
	  YY_RULE_SETUP return tDIM;
	YY_BREAK case 84:
	  YY_RULE_SETUP return tEND;
	YY_BREAK case 85:
	  YY_RULE_SETUP return tEXIT;
	YY_BREAK case 86:
	  YY_RULE_SETUP return tREAD;
	YY_BREAK case 87:
	  YY_RULE_SETUP return tDATA;
	YY_BREAK case 88:
	  YY_RULE_SETUP return tRESTORE;
	YY_BREAK case 89:
	  YY_RULE_SETUP return tAND;
	YY_BREAK case 90:
	  YY_RULE_SETUP return tOR;
	YY_BREAK case 91:
	  YY_RULE_SETUP return tNOT;
	YY_BREAK case 92:
	  YY_RULE_SETUP return tEOR;
	YY_BREAK case 93:
	  YY_RULE_SETUP return tEOR;
	YY_BREAK case 94:
	  YY_RULE_SETUP return tWINDOW;
	YY_BREAK case 95:
	  YY_RULE_SETUP return tORIGIN;
	YY_BREAK case 96:
	  YY_RULE_SETUP return tPRINTER;
	YY_BREAK case 97:
	  YY_RULE_SETUP return tDOT;
	YY_BREAK case 98:
	  YY_RULE_SETUP return tLINE;
	YY_BREAK case 99:
	  YY_RULE_SETUP return tCURVE;
	YY_BREAK case 100:
	  YY_RULE_SETUP return tCIRCLE;
	YY_BREAK case 101:
	  YY_RULE_SETUP return tTRIANGLE;
	YY_BREAK case 102:
	  YY_RULE_SETUP return tCLEAR;
	YY_BREAK case 103:
	  YY_RULE_SETUP return tFILL;
	YY_BREAK case 104:
	  YY_RULE_SETUP return tFILL;
	YY_BREAK case 105:
	  YY_RULE_SETUP return tTEXT;
	YY_BREAK case 106:
	  YY_RULE_SETUP return tRECT;
	YY_BREAK case 107:
	  YY_RULE_SETUP return tRECT;
	YY_BREAK case 108:
	  YY_RULE_SETUP return tRECT;
	YY_BREAK case 109:
	  YY_RULE_SETUP return tPUTBIT;
	YY_BREAK case 110:
	  YY_RULE_SETUP return tPUTBIT;
	YY_BREAK case 111:
	  YY_RULE_SETUP return tPUTBIT;
	YY_BREAK case 112:
	  YY_RULE_SETUP return tGETBIT;
	YY_BREAK case 113:
	  YY_RULE_SETUP return tGETBIT;
	YY_BREAK case 114:
	  YY_RULE_SETUP return tGETBIT;
	YY_BREAK case 115:
	  YY_RULE_SETUP return tPUTCHAR;
	YY_BREAK case 116:
	  YY_RULE_SETUP return tGETCHAR;
	YY_BREAK case 117:
	  YY_RULE_SETUP return tNEW;
	YY_BREAK case 118:
	  YY_RULE_SETUP return tWAIT;
	YY_BREAK case 119:
	  YY_RULE_SETUP return tWAIT;
	YY_BREAK case 120:
	  YY_RULE_SETUP return tWAIT;
	YY_BREAK case 121:
	  YY_RULE_SETUP return tBELL;
	YY_BREAK case 122:
	  YY_RULE_SETUP return tBELL;
	YY_BREAK case 123:
	  YY_RULE_SETUP return tLET;
	YY_BREAK case 124:
	  YY_RULE_SETUP return tARDIM;
	YY_BREAK case 125:
	  YY_RULE_SETUP return tARDIM;
	YY_BREAK case 126:
	  YY_RULE_SETUP return tARSIZE;
	YY_BREAK case 127:
	  YY_RULE_SETUP
	  {
	    yylval.symbol = (char *) my_strdup ("numparams");
	    return tSYMBOL;
	  }
	YY_BREAK case 128:
	  YY_RULE_SETUP return tBIND;
	YY_BREAK case 129:
	  YY_RULE_SETUP return tSIN;
	YY_BREAK case 130:
	  YY_RULE_SETUP return tASIN;
	YY_BREAK case 131:
	  YY_RULE_SETUP return tCOS;
	YY_BREAK case 132:
	  YY_RULE_SETUP return tACOS;
	YY_BREAK case 133:
	  YY_RULE_SETUP return tTAN;
	YY_BREAK case 134:
	  YY_RULE_SETUP return tATAN;
	YY_BREAK case 135:
	  YY_RULE_SETUP return tEXP;
	YY_BREAK case 136:
	  YY_RULE_SETUP return tLOG;
	YY_BREAK case 137:
	  YY_RULE_SETUP return tSQRT;
	YY_BREAK case 138:
	  YY_RULE_SETUP return tSQR;
	YY_BREAK case 139:
	  YY_RULE_SETUP return tINT;
	YY_BREAK case 140:
	  YY_RULE_SETUP return tFRAC;
	YY_BREAK case 141:
	  YY_RULE_SETUP return tABS;
	YY_BREAK case 142:
	  YY_RULE_SETUP return tSIG;
	YY_BREAK case 143:
	  YY_RULE_SETUP return tMOD;
	YY_BREAK case 144:
	  YY_RULE_SETUP return tRAN;
	YY_BREAK case 145:
	  YY_RULE_SETUP return tMIN;
	YY_BREAK case 146:
	  YY_RULE_SETUP return tMAX;
	YY_BREAK case 147:
	  YY_RULE_SETUP return tLEFT;
	YY_BREAK case 148:
	  YY_RULE_SETUP return tRIGHT;
	YY_BREAK case 149:
	  YY_RULE_SETUP return tMID;
	YY_BREAK case 150:
	  YY_RULE_SETUP return tLOWER;
	YY_BREAK case 151:
	  YY_RULE_SETUP return tUPPER;
	YY_BREAK case 152:
	  YY_RULE_SETUP return tLTRIM;
	YY_BREAK case 153:
	  YY_RULE_SETUP return tRTRIM;
	YY_BREAK case 154:
	  YY_RULE_SETUP return tTRIM;
	YY_BREAK case 155:
	  YY_RULE_SETUP return tINSTR;
	YY_BREAK case 156:
	  YY_RULE_SETUP return tRINSTR;
	YY_BREAK case 157:
	  YY_RULE_SETUP return tLEN;
	YY_BREAK case 158:
	  YY_RULE_SETUP return tVAL;
	YY_BREAK case 159:
	  YY_RULE_SETUP return tMYEOF;
	YY_BREAK case 160:
	  YY_RULE_SETUP return tSTR;
	YY_BREAK case 161:
	  YY_RULE_SETUP return tINKEY;
	YY_BREAK case 162:
	  YY_RULE_SETUP return tMOUSEX;
	YY_BREAK case 163:
	  YY_RULE_SETUP return tMOUSEY;
	YY_BREAK case 164:
	  YY_RULE_SETUP return tMOUSEB;
	YY_BREAK case 165:
	  YY_RULE_SETUP return tMOUSEB;
	YY_BREAK case 166:
	  YY_RULE_SETUP return tMOUSEMOD;
	YY_BREAK case 167:
	  YY_RULE_SETUP return tMOUSEMOD;
	YY_BREAK case 168:
	  YY_RULE_SETUP return tCHR;
	YY_BREAK case 169:
	  YY_RULE_SETUP return tASC;
	YY_BREAK case 170:
	  YY_RULE_SETUP return tHEX;
	YY_BREAK case 171:
	  YY_RULE_SETUP return tBIN;
	YY_BREAK case 172:
	  YY_RULE_SETUP return tDEC;
	YY_BREAK case 173:
	  YY_RULE_SETUP return tAT;
	YY_BREAK case 174:
	  YY_RULE_SETUP return tAT;
	YY_BREAK case 175:
	  YY_RULE_SETUP return tSCREEN;
	YY_BREAK case 176:
	  YY_RULE_SETUP return tSYSTEM;
	YY_BREAK case 177:
	  YY_RULE_SETUP return tSYSTEM2;
	YY_BREAK case 178:
	  YY_RULE_SETUP return tDATE;
	YY_BREAK case 179:
	  YY_RULE_SETUP return tTIME;
	YY_BREAK case 180:
	  YY_RULE_SETUP return tPEEK;
	YY_BREAK case 181:
	  YY_RULE_SETUP return tPEEK2;
	YY_BREAK case 182:
	  YY_RULE_SETUP return tPOKE;
	YY_BREAK case 183:
	  YY_RULE_SETUP return tTOKEN;
	YY_BREAK case 184:
	  YY_RULE_SETUP return tTOKENALT;
	YY_BREAK case 185:
	  YY_RULE_SETUP return tSPLIT;
	YY_BREAK case 186:
	  YY_RULE_SETUP return tSPLITALT;
	YY_BREAK case 187:
	  YY_RULE_SETUP return tGLOB;
	YY_BREAK case 188:
	  YY_RULE_SETUP return tPOW;
	YY_BREAK case 189:
	  YY_RULE_SETUP return tPOW;
	YY_BREAK case 190:
	  YY_RULE_SETUP return tNEQ;
	YY_BREAK case 191:
	  YY_RULE_SETUP return tLEQ;
	YY_BREAK case 192:
	  YY_RULE_SETUP return tGEQ;
	YY_BREAK case 193:
	  YY_RULE_SETUP return tEQU;
	YY_BREAK case 194:
	  YY_RULE_SETUP return tLTN;
	YY_BREAK case 195:
	  YY_RULE_SETUP return tGTN;
	YY_BREAK case 196:
	  YY_RULE_SETUP return tNOT;
	YY_BREAK case 197:
	  YY_RULE_SETUP
	  {
	    return yytext[0];
	  }
	YY_BREAK case 198:
	  YY_RULE_SETUP
	  {
	    yylval.digits = (char *) my_strdup (yytext);
	    return tDIGITS;
	  }
	YY_BREAK case 199:
	  YY_RULE_SETUP
	  {
	    {
	      double d;
	      sscanf (yytext, "%lg", &d);
	      yylval.fnum = d;
	      return tFNUM;
	    }
	  }
	YY_BREAK case 200:
	  YY_RULE_SETUP
	  {
	    yylval.fnum = 3.1415926535897932;
	    return tFNUM;
	  }
	YY_BREAK case 201:
	  YY_RULE_SETUP
	  {
	    yylval.fnum = 2.7182818284590452;
	    return tFNUM;
	  }
	YY_BREAK case 202:
	  YY_RULE_SETUP
	  {
	    yylval.fnum = 1;
	    return tFNUM;
	  }
	YY_BREAK case 203:
	  YY_RULE_SETUP
	  {
	    yylval.fnum = 0;
	    return tFNUM;
	  }
	YY_BREAK case 204:
	  YY_RULE_SETUP
	  {
	    yylval.symbol = (char *) my_strdup (yytext);
	    return tSYMBOL;
	  }
	  YY_BREAK
/* Symbols with a trailing $-sign are treated special */
	case 205:
	  YY_RULE_SETUP
	  {
	    yyl