summaryrefslogtreecommitdiff
path: root/Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2012-07-24 09:00:18 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2012-07-24 09:00:18 +0000
commitc1841336503cc8eb2355c2eab40012c856f18369 (patch)
treecc621dbfe9646083a4ae860a614f291bdb97ce58 /Build/source/texk/chktex/chktex-1.6.6/MakeHTML.pl
parent5c61483aad70d3170b38c8c4a5b74d6f1c7581fd (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.pl20
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;
+ }
+}