Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
Ocarina
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
Ocarina
Commits
8fdb7f31
Commit
8fdb7f31
authored
Sep 11, 2017
by
Maxime Perrotin
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' of
https://gitrepos.estec.esa.int/taste/ocarina
parents
2cb37da3
d2bc49f6
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
11 additions
and
1 deletion
+11
-1
resources/AADLv2/aadl_project.aadl
resources/AADLv2/aadl_project.aadl
+2
-1
src/backends/ocarina-backends-properties.adb
src/backends/ocarina-backends-properties.adb
+8
-0
src/backends/ocarina-backends-properties.ads
src/backends/ocarina-backends-properties.ads
+1
-0
No files found.
resources/AADLv2/aadl_project.aadl
View file @
8fdb7f31
...
...
@@ -81,7 +81,8 @@ property set AADL_Project is
VHDL,
ACN,
QGenC,
QGenAda);
QGenAda,
MicroPython);
Supported_Distributions: type enumeration (Fixed, Poisson);
...
...
src/backends/ocarina-backends-properties.adb
View file @
8fdb7f31
...
...
@@ -282,6 +282,7 @@ package body Ocarina.Backends.Properties is
Language_VDM_Name
:
Name_Id
;
Language_QGenAda_Name
:
Name_Id
;
Language_QGenC_Name
:
Name_Id
;
Language_MicroPython_Name
:
Name_Id
;
Thread_Periodic_Name
:
Name_Id
;
Thread_Aperiodic_Name
:
Name_Id
;
...
...
@@ -1226,6 +1227,9 @@ package body Ocarina.Backends.Properties is
elsif
Source_L
=
Language_QGenC_Name
then
return
Language_QGenC
;
elsif
Source_L
=
Language_MicroPython_Name
then
return
Language_MicroPython
;
else
Display_Located_Error
(
AIN
.
Loc
(
E
),
...
...
@@ -1412,6 +1416,9 @@ package body Ocarina.Backends.Properties is
when
Language_Simulink
|
Language_QGenC
|
Language_QGenAda
=>
return
Subprogram_Simulink
;
when
Language_MicroPython
=>
return
Subprogram_Unknown
;
when
Language_Scade
=>
return
Subprogram_Scade
;
...
...
@@ -2979,6 +2986,7 @@ package body Ocarina.Backends.Properties is
Language_System_C_Name
:=
Get_String_Name
(
"system_c"
);
Language_QGenAda_Name
:=
Get_String_Name
(
"qgenada"
);
Language_QGenC_Name
:=
Get_String_Name
(
"qgenc"
);
Language_MicroPython_Name
:=
Get_String_Name
(
"micropython"
);
Thread_Periodic_Name
:=
Get_String_Name
(
"periodic"
);
Thread_Aperiodic_Name
:=
Get_String_Name
(
"aperiodic"
);
...
...
src/backends/ocarina-backends-properties.ads
View file @
8fdb7f31
...
...
@@ -80,6 +80,7 @@ package Ocarina.Backends.Properties is
Language_System_C
,
Language_VDM
,
Language_VHDL
,
Language_MicroPython
,
Language_None
);
type
Supported_Scheduling_Protocol
is
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment