diff options
Diffstat (limited to 'src/mp-equation-lexer.l')
| -rw-r--r-- | src/mp-equation-lexer.l | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/src/mp-equation-lexer.l b/src/mp-equation-lexer.l new file mode 100644 index 0000000..bbc9765 --- /dev/null +++ b/src/mp-equation-lexer.l @@ -0,0 +1,120 @@ +%option 8bit reentrant bison-locations +%option never-interactive +%option noyywrap noinput nounput +%option prefix="_mp_equation_" +%option extra-type="MPEquationParserState *" +%option outfile="mp-equation-lexer.c" header-file="mp-equation-lexer.h" + +%{ +/* Copyright (c) 2004-2008 Sami Pietila + * Copyright (c) 2008-2009 Robert Ancell + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + * 02111-1307, USA. + */ + +#include <stdlib.h> +#include <locale.h> +#include <string.h> +#include <sys/types.h> + +#include "mp-equation-private.h" +#include "mp-equation-parser.h" +#include "mp-equation.h" +%} + + +ZERO "0"|"٠"|"۰"|"߀"|"०"|"০"|"੦"|"૦"|"୦"|"௦"|"౦"|"೦"|"൦"|"๐"|"໐"|"༠"|"၀"|"႐"|"០"|"᠐"|"᥆"|"᧐"|"᭐"|"᮰"|"᱀"|"᱐"|"꘠"|"꣐"|"꤀"|"꩐"|"𐒠" +ONE "1"|"١"|"۱"|"߁"|"१"|"১"|"੧"|"૧"|"୧"|"௧"|"౧"|"೧"|"൧"|"๑"|"໑"|"༡"|"၁"|"႑"|"១"|"᠑"|"᥇"|"᧑"|"᭑"|"᮱"|"᱁"|"᱑"|"꘡"|"꣑"|"꤁"|"꩑"|"𐒡" +TWO "2"|"٢"|"۲"|"߂"|"२"|"২"|"੨"|"૨"|"୨"|"௨"|"౨"|"೨"|"൨"|"๒"|"໒"|"༢"|"၂"|"႒"|"២"|"᠒"|"᥈"|"᧒"|"᭒"|"᮲"|"᱂"|"᱒"|"꘢"|"꣒"|"꤂"|"꩒"|"𐒢" +THREE "3"|"٣"|"۳"|"߃"|"३"|"৩"|"੩"|"૩"|"୩"|"௩"|"౩"|"೩"|"൩"|"๓"|"໓"|"༣"|"၃"|"႓"|"៣"|"᠓"|"᥉"|"᧓"|"᭓"|"᮳"|"᱃"|"᱓"|"꘣"|"꣓"|"꤃"|"꩓"|"𐒣" +FOUR "4"|"٤"|"۴"|"߄"|"४"|"৪"|"੪"|"૪"|"୪"|"௪"|"౪"|"೪"|"൪"|"๔"|"໔"|"༤"|"၄"|"႔"|"៤"|"᠔"|"᥊"|"᧔"|"᭔"|"᮴"|"᱄"|"᱔"|"꘤"|"꣔"|"꤄"|"꩔"|"𐒤" +FIVE "5"|"٥"|"۵"|"߅"|"५"|"৫"|"੫"|"૫"|"୫"|"௫"|"౫"|"೫"|"൫"|"๕"|"໕"|"༥"|"၅"|"႕"|"៥"|"᠕"|"᥋"|"᧕"|"᭕"|"᮵"|"᱅"|"᱕"|"꘥"|"꣕"|"꤅"|"꩕"|"𐒥" +SIX "6"|"٦"|"۶"|"߆"|"६"|"৬"|"੬"|"૬"|"୬"|"௬"|"౬"|"೬"|"൬"|"๖"|"໖"|"༦"|"၆"|"႖"|"៦"|"᠖"|"᥌"|"᧖"|"᭖"|"᮶"|"᱆"|"᱖"|"꘦"|"꣖"|"꤆"|"꩖"|"𐒦" +SEVEN "7"|"٧"|"۷"|"߇"|"७"|"৭"|"੭"|"૭"|"୭"|"௭"|"౭"|"೭"|"൭"|"๗"|"໗"|"༧"|"၇"|"႗"|"៧"|"᠗"|"᥍"|"᧗"|"᭗"|"᮷"|"᱇"|"᱗"|"꘧"|"꣗"|"꤇"|"꩗"|"𐒧" +EIGHT "8"|"٨"|"۸"|"߈"|"८"|"৮"|"੮"|"૮"|"୮"|"௮"|"౮"|"೮"|"൮"|"๘"|"໘"|"༨"|"၈"|"႘"|"៨"|"᠘"|"᥎"|"᧘"|"᭘"|"᮸"|"᱈"|"᱘"|"꘨"|"꣘"|"꤈"|"꩘"|"𐒨" +NINE "9"|"٩"|"۹"|"߉"|"९"|"৯"|"੯"|"૯"|"୯"|"௯"|"౯"|"೯"|"൯"|"๙"|"໙"|"༩"|"၉"|"႙"|"៩"|"᠙"|"᥏"|"᧙"|"᭙"|"᮹"|"᱉"|"᱙"|"꘩"|"꣙"|"꤉"|"꩙"|"𐒩" +DECIMAL "."|"," +DEC {ZERO}|{ONE}|{TWO}|{THREE}|{FOUR}|{FIVE}|{SIX}|{SEVEN}|{EIGHT}|{NINE} +HEX {DEC}|[A-F]|[a-f] +SUPER_DIGITS "⁰"|"¹"|"²"|"³"|"⁴"|"⁵"|"⁶"|"⁷"|"⁸"|"⁹" +SUPER_MINUS "⁻" +SUB_DIGITS "₀"|"₁"|"₂"|"₃"|"₄"|"₅"|"₆"|"₇"|"₈"|"₉" +FRACTION "½"|"⅓"|"⅔"|"¼"|"¾"|"⅕"|"⅖"|"⅗"|"⅘"|"⅙"|"⅚"|"⅛"|"⅜"|"⅝"|"⅞" +GREEKS "α"|"β"|"γ"|"δ"|"ε"|"ζ"|"η"|"θ"|"ι"|"κ"|"λ"|"μ"|"ν"|"ξ"|"ο"|"π"|"ρ"|"ς"|"σ"|"τ"|"υ"|"φ"|"χ"|"ψ"|"ω" +DEGREES "°" +MINUTES "'" +SECONDS "\"" +LETTERS [a-zA-Z]|{GREEKS} + +SUP_NUM {SUPER_DIGITS}+ +NSUP_NUM {SUPER_MINUS}{SUPER_DIGITS}+ +SUB_NUM {SUB_DIGITS}+ +WORD {LETTERS}+ +DEC_NUM {DEC}+|{DEC}*{DECIMAL}{DEC}+ +DEF_NUM {HEX}+|{HEX}*{DECIMAL}{HEX}+ +BASE_NUM {HEX}+{SUB_NUM}|{HEX}*{DECIMAL}{HEX}+{SUB_NUM} +ANGLE_NUM {DEC_NUM}{DEGREES}|{DEC}+{DEGREES}{DEC_NUM}{MINUTES}|{DEC}+{DEGREES}{DEC}+{MINUTES}{DEC_NUM}{SECONDS} + +NUMBER {DEF_NUM}|{BASE_NUM}|{FRACTION}|{DEC}+{FRACTION}|{ANGLE_NUM} +VARIABLE {WORD}|{WORD}{SUB_NUM}|{GREEKS} + +MOD [mM][oO][dD] +AND "∧"|[aA][nN][dD] +OR "∨"|[oO][rR] +XOR "⊻"|"⊕"|[xX][oO][rR] +NOT "¬"|"~"|[nN][oO][tT] +RE "⃰ℜ" +IM "ℑ" +IN [iI][nN] + +%% + +"+" {return tADD;} +"-"|"−" {return tSUBTRACT;} +"*"|"×" {return tMULTIPLY;} +"/"|"∕"|"÷" {return tDIVIDE;} +{MOD} {return tMOD;} +"⌊" {return tLFLOOR;} +"⌋" {return tRFLOOR;} +"⌈" {return tLCEILING;} +"⌉" {return tRCEILING;} +"√" {return tROOT;} +"∛" {return tROOT3;} +"∜" {return tROOT4;} +{NOT} {return tNOT;} +{AND} {return tAND;} +{OR} {return tOR;} +{XOR} {return tXOR;} +{IN} {return tIN;} +{NUMBER} {if (mp_set_from_string(yytext, _mp_equation_get_extra(yyscanner)->options->base, &yylval->int_t) != 0) REJECT; return tNUMBER;} +{SUP_NUM} {yylval->integer = super_atoi(yytext); return tSUPNUM;} +{NSUP_NUM} {yylval->integer = super_atoi(yytext); return tNSUPNUM;} +{SUB_NUM} {yylval->integer = sub_atoi(yytext); return tSUBNUM;} +{VARIABLE} {\ + MPEquationParserState *state = _mp_equation_get_extra(yyscanner);\ + if (state->function_is_defined(state, yytext)) {\ + yylval->name = strdup(yytext);\ + return tFUNCTION;\ + }\ + else {\ + yylval->name = strdup(yytext);\ + return tVARIABLE;\ + }\ +} +[ \r\t\n] +. {return *yytext;} + +%% |