Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
39e5b1c6
Commit
39e5b1c6
authored
Feb 01, 2018
by
Maxime Perrotin
Browse files
Removed custom filter built-in templates-parser
parent
177402f6
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/taste-backend-skeletons.adb
View file @
39e5b1c6
...
...
@@ -230,40 +230,4 @@ package body TASTE.Backend.Skeletons is
end
loop
;
return
Result
;
end
Interface_View_Template
;
-- Define a custom "Strip" filter for the templates
function
Custom_Strip_Filter
(
Value
:
String
;
Context
:
Filter_Context
)
return
String
is
pragma
Unreferenced
(
Context
);
Pre_Count
,
Post_Count
:
Natural
:=
0
;
Index
:
Natural
:=
0
;
Discard
:
Boolean
:=
True
;
Result
:
String
(
1
..
Value
'
Length
);
begin
for
Each
of
Value
loop
exit
when
Discard
=
False
;
if
Is_Line_Terminator
(
Each
)
or
Is_Space
(
Each
)
then
Pre_Count
:=
Pre_Count
+
1
;
else
Discard
:=
False
;
end
if
;
end
loop
;
Discard
:=
True
;
for
Each
of
reverse
Value
loop
exit
when
Discard
=
False
;
if
Is_Line_Terminator
(
Each
)
or
Is_Space
(
Each
)
then
Post_Count
:=
Post_Count
+
1
;
else
Discard
:=
False
;
end
if
;
end
loop
;
for
I
in
Value
'
First
+
Pre_Count
..
Value
'
Last
-
Post_Count
loop
Index
:=
Index
+
1
;
Result
(
Index
)
:=
Value
(
I
);
end
loop
;
return
Result
(
1
..
Index
);
end
Custom_Strip_Filter
;
begin
Register_Filter
(
"STRIP"
,
Custom_Strip_Filter
'
Access
);
end
TASTE
.
Backend
.
Skeletons
;
src/taste-backend-skeletons.ads
View file @
39e5b1c6
...
...
@@ -45,7 +45,4 @@ private
function
Interface_View_Template
(
IV
:
Complete_Interface_View
)
return
IV_As_Template
;
function
Custom_Strip_Filter
(
Value
:
String
;
Context
:
Filter_Context
)
return
String
;
end
TASTE
.
Backend
.
Skeletons
;
src/taste-parser_version.ads
View file @
39e5b1c6
package
TASTE
.
Parser_Version
is
Parser_Release
:
constant
String
:=
"
53a8b63
; Commit
Author: Maxime Perrotin <Maxime.Perrotin@esa.int>
"
;
"
177402f
; Commit
Date: Sat Jan 27 23:25:35 2018
"
;
Ocarina_Version
:
constant
String
:=
"Ocarina 2017.x (Working Copy from r
0b92ed3
)"
;
"Ocarina 2017.x (Working Copy from r
d078c54
)"
;
end
TASTE
.
Parser_Version
;
\ No newline at end of file
Write
Preview
Supports
Markdown
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