Viewing file:  fdf2tex.pl (4.28 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
if 0;
# not yet public
# We're dealing with:
$InpFile = $ARGV[0] ; $OutFile = $ARGV[1] ; $Field = $ARGV[2] ;
# beware: fields are funny sorted
$Program = "fdf2tex 1.02 - ConTeXt / PRAGMA 1997-2000" ;
if ($Field eq "")
{ print "\n$Program\n\n" }
# filter \type{filename.fdf} into \type{filename.fdt}
unless ($OutFile)
{ $OutFile = $InpFile ;
$OutFile =~ s/\..*// }
unless ($InpFile=~/\./)
{ if (-e "$InpFile.fdf")
{ $InpFile .= ".fdf" }
elsif (-e "$InpFile.xml")
{ $InpFile .= ".xml" } }
unless ($OutFile=~/\./)
{ $OutFile .= ".fdt" }
if (open (FDF, "<$InpFile"))
{ binmode FDF ;
open (FDT, ">$OutFile") ;
if ($Field eq "")
{ print " input file : $InpFile\n" ;
print " output file : $OutFile\n" } }
else
{ if ($Field eq "")
{ print " error : $InpFile not found\n" }
exit }
# load the whole file in the buffer
$_ = "" ; while ($Line=<FDF>) { chomp $Line; $_ .= $Line }
# or faster: dan ///s gebruiken (ipv m)
# $/ = "\0777" ; $_ = <FDF> ;
# zoom in on the objects and remove the header and trialer
if ($InpFile =~ /\.xml$/)
{ # begin kind of xml alternative
s/\>\s*\</\>\</goms ;
$N = s/\<field\s+(.*?)\/\>/\\FDFfield\[$1\]\n/goms ;
s/(name|value)\=\"(.*?)\"/$1=\{$2\}/goms ;
s/\} (name|value)/\}\,$1/goms ;
s/\<fdfobject\>(.*?)\<\/fdfobject\>/\\beginFDFobject\n$1\\endFDFobject\n/goms ;
s/\<fdfdata\>(.*?)\<\/fdfdata\>/\\beginFDFdata\n$1\\endFDFdata\n/goms ;
s/\<fdffields\>(.*?)\<\/fdffields\>/\\beginFDFfields\n$1\\endFDFfields\n/goms ;
} # end kind of xml alternative
else
{ # begin fdf alternative
s/.*?obj\s*?<<(.*?)>>\s*?endobj/\n\\beginFDFobject$1\n\\endFDFobject/go;
s/trailer.*//;
# zoom in on the FDF data
s/\/FDF.*?<<(.*)>>/\n\\beginFDFdata$1\n\\endFDFdata/go;
# zoom in on the Field collection and remove whatever else
s/\/Fields.*?\[.*?<<.*?(.*).*?>>.*?\]/\n\\beginFDFfields<<$1>>\n\\endFDFfields/go;
s/\\endFDFfields.*\n\\endFDFdata/\\endFDFfields\n\\endFDFdata/go;
# tag each field
$N = s/\<<(.*?)>>/\n\\FDFfield[$1]/go;
# remove non relevant entries, but keep \type{/T} and \type{/V}
s/\s*?\/[Kids|Opt]\s*?<<.*?>>//go;
s/\s*?\/[Ff|setFf|ClrFf|F|SetF|ClrF]\s*?\d*?//go;
s/\s*?\/[AP|A|AS]\s*?\[.*?\]//go;
s/\s*?\/AS\s*?\/.*?\s//go;
# format the field identifier
s/(.*?)\/T.*?\((.*?)\)/$1 name=$2,/go;
# format the value, which can be a name or string
s/\/V\s?\((.*?)\)/value=\{$1\},/go;
s/\/V\s?\/(.*?)[\s|\/]/value=\{$1\},/go;
# sanitize some special \TeX\ tokens
s/(\#|\$|\&|\^|\_|\|)/\\$1/go;
# remove spaces and commas
#s/\s?([name|value])/$1/go;
s/\[\s*/\[/go;
s/,\]/\]/go;
# convert PDFDocEncoding
s/\\225/\\\/L/ ;
s/\\226/\\OE/ ;
s/\\227/\\vS/ ;
s/\\230/\\"Y/ ;
s/\\231/\\vZ/ ;
s/\\233/\\\/l/ ;
s/\\234/\\oe/ ;
s/\\235/\\vs/ ;
s/\\236/\\vz/ ;
s/\\253/\\<</ ;
s/\\273/\\>>/ ;
s/\\300/\\`A/ ;
s/\\301/\\'A/ ;
s/\\302/\\^A/ ;
s/\\303/\\~A/ ;
s/\\304/\\"A/ ;
s/\\305/\\oA/ ;
s/\\306/\\AE/ ;
s/\\307/\\,C/ ;
s/\\310/\\`E/ ;
s/\\311/\\'E/ ;
s/\\312/\\^E/ ;
s/\\313/\\"E/ ;
s/\\314/\\`I/ ;
s/\\315/\\'I/ ;
s/\\316/\\^I/ ;
s/\\317/\\"I/ ;
s/\\321/\\~N/ ;
s/\\322/\\`O/ ;
s/\\323/\\'O/ ;
s/\\324/\\^O/ ;
s/\\325/\\~O/ ;
s/\\326/\\"O/ ;
s/\\330/\\\/O/ ;
s/\\331/\\`U/ ;
s/\\332/\\'U/ ;
s/\\333/\\^U/ ;
s/\\334/\\"U/ ;
s/\\335/\\'Y/ ;
s/\\337/\\ss/ ;
s/\\340/\\`a/ ;
s/\\341/\\'a/ ;
s/\\342/\\^a/ ;
s/\\343/\\~a/ ;
s/\\344/\\"a/ ;
s/\\345/\\oa/ ;
s/\\346/\\ae/ ;
s/\\347/\\,c/ ;
s/\\350/\\`e/ ;
s/\\351/\\'e/ ;
s/\\352/\\^e/ ;
s/\\353/\\"e/ ;
s/\\354/\\`i/ ;
s/\\355/\\'i/ ;
s/\\356/\\^i/ ;
s/\\357/\\"i/ ;
s/\\361/\\~n/ ;
s/\\362/\\`o/ ;
s/\\363/\\'o/ ;
s/\\364/\\^o/ ;
s/\\365/\\~o/ ;
s/\\366/\\"o/ ;
s/\\370/\\\/o/ ;
s/\\371/\\`u/ ;
s/\\372/\\'u/ ;
s/\\373/\\^u/ ;
s/\\374/\\"u/ ;
s/\\375/\\'y/ ;
s/\\377/\\"y/ ;
s/\\\</\</ ;
s/\\\>/\>/ ;
s/\\\(/\(/ ;
s/\\\)/\)/ ;
s/\#/\\#/ ;
# convert newline and return commands
s/\\n/ /go;
s/\\r/\\par /go;
} # end fdf alternative
# flush buffer
print FDT $_ ;
close FDT ;
close FDF ;
# report some characteristics
if ($Field eq "")
{ print " number of fields : $N\n" }
else
{ if (/\\FDFfield\[value\=\{(.*)\}\,\s*name=$Field/mos)
{ print "$1" }
elsif (/\\FDFfield\[name=$Field\,\s*value\=\{(.*)\}/mos)
{ print "$1" } }
|