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
cec7a931
Commit
cec7a931
authored
Jan 16, 2016
by
yoogx
Browse files
* Review circuitry of Parse_Source_Filename
parent
76b044ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/main/ocarina-cmd_line.adb
View file @
cec7a931
...
...
@@ -152,7 +152,6 @@ package body Ocarina.Cmd_Line is
": invalid parameter for switch -"
&
Switch
);
Write_Eol
;
OS_Exit
(
1
);
end
Parse_Command_Line
;
-----------------------------
...
...
@@ -161,12 +160,7 @@ package body Ocarina.Cmd_Line is
procedure
Parse_Source_Filename
(
S
:
String
)
is
begin
if
S
(
S
'
First
)
=
'-'
then
-- If there is a new switch, then the previous
-- files are discarded.
Sources
.
Init
;
elsif
S
(
S
'
First
)
=
'@'
then
if
S
(
S
'
First
)
=
'@'
then
declare
Files
:
constant
Ada
.
Command_Line
.
Response_File
.
Argument_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