summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-web-companion/ch7/test-SGMLS.pl
diff options
context:
space:
mode:
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 "";
+}