1 ------------------------------------------------------------------------------
4 -- Copyright (C) 2007 --
5 -- Pascal Obry - Olivier Ramonat --
7 -- This library is free software; you can redistribute it and/or modify --
8 -- it under the terms of the GNU General Public License as published by --
9 -- the Free Software Foundation; either version 2 of the License, or (at --
10 -- your option) any later version. --
12 -- This library is distributed in the hope that it will be useful, but --
13 -- WITHOUT ANY WARRANTY; without even the implied warranty of --
14 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
15 -- General Public License for more details. --
17 -- You should have received a copy of the GNU General Public License --
18 -- along with this library; if not, write to the Free Software Foundation, --
19 -- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. --
20 ------------------------------------------------------------------------------
22 with Ada
.Strings
.Unbounded
;
24 package Morzhol
.Strings
is
27 use Ada
.Strings
.Unbounded
;
29 function "+" (Source
: in String) return Unbounded_String
30 renames To_Unbounded_String
;
32 function "-" (Source
: in Unbounded_String
) return String
35 function HTML_To_Text
(HTML_Source
: in String) return String;
36 -- Returns a text only version