flex.c

一个小巧的BASIC解释器的源代码很小可它的确做到了

{return yytext[0];}
	YY_BREAK
case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(RET):
case YY_STATE_EOF(PRELNO):
case YY_STATE_EOF(POSTLNO):
{yylval.sep=0;return tEOFILE;}
	YY_BREAK
case 12:
YY_RULE_SETUP
{yylval.sep=1;return (interactive) ? tEOFILE:tSEP;}
	YY_BREAK
case 13:
YY_RULE_SETUP
{BEGIN INITIAL;unput(yytext[0]);}
	YY_BREAK
case 14:
YY_RULE_SETUP
{BEGIN RET;yylval.sep=1;return tSEP;}
	YY_BREAK
case 15:
YY_RULE_SETUP
{yylval.sep=0;return tSEP;}
	YY_BREAK
case 16:
YY_RULE_SETUP
{yylval.sep=1;return tSEP;}  /* comments span 'til end of line */
	YY_BREAK
case 17:
YY_RULE_SETUP
{yylval.sep=1;return tSEP;} /* '#' may introduce comments too */
	YY_BREAK
case 18:
YY_RULE_SETUP
return tFOR;
	YY_BREAK
case 19:
YY_RULE_SETUP
return tTO;
	YY_BREAK
case 20:
YY_RULE_SETUP
return tSTEP;
	YY_BREAK
case 21:
YY_RULE_SETUP
return tNEXT;
	YY_BREAK
case 22:
YY_RULE_SETUP
return tGOTO;
	YY_BREAK
case 23:
YY_RULE_SETUP
return tGOSUB;
	YY_BREAK
case 24:
YY_RULE_SETUP
return tON;
	YY_BREAK
case 25:
YY_RULE_SETUP
return tINTERRUPT;
	YY_BREAK
case 26:
YY_RULE_SETUP
return tBREAK;
	YY_BREAK
case 27:
YY_RULE_SETUP
return tCONTINUE;
	YY_BREAK
case 28:
YY_RULE_SETUP
return tLABEL;
	YY_BREAK
case 29:
YY_RULE_SETUP
return tIF;
	YY_BREAK
case 30:
YY_RULE_SETUP
return tTHEN;
	YY_BREAK
case 31:
YY_RULE_SETUP
return tELSE;
	YY_BREAK
case 32:
YY_RULE_SETUP
return tELSIF;
	YY_BREAK
case 33:
YY_RULE_SETUP
return tELSIF;
	YY_BREAK
case 34:
YY_RULE_SETUP
return tENDIF;
	YY_BREAK
case 35:
YY_RULE_SETUP
return tENDIF;
	YY_BREAK
case 36:
YY_RULE_SETUP
return tOPEN;
	YY_BREAK
case 37:
YY_RULE_SETUP
return tCLOSE;
	YY_BREAK
case 38:
YY_RULE_SETUP
return tPRINT;
	YY_BREAK
case 39:
YY_RULE_SETUP
return tUSING;
	YY_BREAK
case 40:
YY_RULE_SETUP
return tREVERSE;
	YY_BREAK
case 41:
YY_RULE_SETUP
return tPRINT;
	YY_BREAK
case 42:
YY_RULE_SETUP
return tINPUT;
	YY_BREAK
case 43:
YY_RULE_SETUP
return tRETURN;
	YY_BREAK
case 44:
YY_RULE_SETUP
return tDIM;
	YY_BREAK
case 45:
YY_RULE_SETUP
return tEND;
	YY_BREAK
case 46:
YY_RULE_SETUP
return tREAD;
	YY_BREAK
case 47:
YY_RULE_SETUP
return tDATA;
	YY_BREAK
case 48:
YY_RULE_SETUP
return tRESTORE;
	YY_BREAK
case 49:
YY_RULE_SETUP
return tAND;
	YY_BREAK
case 50:
YY_RULE_SETUP
return tOR;
	YY_BREAK
case 51:
YY_RULE_SETUP
return tNOT;
	YY_BREAK
case 52:
YY_RULE_SETUP
return tWINDOW;
	YY_BREAK
case 53:
YY_RULE_SETUP
return tORIGIN;
	YY_BREAK
case 54:
YY_RULE_SETUP
return tPRINTER;
	YY_BREAK
case 55:
YY_RULE_SETUP
return tDOT;
	YY_BREAK
case 56:
YY_RULE_SETUP
return tLINE;
	YY_BREAK
case 57:
YY_RULE_SETUP
return tCURVE;
	YY_BREAK
case 58:
YY_RULE_SETUP
return tCIRCLE;
	YY_BREAK
case 59:
YY_RULE_SETUP
return tCLEAR;
	YY_BREAK
case 60:
YY_RULE_SETUP
return tTEXT;
	YY_BREAK
case 61:
YY_RULE_SETUP
return tMAP;
	YY_BREAK
case 62:
YY_RULE_SETUP
return tXMAP;
	YY_BREAK
case 63:
YY_RULE_SETUP
return tXMAP;
	YY_BREAK
case 64:
YY_RULE_SETUP
return tYMAP;
	YY_BREAK
case 65:
YY_RULE_SETUP
return tYMAP;
	YY_BREAK
case 66:
YY_RULE_SETUP
return tARROW;
	YY_BREAK
case 67:
YY_RULE_SETUP
return tXTICK;
	YY_BREAK
case 68:
YY_RULE_SETUP
return tYTICK;
	YY_BREAK
