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
17086320
Commit
17086320
authored
Nov 17, 2014
by
Maxime Perrotin
Browse files
Fix typo in Makefile
parent
0a732acc
Changes
3
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-debug/Makefile
View file @
17086320
...
...
@@ -19,10 +19,10 @@ test-python:
$(OPENGEODE)
orchestrator.pr system_structure.pr
--shared
$(ASN1SCC)
-Ada
dataview-uniq.asn
-typePrefix
asn1Scc
-equal
$(GNATMAKE)
-O
$(O)
-c
*
.adb
$(GNATBIND)
-n
-Llib
r
orchestrator
orchestrator
$(GNATBIND)
-n
-Lliborchestrator
orchestrator
$(GNATMAKE)
-c
b~orchestrator.adb
$(CC)
-shared
-o
liborchestrator.so b~orchestrator.o orchestrator.o taste_basictypes.o adaasn1rtl.o
-lgnat
python
-c
"from ctypes import *; test=CDLL('./liborchestrator.so'); test.lib
r
orchestratorinit()"
python
-c
"from ctypes import *; test=CDLL('./liborchestrator.so'); test.liborchestratorinit()"
coverage
:
coverage run
-p
$(OPENGEODE)
orchestrator.pr system_structure.pr
--toAda
...
...
tests/regression/test-debug/dataview-uniq.asn
View file @
17086320
...
...
@@ -10,7 +10,7 @@ FixedString ::= OCTET STRING (SIZE (5))
SeqBool ::= SEQUENCE (SIZE(1..5)) OF BOOLEAN
SeqBoolFix ::= SEQUENCE (SIZE(2)) OF BOOLEAN
SeqEnum ::= SEQUENCE (SIZE(1..5)) OF ENUMERATED { hello, world }
SeqEnum ::= SEQUENCE (SIZE(1..5)) OF ENUMERATED { hello
2
, world
2
}
SeqEnumFix ::= SEQUENCE (SIZE(2)) OF ENUMERATED { hello, world }
MyEnum ::= ENUMERATED {a, b, c, d, eE}
...
...
tests/regression/test-debug/orchestrator.pr
View file @
17086320
...
...
@@ -11,7 +11,7 @@ dcl seqboolean SeqBool := { true, false };
dcl seqbool2 SeqBoolFix := { true, false };
dcl seqen SeqEnum := { hello, world
};
dcl seqen SeqEnum := { hello
2
, world
2
};
dcl seqen2 SeqEnumFix := { hello, world };
...
...
@@ -23,9 +23,6 @@ dcl choice Mychoice;
dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
/* CIF ENDTEXT */
/* CIF PROCEDURE (1273, 175), (106, 35) */
PROCEDURE emptyproc;
ENDPROCEDURE;
/* CIF PROCEDURE (1306, 371), (91, 35) */
PROCEDURE numProc;
/* CIF START (161, 82), (70, 35) */
...
...
@@ -37,12 +34,15 @@ dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
ENDDECISION;
/* CIF DECISION (135, 240), (122, 50) */
DECISION num(myenum);
/* CIF ANSWER (163, 2
6
5), (70, 23) */
/* CIF ANSWER (163, 25
0
), (70, 23) */
else:
ENDDECISION;
/* CIF RETURN (178,
303
), (35, 35) */
/* CIF RETURN (178,
288
), (35, 35) */
RETURN ;
ENDPROCEDURE;
/* CIF PROCEDURE (1273, 175), (106, 35) */
PROCEDURE emptyproc;
ENDPROCEDURE;
/* CIF START (596, 224), (80, 36) */
START;
/* CIF TASK (564, 275), (144, 35) */
...
...
@@ -58,98 +58,98 @@ dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
ENDDECISION;
/* CIF DECISION (575, 433), (122, 50) */
DECISION num(myenum);
/* CIF ANSWER (547,
503
), (70, 23) */
/* CIF ANSWER (547,
488
), (70, 23) */
(0):
/* CIF ANSWER (644,
503
), (70, 23) */
/* CIF ANSWER (644,
488
), (70, 23) */
else:
ENDDECISION;
/* CIF DECISION (586, 5
41
), (99, 50) */
/* CIF DECISION (586, 5
26
), (99, 50) */
DECISION 'informal'
/* CIF COMMENT (716, 5
3
6), (179, 53) */
/* CIF COMMENT (716, 5
0
6), (179, 53) */
COMMENT 'Informal decision -
check that it is ignored
by the code generator';
/* CIF ANSWER (543,
61
1), (70, 33) */
/* CIF ANSWER (543,
58
1), (70, 33) */
('a'):
/* CIF ANSWER (647,
61
1), (70, 33) */
/* CIF ANSWER (647,
58
1), (70, 33) */
('2'):
ENDDECISION;
/* CIF TASK (524, 6
5
9), (223, 38) */
/* CIF TASK (524, 6
2
9), (223, 38) */
TASK seqboolean := {true, false},
seqboolean := not {true, false};
/* CIF TASK (532,
71
2), (208, 83) */
/* CIF TASK (532,
68
2), (208, 83) */
TASK for x in seqen:
call writeln(num(x));
call writeln(num(myenum));
call writeln(num(myenum));
endfor
/* CIF COMMENT (760, 7
3
6), (174, 38) */
/* CIF COMMENT (760, 7
0
6), (174, 38) */
COMMENT 'Check that num is not
declared twice';
/* CIF TASK (554, 8
1
0), (164, 53) */
/* CIF TASK (554,
7
80), (164, 53) */
TASK for x in seqen2:
call writeln(num(x));
endfor;
/* CIF TASK (555, 8
7
8), (162, 53) */
/* CIF TASK (555, 8
4
8), (162, 53) */
TASK for x in seqboolean:
call writeln(x);
endfor
/* CIF COMMENT (737, 8
8
7), (168, 38) */
/* CIF COMMENT (737, 8
5
7), (168, 38) */
COMMENT 'FOR with a basic type';
/* CIF TASK (525, 9
4
6), (222, 35) */
/* CIF TASK (525, 9
1
6), (222, 35) */
TASK seqboolean := not seqboolean
/* CIF COMMENT (767, 9
4
6), (279, 35) */
/* CIF COMMENT (767, 9
1
6), (279, 35) */
COMMENT 'check NOT on a SEQUENCE of BOOLEAN';
/* CIF TASK (555, 9
9
6), (162, 53) */
/* CIF TASK (555, 9
6
6), (162, 53) */
TASK for x in seqboolean:
call writeln(x);
endfor;
/* CIF TASK (573, 10
6
4), (126, 38) */
/* CIF TASK (573, 10
3
4), (126, 38) */
TASK fixed := 'hello';
/* CIF TASK (561, 1
11
7), (149, 35) */
/* CIF TASK (561, 1
08
7), (149, 35) */
TASK variable := 'HELLO';
/* CIF PROCEDURECALL (548, 11
6
7), (176, 35) */
/* CIF PROCEDURECALL (548, 11
3
7), (176, 35) */
CALL writeln(variable // '!!!');
/* CIF PROCEDURECALL (500, 1
2
17), (272, 35) */
/* CIF PROCEDURECALL (500, 11
8
7), (272, 35) */
CALL writeln(variable // variable // variable);
/* CIF TASK (590, 12
6
7), (91, 35) */
/* CIF TASK (590, 12
3
7), (91, 35) */
TASK seq := {1};
/* CIF TASK (559, 1
31
7), (153, 35) */
/* CIF TASK (559, 1
28
7), (153, 35) */
TASK seq := {1} // {2} // {3};
/* CIF TASK (550, 13
6
7), (172, 35) */
/* CIF TASK (550, 13
3
7), (172, 35) */
TASK seq := seq // {2} // {1};
/* CIF DECISION (601, 1
41
7), (70, 50) */
/* CIF DECISION (601, 1
38
7), (70, 50) */
DECISION any;
/* CIF ANSWER (556, 14
8
7), (70, 23) */
/* CIF ANSWER (556, 14
5
7), (70, 23) */
('a'):
/* CIF ANSWER (646, 14
8
7), (70, 23) */
/* CIF ANSWER (646, 14
5
7), (70, 23) */
('b'):
ENDDECISION;
/* CIF DECISION (591, 1
52
5), (89, 50) */
/* CIF DECISION (591, 1
49
5), (89, 50) */
DECISION myenum
/* CIF COMMENT (700, 15
3
2), (183, 35) */
/* CIF COMMENT (700, 15
0
2), (183, 35) */
COMMENT 'Check case insensitivity';
/* CIF ANSWER (408, 15
9
5), (70, 23) */
/* CIF ANSWER (408, 15
6
5), (70, 23) */
(a):
/* CIF ANSWER (488, 15
9
5), (70, 23) */
/* CIF ANSWER (488, 15
6
5), (70, 23) */
(B):
/* CIF ANSWER (568, 15
9
5), (70, 23) */
/* CIF ANSWER (568, 15
6
5), (70, 23) */
(c):
/* CIF ANSWER (646, 15
9
5), (70, 23) */
/* CIF ANSWER (646, 15
6
5), (70, 23) */
(d):
/* CIF ANSWER (734, 15
9
5), (70, 23) */
/* CIF ANSWER (734, 15
6
5), (70, 23) */
(Ee):
ENDDECISION;
/* CIF DECISION (567, 16
3
3), (138, 50) */
/* CIF DECISION (567, 16
0
3), (138, 50) */
DECISION present(choice)
/* CIF COMMENT (724, 16
4
0), (183, 35) */
/* CIF COMMENT (724, 16
1
0), (183, 35) */
COMMENT 'Check case insensitivity';
/* CIF ANSWER (519, 17
0
3), (70, 23) */
/* CIF ANSWER (519, 1
6
73), (70, 23) */
(cde2):
/* CIF ANSWER (690, 17
0
3), (70, 23) */
/* CIF ANSWER (690, 1
6
73), (70, 23) */
ELSE:
ENDDECISION;
/* CIF NEXTSTATE (577, 17
4
1), (116, 33) */
/* CIF NEXTSTATE (577, 17
1
1), (116, 33) */
NEXTSTATE Wait_for_GUI;
/* CIF STATE (1063, 119), (116, 33) */
STATE Wait_for_GUI;
...
...
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