diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2012-07-24 09:00:18 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2012-07-24 09:00:18 +0000 |
commit | c1841336503cc8eb2355c2eab40012c856f18369 (patch) | |
tree | cc621dbfe9646083a4ae860a614f291bdb97ce58 /Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl | |
parent | 5c61483aad70d3170b38c8c4a5b74d6f1c7581fd (diff) |
chktex: Move from utils/ to texk/, now using kpathsea
git-svn-id: svn://tug.org/texlive/trunk@27137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl')
-rw-r--r-- | Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl b/Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl new file mode 100644 index 00000000000..6bdbadcf127 --- /dev/null +++ b/Build/source/texk/chktex/chktex-1.6.6/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; + } +} |