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
6675d503
Commit
6675d503
authored
Aug 14, 2013
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Replace GNAT.Directory_Operations with Ada.Directories
parent
112dd9f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
12 deletions
+13
-12
src/backends/ocarina-backends-utils.adb
src/backends/ocarina-backends-utils.adb
+13
-12
No files found.
src/backends/ocarina-backends-utils.adb
View file @
6675d503
...
...
@@ -32,7 +32,7 @@
------------------------------------------------------------------------------
with
GNAT
.
OS_Lib
;
with
GNAT
.
Directory_Operation
s
;
with
Ada
.
Directorie
s
;
with
GNAT
.
Table
;
with
Namet
;
...
...
@@ -61,7 +61,8 @@ package body Ocarina.Backends.Utils is
package
ADV
renames
Ocarina
.
Backends
.
Ada_Values
;
use
GNAT
.
OS_Lib
;
use
GNAT
.
Directory_Operations
;
use
Ada
.
Directories
;
use
Namet
;
use
Locations
;
use
Ocarina
.
ME_AADL
;
...
...
@@ -157,7 +158,7 @@ package body Ocarina.Backends.Utils is
-- The directory name does not clash with anything, create it
Make_Dir
(
Dir_Full_String
);
Create_Directory
(
Dir_Full_String
);
end
Create_Directory
;
---------------------
...
...
@@ -167,14 +168,14 @@ package body Ocarina.Backends.Utils is
procedure
Enter_Directory
(
Dirname
:
Name_Id
)
is
use
Directories_Stack
;
Current_Dir
ectory
:
constant
Name_Id
:=
Get_String_Name
(
Get_Current_Dir
);
Current_Dir
:
constant
Name_Id
:=
Get_String_Name
(
Current_Directory
);
begin
Increment_Last
;
Table
(
Last
)
:=
Current_Dir
ectory
;
Table
(
Last
)
:=
Current_Dir
;
Display_Debug_Message
(
"Left : "
&
Get_Name_String
(
Current_Dir
ectory
));
Change_Dir
(
Get_Name_String
(
Dirname
));
(
"Left : "
&
Get_Name_String
(
Current_Dir
));
Set_Directory
(
Get_Name_String
(
Dirname
));
Display_Debug_Message
(
"Entered : "
&
Get_Name_String
(
Dirname
));
end
Enter_Directory
;
...
...
@@ -185,12 +186,12 @@ package body Ocarina.Backends.Utils is
procedure
Leave_Directory
is
use
Directories_Stack
;
Last_Directory
:
constant
Name_Id
:=
Table
(
Last
);
Last_Directory
:
constant
Name_Id
:=
Table
(
Last
);
begin
Decrement_Last
;
Display_Debug_Message
(
"Left : "
&
Get_Current_Dir
);
Change_Dir
(
Get_Name_String
(
Last_Directory
));
Display_Debug_Message
(
"Left : "
&
Current_Directory
);
Set_Directory
(
Get_Name_String
(
Last_Directory
));
Display_Debug_Message
(
"Entered : "
&
Get_Name_String
(
Last_Directory
));
end
Leave_Directory
;
...
...
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