Commit 21e44d15 authored by yoogx's avatar yoogx
Browse files

* Added device for StarDundee Mk3 devices

        For openaadl/ocarina#170
parent a439818d
......@@ -18,6 +18,7 @@ public
with ocarina_drivers_apbuart_serial;
with ocarina_drivers_greth;
with ocarina_drivers_stardundee;
with ocarina_drivers_star_dundee_spacewire_brick;
with ocarina_drivers_udp_exarm;
......@@ -203,6 +204,23 @@ public
Provided_Virtual_Bus_Class => (classifier (ocarina_buses::pohi.c));
end usb_brick_spacewire.pohic;
------------------------------------------
-- STAR DUNDEE Mk3 DEVICE FOR SPACEWIRE --
------------------------------------------
device star_dundee_mk3_spacewire
features
link : requires bus access ocarina_buses::spacewire.generic;
end star_dundee_mk3_spacewire;
device implementation star_dundee_mk3_spacewire.pohic
properties
Deployment::Driver_Name => "spacewire_star_dundee_mk3";
Device_Driver => classifier (ocarina_drivers_stardundee::stardundee_driver.impl);
Initialize_Entrypoint => classifier (ocarina_drivers_stardundee::spg_stardundee_init);
Provided_Virtual_Bus_Class => (classifier (ocarina_buses::pohi.c));
end star_dundee_mk3_spacewire.pohic;
---------------------
-- RASTA SPACEWIRE --
---------------------
......
package ocarina_drivers_stardundee
public
-- This driver wraps StarDundee Mk3 API
with ocarina_buses;
with Deployment;
subprogram spg_stardundee_poller
properties
Source_Language => (C);
Source_Name => "__po_hi_c_driver_stardundee_poller";
Source_Text => ("star_dundee_api.c", "po_hi_driver_stardundee.c");
end spg_stardundee_poller;
subprogram spg_stardundee_sender
properties
Source_Language => (C);
Source_Name => "__po_hi_c_driver_stardundee_sender";
Source_Text => ("star_dundee_api.c", "po_hi_driver_stardundee.c");
end spg_stardundee_sender;
subprogram spg_stardundee_init
properties
Source_Language => (C);
Source_Name => "__po_hi_c_driver_stardundee_init";
Source_Text => ("star_dundee_api.c", "po_hi_driver_stardundee.c");
end spg_stardundee_init;
thread stardundee_poller
end stardundee_poller;
thread implementation stardundee_poller.impl
calls
mycall : {
pspg : subprogram spg_stardundee_poller;
};
properties
Period => 1 ms;
Dispatch_Protocol => Background;
end stardundee_poller.impl;
abstract stardundee_driver
properties
Deployment::Version => "0.1beta";
Deployment::Help => "Write your ASN.1 configuration here";
Deployment::Configuration_Type => classifier (ocarina_drivers::configuration_type_spacewire);
end stardundee_driver;
abstract implementation stardundee_driver.impl
subcomponents
receiver_stardundee : thread stardundee_poller.impl;
sender : subprogram spg_stardundee_sender;
end stardundee_driver.impl;
end ocarina_drivers_stardundee;
......@@ -75,7 +75,8 @@ property set Ocarina_Config is
"sockets-raw.aadl",
"grspw_packet.aadl",
"apbuart.aadl",
"greth.aadl");
"greth.aadl",
"stardundee.aadl");
Root_System_Name : aadlstring applies to (system);
-- If present, indicates the name of the root of the instance tree
......
Supports Markdown
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