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
a6cfa99d
Commit
a6cfa99d
authored
Jun 04, 2014
by
dbarbera
Browse files
Extended test13 to include math expressions
parent
3c0e946d
Changes
5
Hide whitespace changes
Inline
Side-by-side
tests/regression/test13/Makefile
View file @
a6cfa99d
all
:
compile
generate-ada
:
../../../opengeode.py
adder
.pr system_structure.pr
--check
--toAda
../../../opengeode.py
math
.pr system_structure.pr
--check
--toAda
compile-ada
:
generate-ada
asn1.exe
-Ada
dataview-uniq.asn
-typePrefix
asn1Scc
-equal
gnatmake
-c
*
.adb
gcc
-c
test.c
gnatbind
-n
adder
.ali
gnatlink
-o
testcase test.o
adder
.ali
-lgnat
-lm
./testcase
| diff expected -
&&
echo
'All OK!'
gnatbind
-n
math
.ali
gnatlink
-o
testcase test.o
math
.ali
-lgnat
-lm
./testcase
&&
echo
'All OK!'
generate-llvm
:
../../../opengeode.py
adder
.pr system_structure.pr
--check
--llvm
../../../opengeode.py
math
.pr system_structure.pr
--check
--llvm
parse
:
../../../opengeode.py
adder
.pr system_structure.pr
--check
../../../opengeode.py
math
.pr system_structure.pr
--check
clean
:
rm
-rf
*
.adb
*
.ads
*
.pyc runSpark.sh spark.idx
*
.o
*
.ali gnat.cfg examiner bin
*
.wrn
*
.gpr testcase
tests/regression/test13/expected
deleted
100644 → 0
View file @
3c0e946d
1
2
3
tests/regression/test13/
adder
.pr
→
tests/regression/test13/
math
.pr
View file @
a6cfa99d
/* CIF PROCESS (150, 150), (150, 75) */
PROCESS
adder
;
PROCESS
math
;
/* CIF TEXT (176, -127), (198, 140) */
-- Declare your variables
DCL n Number;
/* CIF ENDTEXT */
/* CIF START (-86, -394), (100, 50) */
START;
...
...
@@ -16,11 +15,15 @@ NEXTSTATE Wait;
STATE Wait;
/* CIF INPUT (-85, -188), (100, 50) */
INPUT run;
/* CIF TASK (-
117
, -123), (
164, 49
) */
/* CIF TASK (-
80
, -123), (
91, 35
) */
TASK n := n + 1;
/* CIF PROCEDURECALL (-85, -59), (100, 35) */
CALL writeln(n);
/* CIF NEXTSTATE (-85, -9), (100, 50) */
/* CIF TASK (-78, -73), (87, 35) */
TASK n := n - 1;
/* CIF TASK (-90, -23), (111, 35) */
TASK n := n * 1;
/* CIF TASK (-90, 27), (111, 35) */
TASK n := n mod 1;
/* CIF NEXTSTATE (-85, 77), (100, 50) */
NEXTSTATE Wait;
ENDSTATE;
ENDPROCESS
adder
;
ENDPROCESS
math
;
\ No newline at end of file
tests/regression/test13/system_structure.pr
View file @
a6cfa99d
/* CIF Keep Specific Geode ASNFilename 'dataview-uniq.asn' */
USE Datamodel;
SYSTEM
adder
;
SYSTEM
math
;
SIGNAL run;
CHANNEL c
FROM ENV TO
adder
WITH run;
FROM ENV TO
math
WITH run;
ENDCHANNEL;
BLOCK
adder
;
BLOCK
math
;
SIGNALROUTE r
FROM ENV TO
adder
WITH run;
FROM ENV TO
math
WITH run;
CONNECT c and r;
PROCESS
adder
REFERENCED;
PROCESS
math
REFERENCED;
ENDBLOCK;
...
...
tests/regression/test13/test.c
View file @
a6cfa99d
extern
void
adder_run
();
int
main
()
{
adder_run
();
adder_run
();
adder_run
();
math_run
();
return
0
;
}
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