The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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