Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
93887324
Commit
93887324
authored
Nov 19, 2018
by
Maxime Perrotin
Browse files
initiate generation process
parent
725980e1
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/taste-concurrency_view.adb
View file @
93887324
...
...
@@ -128,9 +128,7 @@ package body TASTE.Concurrency_View is
Filter
:
constant
Filter_Type
:=
(
Directory
=>
True
,
others
=>
False
);
Output_File
:
File_Type
;
Output_Dir
:
constant
String
:=
Base_Output_Path
&
"/concurrency_view"
;
Content
:
constant
String
:=
"Hello"
;
File_Name
:
constant
String
:=
"Concurrency_View.aadl"
;
Output_Dir
:
constant
String
:=
Base_Output_Path
&
"/concurrency_view/"
;
begin
Put_Info
(
"Generating Concurrency View"
);
-- All files are created in the same folder - create it
...
...
@@ -158,16 +156,36 @@ package body TASTE.Concurrency_View is
goto
continue
;
end
if
;
Put_Info
(
"Generating from "
&
Full_Name
(
Current
));
Create
(
File
=>
Output_File
,
Mode
=>
Out_File
,
Name
=>
Output_Dir
&
File_Name
);
Put_Line
(
Output_File
,
Content
);
Close
(
Output_File
);
declare
Path
:
constant
String
:=
Full_Name
(
Current
);
Do_It
:
constant
Boolean
:=
Exists
(
Path
&
"/filename.tmplt"
);
-- Get output file name from template
File_Name
:
constant
String
:=
(
if
Do_It
then
Strip_String
(
Parse
(
Path
&
"/filename.tmplt"
))
else
""
);
-- Check if file already exists
Present
:
constant
Boolean
:=
(
File_Name
/=
""
and
Exists
(
Output_Dir
&
File_Name
));
Trig_Tmpl
:
constant
Translate_Set
:=
+
Assoc
(
"Filename_Is_Present"
,
Present
);
Trigger
:
constant
Boolean
:=
(
Exists
(
Path
&
"/trigger.tmplt"
)
and
then
Strip_String
(
Parse
(
Path
&
"/trigger.tmplt"
,
Trig_Tmpl
))
=
"TRUE"
);
begin
if
Trigger
then
Put_Info
(
"Generating from "
&
Path
);
Create
(
File
=>
Output_File
,
Mode
=>
Out_File
,
Name
=>
Output_Dir
&
File_Name
);
Put_Line
(
Output_File
,
"Hello"
);
Close
(
Output_File
);
end
if
;
end
;
<<continue>>
end
loop
;
End_Search
(
ST
);
exception
when
Error
:
Concurrency_View_Error
|
Ada
.
IO_Exceptions
.
Name_Error
=>
Put_Error
(
"Concurrency View : "
...
...
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