summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-08-26 23:07:28 +0000
committerKarl Berry <karl@freefriends.org>2012-08-26 23:07:28 +0000
commitd3535e838cefea309221187bb9e62698c0df8c51 (patch)
treedbee8197e1bfecefe547d53e843f0acff729a3fe /Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl
parent33353453d22fc5877a8ced58c673c7008ce8c00a (diff)
latex-web-companion non-update
git-svn-id: svn://tug.org/texlive/trunk@27531 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl')
-rw-r--r--Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl13
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl b/Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl
new file mode 100644
index 00000000000..f18f972832e
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl
@@ -0,0 +1,13 @@
+use SGMLS;
+
+$\ = "\n";
+
+$parse = new SGMLS(STDIN);
+
+while ($event = $parse->next_event) {
+ print "Event type: " . $event->type;
+ print "Data: " . $event->data;
+ print "File: " . $event->file || "[unavailable]";
+ print "Line: " . $event->line || "[unavailable]";
+ print "";
+}