>From 177cdd60c2cfe8798547ad260bb821feeb896133 Mon Sep 17 00:00:00 2001
From: Akira Yokosawa <akiyks@xxxxxxxxx>
Date: Mon, 12 Sep 2016 23:39:22 +0900
Subject: [PATCH] Add scripts to check 'verbbox' env usage
This commit adds scripts to search modification candidates
for enclosing "verbbox" environment within "figure" environment.
At the top of perfbook directory, the command
$ sh utilities/doverbboxcheck.sh
will show \begin{figure} statements to be moved ahead of
"verbbox" environment.
Signed-off-by: Akira Yokosawa <akiyks@xxxxxxxxx>
---
utilities/doverbboxcheck.sh | 36 +++++++++++++++++++++++++++
utilities/verbboxcheck.pl | 59 +++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 95 insertions(+)
create mode 100644 utilities/doverbboxcheck.sh
create mode 100644 utilities/verbboxcheck.pl
diff --git a/utilities/doverbboxcheck.sh b/utilities/doverbboxcheck.sh
new file mode 100644
index 0000000..2801bf1
--- /dev/null
+++ b/utilities/doverbboxcheck.sh
@@ -0,0 +1,36 @@
+#!/bin/sh
+#
+# Apply verbboxcheck.pl for all .tex files
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, you can access it online at
+# http://www.gnu.org/licenses/gpl-2.0.html.
+#
+# Copyright (C) Akira Yokosawa, 2016
+#
+# Authors: Akira Yokosawa <akiyks@xxxxxxxxx>
+
+# check if companion script exists
+if ! test -e utilities/verbboxcheck.pl
+then
+ echo "utilities/verrboxcheck.pl not found."
+ exit 1
+fi
+texfiles=`find . -name '*.tex' -print`
+for i in $texfiles
+do
+ basename="${i%.tex}"
+# echo $basename
+ perl ./utilities/verbboxcheck.pl $basename.tex
+done
+
diff --git a/utilities/verbboxcheck.pl b/utilities/verbboxcheck.pl
new file mode 100644
index 0000000..976a41f
--- /dev/null
+++ b/utilities/verbboxcheck.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+#
+# Check usage pattern of "verbbox" environment
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, you can access it online at
+# http://www.gnu.org/licenses/gpl-2.0.html.
+#
+# Copyright (C) Akira Yokosawa, 2016
+#
+# Authors: Akira Yokosawa <akiyks@xxxxxxxxx>
+
+my $line_now;
+my $line_prev;
+my $line_prev_prev;
+my $in_figure = 0;
+my $interval = 0;
+my $line_num;
+my $fig_line;
+my $fig_line_num;
+my $infile = $ARGV[0];
+
+$line_prev_prev = <>;
+$line_prev = <>;
+$line_now = <>;
+$line_num = 3;
+
+while($line_now) {
+ if ($in_figure == 1) {
+ if ($line_now =~ /\\theverbbox/) {
+ print "$infile:$fig_line_num:$fig_line";
+ $in_figure = 0;
+ }
+ $interval++;
+ }
+ if ($line_now =~ /\\begin\{figure\}/) {
+ $in_figure = 1;
+ $fig_line = $line_now;
+ $fig_line_num = $line_num;
+ }
+ if ($interval > 3) {
+ $in_figure = 0;
+ $interval = 0;
+ }
+ $line_prev_prev = $line_prev;
+ $line_prev = $line_now;
+ $line_now = <>;
+ $line_num++;
+}
--
1.9.1
--
To unsubscribe from this list: send the line "unsubscribe perfbook" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
