blob: ad7d4d792fa66f209a7fce31eb524819102dc6e5 (
plain)
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
#!/usr/local/bin/perl
#
# Sample external converter for htdig 3.1.4 or later, to convert PDFs
# using Adobe Acrobat 3's acroread -toPostScript option on UNIX systems.
# (Use it in place of conv_doc.pl if you have acroread but not pdftotext.)
# Written by Gilles Detillieux.
#
# Usage: (in htdig.conf)
#
# external_parsers: application/pdf->text/html /usr/local/bin/acroconv.pl
#
# This is a pretty quick and dirty implementation, but it does seem to
# give functionality equivalent to the now defunct htdig/PDF.cc parser.
# I'm not a Perl expert by any stretch of the imagination, so the code
# could probably use a lot of optimization to make it work better.
#
$watch = 0;
$bigspace = 0;
$putspace = 0;
$putbody = 1;
system("ln $ARGV[0] $ARGV[0].pdf; acroread -toPostScript $ARGV[0].pdf");
open(INP, "< $ARGV[0].ps") || die "Can't open $ARGV[0].ps\n";
print "<HTML>\n<head>\n";
while (<INP>) {
if (/^%%Title: / && $putbody) {
s/^%%Title: \((.*)\).*\n/$1/;
s/\\222/'/g;
s/\\267/*/g;
s/\\336/fi/g;
s/\\([0-7]{3})/pack(C, oct($1))/eig;
s/\\([0-7]{2})/pack(C, oct($1))/eig;
s/\\([0-7])/pack(C, oct($1))/eig;
s/\\[nrtbf]/ /g;
s/\\(.)/$1/g;
s/&/\&\;/g;
s/</\<\;/g;
s/>/\>\;/g;
print "<title>$_</title>\n";
print "</head>\n<body>\n";
$putbody = 0;
} elsif (/^BT/) {
$watch = 1;
} elsif (/^ET/) {
$watch = 0;
if ($putspace) {
print "\n";
$putspace = 0;
}
} elsif ($watch) {
if (/T[Jj]$/) {
s/\)[^(]*\(//g;
s/^[^(]*\((.*)\).*\n/$1/;
s/\\222/'/g;
s/\\267/*/g;
s/\\336/fi/g;
s/\\([0-7]{3})/pack(C, oct($1))/eig;
s/\\([0-7]{2})/pack(C, oct($1))/eig;
s/\\([0-7])/pack(C, oct($1))/eig;
s/\\[nrtbf]/ /g;
s/\\(.)/$1/g;
if ($bigspace) {
s/(.)/$1 /g;
}
s/&/\&\;/g;
s/</\<\;/g;
s/>/\>\;/g;
if ($putbody) {
print "</head>\n<body>\n";
$putbody = 0;
}
print "$_";
$putspace = 1;
} elsif (/T[Ddm*]$/ && $putspace) {
print "\n";
$putspace = 0;
} elsif (/Tc$/) {
$bigspace = 0;
if (/^([3-9]|[1-9][0-9]+)\..*Tc$/) {
$bigspace = 1;
}
}
}
}
if ($putbody) {
print "</head>\n<body>\n";
}
print "</body>\n</HTML>\n";
close(INP);
system("rm -f $ARGV[0].pdf $ARGV[0].ps");
|
