summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/changes
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/doc/latex/changes
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/doc/latex/changes')
-rw-r--r--Master/texmf-dist/doc/latex/changes/delcmdchanges.bash249
1 files changed, 0 insertions, 249 deletions
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] <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}"
-