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
24790482
Commit
24790482
authored
May 09, 2020
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Pass command line parameters after processing the scenario
file For openaadl/ocarina#254
parent
fb0939f3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
src/main/ocarina_cmd.adb
src/main/ocarina_cmd.adb
+9
-7
No files found.
src/main/ocarina_cmd.adb
View file @
24790482
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2009 Telecom ParisTech, 2010-20
18
ESA & ISAE. --
-- Copyright (C) 2004-2009 Telecom ParisTech, 2010-20
20
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
...
...
@@ -290,10 +290,8 @@ procedure Ocarina_Cmd is
File_Name
:
constant
String
:=
Image
(
Value
(
N
),
Quoted
=>
False
);
begin
Get_Name_String
(
Current_Scenario_Dirname
);
Add_Str_To_Name_Buffer
(
File_Name
);
Ocarina
.
Files
.
Add_File_To_Parse_List
(
Name_Find
,
Add_Suffix
=>
True
);
(
Get_String_Name
(
File_Name
)
,
Add_Suffix
=>
True
);
N
:=
Next_Node
(
N
);
end
;
end
loop
;
...
...
@@ -314,7 +312,6 @@ procedure Ocarina_Cmd is
end
if
;
F
:=
Sources
.
First
;
loop
Dirname
:=
Get_String_Name
...
...
@@ -559,9 +556,10 @@ procedure Ocarina_Cmd is
Ocarina
.
Configuration
.
Reset_Modules
;
Ocarina
.
Reset
;
-- Ocarina.Files.Sources.Init;
Ocarina
.
Initialize
;
Reset_Current_Action
;
Ocarina
.
Cmd_Line
.
Process
;
Language
:=
Get_String_Name
(
"aadl"
);
Ocarina
.
AADL_Version
:=
Temp_AADL_Version
;
Set_Current_Backend_Name
(
The_Backend_Name
);
...
...
@@ -585,6 +583,10 @@ procedure Ocarina_Cmd is
(
Name_Find
,
Add_Suffix
=>
True
);
end
loop
;
-- Add scenario directory to the list of search path
Add_Library_Path
(
Scenario_Dir
.
all
);
-- Avoid memory leaks
Free
(
Result
);
...
...
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