summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/ucs/latexout.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 00:44:40 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 00:44:40 +0000
commitb4fc5f639874db951177ec539299d20908adb654 (patch)
tree52f08823ca58fffe3db6a9b075635038c567626c /Master/texmf-dist/doc/latex/ucs/latexout.pl
parentdec3d98ebe442d7ea93efbaa8dd2e2be8149a467 (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-xMaster/texmf-dist/doc/latex/ucs/latexout.pl36
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 $_;
+}