/
VdmBasicTypes.h
126 lines (117 loc) · 3.37 KB
/
VdmBasicTypes.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
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
115
116
117
118
119
120
121
122
123
124
125
126
/*
* #%~
* The VDM to C Code Generator
* %%
* Copyright (C) 2015 - 2016 Overture
* %%
* 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 3 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, see
* <http:XXXwww.gnu.org/licenses/gpl-3.0.html>.
* #~%
*/
/*
* VdmBasicTypes.h
*
* Created on: Dec 8, 2015
* Author: kel
*/
#ifndef LIB_VDMBASICTYPES_H_
#define LIB_VDMBASICTYPES_H_
#include "Vdm.h"
#include "VdmGC.h"
#define ASSERT_CHECK_CHAR(s) assert((s->type == VDM_CHAR) && "Value is not a character")
/*
* Boolean
*/
TVP vdmNot(TVP arg);
TVP vdmNotGC(TVP arg, TVP *from);
TVP vdmAnd(TVP a,TVP b);
TVP vdmAndGC(TVP a, TVP b, TVP *from);
TVP vdmOr(TVP a,TVP b);
TVP vdmOrGC(TVP a, TVP b, TVP *from);
TVP vdmXor(TVP a,TVP b);
TVP vdmXorGC(TVP a, TVP b, TVP *from);
TVP vdmImplies(TVP a,TVP b);
TVP vdmImpliesGC(TVP a, TVP b, TVP *from);
TVP vdmBiimplication(TVP a,TVP b);
TVP vdmBiimplicationGC(TVP a, TVP b, TVP *from);
/*
* Numeric
*/
TVP vdmMinus(TVP arg);
TVP vdmMinusGC(TVP arg, TVP *from);
TVP vdmAbs(TVP arg);
TVP vdmAbsGC(TVP arg, TVP *from);
TVP vdmFloor(TVP arg);
TVP vdmFloorGC(TVP arg, TVP *from);
TVP vdmSum(TVP a,TVP b);
TVP vdmSumGC(TVP a,TVP b, TVP *from);
TVP vdmDifference(TVP a,TVP b);
TVP vdmDifferenceGC(TVP a,TVP b, TVP *from);
TVP vdmProduct(TVP a,TVP b);
TVP vdmProductGC(TVP a,TVP b, TVP *from);
TVP vdmDivision(TVP a,TVP b);
TVP vdmDivisionGC(TVP a,TVP b, TVP *from);
TVP vdmDiv(TVP a,TVP b);
TVP vdmDivGC(TVP a, TVP b, TVP *from);
TVP vdmRem(TVP a,TVP b);
TVP vdmRemGC(TVP a, TVP b, TVP *from);
TVP vdmMod(TVP a,TVP b);
TVP vdmModGC(TVP a, TVP b, TVP *from);
TVP vdmPower(TVP a,TVP b);
TVP vdmPowerGC(TVP a, TVP b, TVP *from);
TVP vdmNumericEqual(TVP a,TVP b);
TVP vdmNumericEqualGC(TVP a, TVP b, TVP *from);
TVP vdmGreaterThan(TVP a,TVP b);
TVP vdmGreaterThanGC(TVP a, TVP b, TVP *from);
TVP vdmGreaterOrEqual(TVP a,TVP b);
TVP vdmGreaterOrEqualGC(TVP a, TVP b, TVP *from);
TVP vdmLessThan(TVP a,TVP b);
TVP vdmLessThanGC(TVP a, TVP b, TVP *from);
TVP vdmLessOrEqual(TVP a,TVP b);
TVP vdmLessOrEqualGC(TVP a, TVP b, TVP *from);
/*
* internal use
*/
bool isNumber(TVP val);
TVP isInt(TVP val);
#ifndef NO_SEQS
TVP isSeq(TVP val);
#endif
#ifndef NO_SETS
TVP isSet(TVP val);
#endif
TVP isIntGC(TVP val, TVP *from);
TVP isReal(TVP val);
TVP isRealGC(TVP val, TVP *from);
TVP isBool(TVP val);
TVP isBoolGC(TVP val, TVP *from);
TVP isNat(TVP val);
TVP isNatGC(TVP val, TVP *from);
TVP isNat1(TVP val);
TVP isNat1GC(TVP val, TVP *from);
TVP isRat(TVP val);
TVP isRatGC(TVP val, TVP *from);
TVP isChar(TVP val);
TVP isCharGC(TVP val, TVP *from);
TVP isToken(TVP val);
TVP isTokenGC(TVP val, TVP *from);
TVP isOfClass(TVP val, int classID);
TVP isOfClassGC(TVP val, int classID, TVP *from);
TVP isRecord(TVP val, int recID);
TVP isRecordGC(TVP val, int recID, TVP *from);
TVP is(TVP v, char ot[]);
int toInteger(TVP a);
double toDouble(TVP a);
bool toBool(TVP a);
#endif /* LIB_VDMBASICTYPES_H_ */