dwww Home | Show directory contents | Find package

$dvi_mode = 0;
$pdf_mode = 1;
$makeindex = "makeindex %O -s letdoc.ist -o %D %S";
$pdflatex  = 'pdflatex -interaction=nonstopmode %O %S';
$clean_ext .= ' tns fax trimmed';
$clean_full_ext .= ' odt';
@default_files=('letex1.tex', 'letex2.tex', 'letex3.tex', 'letex4.tex', 'letex5.tex', 'letex6.tex', 'letex7.tex', 'letex8.tex', 'testfaxf.tex', 'testfaxe.tex', 'testfaxd.tex', 'lettre.tex' );

sub do_tex2trimmed {
        my $in;
        my $inputfile = "$_[0].tex";
        open($in,  "<", "$inputfile")  or die "Can't open $inputfile $!";       
        my $out;
        my $cur_out = \*STDOUT;
        my $outputfile = "$_[0].trimmed";
        open($out, ">", $outputfile) or die "Can't open $outputfile $!";
        # 0 = in header
        # 1 = in body
        my $state = 0;
  LINE: 
        while(<$in>){
                $line = $_ ;
                if($state eq 0)
                {
                        if($line =~ /\A\s*\\documentclass/)
                        {
                                $state = 1;
                                goto OUTPUT;
                        }
                        next LINE;
                }
                if($state eq 1)
                {
                  OUTPUT:
                        print $out "$line";
                        if($line =~ /\A\s*\\end\{document\}/)
                        {
                                $state = 2;
                                goto CLOSEIT;
                        }
                        next LINE;
                }
                goto CLOSEIT;
  }
  CLOSEIT:
        close $in;
        close $out;
        return 0;
}

add_cus_dep('tex','trimmed',0,'do_tex2trimmed');

# Local Variables:
# mode: perl
# End:

Generated by dwww version 1.15 on Sat May 18 06:12:31 CEST 2024.