case 69:
YY_RULE_SETUP
return tBOX;
	YY_BREAK
case 70:
YY_RULE_SETUP
return tRECT;
	YY_BREAK
case 71:
YY_RULE_SETUP
return tRECT;
	YY_BREAK
case 72:
YY_RULE_SETUP
return tRECT;
	YY_BREAK
case 73:
YY_RULE_SETUP
return tMARKER;
	YY_BREAK
case 74:
YY_RULE_SETUP
return tNEW;
	YY_BREAK
case 75:
YY_RULE_SETUP
return tWAIT;
	YY_BREAK
case 76:
YY_RULE_SETUP
return tWAIT;
	YY_BREAK
case 77:
YY_RULE_SETUP
return tBELL;
	YY_BREAK
case 78:
YY_RULE_SETUP
return tBELL;
	YY_BREAK
case 79:
YY_RULE_SETUP
return tSIN;
	YY_BREAK
case 80:
YY_RULE_SETUP
return tASIN;
	YY_BREAK
case 81:
YY_RULE_SETUP
return tCOS;
	YY_BREAK
case 82:
YY_RULE_SETUP
return tACOS;
	YY_BREAK
case 83:
YY_RULE_SETUP
return tTAN;
	YY_BREAK
case 84:
YY_RULE_SETUP
return tATAN;
	YY_BREAK
case 85:
YY_RULE_SETUP
return tEXP;
	YY_BREAK
case 86:
YY_RULE_SETUP
return tLOG;
	YY_BREAK
case 87:
YY_RULE_SETUP
return tSQRT;
	YY_BREAK
case 88:
YY_RULE_SETUP
return tSQR;
	YY_BREAK
case 89:
YY_RULE_SETUP
return tINT;
	YY_BREAK
case 90:
YY_RULE_SETUP
return tFRAC;
	YY_BREAK
case 91:
YY_RULE_SETUP
return tABS;
	YY_BREAK
case 92:
YY_RULE_SETUP
return tSIG;
	YY_BREAK
case 93:
YY_RULE_SETUP
return tMOD;
	YY_BREAK
case 94:
YY_RULE_SETUP
return tRAN;
	YY_BREAK
case 95:
YY_RULE_SETUP
return tMIN;
	YY_BREAK
case 96:
YY_RULE_SETUP
return tMAX;
	YY_BREAK
case 97:
YY_RULE_SETUP
return tLEFT;
	YY_BREAK
case 98:
YY_RULE_SETUP
return tRIGHT;
	YY_BREAK
case 99:
YY_RULE_SETUP
return tMID;
	YY_BREAK
case 100:
YY_RULE_SETUP
return tLOWER;
	YY_BREAK
case 101:
YY_RULE_SETUP
return tUPPER;
	YY_BREAK
case 102:
YY_RULE_SETUP
return tLTRIM;
	YY_BREAK
case 103:
YY_RULE_SETUP
return tRTRIM;
	YY_BREAK
case 104:
YY_RULE_SETUP
return tTRIM;
	YY_BREAK
case 105:
YY_RULE_SETUP
return tINSTR;
	YY_BREAK
case 106:
YY_RULE_SETUP
return tLEN;
	YY_BREAK
case 107:
YY_RULE_SETUP
return tVAL;
	YY_BREAK
case 108:
YY_RULE_SETUP
return tMYEOF;
	YY_BREAK
case 109:
YY_RULE_SETUP
return tSTR;
	YY_BREAK
case 110:
YY_RULE_SETUP
return tINKEY;
	YY_BREAK
case 111:
YY_RULE_SETUP
return tINKEY;
	YY_BREAK
case 112:
YY_RULE_SETUP
return tCHR;
	YY_BREAK
case 113:
YY_RULE_SETUP
return tASC;
	YY_BREAK
case 114:
YY_RULE_SETUP
return tAT;
	YY_BREAK
case 115:
YY_RULE_SETUP
return tAT;
	YY_BREAK
case 116:
YY_RULE_SETUP
return tSCREEN;
	YY_BREAK
case 117:
YY_RULE_SETUP
return tSYSTEM;
	YY_BREAK
case 118:
YY_RULE_SETUP
return tSYSTEM2;
	YY_BREAK
case 119:
YY_RULE_SETUP
return tDATE;
	YY_BREAK
case 120:
YY_RULE_SETUP
return tTIME;
	YY_BREAK
case 121:
YY_RULE_SETUP
return tPEEK;
	YY_BREAK
case 122:
YY_RULE_SETUP
return tPEEK2;
	YY_BREAK
case 123:
YY_RULE_SETUP
return tPOKE;
	YY_BREAK
case 124:
YY_RULE_SETUP
return tTOKEN;
	YY_BREAK
case 125:
YY_RULE_SETUP
return tNEQ;
	YY_BREAK
case 126:
YY_RULE_SETUP
return tLEQ;
	YY_BREAK
case 127:
YY_RULE_SETUP
return tGEQ;
	YY_BREAK
case 128:
YY_RULE_SETUP
return tEQU;
	YY_BREAK
case 129:
YY_RULE_SETUP
return tLTN;
	YY_BREAK
case 130:
YY_RULE_SETUP
return tGTN;
	YY_BREAK
case 131:
YY_RULE_SETUP
{return yytext[0];}
	YY_BREAK
case 132:
YY_RULE_SETUP
{
  yylval.digits=(char *)my_strdup(yytext);