Re: [NTG-context] [Fwd: Re: Miktex, Metapost and \loadfontfilesoncetrue]

5 Apr 2006

      taco@elvenkind.com wrote:
...
Hi Wim,
Let me know if you need perl help, ok?
Taco
Hi Taco,

I am doing regular expression (regex) and I am trying to process my 
Latex files (a lot)
to automate the translation to Context primitives.
I am partially  successfully but it is a complex job, so some of the 
Latex/Tex primitives
I convert by hand.

But thanks for your kind offer. Attached is my perl script, but don't expect
a lot from it or clean or optimized code, I wrote it in 2 hours.
Feel free to share it with anyone, if you think others may benefit.

Kind regards
Wim

#
# Author  : Wim Neimeijer, The Netherlands
#
# File    : convert.pl
#
# Date    : 25 March 2006
#
# Purpose : Process a Latex script and try to convert 
#         : my Latex commands into Context one's, 
#
# Coding  : no standards
#
# Level   : N/A
#
# Warning : Use at your own risk, certainly not full proof 
#         : and quit minimum in its workings, 
# 
# 
#!/usr/bin/perl
use File::Basename;

if ( $#ARGV eq -1){
    $wildcards = "*.tex";
}

if ( $#ARGV ge 0 ){
    foreach $b (@ARGV){
        $wildcards = $wildcards . " " . $b;
    }
}

