On Tue, Sep 13, 2016 at 12:08:11AM +0900, Akira Yokosawa wrote:
> >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) {
Doesn't this need to be not-equal rather than equal? Or is the fact
that I haven't written perl for 20 years becoming apparent? ;-)
Thanx, Paul
> + 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
