1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
%{
/**************************************************************************\
*
* This file is part of the Coin 3D visualization library.
* Copyright (C) by Kongsberg Oil & Gas Technologies.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* ("GPL") version 2 as published by the Free Software Foundation.
* See the file LICENSE.GPL at the root directory of this source
* distribution for additional information about the GNU GPL.
*
* For using Coin with software that can not be combined with the GNU
* GPL, and for taking advantage of the additional benefits of our
* support services, please contact Kongsberg Oil & Gas Technologies
* about acquiring a Coin Professional Edition License.
*
* See http://www.coin3d.org/ for more information.
*
* Kongsberg Oil & Gas Technologies, Bygdoy Alle 5, 0257 Oslo, NORWAY.
* http://www.sim.no/ sales@sim.no coin-support@coin3d.org
*
\**************************************************************************/
#ifndef COIN_INTERNAL
#error this is a private header file
#endif /* !COIN_INTERNAL */
/*
* Lexical scanner for SoCalculator. Compile into lexical scanner
* lex.so_eval.c with
*
* flex -oso_eval.ic -L evaluator.l
*
* (Note: flex version should be 2.5.4, since this is what is
* installed on nfs.sim.no).
*
* Flex 2.5.4 generates code that includes unitstd.h. unistd.h does
* not exist on the windows platform. You therefore need to apply
* a patch after running flex:
*
* patch -p0 < so_eval.diff
*
*/
#include <Inventor/C/basic.h>
#include <float.h>
#include <stdlib.h>
#include "engines/evaluator.h"
%}
%option noyywrap
%option prefix="so_eval"
Digit [0-9]
Space [ \t\n]
Exp [eE][+-]?{Digit}+
%%
{Space}+ ;
"<=" { yylval.id = ID_LEQ; return LEX_COMPARE; }
">=" { yylval.id = ID_GEQ; return LEX_COMPARE; }
"<" { yylval.id = ID_LT; return LEX_COMPARE; }
">" { yylval.id = ID_GT; return LEX_COMPARE; }
"==" return LEX_EQ;
"!=" return LEX_NEQ;
"&&" return LEX_AND;
"||" return LEX_OR;
"-" return '-';
[!+*/=\[\]%?:(),;] return(yytext[0]);
MAXFLOAT { yylval.value = FLT_MAX; return LEX_VALUE; }
MINFLOAT { yylval.value = FLT_MIN; return LEX_VALUE; }
M_E { yylval.value = (float)M_E; return LEX_VALUE; }
M_LOG2E { yylval.value = (float)M_LOG2E; return LEX_VALUE; }
M_LOG10E { yylval.value = (float)M_LOG10E; return LEX_VALUE; }
M_LN2 { yylval.value = (float)M_LN2; return LEX_VALUE; }
M_PI { yylval.value = (float)M_PI; return LEX_VALUE; }
M_SQRT2 { yylval.value = (float)M_SQRT2; return LEX_VALUE; }
M_SQRT1_2 { yylval.value = (float)M_SQRT1_2; return LEX_VALUE; }
cos { yylval.id = ID_COS; return LEX_FLTFUNC; }
sin { yylval.id = ID_SIN; return LEX_FLTFUNC; }
tan { yylval.id = ID_TAN; return LEX_FLTFUNC; }
acos { yylval.id = ID_ACOS; return LEX_FLTFUNC; }
asin { yylval.id = ID_ASIN; return LEX_FLTFUNC; }
atan { yylval.id = ID_ATAN; return LEX_FLTFUNC; }
atan2 return LEX_ATAN2;
cosh { yylval.id = ID_COSH; return LEX_FLTFUNC; }
sinh { yylval.id = ID_SINH; return LEX_FLTFUNC; }
tanh { yylval.id = ID_TANH; return LEX_FLTFUNC; }
sqrt { yylval.id = ID_SQRT; return LEX_FLTFUNC; }
pow return LEX_POW;
exp { yylval.id = ID_EXP; return LEX_FLTFUNC; }
log { yylval.id = ID_LOG; return LEX_FLTFUNC; }
log10 { yylval.id = ID_LOG10; return LEX_FLTFUNC; }
ceil { yylval.id = ID_CEIL; return LEX_FLTFUNC; }
floor { yylval.id = ID_FLOOR; return LEX_FLTFUNC; }
fabs { yylval.id = ID_FABS; return LEX_FLTFUNC; }
fmod return LEX_FMOD;
rand { yylval.id = ID_RAND; return LEX_FLTFUNC; }
cross { return LEX_CROSS; }
dot { return LEX_DOT; }
length { return LEX_LEN; }
normalize { return LEX_NORMALIZE; }
vec3f { return LEX_VEC3F; }
{Digit}*"."{Digit}*{Exp}? { yylval.value = (float)atof(yytext); return LEX_VALUE; }
{Digit}+{Exp}? { yylval.value = (float)atof(yytext); return LEX_VALUE; }
t[a-h] { yylval.reg = yytext[1]; return LEX_TMP_FLT_REG; }
o[a-d] { yylval.reg = yytext[1]; return LEX_OUT_FLT_REG; }
[a-h] { yylval.reg = yytext[0]; return LEX_IN_FLT_REG; }
t[A-H] { yylval.reg = yytext[1]; return LEX_TMP_VEC_REG; }
o[A-D] { yylval.reg = yytext[1]; return LEX_OUT_VEC_REG; }
[A-H] { yylval.reg = yytext[0]; return LEX_IN_VEC_REG; }
. { return LEX_ERROR; }
%%
|