summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-07-19 22:34:57 +0000
committerKarl Berry <karl@freefriends.org>2016-07-19 22:34:57 +0000
commit9db913a935e48687efa3249e41999ee2d5dd1048 (patch)
treea29ac67ee0e948c7eb7b7cafae0da7f711431370 /Master/texmf-dist/scripts
parent20e9e88c51d437543e57fa465038a12b5c49ae18 (diff)
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
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/changes/delcmdchanges.bash249
1 files changed, 249 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/changes/delcmdchanges.bash b/Master/texmf-dist/scripts/changes/delcmdchanges.bash
new file mode 100755
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] <inputfile> <outputfile>
+#
+# Requirements:
+# linux systems
+#
+################################################################################
+
+usage()
+{
+ cat << EOF
+usage: $0 [options] <inputfile> <outputfile>
+
+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[<authorid>][<remark>]{<new text>}
+# \deleted[<authorid>][<remark>]{<deleted text>}
+# \replaced[<authorid>][<remark>]{<new text>}{<old text>}
+
+ 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[<authorid>][<remark>]{<new text>}
+ 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[<authorid>][<remark>]{<deleted text>}
+ 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[<authorid>][<remark>]{<new text>}{<old text>}
+ 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 <new text>
+ buf = buf c # <new text>
+ 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 <new text>
+ 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 <new text>
+ }
+ } # \added[][]{}
+ else
+ if( deleted ) { # command \deleted[][]{}
+ while (found && balance > 0 && (c = getc()) != EOT) # parsing <deleted text>
+ buf = buf c # <deleted text> 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 <deleted text>
+ } 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 <new text>
+ buf = buf c # <new text>
+ 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 <old text>
+ buf = buf c # <old text>
+ 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 <old text>
+ } else
+ if( imoderes == "i" ) { # ignore cmd
+ printf("%s", cmd) >> fn
+ } else { # accept change
+ printf("%s", pbufnt) >> fn # print <new text>
+ if( imoderes == "f" ) # finish accepting changes
+ im = 0 # normal mode
+ }
+ } else { # accept change
+ printf("%s", pbufnt) >> fn # print <new text>
+ }
+ } # \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}"
+