@pstfiles= glob $wildcards;
for $a (@pstfiles){

    ($base,$dir,$ext) = fileparse($a);

    @part = split '\.', $base;
    $newfile = $part[0];

    $sourcefile = $a;
    open(SOURCE, "<"  ,$sourcefile) or die "$0 - cannot open $sourcefile";
    $tmpfile = "tmp.log";
    open(TMPFILE, ">"  ,$tmpfile) or die "$0 - cannot open $tmpfile";

    @linesa = <SOURCE>;
    # remove comments first
    @foo = grep(!/^\%/, @linesa);   

    my @newline;

    $i = 0;
    $currentline = 0;
    for $b (@foo){
        chomp($b);
        chomp($foo[$i]);

        # replace chapter{} by chapter[]{}
        if ($foo[$i] =~ /^\\chapter\{/){

            if ($foo[$i+1] =~ /^\\label\{/){

                $startbrace = index($foo[$i+1],"\{");
                $endbrace = index($foo[$i+1],"\}");

                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) {
                    $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1);

                    $b =~ s/\\chapter\{/\\chapter[$s]\{/;
                    push @newline, $b;
                    delete $foo[$i+1];
                }
            }
            else {
                $b =~ s/\\chapter\{/\\chapter[]\{/;
                push @newline, $b;
            }
        }
        elsif ($foo[$i] =~ /^\\section\{/){

            if ($foo[$i+1] =~ /^\\label\{/){

                $startbrace = index($foo[$i+1],"\{");
                $endbrace = index($foo[$i+1],"\}");

                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) {
                    $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1);

                    $b =~ s/\\section\{/\\section[$s]\{/;
                    push @newline, $b;
                    delete $foo[$i+1];
                }

            }
            else {
                $b[$i] =~ s/\\section\{/\\section[]\{/;
                push @newline, $b;
            }
        }
        elsif ($foo[$i] =~ /^\\begin{equation}/) {
            if ($foo[$i+1] =~ /^\\label\{/){

                $startbrace = index($foo[$i+1],"\{");
                $endbrace = index($foo[$i+1],"\}");

                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) {
                    $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1);

                    $b =~ s/\\begin{equation}/\\placeformula[$s]/;
                    push @newline, $b;
                    push @newline , "\\startformula";

                    delete $foo[$i+1];                  
                }
            }
            else {
                $b =~ s/\\begin{equation}/\\placeformula[]/;
                push @newline, $b;
                push @newline, "\\startformula";
            }
        }
        elsif ($foo[$i] =~ /^\\begin{align\*}/) {
            push @newline, "\\startformula";
            push @newline, "\\startalign[n=3]";         
        }
        elsif ($foo[$i] =~ /^\\begin{equation\*}/) {
            push @newline, "\\startformula";
        }
        elsif ($foo[$i] =~ /^\\begin{eqnarray}/){

            if ($foo[$i+1] =~ /^\\label\{/){

                $startbrace = index($foo[$i+1],"\{");
                $endbrace = index($foo[$i+1],"\}");

                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) {
                    $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1);

                    $b =~ s/^\\begin{eqnarray}/\\placeformula[$s]/;

                    push @newline, $b;
                    push @newline, "\\startformula";
                    push @newline, "\\startalign[n=3]";

                    delete $foo[$i+1];                  
                }
            }
            else {
                $b =~ s/^\\begin{eqnarray}/\\placeformula[]/;
                push @newline, $b;
                push @newline, "\\startformula";
                push @newline, "\\startalign[n=3]";             
            }
        }
        elsif ($foo[$i] =~ /^\\begin{eqnarray\*}/) {
            push @newline, "\\startformula";
            push @newline, "\\startalign[n=3]";         
        }
        elsif ($foo[$i] =~ /^\\end{align\*}/) {
            push @newline,"\\stopalign";
            push @newline,"\\stopformula";
        }
        elsif ($foo[$i] =~ /^\\end{align}/) {
            push @newline,"\\stopalign";
            push @newline,"\\stopformula";
        }
        elsif ($foo[$i] =~ /^\\end{eqnarray\*}/) {
            push @newline,"\\stopalign";
            push @newline,"\\stopformula";
        }
        elsif ($foo[$i] =~ /^\\end{eqnarray}/) {
            push @newline,"\\stopalign";
            push @newline,"\\stopformula";
        }
        elsif ( $foo[$i] =~/^\\end{equation}/){
            push @newline, "\\stopformula";
        }
        elsif ($foo[$i] =~/^\\end{equation\*\}/){
            push @newline,"\\stopformula";
        }
        elsif ($foo[$i] =~ /^\\begin{align}/){

            if ($foo[$i+1] =~ /^\\label\{/){

                $startbrace = index($foo[$i+1],"\{");
                $endbrace = index($foo[$i+1],"\}");

                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+1]))) {
                    $s = substr($foo[$i+1],$startbrace+1,$endbrace - $startbrace - 1);

                    $b =~ s/^\\begin{align}/\\placeformula[$s]/;

                    push @newline, $b;
                    push @newline, "\\startformula";
                    push @newline, "\\startalign[n=3]";

                    delete $foo[$i+1];                  
                }
            }
            else {
                $b =~ s/^\\begin{align}/\\placeformula[]/;
                push @newline, $b;
                push @newline, "\\startformula";
                push @newline, "\\startalign[n=3]";             
            }
        }
        elsif ($foo[$i] =~ /^\\begin{figure}/){
            if ($foo[$i+4] =~ /^\\end{figure}/) {
                $startbrace = index($foo[$i+3],"\{");
                $endbrace = index($foo[$i+3],"\}");
                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+3]))) {
                    $s = substr($foo[$i+3],$startbrace+1,$endbrace - $startbrace - 1);
                    $b = "\\myfigure{}{$s}";
                }

                $startbrace = index($foo[$i+2],"\{");
                $endbrace = index($foo[$i+2],"\}");
                if (($startbrace >= 0) and ($endbrace <= length($foo[$i+2]))) {
                    $s = substr($foo[$i+2],$startbrace+1,$endbrace - $startbrace - 1);
                    $b = $b . "{$s}";
                }

                push @newline, $b;
                delete $foo[$i];
                delete $foo[$i+1];
                delete $foo[$i+2];
                delete $foo[$i+3];
                delete $foo[$i+4];
            }
        }
        elsif ($foo[$i] =~ /\\begin{enumerate}/){
            push @newline,"\\startitemize[n][stopper=)]";
        }
        elsif ($foo[$i] =~ /\\end{enumerate}/){
            push @newline,"\\stopitemize";
        }
        elsif ($foo[$i] =~ /\\begin{itemize}/){
            push @newline,"\\startitemize[a]";
        }
        elsif ($foo[$i] =~ /\\end{itemize}/){
            push @newline,"\\stopitemize";
        }
        elsif ($foo[$i] =~ /(\\ref\{.*?eqn.*?\})/ ){
            # line contains one or more \ref
            # split line into words and find all the ref's
            @words = split / / , $foo[$i];

            my $line;

            foreach $aword (@words){

                if ($aword =~ /(\\ref\{.*?eqn.*?\})/ ){

                    $aword =~ s/\\ref/\\informula/; 
                    $aword =~ s/\{/\[/;
                    $aword =~ s/\}/\]/;
                    $line = $line . " " . $aword;
                } 
                else {
                    $line = $line . " " . $aword;
                }
            }
            if ($line =~ /^\s/){
                $line =~ s/^\s//;
            }
            push @newline, $line;
        }
        elsif ($foo[$i] =~ /supacc/m){
            my $line;
            $line = $foo[$i];

            print TMPFILE "original line = $line\n";

            $line =~ s/\\supacc\{(\B.+?\B)\}/$1\{\}'/gm;
            $line =~ s/\\supacc\{(.+?)\}/$1\{\}'/gm;
            print TMPFILE "changed line = $line\n";
            push @newline, $line;
        }
        elsif ($foo[$i] =~ /^\\begin{/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^(\\end\{|\\end)/i){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\renewcommand/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\label\{/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\centering/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\{/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\}/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\rput/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\caption/){
            push @newline, "\%" . $foo[$i];
        }
        elsif ($foo[$i] =~ /^\\ps/){
            push @newline, "\%" . $foo[$i];
        }
        else {
            push @newline, $b;
        }
        $i = $i + 1;
        $currentline = $currentline + 1;
    }

    for $b (@newline){
        if ($b !~ /^$/){
            print $b . "\n";
        }
    }

    close(SOURCE);  
    close(TMPFILE);
}

Re: [NTG-context] [Fwd: Re: Miktex, Metapost and \loadfontfilesoncetrue]

WN