Merge branch 'main' of github01.hclpnp.com:Modeling/rtistic-pub-doc

Author: mattias-mohlin

art-comp-test/connectors.code-workspace

@@ -0,0 +1,15 @@
+{ "folders": [
+        {
+            "path": "TestUtils"
+        },
+        {
+            "path": "tests/delegation_connector"
+        },
+        {
+            "path": "tests/delegation_connector_nested"
+        },
+        {
+            "path": "tests/send_to_owner_in_initial_transition"
+        }
+    ]
+}

art-comp-test/tests/delegation_connector/delegation_connector.art

@@ -10,11 +10,11 @@ capsule Top {
     connect p with thePart.p;
 
     statemachine {
-        state State1, State2;
+        state State1;
         initial -> State1
-        `   
+        `
             p.ping().send();
-        `;     
+        `;
     };
 };
 
@@ -28,12 +28,7 @@ capsule A {
     };
 };
 
-
 capsule B {
-    [[rt::impl_preface]]
-    `
-        #include "testlib.art.h"     
-    `
     service behavior port p~ : Proto;
     statemachine {
         state State, Done;
@@ -43,4 +38,4 @@ capsule B {
             PASS();
         `;
     };
-};
+};

art-comp-test/tests/delegation_connector/top.tcjs

@@ -2,6 +2,9 @@ let tc = TCF.define(TCF.ART_TO_CPP);
 tc.topCapsule = 'Top';
 tc.prerequisites = ["../../TestUtils/testlib.tcjs"];
 tc.targetFolder = 'delegation_connector_target';
+tc.commonPreface = `
+#include "testlib.art.h"
+`;
 
 /*tc.compileArguments = '$(DEBUG_TAG)';
 tc.linkArguments = '/DEBUG';

art-comp-test/tests/send_to_owner_in_initial_transition/send_to_owner_in_initial_transition.art

@@ -0,0 +1,61 @@
+protocol Prot {
+    out m(`int`);
+};
+
+capsule PCAP {
+    /* Ports */
+    service behavior port p~ : Prot;
+    statemachine {
+        state State;
+        initial -> State;
+    };
+};
+
+capsule A {
+    plugin part plu : PCAP[0..1];
+    behavior port pp : Prot;
+    connect pp with plu.p;
+    
+    service behavior port p2 : Prot;
+    service behavior port p : Prot;
+    service behavior port p3 : Prot;
+    statemachine {
+        state S1;
+        initial -> S1 
+        `
+            printf("[%s:A] starting\n", this->getName());
+            p.m(1).send();
+        `;
+    };
+};
+
+capsule Top {
+    [[rt::decl]]
+    `
+        unsigned int count = 0;
+        static constexpr int N = 5;
+    `
+
+    behavior port p~ : Prot[100];
+    behavior port frame : Frame;
+    optional part a : A[100];
+
+    connect a.p with p;
+    statemachine {
+        state State1 {
+            received: on p.m
+            `
+                count++;
+                printf("received %d\n", count);
+                if (count == N) {
+                    PASS();
+                }
+            `;
+        };
+        initial -> State1
+        `
+            for (int i = 0; i < N; i++)
+                frame.incarnate(a);
+        `;
+    };
+};

art-comp-test/tests/send_to_owner_in_initial_transition/testcase.md

@@ -0,0 +1,3 @@
+---
+group: cpp_code_generation
+---

art-comp-test/tests/send_to_owner_in_initial_transition/top.tcjs

@@ -0,0 +1,10 @@
+let tc = TCF.define(TCF.ART_TO_CPP);
+tc.topCapsule = 'Top';
+tc.targetProject = 'send_to_owner_in_initial_transition_target';
+tc.prerequisites = [
+    '../../TestUtils/testlib.tcjs'
+];
+tc.commonPreface = `
+#include "testlib.art.h"
+#include <stdio.h>
+`;

art-comp-test/testsEmx/delegation_connector/.project

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>delegation_connector</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>com.ibm.xtools.umldt.core.internal.builders.UMLDevelopmentBuilder</name>
+			<triggers>clean,full,incremental,</triggers>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>com.ibm.xtools.umldt.core.internal.natures.MDDProjectNature</nature>
+	</natures>
+</projectDescription>

art-comp-test/testsEmx/delegation_connector/.settings/org.eclipse.core.resources.prefs

@@ -0,0 +1,2 @@
+eclipse.preferences.version=1
+encoding/<project>=UTF-8

art-comp-test/testsEmx/delegation_connector/delegation_connector.emx

@@ -0,0 +1,10 @@
+let tc = TCF.define(TCF.CPP_TRANSFORM);
+tc.sources = [
+    'platform:/resource/delegation_connector/delegation_connector.emx#_Ar3QgEj7Ee-mV-UQTNJH8A',
+];
+tc.commonPreface = '#include <iostream>';
+tc.compilationMakeType = MakeType.GNU_make;
+tc.createTargetProject = true;
+tc.targetConfiguration = 'WinT.x64-MinGw-12.2.0';
+tc.targetProject = 'delegation_connector_target';
+tc.topCapsule = 'platform:/resource/delegation_connector/delegation_connector.emx#_O-Ex4Ej7Ee-mV-UQTNJH8A';