Commit 2125692e authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add string/append test

parent fc454eea
include ../shared.mk
ROOT_MODEL=og.pr
all: test-ada test-llvm
edit:
$(OPENGEODE) og.pr
test-parse:
$(OPENGEODE) og.pr --check
test-qgen-parse:
$(TESTQGEN_PARSE) $(ROOT_MODEL)
test-qgen-ada:
$(TESTQGEN_ADA) $(ROOT_MODEL)
test-qgen-c:
$(TESTQGEN_C) $(ROOT_MODEL)
test-qgen-gt-ada:
$(TESTQGEN_GT_ADA) $(ROOT_MODEL)
test-qgen-gt-c:
$(TESTQGEN_GT_C) $(ROOT_MODEL)
test-ada:
$(OPENGEODE) og.pr --toAda
mono $(ASN1SCC) -Ada -typePrefix asn1Scc -equal dataview-uniq.asn
$(GNATMAKE) -O$(O) -c *.adb
$(GNATBIND) -n og.ali
test-c:
$(OPENGEODE) og.pr --toC
mono $(ASN1SCC) -c -typePrefix asn1Scc -equal dataview-uniq.asn
$(CC) -O$(O) -c *.c
test-llvm:
$(OPENGEODE) og.pr --llvm -O$(O)
$(LLC) *.ll
$(CC) -O$(O) -c *.s
coverage:
coverage run -p $(OPENGEODE) og.pr --toAda
.PHONY: all edit test-parse test-ada test-llvm coverage
TASTE-Dataview DEFINITIONS ::=
BEGIN
OctStr ::= OCTET STRING (SIZE (0..255))
END
system og;
/* CIF TEXT (159, 221), (287, 188) */
-- Text area for declarations and comments
use dv comment 'dataview-uniq.asn';
--use dv2 comment 'dataview2.asn';
signal pulse;
signal send_to_uart(OctStr);
/* CIF ENDTEXT */
channel c
from env to og with pulse;
from og to env with send_to_uart;
endchannel;
block og;
signalroute r
from env to og with pulse;
from og to env with send_to_uart;
connect c and r;
/* CIF PROCESS (225, 49), (150, 75) */
process og;
/* CIF TEXT (711, 132), (371, 280) */
-- Text area for declarations and comments
dcl msg OctStr := 'hi';
/* CIF ENDTEXT */
/* CIF START (363, 159), (70, 35) */
START;
/* CIF NEXTSTATE (363, 214), (70, 35) */
NEXTSTATE wait;
/* CIF state (363, 214), (70, 35) */
state wait;
/* CIF provided (363, 269), (70, 35) */
provided true;
/* CIF output (322, 324), (152, 35) */
output send_to_uart ('hello');
/* CIF output (293, 379), (209, 35) */
output send_to_uart ('hello' // 'world');
/* CIF output (275, 434), (246, 38) */
output send_to_uart ('How' // 'are' // 'you?');
/* CIF output (288, 492), (219, 35) */
output send_to_uart('I said' // msg // '!');;
/* CIF NEXTSTATE (363, 542), (70, 35) */
NEXTSTATE wait;
endstate;
endprocess og;
endblock;
endsystem;
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment