Return to calclex.l CVS log

Up to [local] / OpenXM_contrib / gmp / demos

Annotation of OpenXM_contrib/gmp/demos/calclex.l, Revision 1.1

1.1     ! maekawa     1: /* Lexical analyzer for calc.y. */
        !             2:
        !             3: /*
        !             4: Copyright (C) 2000 Free Software Foundation, Inc.
        !             5:
        !             6: This file is part of the GNU MP Library.
        !             7:
        !             8: This program is free software; you can redistribute it and/or modify it under
        !             9: the terms of the GNU General Public License as published by the Free Software
        !            10: Foundation; either version 2 of the License, or (at your option) any later
        !            11: version.
        !            12:
        !            13: This program is distributed in the hope that it will be useful, but WITHOUT ANY
        !            14: WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
        !            15: PARTICULAR PURPOSE.  See the GNU General Public License for more details.
        !            16:
        !            17: You should have received a copy of the GNU General Public License along with
        !            18: this program; if not, write to the Free Software Foundation, Inc., 59 Temple
        !            19: Place - Suite 330, Boston, MA 02111-1307, USA.
        !            20: */
        !            21:
        !            22:
        !            23: %{
        !            24: #include "calc.h"
        !            25:
        !            26: #define numberof(x)  (sizeof (x) / sizeof ((x)[0]))
        !            27: %}
        !            28:
        !            29: %%
        !            30:
        !            31: [ \t\f] { /* white space is skipped */ }
        !            32:
        !            33: [;\n]   { /* semicolon or newline separates statements */
        !            34:           return EOS; }
        !            35: \\\n    { /* escaped newlines are skipped */ }
        !            36:
        !            37:
        !            38: #(([^\\\n]*)\\)+\n {
        !            39:             /* comment through to escaped newline is skipped */ }
        !            40: #[^\n]*\n { /* comment through to newline is a separator */
        !            41:             return EOS; }
        !            42: #[^\n]* {   /* comment through to EOF skipped */ }
        !            43:
        !            44:
        !            45: [-+*/%()<>^!=,] { return yytext[0]; }
        !            46: "<="    { return LE; }
        !            47: ">="    { return GE; }
        !            48: "=="    { return EQ; }
        !            49: "!="    { return NE; }
        !            50: "<<"    { return LSHIFT; }
        !            51: ">>"    { return RSHIFT; }
        !            52: "&&"    { return LAND; }
        !            53: "||"    { return LOR; }
        !            54:
        !            55: (0[xX])?[0-9A-F]+ {
        !            56:         yylval.str = yytext;
        !            57:         return NUMBER; }
        !            58:
        !            59: [a-zA-Z][a-zA-Z0-9]* {
        !            60:         static struct {
        !            61:           char  *name;
        !            62:           int   value;
        !            63:         } table[] = {
        !            64:           { "abs",       ABS },
        !            65:           { "bin",       BIN },
        !            66:           { "decimal",   DECIMAL },
        !            67:           { "fib",       FIB },
        !            68:           { "hex",       HEX },
        !            69:           { "gcd",       GCD },
        !            70:           { "lcm",       LCM },
        !            71:           { "nextprime", NEXTPRIME },
        !            72:           { "powm",      POWM },
        !            73:           { "quit",      QUIT },
        !            74:           { "root",      ROOT },
        !            75:           { "sqrt",      SQRT },
        !            76:         };
        !            77:         int  i;
        !            78:
        !            79:         for (i = 0; i < numberof (table); i++)
        !            80:           if (strcmp (yytext, table[i].name) == 0)
        !            81:             return table[i].value;
        !            82:
        !            83:         if (yytext[0] >= 'a' && yytext[0] <= 'z' && yytext[1] == '\0')
        !            84:           {
        !            85:             yylval.var = yytext[0] - 'a';
        !            86:             return VARIABLE;
        !            87:           }
        !            88:
        !            89:         return BAD;
        !            90: }
        !            91:
        !            92: . { return BAD; }
        !            93:
        !            94: %%
        !            95:
        !            96: int
        !            97: yywrap ()
        !            98: {
        !            99:   return 1;
        !           100: }