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
94e05300
Commit
94e05300
authored
Sep 30, 2019
by
Maxime Perrotin
Browse files
Remove debug output
parent
3b76dab5
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/taste-parser_utils.adb
View file @
94e05300
...
...
@@ -13,7 +13,7 @@ with Ada.Characters.Latin_1,
GNAT
.
Strings
,
GNAT
.
Command_Line
,
Templates_Parser
.
Utils
,
Templates_Parser
.
Query
,
--
Templates_Parser.Query,
Ocarina
.
AADL_Values
,
Ocarina
.
Configuration
,
Ocarina
.
FE_AADL
.
Parser
,
...
...
@@ -57,14 +57,15 @@ package body TASTE.Parser_Utils is
New_Line
;
end
Banner
;
-- Generate documentation for a translate set
-- Generate documentation for a translate set
(TODO..)
procedure
Document_Template
(
Source_Folder
,
Template_Name
:
String
;
T
:
Translate_Set
)
is
procedure
Action
(
Item
:
Association
;
Quit
:
in
out
Boolean
)
is
pragma
Unreferenced
(
Item
);
begin
Put_Debug
(
" "
&
Templates_Parser
.
Query
.
Variable
(
Item
)
&
" - "
&
Templates_Parser
.
Query
.
Kind
(
Item
)'
Img
);
--
Put_Debug (" " & Templates_Parser.Query.Variable (Item) & " - "
--
& Templates_Parser.Query.Kind (Item)'Img);
Quit
:=
False
;
end
Action
;
procedure
Iterate
is
new
For_Every_Association
(
Action
);
...
...
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