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
9a94b36b
Commit
9a94b36b
authored
Jan 18, 2016
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Correct loop to read all files
parent
78bbc4a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
9 deletions
+9
-9
src/main/ocarina-cmd_line.adb
src/main/ocarina-cmd_line.adb
+9
-9
No files found.
src/main/ocarina-cmd_line.adb
View file @
9a94b36b
...
...
@@ -346,15 +346,15 @@ package body Ocarina.Cmd_Line is
-- that are not caught as regular switches. We assume these are
-- AADL filenames. They are passed to Parse_Source_Filename.
declare
Args
:
Argument_List_Access
:=
GNAT
.
OS_Lib
.
Argument_String_To_List
(
Get_Argument
);
begin
for
S
of
Args
.
all
loop
Parse_Source_Filename
(
S
.
all
);
end
loop
;
Free
(
Args
)
;
end
;
loop
declare
S
:
constant
String
:=
Get_Argument
(
Do_Expansion
=>
True
);
begin
exit
when
S
'
Length
=
0
;
Parse_Source_Filename
(
S
);
end
;
end
loop
;
exception
when
GNAT
.
Command_Line
.
Invalid_Switch
=>
OS_Exit
(
1
);
...
...
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