From 502b428dee94827e6f7db02bd8c5d1ef7984d6aa Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 28 Apr 2011 22:37:42 +0000 Subject: changes (28apr11) git-svn-id: svn://tug.org/texlive/trunk@22239 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/scripts/changes/delcmdchanges.bash | 249 +++++++++++++++++++++ 1 file changed, 249 insertions(+) create mode 100644 Master/texmf-dist/scripts/changes/delcmdchanges.bash (limited to 'Master/texmf-dist/scripts/changes') diff --git a/Master/texmf-dist/scripts/changes/delcmdchanges.bash b/Master/texmf-dist/scripts/changes/delcmdchanges.bash new file mode 100644 index 00000000000..6f18194ee7b --- /dev/null +++ b/Master/texmf-dist/scripts/changes/delcmdchanges.bash @@ -0,0 +1,249 @@ +#!/bin/bash + +################################################################################ +# +# Copyright (C) 2011 Silvano Chiaradonna (ISTI-CNR) +# +# Macro: delcmdchanges.bash +# +# License: +# 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, +# write to the Free Software Foundation, Inc., 59 +# Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# An on-line copy of the GNU General Public License can +# be downloaded from the FSF web page at: +# http://www.gnu.org/copyleft/gpl.html +# +# Version: 1.0 +# +# Purpose: +# This script deletes all changes-commands of the package changes.sty, accepting changes. If option -i is specified you will be prompted to accept or reject changes interactively. +# +# Usage: +# delcmdchanges.bash [-i] [-h] +# +# Requirements: +# linux systems +# +################################################################################ + +usage() +{ + cat << EOF +usage: $0 [options] + +This script deletes all changes-commands of the package changes.sty, accepting changes. If option -i is specified you will be prompted to accept or reject changes interactively. + +options: + -h show this message + -i interactive mode +EOF +} + +#-----------------------MAIN---------------- + +while getopts ":ih" opt; do + case $opt in + i) + imode="1" + shift + ;; + h) + usage + exit + ;; + \?) + echo "Invalid option: -$OPTARG" >&2 + usage + exit + ;; + esac +done + +if [ ! -e "$1" ]; then + echo "Input file not found: $1" >&2 + exit +fi + +INFILE="$1" +OUTFILE="$2" + +rm -f "${OUTFILE}" +touch "${OUTFILE}" + +awk -v im=${imode} -v fn=${OUTFILE} ' +# remove commands (accepting changes): +# \added[][]{} +# \deleted[][]{} +# \replaced[][]{}{} + + BEGIN { EOT = SUBSEP } + +{ line[NR] = $0 } + +END { + do { + buf0 = "" + found = 0 + added = 0 + deleted = 0 + replaced = 0 + while (!found && (c = getc()) != EOT) { # parsing commands + buf0 = buf0 c + if( match(buf0, /\\added[[:space:]]*\[[^\]]*\][[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\added[[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\added[[:space:]]*{/) ) { # found command \added[][]{} + added = 1 + found = 1 + balance = 1 + } else + if( match(buf0, /\\deleted[[:space:]]*\[[^\]]*\][[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\deleted[[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\deleted[[:space:]]*{/) ) { # found command \deleted[][]{} + deleted = 1 + found = 1 + balance = 1 + } else + if( match(buf0, /\\replaced[[:space:]]*\[[^\]]*\][[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\replaced[[:space:]]*\[[^\]]*\][[:space:]]*{/) || + match(buf0, /\\replaced[[:space:]]*{/) ) { # found command \replaced[][]{}{} + replaced = 1 + found = 1 + balance = 1 + } + } + if( RLENGTH == -1 ) # command not found + pbuf0 = buf0 + else { # command found + pbuf0 = substr(buf0, 1, RSTART-1) + cmd = substr(buf0, RSTART, RLENGTH) # the command + } + printf("%s", pbuf0) >> fn # print text preceding command + if (c == EOT) + break + buf = "" + if( added ) { # command \added[][]{} + while (found && balance > 0 && (c = getc()) != EOT) # parsing + buf = buf c # + cmd = cmd buf # the command + if ( im ) { # interactive mode + printf("\nat line: %d\n%s\n", nr,cmd) + printf("Accept added text, Reject added text, Ignore or Finish accepting changes? [A|r|i|f]") + getline imoderes < "/dev/tty" + if( imoderes != "r" && imoderes != "i" ) { # accept added text + pbuf = substr(buf, 1, length(buf)-1) # remove ending curly brace "}" + printf("%s", pbuf) >> fn # print + if( imoderes == "f" ) # finish accepting changes + im = 0 # normal mode + } else + if( imoderes == "i" ) # ignore cmd + printf("%s", cmd) >> fn + } else { # accept change + pbuf = substr(buf, 1, length(buf)-1) # remove ending curly brace "}" + printf("%s", pbuf) >> fn # print + } + } # \added[][]{} + else + if( deleted ) { # command \deleted[][]{} + while (found && balance > 0 && (c = getc()) != EOT) # parsing + buf = buf c # to skip + cmd = cmd buf # the command + if ( im ) { # interactive mode + printf("\nat line: %d\n%s\n", nr,cmd) + printf("Accept to remove text, Reject deletion, Ignore or Finish accepting changes? [A|r|i|f]") + getline imoderes < "/dev/tty" + if( imoderes == "r" ) { # reject deletion + pbuf = substr(buf, 1, length(buf)-1) # remove ending curly brace "}" + printf("%s", pbuf) >> fn # print + } else + if( imoderes == "i" ) # ignore cmd + printf("%s", cmd) >> fn + else # accept changes + if( imoderes == "f" ) # finish accepting changes + im = 0 # normal mode + } # else accept changes + } # \deleted[][]{} + else + if ( replaced ) { # command \replaced[][]{}{} + while (replaced && balance > 0 && (c = getc()) != EOT) # parsing + buf = buf c # + cmd = cmd buf # the command + pbufnt = substr(buf, 1, length(buf)-1) # new text + buf = "" + skip=0 + while ( !skip && (c = getc()) != EOT ) { # skip first curly brace "{" + buf = buf c + if ( c !~ /[[:space:]]/ ) + skip = 1 + } + cmd = cmd buf # the command + if ( c != "{" ) { # found "{" + printf("\nOps! Syntax error at line %d of input file: \"%s\"\nPlease fix command \\replaced[][]{}{}: \"{\" is expected.\n\n", nr+1, cmd) + break + } + buf = "" + balance = 1 # reset balance + while (replaced && balance > 0 && (c = getc()) != EOT) # parsing + buf = buf c # + cmd = cmd buf # the command + pbufot = substr(buf, 1, length(buf)) # old text + if ( im ) { # interactive mode + printf("\nat line: %d\n%s\n", nr,cmd) + printf("Accept change, Reject change, Ignore or Finish accepting changes? [A|r|i|f]") + getline imoderes < "/dev/tty" + if( imoderes == "r" ) { # reject change + printf("%s", pbufot) >> fn # print + } else + if( imoderes == "i" ) { # ignore cmd + printf("%s", cmd) >> fn + } else { # accept change + printf("%s", pbufnt) >> fn # print + if( imoderes == "f" ) # finish accepting changes + im = 0 # normal mode + } + } else { # accept change + printf("%s", pbufnt) >> fn # print + } + } # \replaced[][]{}{} + } while(c != EOT) +} + +function getc() +{ + if (!nr) { + nr = 1 + nc = 1 + } + + if (nr > NR) + return EOT + if (nc > length(line[nr])) { + ++nr + nc = 1 + return "\n" + } + c = substr(line[nr], nc, 1) + ++nc + if (c == "{") + ++balance + else if (c == "}") + --balance + if (balance < 0) + balance = 0 + return c +} ' "${INFILE}" + -- cgit v1.2.3