1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
$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:
|
