Re: Regex and/or LaTeX

[Adrian Knoth <adi@drcomp.erfurt.thur.de>]

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.