* New test for loopback mode for TCP/IP

examples/aadlv2/producer-consumer/Makefile.am

@@ -2,8 +2,10 @@ C_FILES = $(srcdir)/producer-consumer.c  $(srcdir)/devicesconf.c
 
 AADL_FILES = $(srcdir)/producer_consumer.aadl $(srcdir)/software.aadl
 
-SCENARIO_FILES = $(srcdir)/scenario.aadl				\
-	$(srcdir)/scenario_local.aadl $(srcdir)/scenario_rtems.aadl
+SCENARIO_FILES = $(srcdir)/scenario.aadl	\
+	$(srcdir)/scenario_local.aadl		\
+	$(srcdir)/scenario_loopback.aadl	\
+	$(srcdir)/scenario_rtems.aadl
 
 include $(srcdir)/../../Makefile.common
 

examples/aadlv2/producer-consumer/producer_consumer.aadl

@@ -97,6 +97,23 @@ public
     actual_processor_binding => (reference (CPU_B)) applies to Device_B;
   end PC_Simple.Impl;
 
+  system implementation PC_Simple.Loopback
+  subcomponents
+    pr_A : process A.Impl {Deployment::port_number => 4001;};
+    Device_A : device ocarina_drivers::generic_sockets_ip.pohic
+    {Source_Text => ("devicesconf.c");};
+    CPU_A : processor the_processor.i;
+    the_bus : bus ocarina_buses::ip.i;
+  connections
+    bus access the_bus -> Device_A.link;
+
+    port pr_A.Alpha -> pr_A.Beta
+    {Actual_Connection_Binding => (reference (the_bus));};
+  properties
+    actual_processor_binding => reference (CPU_A) applies to pr_A;
+    actual_processor_binding => (reference (CPU_A)) applies to Device_A;
+  end PC_Simple.Loopback;
+
   system implementation PC_Simple.local
   subcomponents
     prodr_cons : process singleProcess.Impl;

examples/aadlv2/producer-consumer/scenario_loopback.aadl

+--  This is a scenario file describing the AADL
+--  application producer_consumer
+
+--  $Id: scenario.aadl 394 2007-05-31 18:59:00Z zalila $
+
+system producer_consumer
+properties
+  Ocarina_Config::Timeout_Property     => 4000ms;
+  Ocarina_Config::Referencial_Files    =>
+    ("pr_a", "pr_a.ref",
+    "pr_b", "pr_b.ref");
+  Ocarina_Config::AADL_Files           =>
+    ("producer_consumer.aadl", "software.aadl",
+    "devices.aadl", "buses", "base_types", "exarm-ni-6071e-analog.aadl", "grspw.aadl", "rasta-serial.aadl", "sockets-rtems-ne2000.aadl", "exarm-ni-6071e-digital.aadl", "gruart.aadl", "rasta-spacewire.aadl", "tcp_protocol.aadl", "generic-keyboard.aadl", "leon-eth.aadl", "scoc3-spacewire.aadl", "udp-exarm.aadl", "generic_bus.aadl", "leon-serial.aadl", "sd-spw-usb.aadl", "generic_native.aadl", "native_uart.aadl", "serial-raw.aadl", "gr_cpci_x4cv.aadl", "rasta-1553.aadl", "sockets-raw.aadl");
+  Ocarina_Config::Root_System_Name => "PC_Simple.loopback";
+  Ocarina_Config::Generator            => polyorb_hi_c;
+  Ocarina_Config::Needed_Property_Sets =>
+    (value (Ocarina_Config::Data_Model),
+     value (Ocarina_Config::Deployment),
+     value (Ocarina_Config::ARINC653_Properties),
+     value (Ocarina_Config::Cheddar_Properties));
+  Ocarina_Config::AADL_Version         => AADLv2;
+end producer_consumer;
+
+system implementation producer_consumer.Impl
+end  producer_consumer.Impl;