gcalctool/ce_tokeniser.l

   1 %option noyywrap
   2
   3 %{
   4
   5 /*  $Header: /cvs/gnome/gcalctool/gcalctool/ce_tokeniser.l,v 1.16 2006/12/15 15:27:37 richb Exp $
   6  *
   7  *  Copyright (C) 2004-2007 Sami Pietila
   8  *
   9  *  This program is free software; you can redistribute it and/or modify
  10  *  it under the terms of the GNU General Public License as published by
  11  *  the Free Software Foundation; either version 2, or (at your option)
  12  *  any later version.
  13  *
  14  *  This program is distributed in the hope that it will be useful, but
  15  *  WITHOUT ANY WARRANTY; without even the implied warranty of
  16  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  17  *  General Public License for more details.
  18  *
  19  *  You should have received a copy of the GNU General Public License
  20  *  along with this program; if not, write to the Free Software
  21  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  22  *  02111-1307, USA.
  23  */
  24
  25 #include <stdlib.h>
  26 #include <locale.h>
  27 #include <string.h>
  28 #include <sys/types.h>
  29 #include "calctool.h"
  30 #include "display.h"
  31 #include "mpmath.h"
  32 #include "functions.h" /* FIXME: Needed for gc_strdup() */
  33 #include "ce_parser.h"
  34 #include "ce_parser.tab.h"
  35 %}
  36
  37 DECIMAL "."|","
  38 SIGN    "+"|"-"
  39 CHARACTER [a-z]|[A-Z]
  40 BIN     [0-1]
  41 OCT     [0-7]
  42 DEC     [0-9]
  43 HEX     [0-9]|[A-F]|[a-f]
  44 EXP     "e+"|"e-"|"E+"|"E-"
  45 NEP     "e"
  46 HEX_NUM {HEX}+|{HEX}*{DECIMAL}{HEX}+
  47 DEC_NUM{DEC}+|{DEC}*{DECIMAL}{DEC}+
  48 OCT_NUM{OCT}+|{OCT}*{DECIMAL}{OCT}+
  49 BIN_NUM{BIN}+|{BIN}*{DECIMAL}{BIN}+
  50
  51 %%
  52
  53 "abs"|"Abs"|"ABS" {return tABS;}
  54 "acosh"|"Acosh"|"ACOSH" {return tACOSH;}
  55 "acos"|"Acos"|"ACOS" {return tACOS;}
  56 "and"|"And"|"AND" {return tAND;}
  57 "ans"|"Ans"|"ANS" {return tANS;}
  58 "asinh"|"Asinh"|"ASINH" {return tASINH;}
  59 "asin"|"Asin"|"ASIN" {return tASIN;}
  60 "atanh"|"Atanh"|"ATANH" {return tATANH;}
  61 "atan"|"Atan"|"ATAN" {return tATAN;}
  62 "cbrt"|"Cbrt"|"CBRT" {return tCBRT;}
  63 "chs"|"Chs"|"CHS" {return tCHS;}
  64 "clr"|"Clr"|"CLR" {return tCLR;}
  65 "cosh"|"Cosh"|"COSH" {return tCOSH;}
  66 "cos"|"Cos"|"COS" {return tCOS;}
  67 "ctrm"|"Ctrm"|"CTRM" {return tCTRM;}
  68 "dbg"|"Ddb"|"DDB" {return tDDB;}
  69 "eng"|"Eng"|"ENG" {return tEXP;}
  70 "frac"|"Frac"|"FRAC" {return tFRAC;}
  71 "fv"|"Fv"|"FV" {return tFV;}
  72 "int"|"Int"|"INT" {return tINT;}
  73 "ln"|"Ln"|"LN" {return tLN;}
  74 "log"|"Log"|"LOG" {return tLOG10;}
  75 "mod"|"Mod"|"MOD" {return tMOD;}
  76 "not"|"Not"|"NOT" {return tNOT;}
  77 "or"|"Or"|"OR" {return tOR;}
  78 "pi"|"Pi"|"PI" {return tPI;}
  79 "pmt"|"Pmt"|"PMT" {return tPMT;}
  80 "pv"|"Pv"|"PV" {return tPV;}
  81 "rand"|"Rand"|"RAND" {return tRAND;}
  82 "rate"|"Rate"|"RATE" {return tRATE;}
  83 "rcl"|"Rcl"|"RCL" {return tRCL;}
  84 "sinh"|"Sinh"|"SINH" {return tSINH;}
  85 "sin"|"Sin"|"SIN" {return tSIN;}
  86 "sln"|"Sln"|"SLN" {return tSLN;}
  87 "sqrt"|"Sqrt"|"SQRT" {return tSQRT;}
  88 "sto"|"Sto"|"STO" {return tSTO;}
  89 "syd"|"Syd"|"SYD" {return tSYD;}
  90 "tanh"|"Tanh"|"TANH" {return tTANH;}
  91 "tan"|"Tan"|"TAN" {return tTAN;}
  92 "term"|"Term"|"TERM" {return tTERM;}
  93 "u16"|"u16"|"U16" {return tU16;}
  94 "u32"|"u32"|"U32" {return tU32;}
  95 "xnor"|"Xnor"|"XNOR" {return tXNOR;}
  96 "xor"|"Xor"|"XOR" {return tXOR;}
  97
  98 "R"{DEC}+ {
  99 celval.integer = atoi(yytext+1);
 100 return tREG;
 101 }
 102
 103
 104 {DEC_NUM}{EXP}{DEC_NUM} {
 105 if (v->base == HEX) REJECT;
 106 if (strlen(yytext) > MAX_DIGITS) parser_state.error = -PARSER_ERR_TOO_LONG_NUMBER;
 107 make_exp(yytext, celval.int_t);
 108 return tNUMBER;
 109 }
 110
 111 {BIN_NUM} {
 112 if (v->base != BIN) REJECT;
 113 if (strlen(yytext) > MAX_DIGITS) parser_state.error = -PARSER_ERR_TOO_LONG_NUMBER;
 114 MPstr_to_num(yytext, v->base, celval.int_t);
 115 return tNUMBER;
 116 }
 117
 118 {OCT_NUM} {
 119 if (v->base != OCT) REJECT;
 120 if (strlen(yytext) > MAX_DIGITS) parser_state.error = -PARSER_ERR_TOO_LONG_NUMBER;
 121 MPstr_to_num(yytext, v->base, celval.int_t);
 122 return tNUMBER;
 123 }
 124
 125 {DEC_NUM} {
 126 if (v->base != DEC) REJECT;
 127 if (strlen(yytext) > MAX_DIGITS) parser_state.error = -PARSER_ERR_TOO_LONG_NUMBER;
 128 MPstr_to_num(yytext, v->base, celval.int_t);
 129 return tNUMBER;
 130 }
 131
 132 {HEX_NUM} {
 133 if (v->base != HEX) REJECT;
 134 if (strlen(yytext) > MAX_DIGITS) parser_state.error = -PARSER_ERR_TOO_LONG_NUMBER;
 135 MPstr_to_num(yytext, v->base, celval.int_t);
 136 return tNUMBER;
 137 }
 138
 139
 140 [ \t\n]
 141 .        {return *yytext; }
 142
 143 %%
 144
 145 void
 146 reset_ce_tokeniser()
 147 {
 148 ce_flush_buffer(YY_CURRENT_BUFFER);
 149
 150 }
 151
 152 #if 0
 153 // EMPTY BLOCK
 154
 155
 156
 157 #endif