Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
7b9ee3f1
Commit
7b9ee3f1
authored
Apr 18, 2013
by
yoogx
Browse files
* Add support for response file
parent
61048977
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/main/ocarina_cmd.adb
View file @
7b9ee3f1
...
...
@@ -42,6 +42,7 @@ with Types; use Types;
with
Utils
;
use
Utils
;
with
Ada
.
Command_Line
;
use
Ada
.
Command_Line
;
with
Ada
.
Command_Line
.
Response_File
;
with
Ada
.
Unchecked_Deallocation
;
with
Ada
.
Exceptions
;
use
Ada
.
Exceptions
;
with
Ada
.
IO_Exceptions
;
...
...
@@ -1046,6 +1047,7 @@ procedure Ocarina_Cmd is
&
"r: real_lib: real_theorem: boundt_process: "
&
"disable-annexes=: "
&
"i p q v V s x t?"
)
is
when
'a'
=>
if
Full_Switch
=
"aadlv2"
then
AADL_Version
:=
AADL_V2
;
...
...
@@ -1167,6 +1169,21 @@ procedure Ocarina_Cmd is
if
S
(
S
'
First
)
=
'-'
then
Sources
.
Init
;
elsif
S
(
S
'
First
)
=
'@'
then
declare
Files
:
constant
Ada
.
Command_Line
.
Response_File
.
Argument_List
:=
Ada
.
Command_Line
.
Response_File
.
Arguments_From
(
S
(
S
'
First
+
1
..
S
'
Last
));
begin
for
J
in
Files
'
Range
loop
Set_Str_To_Name_Buffer
(
Files
(
J
).
all
);
Ocarina
.
Files
.
Add_File_To_Parse_List
(
Name_Find
,
Add_Suffix
=>
False
);
end
loop
;
-- Free (Files);
end
;
else
Set_Str_To_Name_Buffer
(
S
);
Ocarina
.
Files
.
Add_File_To_Parse_List
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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