Re: Regex and/or LaTeX

[lutz@iks-jena.de (Lutz Donnerhacke)]

* Adrian Knoth wrote:
>   procedure texstring (ausdruck : in out ustring) is
>      tmp : string := To_string(ausdruck);
>      hs : ustring := To_Ustring("");
>   begin
>      ausdruck := To_ustring("");
>      for I in tmp'range loop
>         case tmp(I) is
>            when '&' => hs := To_Ustring("\&");
>            when '%' => hs := To_Ustring("\%");
>            when others => hs := To_Ustring(tmp(I) & "");
>         end case;
>         ausdruck := ausdruck & hs;
>      end loop;
>   end texstring;

This seems to be Perl Style.

function texify (ausdruck      : String;
                 escape_char   : Character := '\\';
                 to_be_escaped : String    := "\\{}[]%^_") return String is
   pattern : Ada.Strings.Maps.Character_Set :=
             Ada.Strings.Maps.To_Set (to_be_escaped);
   i       : Ada.Strings.Fixed.Index (ausdruck, pattern);
begin
   if i = 0 then
      return ausdruck;
   elsif i = ausdruck'Last then
      return ausdruck (ausdruck'First .. i - 1) & escape_char & ausdruck (i);
   else
      return ausdruck (ausdruck'First .. i - 1) & escape_char & ausdruck (i) &
             texify (ausdruck (i + 1 .. ausdruck'Last),
                     escape_char, to_be_escaped);
   end if;
end texify;