summaryrefslogtreecommitdiff
path: root/Build/source/texk/chktex/chktex-src/MakeHTML.pl
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-02-23 02:19:09 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-02-23 02:19:09 +0000
commit0eaf34b634118d0cfbbed6289d092df4b7f9f754 (patch)
treefcae8fa2493245d7a590e2bd8b5b7c8687d7a096 /Build/source/texk/chktex/chktex-src/MakeHTML.pl
parentf94ae4a578234cf288e4c19139dee918fcd6adce (diff)
texk/chktex: New convention
git-svn-id: svn://tug.org/texlive/trunk@39827 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/chktex/chktex-src/MakeHTML.pl')
-rw-r--r--Build/source/texk/chktex/chktex-src/MakeHTML.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/Build/source/texk/chktex/chktex-src/MakeHTML.pl b/Build/source/texk/chktex/chktex-src/MakeHTML.pl
new file mode 100644
index 00000000000..6bdbadcf127
--- /dev/null
+++ b/Build/source/texk/chktex/chktex-src/MakeHTML.pl
@@ -0,0 +1,20 @@
+# Remove parts of code enclosed in %latex/%endlatex tags
+
+$latexonly = 0;
+
+while(<>)
+{
+ $latexonly = 1 if /^%latex/i;
+ $latexonly = 0 if /^%endlatex/i;
+
+
+ if($latexonly) {
+ if(/^%!(.*)/)
+ {
+ print $1;
+ }
+ }
+ else {
+ print;
+ }
+}