Regex and/or LaTeX

Regex and/or LaTeX

[Adrian Knoth]

Hi!

I'm facing the problem to escape some special characters before
outputting them to a LaTeX-file, i.e. '&' should be replaced
by "\&".

There is no difficulty in implementing this directly, but in order
to avoid unnecessary work I ask if there is already a package which
provides all the LaTeX-functionality I might need. If not, perhaps
a sed-like function exists to perform something like this:
	sed -e 's/\([&%]\)/\\\1/g'


-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Lieber alternativ als alt und naiv.

Re: Regex and/or LaTeX

[Lutz Donnerhacke]

* Adrian Knoth wrote:
>I'm facing the problem to escape some special characters before
>outputting them to a LaTeX-file, i.e. '&' should be replaced
>by "\&".

No. You need a different TeX Macro file allowing you all the characters
directly.

Re: Regex and/or LaTeX

[Florian Weimer]

Adrian Knoth <adi@drcomp.erfurt.thur.de> writes:

> There is no difficulty in implementing this directly, but in order
> to avoid unnecessary work I ask if there is already a package which
> provides all the LaTeX-functionality I might need.

If you're using GNAT, you can try the package GNAT.Spitbol.Patterns.

Re: Regex and/or LaTeX

[Rajagopalan Srinivasan]

assuming you are looking for an Ada95 package and assuming you are using
gnat, i will search the users guide for gnat.spitbol.patterns and/or
gnat.regexp

"Adrian Knoth" <adi@drcomp.erfurt.thur.de> wrote in message
news:972rhk$a13$1@drcomp.erfurt.thur.de...
> Hi!
>
> I'm facing the problem to escape some special characters before
> outputting them to a LaTeX-file, i.e. '&' should be replaced
> by "\&".
>
> There is no difficulty in implementing this directly, but in order
> to avoid unnecessary work I ask if there is already a package which
> provides all the LaTeX-functionality I might need. If not, perhaps
> a sed-like function exists to perform something like this:
> sed -e 's/\([&%]\)/\\\1/g'
>
>
> --
> mail: adi@thur.de  http://adi.thur.de PGP: v2-key via keyserver
>
> Lieber alternativ als alt und naiv.

Re: Regex and/or LaTeX

[Adrian Knoth]

Rajagopalan Srinivasan <r.srinivasan@worldnet.att.net> wrote:

> gnat.regexp

Yeah, thank you, that's fine. I guess I'll use it in some projects.
Actually I don't want to limit my program to a special compiler,
so I implemented the desired functionality in this way:

        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;

Perhaps I need to extend this for other LaTeX-symbols. For now, it works well.



-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Alle schimpfen �ber den Bundeskanzler. Dabei tut er doch gar nichts.

Re: Regex and/or LaTeX

[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);
   pos     : Ada.Strings.Fixed.Index (ausdruck, pattern);
begin
   if pos = 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;

Re: Regex and/or LaTeX

[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;

Re: Regex and/or LaTeX

[Jeffrey Carter]

Lutz Donnerhacke wrote:
> 
> function texify (ausdruck      : String;
>                  escape_char   : Character := '\\';

'//' is not a character literal

The original poster might want to look at
PragmARC.Regular_Expression_Matcher, part of the PragmAda Reusable
Components, which is compiler and platform independent:

http://home.earthlink.net/~jrcarter010/pragmarc.htm

and mirrored at www.adapower.com.

-- 
Jeff Carter
"We burst our pimples at you."
Monty Python & the Holy Grail