diff options
Diffstat (limited to 'Master/texmf-dist/doc/support/classpack/decommentbbl.awk')
-rw-r--r-- | Master/texmf-dist/doc/support/classpack/decommentbbl.awk | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/support/classpack/decommentbbl.awk b/Master/texmf-dist/doc/support/classpack/decommentbbl.awk new file mode 100644 index 00000000000..0ceb4d7f369 --- /dev/null +++ b/Master/texmf-dist/doc/support/classpack/decommentbbl.awk @@ -0,0 +1,37 @@ +# decommentbbl.awk +# +# This awk(1) script catenates consecutive lines of a BiBTeX-produced +# .bbl file which end in a comment character (removing the comment +# character in the process) because the default % comment character +# gets misinterpreted by the ltxdoc package when building class or +# package files. +# +# Copyright © 2008-2012 Silmaril Consultants +# Available under the terms of the LaTeX Project Public License +# as part of the classpack development package +# Peter Flynn <peter@silmaril.ie> 2010-10-14 +# +###################################################################### +# +# Read every line of the file into an array + +{ + line[NR]=$0; +} + +###################################################################### +# +# At the end, go through the array; if a line ends with a % sign, +# catenate it to the buffer, omitting the percent sign itself; +# otherwise, output the buffer and zero it for further use. + +END { + for(i=1;i<=NR;++i) { + if(substr(line[i],length(line[i]))=="%") { + buffer=buffer substr(line[i],1,length(line[i])-1); + } else { + print buffer line[i];buffer=""; + } + } +} + |