diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:44:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:44:40 +0000 |
commit | b4fc5f639874db951177ec539299d20908adb654 (patch) | |
tree | 52f08823ca58fffe3db6a9b075635038c567626c /Master/texmf-dist/doc/latex/ucs/latexout.pl | |
parent | dec3d98ebe442d7ea93efbaa8dd2e2be8149a467 (diff) |
doc 4
git-svn-id: svn://tug.org/texlive/trunk@80 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/ucs/latexout.pl')
-rwxr-xr-x | Master/texmf-dist/doc/latex/ucs/latexout.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/ucs/latexout.pl b/Master/texmf-dist/doc/latex/ucs/latexout.pl new file mode 100755 index 00000000000..d61cbe2ccc5 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ucs/latexout.pl @@ -0,0 +1,36 @@ +#! /usr/bin/perl -T -w + +=head1 NAME + +latexout.pl - Filters the LaTeX log and output, so that UTF8 stays UTF8. + +=head1 SYNOPSIS + +latex I<arguments> | latexout.pl + +=head1 DESCRIPTION + +TeX replaces bytes in the range of 0x80 to 0x9F by ^^xx +sequences. This filter restores them. + +=head1 BUGS + +Only complete lines are parsed, so when TeX wants input, the prompt is +not displayed. + +=head1 AUTHOR + +Dominique Unruh <I<dominique@unruh.de>>. + +=head1 SEE ALSO + +The LaTeX package B<ucs.sty>. + +=cut + +$| = 1; + +while (<>) { + s/\^\^([0-9a-f]{2})/chr hex $1/egi; + print $_; +} |