Commit 39e5b1c6 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Removed custom filter built-in templates-parser

parent 177402f6
......@@ -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;
......@@ -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;
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 r0b92ed3)";
"Ocarina 2017.x (Working Copy from rd078c54)";
end TASTE.Parser_Version;
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment