Add testcase and support typeless systems

README.md

@@ -142,6 +142,9 @@ The background pattern was downloaded from www.subtlepatterns.com
 Changelog
 =========
 
+1.4.4 (06/2016)
+    - Minor bugfix in Ada backend to support typeless systems
+
 1.4.3 (06/2016)
     - Add support for priority of continuous signals in Ada code generator
 

opengeode/AdaGenerator.py

@@ -319,7 +319,8 @@ LD_LIBRARY_PATH=. opengeode-simulator
         asn1_modules = '\n'.join(['with {dv};\nuse {dv};'.format(
             dv=dv.replace('-', '_'))
             for dv in process.asn1Modules])
-        asn1_modules += '\nwith adaasn1rtl;\nuse adaasn1rtl;'
+        if process.asn1Modules:
+            asn1_modules += '\nwith adaasn1rtl;\nuse adaasn1rtl;'
     except TypeError:
         asn1_modules = '--  No ASN.1 data types are used in this model'
     taste_template = ['''\

opengeode/opengeode.py

@@ -134,7 +134,7 @@ except ImportError:
 
 
 __all__ = ['opengeode', 'SDL_Scene', 'SDL_View', 'parse']
-__version__ = '1.4.3'
+__version__ = '1.4.4'
 
 if hasattr(sys, 'frozen'):
     # Detect if we are running on Windows (py2exe-generated)

tests/regression/test-noparam/Makefile

+include ../shared.mk
+
+all: test-ada test-llvm
+
+edit:
+	$(OPENGEODE) og.pr
+
+test-parse:
+	$(OPENGEODE) og.pr --check
+
+test-ada: 
+	$(OPENGEODE) og.pr --toAda
+	$(GNATMAKE) -O$(O) -c *.adb
+	$(GNATBIND) -n og.ali
+
+test-c: 
+	$(OPENGEODE) og.pr --toC
+	$(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

tests/regression/test-noparam/README

+system without any dataview - check that it compiles fine

tests/regression/test-noparam/og.pr

+SYSTEM og;
+    /* CIF TEXT (159, 221), (287, 188) */
+    -- Text area for declarations and comments
+
+signal dd;
+
+    /* CIF ENDTEXT */
+    CHANNEL c
+        FROM ENV TO og WITH dd;
+    ENDCHANNEL;
+    BLOCK og;
+        SIGNALROUTE r
+            FROM ENV TO og WITH dd;
+        CONNECT c AND r;
+        /* CIF PROCESS (225, 49), (150, 75) */
+        PROCESS og;
+            /* CIF START (155, 216), (70, 35) */
+            START;
+                /* CIF NEXTSTATE (155, 266), (70, 35) */
+                NEXTSTATE wait;
+            /* CIF STATE (155, 266), (70, 35) */
+            STATE wait;
+                /* CIF INPUT (155, 321), (70, 35) */
+                INPUT dd;
+                    /* CIF NEXTSTATE (155, 371), (70, 35) */
+                    NEXTSTATE -;
+            ENDSTATE;
+        ENDPROCESS og;
+    ENDBLOCK;
+ENDSYSTEM;
\ No newline at end of file