diff options
| author | Karl Berry <karl@freefriends.org> | 2012-02-20 23:30:41 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-02-20 23:30:41 +0000 |
| commit | 1c39817dbba19c5ef1e95912dabb3805085871ac (patch) | |
| tree | 3fab0a2459b309fb008220e7246a2c62edf3dceb /Master/texmf-dist/scripts | |
| parent | 483b3f9dce87bcacba98678c388b283cc0fbe204 (diff) | |
match_parens (20feb12)
git-svn-id: svn://tug.org/texlive/trunk@25447 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
| -rwxr-xr-x | Master/texmf-dist/scripts/match_parens/match_parens | 100 |
1 files changed, 74 insertions, 26 deletions
diff --git a/Master/texmf-dist/scripts/match_parens/match_parens b/Master/texmf-dist/scripts/match_parens/match_parens index b5c0fa18da1..42286fa1141 100755 --- a/Master/texmf-dist/scripts/match_parens/match_parens +++ b/Master/texmf-dist/scripts/match_parens/match_parens @@ -4,20 +4,63 @@ == match_parens - find mismatches of parentheses, braces, (angle) brackets, in texts -== Synopsis +=== Synopsis match_parens [_filename_] -== Description +=== Description Mismatches of parentheses, braces, (angle) brackets, especially in TeX -sources which may be rich in those, may be difficult to trace. This -little script helps you by writing your text to standard output, after -adding a left margin to your text, which will normally be almost empty, -but will clearly show any mismatches. (Just try me on myself to see that -the parenthesis starting this sentence will not appear to be matched at -the end of the file. If you look at me in the vim editor, try the command -:%!% +sources which may be rich in those, may be difficult to trace. This little +script helps you by writing your text to standard output, after adding a +left margin to your text, which will normally be almost empty, but will +clearly show any mismatches. (Just try me on myself to see that the +parenthesis starting this sentence will not appear to be matched at the end +of the file. If you look at me in the vim editor, then select this +paragraph and try the command :!% + +The exit value of the script is 0 when there are no mismatches, 1 otherwise. + +Angle brackets are only looked for inside HTML text, where HTML is +supposed to start with <html>, =begin rdoc, or <<RDOC and to end with +</html>, =end or RDOC + +=== Examples +Suppose we have two files, _good_ and _bad_, containing these texts: + + good: bad: + This is a (simple) test This is a (simple test + without mismatches containing mismatches + +then here are some usage examples. First a simple test on these files: + + $ match_parens good + 1 This is a (simple) test + 2 without mismatches + $ echo $? + 0 + $ match_parens bad + 1 ( This is a (simple test + 2 ( containing mismatches + $ echo $? + 1 + +Just report if there are mismatches: + + $ match_parens good >/dev/null && echo fine || echo problems + fine + $ match_parens bad >/dev/null && echo fine || echo problems + problems + +Report all tex files with mismatches in the current directory: + + $ for i in *.tex; do match_parens $i >/dev/null || echo $i; done + +Matches must be in correct order: + + $ echo -e "This is a ([simple)] test\n" | match_parens + 1 ([)] This is a ([simple)] test + 2 ([)] === Copyright @@ -33,29 +76,34 @@ but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. See the {GNU General Public License}[http://www.gnu.org/licenses/] for more details. -$Id: match_parens,v 1.7 2011-07-30 09:31:24 wybo Exp $ +$Id: match_parens,v 1.10 2012/02/20 13:28:52 wybo Exp $ =end private - s, n, html, parens = + s, n, html, notparens = '', '0', false, '^{}[]()' -RELEASE = 1.3 +RELEASE = 1.4 -while gets() - if html - if ~/^=end/ || ~/<\/html>/i +arg = ARGV[0] || '' +unless arg.empty? + test(?e,arg) or raise("file #{arg} does not exist") + test(?r,arg) or raise("file #{arg} is not readable") +end +while x = gets() + if html && (x=~/^(RDOC|[# ]*=end)/ || x=~/<\/html>/i) html = false - parens = '^{}[]()' - end - else - if ~/^=begin rdoc/ || ~/\<html\>/i + notparens = '^{}[]()' + elsif !html && (x=~/^(<<RDOC|[# ]*=begin rdoc)/ || x=~/<html>/i) html = true - parens = '^{}[]()<>' - end - end - # look for <> in html or rdoc: - s << $_.tr(parens,'') - while s.gsub!(/\{\}|\(\)|\[\]|<>/,'') do end - puts [n.next!,s,$_].join("\t") + notparens = '^{}[]()<>' + end + # remove {x} where x in []{}()<>, copy all parens to s + s << x.sub(/^<<RDOC/,''). + gsub(/\{[\[\]{}()<>]\}/,''). + tr(notparens,'') + # remove matches from inside + while s.gsub!(/\{\}|\(\)|\[\]|<>/,'') do end + puts ["%7d" % [n.next!],s,x].join("\t") end +exit s.empty? ? 0 : 1 |