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

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}" 
+