changes (10aug13)

git-svn-id: svn://tug.org/texlive/trunk@31408 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 249 deletions

diff --git a/Master/texmf-dist/scripts/changes/delcmdchanges.bash b/Master/texmf-dist/scripts/changes/delcmdchanges.bash
deleted file mode 100755
index 6f18194ee7b..00000000000
--- a/Master/texmf-dist/scripts/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] <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}" 
-