Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
OpenGEODE
Commits
fcf91e61
Commit
fcf91e61
authored
Feb 16, 2015
by
Maxime Perrotin
Browse files
Resolve expression that are always true (or false)
parent
42c4baca
Changes
2
Hide whitespace changes
Inline
Side-by-side
opengeode/ogParser.py
View file @
fcf91e61
...
...
@@ -1335,7 +1335,14 @@ def not_expression(root, context):
bty
=
find_basic_type
(
expr
.
expr
.
exprType
)
if
bty
.
kind
in
(
'BooleanType'
,
):
expr
.
exprType
=
BOOLEAN
if
expr
.
expr
.
is_raw
:
expr
.
expr
.
value
=
[
'true'
]
\
if
expr
.
expr
.
value
==
[
'false'
]
else
[
'false'
]
warnings
.
append
(
warning
(
root
,
'Expression is always '
+
expr
.
expr
.
value
[
0
]))
expr
=
expr
.
expr
else
:
expr
.
exprType
=
BOOLEAN
elif
bty
.
kind
==
'BitStringType'
:
expr
.
exprType
=
expr
.
expr
.
exprType
elif
bty
.
kind
==
'SequenceOfType'
and
\
...
...
tests/regression/test6/myfunction.pr
View file @
fcf91e61
/* CIF PROCESS (200, 143), (150, 75) */
PROCESS myfunction;
/* CIF TEXT (0, 17), (
296, 45
8) */
/* CIF TEXT (0, 17), (
345, 64
8) */
-- Timers defined in the interface view
-- Use SET_TIMER (value, timer name)
-- and RESET_TIMER (timer name) in a
...
...
@@ -31,166 +31,170 @@ dcl other String := 'World';
dcl bar SeqInt := { 1,1 };
dcl testenum MyEnum := world;
dcl VeryTrue t_boolean := not false;
/* CIF ENDTEXT */
/* CIF PROCEDURE (1172, 490), (
9
1, 35) */
/* CIF PROCEDURE (1172, 490), (1
04
, 35) */
PROCEDURE factorial;
/* CIF TEXT (29, 42), (2
15
, 53) */
/* CIF TEXT (29, 42), (2
69
, 53) */
fpar in N MyInteger,
in/out result MyInteger;
/* CIF ENDTEXT */
/* CIF START (298, 33), (70, 35) */
START;
/* CIF TASK (2
84
, 83), (
97
, 35) */
/* CIF TASK (2
75
, 83), (
116
, 35) */
TASK result := 1;
/* CIF TASK (
223
, 133), (2
20, 53
) */
/* CIF TASK (
194
, 133), (2
78, 68
) */
TASK for x in range(1, n+1):
result := (result * x) mod 255
endfor;
/* CIF RETURN (315, 2
0
1), (35, 35) */
/* CIF RETURN (315, 21
6
), (35, 35) */
RETURN ;
ENDPROCEDURE;
/* CIF START (603, 0), (76, 39) */
START;
/* CIF DECISION (587, 54), (107, 50) */
/* CIF TASK (541, 54), (200, 35) */
TASK verytrue := not false;
/* CIF DECISION (576, 104), (129, 50) */
DECISION someint + 1
/* CIF COMMENT (714,
6
1), (1
4
6, 35) */
/* CIF COMMENT (714,
11
1), (1
7
6, 35) */
COMMENT 'Test closed range';
/* CIF ANSWER (546, 1
2
4), (99, 33) */
/* CIF ANSWER (546, 1
7
4), (99, 33) */
(0:998):
/* CIF ANSWER (707, 1
2
4), (
99
, 2
3
) */
/* CIF ANSWER (707, 1
7
4), (
116
, 2
8
) */
(2:otherint):
ENDDECISION;
/* CIF TASK (5
6
2,
19
2), (1
57, 9
8) */
/* CIF TASK (5
4
2,
24
2), (1
98, 12
8) */
TASK for x in range(4):
call writeln(x);
endfor,
for x in range(0,4,1):
call writeln(x);
endfor
/* CIF COMMENT (
739
, 2
23
), (2
08
, 35) */
/* CIF COMMENT (
872
, 2
80
), (2
56
, 35) */
COMMENT 'Check consistent behaviour';
/* CIF PROCEDURECALL (5
5
3, 3
0
5), (17
5
, 35) */
/* CIF PROCEDURECALL (53
2
, 3
8
5), (
2
17, 35) */
CALL writeln(-(someint + 1))
/* CIF COMMENT (
748
, 3
05
), (2
26
,
3
8) */
/* CIF COMMENT (
850
, 3
34
), (2
83
,
4
8) */
COMMENT 'Test unary on expression result
should display -3';
/* CIF PROCEDURECALL (5
42, 35
5), (
197
, 35) */
/* CIF PROCEDURECALL (5
19, 43
5), (
244
, 35) */
CALL writeln(not(true or false))
/* CIF COMMENT (759,
35
5), (
187
,
3
8) */
/* CIF COMMENT (759,
40
5), (
232
,
4
8) */
COMMENT 'test unary on expression
should display FALSE';
/* CIF PROCEDURECALL (5
8
6, 4
0
5), (1
1
0, 35) */
/* CIF PROCEDURECALL (5
7
6, 4
8
5), (1
3
0, 35) */
CALL writeln(str)
/* CIF COMMENT (716, 4
0
5), (2
31
, 35) */
/* CIF COMMENT (716, 4
5
5), (2
85
, 35) */
COMMENT 'Test writeln with an octet string';
/* CIF PROCEDURECALL (5
8
6,
4
55), (1
1
0, 35) */
/* CIF PROCEDURECALL (5
7
6, 5
3
5), (1
3
0, 35) */
CALL writeln(str)
/* CIF COMMENT (716,
4
55), (
254
, 35) */
/* CIF COMMENT (716, 5
0
5), (
310
, 35) */
COMMENT 'Write again to check local variables';
/* CIF PROCEDURECALL (5
58
, 5
0
5), (1
65
, 35) */
/* CIF PROCEDURECALL (5
41
, 5
8
5), (1
99
, 35) */
CALL writeln(variable_str)
/* CIF COMMENT (743, 5
0
5), (
275
, 35) */
/* CIF COMMENT (743, 5
5
5), (
346
, 35) */
COMMENT 'Write a non-fixed length OCTET STRING';
/* CIF PROCEDURECALL (5
41, 55
5), (
199
, 38) */
/* CIF PROCEDURECALL (5
19, 63
5), (
244
, 38) */
CALL writeln(variable_str // '!!!')
/* CIF COMMENT (760,
55
6), (1
17
, 35) */
/* CIF COMMENT (760,
60
6), (1
40
, 35) */
COMMENT 'with APPEND';
/* CIF PROCEDURECALL (4
65
, 6
0
8), (
352
, 35) */
/* CIF PROCEDURECALL (4
21
, 6
8
8), (
440
, 35) */
CALL writeln(if someint>0 then variable_str else other fi)
/* CIF COMMENT (837, 6
0
8), (
275
, 35) */
/* CIF COMMENT (837, 6
5
8), (
346
, 35) */
COMMENT 'Write a non-fixed lenght OCTET STRING';
/* CIF PROCEDURECALL (5
5
2,
65
8), (
177
, 35) */
/* CIF PROCEDURECALL (5
3
2,
73
8), (
218
, 35) */
CALL writeln(1 + (-otherint))
/* CIF COMMENT (749,
65
8), (
266
, 35) */
/* CIF COMMENT (749,
70
8), (
333
, 35) */
COMMENT 'Test the op_minus in a sub-expression';
/* CIF PROCEDURECALL (
430
, 7
0
8), (
421
, 35) */
/* CIF PROCEDURECALL (
382
, 7
8
8), (
518
, 35) */
CALL writeln(-someint, if someint>0 then ' is ' else 'Foo' fi, not true)
/* CIF COMMENT (871, 7
0
8), (
291
, 35) */
/* CIF COMMENT (871, 7
5
8), (
364
, 35) */
COMMENT 'Various tests with strings, ternary, op_not';
/* CIF PROCEDURECALL (
514, 75
8), (
254
, 35) */
/* CIF PROCEDURECALL (
486, 83
8), (
310
, 35) */
CALL write(if someint>0 then 2 else 1 fi)
/* CIF COMMENT (
788, 758
), (2
20
, 35) */
/* CIF COMMENT (
894, 830
), (2
77
, 35) */
COMMENT 'test ternary with raw numbers';
/* CIF PROCEDURECALL (49
6
, 8
0
8), (
289
, 35) */
/* CIF PROCEDURECALL (4
5
9, 8
8
8), (
363
, 35) */
CALL write(if someint>0 then someint else 1 fi)
/* CIF COMMENT (8
05
, 8
08
), (3
0
8, 35) */
/* CIF COMMENT (8
63
, 8
91
), (3
8
8, 35) */
COMMENT 'test ternary with mixed variable/raw number';
/* CIF PROCEDURECALL (5
77, 85
8), (1
28
, 35) */
/* CIF PROCEDURECALL (5
63, 93
8), (1
56
, 35) */
CALL writeln(bar(1))
/* CIF COMMENT (7
25, 858
), (1
00
, 35) */
/* CIF COMMENT (7
44, 936
), (1
16
, 35) */
COMMENT 'test index';
/* CIF PROCEDURECALL (5
32
, 9
0
8), (21
7
, 35) */
/* CIF PROCEDURECALL (5
10
, 9
8
8), (2
6
1, 35) */
CALL writeln(opnot, ' ', not opnot)
/* CIF COMMENT (
769
, 9
08
), (
19
1, 35) */
/* CIF COMMENT (
814
, 9
94
), (
23
1, 35) */
COMMENT 'test op_not with variable';
/* CIF TASK (4
80, 95
8), (
321
, 35) */
/* CIF TASK (4
37, 103
8), (
408
, 35) */
TASK someInt := if someint = 0 then someint else 0 fi;
/* CIF TASK (5
42
, 10
0
8), (
197
, 35) */
/* CIF TASK (5
17
, 10
8
8), (
248
, 35) */
TASK otherint := num(testenum);
/* CIF PROCEDURECALL (
513
, 1
05
8), (
256
, 35) */
/* CIF PROCEDURECALL (
479
, 1
13
8), (
324
, 35) */
CALL writeln(otherint, num(testenum)+1)
/* CIF COMMENT (
78
9, 10
2
8), (
401, 9
8) */
/* CIF COMMENT (
91
9, 10
8
8), (
506, 12
8) */
COMMENT 'Will display 1 2 with the Ada generator
* even if the ASN.1 model specifies explicit values *
because Ada has no operator to get the explicit value,
even if it is set as representation clause. Enumerated values
are logical states, not integers in Ada - as in ASN.1
';
/* CIF DECISION (
504, 1134
), (
273
, 87) */
/* CIF DECISION (
465, 1202
), (
352
, 87) */
DECISION someint /=0 and then (10 / someInt > 0)
or else someint = 0
/* CIF COMMENT (
793, 1143
), (1
7
9,
6
8) */
/* CIF COMMENT (
889, 1239
), (
2
19,
8
8) */
COMMENT 'Using "and else" is the
short-circuit form. The
second part should not
be evaluated.';
/* CIF ANSWER (561, 1
241
), (7
0
, 2
3
) */
/* CIF ANSWER (561, 1
309
), (7
3
, 2
8
) */
(true):
/* CIF TASK (5
41
, 1
279
), (1
10
, 35) */
/* CIF TASK (5
30
, 1
352
), (1
35
, 35) */
TASK someInt := 2;
/* CIF PROCEDURECALL (5
3
7, 1
329
), (1
17
, 38) */
/* CIF PROCEDURECALL (5
2
7, 1
402
), (1
40
, 38) */
CALL writeln('OK');
/* CIF ANSWER (664, 1
241
), (7
0
, 2
3
) */
/* CIF ANSWER (664, 1
309
), (7
8
, 2
8
) */
(false):
ENDDECISION;
/* CIF NEXTSTATE (60
8
, 1
382
), (
65
, 33) */
/* CIF NEXTSTATE (60
5
, 1
455
), (
72
, 33) */
NEXTSTATE Wait;
/* CIF STATE (60
8
, 1
382
), (
65
, 33) */
/* CIF STATE (60
5
, 1
455
), (
72
, 33) */
STATE Wait;
/* CIF INPUT (865, 1
435
), (
89
, 33) */
/* CIF INPUT (865, 1
508
), (
104
, 33) */
INPUT mytimer;
/* CIF PROCEDURECALL (8
18
, 1
483
), (
182
, 33) */
/* CIF PROCEDURECALL (8
06
, 1
556
), (
221
, 33) */
CALL writeln('timer expired');
/* CIF PROCEDURECALL (8
2
9, 1
531
), (16
0
, 33) */
/* CIF PROCEDURECALL (8
1
9, 1
604
), (1
9
6, 33) */
CALL factorial(3, someint);
/* CIF NEXTSTATE (8
77
, 1
579
), (
65
, 33) */
/* CIF NEXTSTATE (8
81
, 1
652
), (
72
, 33) */
NEXTSTATE Wait;
/* CIF INPUT (421, 1
435
), (
181
, 33) */
/* CIF INPUT (421, 1
508
), (
217
, 33) */
INPUT start_something (toto);
/* CIF OUTPUT (3
76
, 1
483
), (
270
, 33) */
/* CIF OUTPUT (3
55
, 1
556
), (
348
, 33) */
OUTPUT result_data((toto+1) mod 2147483647);
/* CIF PROCEDURECALL (4
36
, 1
531
), (1
50
, 48) */
/* CIF PROCEDURECALL (4
40
, 1
604
), (1
78
, 48) */
CALL writeln
('Hello Toto', toto);
/* CIF PROCEDURECALL (4
13
, 1
594
), (
19
6, 33) */
/* CIF PROCEDURECALL (4
06
, 1
667
), (
24
6, 33) */
CALL set_timer(1000, myTimer);
/* CIF TASK (3
4
6, 1
642
), (330, 35) */
/* CIF TASK (36
4
, 1
715
), (330, 35) */
TASK largeReal := power(someReal, 2);
/* CIF PROCEDURECALL (2
8
2, 1
692
), (
458
, 35) */
/* CIF PROCEDURECALL (2
7
2, 1
765
), (
515
, 35) */
CALL writeln(someReal, ' ** 2' , ' == ', largeReal, ' (should be 2.25 )');
/* CIF TASK (4
11
, 1
742
), (2
01
, 35) */
/* CIF TASK (4
03
, 1
815
), (2
52
, 35) */
TASK someReal := float(someInt);
/* CIF TASK (3
91
, 1
792
), (
241
, 35) */
/* CIF TASK (3
76
, 1
865
), (
307
, 35) */
TASK someInt := fix(someReal) mod 255;
/* CIF TASK (43
5
, 1
842
), (15
2
, 35) */
/* CIF TASK (43
7
, 1
915
), (1
8
5, 35) */
TASK opnot := not opnot;
/* CIF TASK (4
30
, 1
892
), (
163
, 35) */
/* CIF TASK (4
29
, 1
965
), (
200
, 35) */
TASK 'someint := -someint'
/* CIF COMMENT (613, 1
892
), (
196
, 35) */
/* CIF COMMENT (613, 1
951
), (
243
, 35) */
COMMENT 'XXX should raise an error!';
/* CIF TASK (42
9
,
1942
), (
16
4, 35) */
/* CIF TASK (42
7
,
2015
), (
20
4, 35) */
TASK someint := (-8) mod 5;
/* CIF NEXTSTATE (4
80, 1992
), (
63
, 33) */
/* CIF NEXTSTATE (4
94, 2065
), (
70
, 33) */
NEXTSTATE wait;
ENDSTATE;
ENDPROCESS myfunction;
\ No newline at end of file
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment