#!/usr/bin/perl -s
### NOT IN DISTRO
our ($m);
$m ||= 1000;
my $tmp="/tmp/_tmxpdf_$$_.pdf";
my $tmx=shift or die("usage:\n\t$0 file.tmx\n");
use strict;
if(not -d "$ENV{HOME}/.gwb"){ mkdir("$ENV{HOME}/.gwb"); }
if(not -f "$ENV{HOME}/.gwb/tmx.css"){
open(F,">","$ENV{HOME}/.gwb/tmx.css") or
die("cant create'$ENV{HOME}/.gwb/tmx.css'\n");
while(<DATA>){ last if /END/;
print F $_}
close F;
}
system("prince -s $ENV{HOME}/.gwb/tmx.css $tmx $tmp 2>/dev/null");
system("xpdf -z width -cont -g 1500x1050 $tmp");
unlink $tmp;
__DATA__
@charset "UTF-8";
tu { display: block;
border-top: solid red 1px;
padding: 2pt;
counter-increment: num;
columns:2;
}
tuv { display: block;
page-break-inside: avoid;
margin-bottom: 4pt; }
tuv {color:orange; font-size:70% ; }
tuv:lang(pt) {color:green; }
tuv:lang(pt_pt){color:green; }
tuv:lang(pt-pt){color:green; }
tuv:lang(PT_PT){color:green; }
tuv:lang(PT-PT){color:green; }
tuv::before {color: black; font-size:70%; }
tuv[lang]::before { content:counter(num) " " attr(lang) " "; }
tuv:lang(pt)::before { content:counter(num) " PT "; }
tuv:lang(en)::before { content:counter(num) " EN "; }
tuv:lang(en_GB)::before { content:counter(num) " EN "; }
tuv:lang(en_US)::before { content:counter(num) " EN "; }
seg { }
header{ display:none; }
@page{
margin: 10mm 10mm 10mm 10mm;
columns:2;
size:A4;
}
@screen{
margin: 8mm 8mm 8mm 8mm;
columns:2;
size:screen;
}
/* END */
=head1 NAME
xpdf-tmx - convert TMX files to PDF and show them
=head1 SYNOPSIS
xpdf-tmx file.tmx
=head1 DESCRIPTION
=head2 Dependencies
C<prince> converter must be installed
xpdf
=head1 AUTHOR
J.Joao Almeida, jj@di.uminho.pt
=head1 SEE ALSO
perl(1).
prince
xpdf
=cut