/
aritval.h
49 lines (38 loc) · 1.22 KB
/
aritval.h
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
/*
IL : Intlog Language
Object Oriented Prolog Project
Copyright (C) 1992-2016 - Ing. Capelli Carlo
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 of the License, 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
*/
#ifndef _ARITVAL_H_
#define _ARITVAL_H_
#include "term.h"
class IntlogExec;
// recursive visit of expression tree
// return type of subexpression or ERR if some error found
//
struct AritValue
{
union {
Int i;
Double d;
CCP a;
};
enum {
IVAL, DBL, ATOM, ERR
} t;
void evalexpr(Term e, IntlogExec *p);
int compatible(AritValue &r);
static int strlist_int(Term v, Int &i);
};
#endif