diff options
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.pl | 13 |
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 ""; +} |