diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-02-23 02:19:09 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-02-23 02:19:09 +0000 |
commit | 0eaf34b634118d0cfbbed6289d092df4b7f9f754 (patch) | |
tree | fcae8fa2493245d7a590e2bd8b5b7c8687d7a096 /Build/source/texk/chktex/chktex-src/MakeHTML.pl | |
parent | f94ae4a578234cf288e4c19139dee918fcd6adce (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.pl | 20 |
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; + } +} |