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
f3213aed
Commit
f3213aed
authored
May 30, 2016
by
Maxime Perrotin
Browse files
Add test case to exercise more ctypes
parent
844faa41
Changes
3
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-sequenceof/Makefile
0 → 100644
View file @
f3213aed
include
../shared.mk
all
:
test-ada test-llvm
edit
:
$(OPENGEODE)
test.pr
test-parse
:
$(OPENGEODE)
test.pr
--check
test-ada
:
$(OPENGEODE)
test.pr
--toAda
$(ASN1SCC)
-Ada
dataview.asn
-typePrefix
asn1Scc
-equal
$(GNATMAKE)
-O
$(O)
-c
*
.adb
$(GNATBIND)
-n
test.ali
simu
:
$(OPENGEODE)
test.pr
--shared
./test_simu.sh
test-c
:
$(OPENGEODE)
test.pr
--toC
$(ASN1SCC)
-c
dataview.asn
-typePrefix
asn1Scc
-equal
$(CC)
-O
$(O)
-c
*
.c
test-llvm
:
$(OPENGEODE)
test.pr
--llvm
-O
$(O)
$(LLC)
*
.ll
$(CC)
-O
$(O)
-c
*
.s
coverage
:
coverage run
-p
$(OPENGEODE)
test.pr
--toAda
.PHONY
:
all edit test-parse test-ada test-llvm coverage simu
tests/regression/test-sequenceof/dataview.asn
0 → 100644
View file @
f3213aed
TASTE-Dataview DEFINITIONS ::=
BEGIN
MySeqOf ::= SEQUENCE (SIZE (0..5)) OF BOOLEAN
MySeqOf2 ::= SEQUENCE (SIZE (0..2)) OF MySeqOf
MySeq ::= SEQUENCE {
a BOOLEAN,
b INTEGER (0..255)
}
MySeqOf3 ::= SEQUENCE (SIZE (3)) OF MySeq
END
tests/regression/test-sequenceof/test.pr
0 → 100644
View file @
f3213aed
SYSTEM test;
/* CIF TEXT (164, 303), (356, 219) */
-- Text area for declarations and comments
use datamodel comment 'dataview.asn';
signal seqof1(MySeqOf);
signal seqof2(MySeqOf2);
signal seqof3(MySeqOf3);
signal res1(MySeqof);
signal res2(MySeqof2);
signal res3(MySeqof3);
/* CIF ENDTEXT */
CHANNEL c
FROM ENV TO test WITH seqof1,
seqof2,
seqof3;
FROM test TO ENV WITH res1,
res2,
res3;
ENDCHANNEL;
BLOCK test;
SIGNALROUTE r
FROM ENV TO test WITH seqof1,
seqof2,
seqof3;
FROM test TO ENV WITH res1,
res2,
res3;
CONNECT c AND r;
/* CIF PROCESS (202, 142), (150, 75) */
PROCESS test;
/* CIF TEXT (435, 258), (287, 140) */
dcl s1 MySeqof,
s2 MySeqOf2,
s3 MySeqOf3;
/* CIF ENDTEXT */
/* CIF START (198, 56), (70, 35) */
START;
/* CIF NEXTSTATE (198, 106), (70, 35) */
NEXTSTATE wait;
/* CIF STATE (198, 106), (70, 35) */
STATE wait;
/* CIF INPUT (-21, 161), (123, 35) */
INPUT seqof1(s1);
/* CIF OUTPUT (-11, 211), (103, 38) */
OUTPUT res1(s1);
/* CIF NEXTSTATE (5, 267), (70, 35) */
NEXTSTATE -;
/* CIF INPUT (145, 161), (123, 35) */
INPUT seqof2(s2);
/* CIF OUTPUT (155, 211), (103, 38) */
OUTPUT res2(s2);
/* CIF NEXTSTATE (171, 264), (70, 35) */
NEXTSTATE wait;
/* CIF INPUT (311, 161), (123, 35) */
INPUT seqof3(s3);
/* CIF OUTPUT (321, 211), (103, 38) */
OUTPUT res3(s3);
/* CIF NEXTSTATE (337, 264), (70, 35) */
NEXTSTATE wait;
ENDSTATE;
ENDPROCESS test;
ENDBLOCK;
ENDSYSTEM;
\ 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