From 9db913a935e48687efa3249e41999ee2d5dd1048 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 19 Jul 2016 22:34:57 +0000 Subject: delcmdchanges.bash in scripts/ dir per package doc (no bin links) git-svn-id: svn://tug.org/texlive/trunk@41737 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/latex/changes/delcmdchanges.bash | 249 --------------------- 1 file changed, 249 deletions(-) delete mode 100644 Master/texmf-dist/doc/latex/changes/delcmdchanges.bash (limited to 'Master/texmf-dist/doc/latex/changes') diff --git a/Master/texmf-dist/doc/latex/changes/delcmdchanges.bash b/Master/texmf-dist/doc/latex/changes/delcmdchanges.bash deleted file mode 100644 index 6f18194ee7b..00000000000 --- a/Master/texmf-dist/doc/latex/changes/delcmdchanges.bash +++ /dev/null @@ -1,249 +0,0 @@ -#!/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