mirror of
https://https.git.savannah.gnu.org/git/bash.git
synced 2026-06-29 16:39:53 +02:00
Imported from ../bash-2.02.tar.gz.
This commit is contained in:
Jari Aalto
@@ -0,0 +1,92 @@
|
||||
#! /bin/bash
|
||||
#
|
||||
# From: c2a192@ugrad.cs.ubc.ca (Kazimir Kylheku)
|
||||
# Newsgroups: comp.unix.shell,comp.os.linux.misc
|
||||
# Subject: GNU Bash Script to fix filenames
|
||||
# Date: 28 Mar 1996 14:54:43 -0800
|
||||
# Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
|
||||
#
|
||||
#This is a script which takes a list of directories, descends through each one
|
||||
#and ``corrects'' filenames that:
|
||||
#
|
||||
# - contain filename globbing characters: * ? [ ]
|
||||
# - quote characters: ' "
|
||||
# - control characters: 0-31 (127 is not dealt with---oops)
|
||||
# - - or + as the first character
|
||||
#
|
||||
# The GNU version of 'tr' is required. Also requires 'sed'.
|
||||
#
|
||||
# Script to process a given list of directories recursively
|
||||
# and rename each file to something that is reasonable.
|
||||
#
|
||||
# The rules are:
|
||||
#
|
||||
# 1. replace each space, [, ], *, ", and ' character in the name with a
|
||||
# period.
|
||||
# 2. replace each control character 1..31 with a printable character obtained
|
||||
# by adding 64 to the ascii value. ^A becomes A, ^B becomes B and so on.
|
||||
# 3. replace a - or + occuring at the beginning of the name with a #
|
||||
#
|
||||
# 4. if the resulting name has been changed in any way, then
|
||||
# 5. if a file of the new name already exists, then
|
||||
# 6. add a . to the new name and goto step 5.
|
||||
# 7. rename the old name to the new name
|
||||
#
|
||||
# written by Kaz Kylheku <kaz@cafe.net>
|
||||
# March 1996
|
||||
# Vancouver, Canada
|
||||
#
|
||||
# requires GNU 'bash', GNU 'tr', and some sort of 'sed' program.
|
||||
#
|
||||
# minimal conversion to bash v2 syntax done by Chet Ramey
|
||||
|
||||
processfile()
|
||||
{
|
||||
new_name="`echo -n $1 | tr '\173\175\052\077\042\047 ' '.......' |
|
||||
tr '[\000-\037]' '[\100-\137]' |
|
||||
sed -e 's/^-/#/' -e 's/+/#/'`"
|
||||
if [ "$new_name" != "$1" ] ; then
|
||||
while [ -e "$new_name" ] ; do
|
||||
new_name="${new_name}."
|
||||
done
|
||||
echo changing \"$1\" to \"$new_name\" in `pwd`
|
||||
mv -- "$1" "$new_name"
|
||||
fi
|
||||
}
|
||||
|
||||
processdir()
|
||||
{
|
||||
set -f
|
||||
local savepwd="$PWD"
|
||||
if cd "$1" ; then
|
||||
set +f
|
||||
for file in * ; do
|
||||
set -f
|
||||
if [ "$file" != "." -a "$file" != ".." ] ; then
|
||||
if [ -L "$file" ] ; then
|
||||
echo "skipping symlink" $file in `pwd`
|
||||
elif [ -d "$file" ] ; then
|
||||
processdir "$file"
|
||||
elif [ -f "$file" ] ; then
|
||||
processfile "$file"
|
||||
fi
|
||||
fi
|
||||
done
|
||||
cd "$savepwd"
|
||||
fi
|
||||
}
|
||||
|
||||
shopt -s nullglob dotglob
|
||||
|
||||
if [ $# = 0 ] ; then
|
||||
echo "$0: must specify a list of directories" >&2
|
||||
echo "$0: usage: $0 directory [directory ...]" >&2
|
||||
exit 2
|
||||
fi
|
||||
|
||||
while [ $# != 0 ] ; do
|
||||
processdir "$1"
|
||||
shift
|
||||
done
|
||||
|
||||
exit 0
|
||||
@@ -0,0 +1,21 @@
|
||||
# Towers of Hanoi in bash
|
||||
#
|
||||
# cribbed from the ksh93 book, example from exercises on page 85
|
||||
#
|
||||
# Chet Ramey
|
||||
# chet@po.cwru.edu
|
||||
|
||||
hanoi() # n from to spare
|
||||
{
|
||||
typeset -i nm1=$1-1
|
||||
((nm1>0)) && hanoi $nm1 $2 $4 $3
|
||||
echo "Move disc $2 to $3"
|
||||
((nm1>0)) && hanoi $nm1 $4 $3 $2
|
||||
}
|
||||
|
||||
case $1 in
|
||||
[1-9])
|
||||
hanoi $1 1 2 3;;
|
||||
*) echo "${0##*/}: Argument must be from 1 to 9"
|
||||
exit 1;;
|
||||
esac
|
||||
Executable
+74
@@ -0,0 +1,74 @@
|
||||
# Originally
|
||||
#
|
||||
# From: bsh20858@news.fhda.edu (Brian S Hiles)
|
||||
# Newsgroups: comp.unix.shell
|
||||
# Subject: Re: getting random numbers
|
||||
# Date: 23 Jan 1997 23:27:30 GMT
|
||||
# Message-ID: <5c8s52$eif@tiptoe.fhda.edu>
|
||||
|
||||
# @(#) krand Produces a random number within integer limits
|
||||
# "krand" Korn shell script generates a random number in a
|
||||
# specified range with an optionally specified ``seed'' value.
|
||||
# Author: Peter Turnbull, May 1993
|
||||
# Modified by: Becca Thomas, January 1994
|
||||
|
||||
# changed the optional third argument to a -s option, converted to
|
||||
# bash v2 syntax -- chet@po.cwru.edu
|
||||
|
||||
PROGNAME=${0##*/}
|
||||
USAGE="usage: $PROGNAME [-s seed] lower-limit upper-limit"
|
||||
|
||||
Seed=$$ # Initialize random-number seed value with PID
|
||||
|
||||
usage()
|
||||
{
|
||||
echo ${PROGNAME}: "$USAGE" >&2
|
||||
}
|
||||
|
||||
errexit()
|
||||
{
|
||||
echo ${PROGNAME}: "$@" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
# Process command-line arguments:
|
||||
while getopts "s:" opt; do
|
||||
case "$opt" in
|
||||
s) Seed=$OPTARG ;;
|
||||
*) usage ; exit 2;;
|
||||
esac
|
||||
done
|
||||
|
||||
shift $(($OPTIND - 1))
|
||||
|
||||
case $# in
|
||||
2) Lower=$1; Upper=$2 ;;
|
||||
*) usage ; exit 2;;
|
||||
esac
|
||||
|
||||
# Check that specified values are integers:
|
||||
expr "$Lower" + 0 >/dev/null 2>&1
|
||||
[ $? -eq 2 ] && { errexit "lower ($Lower) not an integer"; }
|
||||
expr "$Upper" + 0 >/dev/null 2>&1
|
||||
[ $? -eq 2 ] && { errexit "upper ($Upper) not an integer"; }
|
||||
expr "$Seed" + 0 >/dev/null 2>&1
|
||||
[ $? -eq 2 ] && { errexit "seed ($Seed) not an integer"; }
|
||||
|
||||
# Check that values are in the correct range:
|
||||
if (( "$Lower" < 0 )) || [ ${#Lower} -gt 5 ]; then
|
||||
errexit "lower limit ($Lower) less than zero"
|
||||
fi
|
||||
if (( "$Upper" > 32767 )) || [ ${#Upper} -gt 5 ]; then
|
||||
errexit "upper limit ($Upper) greater than 32767"
|
||||
fi
|
||||
if (( "$Seed" < 0 )) || (( "$Seed" > 32767 )) || [ ${#Seed} -gt 5 ]; then
|
||||
errexit "seed value ($Seed) out of range (0 to 32767)"
|
||||
fi
|
||||
(( "$Upper" <= "$Lower" )) && errexit "upper limit ($Upper) <= lower limit ($Lower)"
|
||||
|
||||
# Seed the random-number generator:
|
||||
RANDOM=$Seed
|
||||
# Compute value, scaled within range:
|
||||
let rand="$RANDOM % ($Upper - $Lower + 1) + $Lower"
|
||||
# Report result:
|
||||
echo $rand
|
||||
@@ -0,0 +1,18 @@
|
||||
# The following prints a random card from a card deck.
|
||||
#
|
||||
# cribbed from the ksh93 book, example from page 70
|
||||
#
|
||||
# chet@po.cwru.edu
|
||||
#
|
||||
declare -i i=0
|
||||
|
||||
# load the deck
|
||||
for suit in clubs diamonds hearts spades; do
|
||||
for n in ace 2 3 4 5 6 7 8 9 10 jack queen king; do
|
||||
card[i]="$n of $suit"
|
||||
i=i+1 # let is not required with integer variables
|
||||
done
|
||||
done
|
||||
|
||||
# and print a random card
|
||||
echo ${card[RANDOM%52]}
|
||||
@@ -9,17 +9,17 @@
|
||||
# converted from ksh syntax to bash v2 syntax by Chet Ramey
|
||||
|
||||
WIDTH=${COLUMNS:-80}
|
||||
WMINUS=$(( $WIDTH - 1 ))
|
||||
|
||||
[ $# -lt 1 ] && set -- TESTING
|
||||
|
||||
# Posix.2 compatible printf command or bash loadable builtin
|
||||
# in examples/loadables/printf
|
||||
# use the bash-2.02 printf builtin
|
||||
Text=$(printf "%-${WIDTH}s" "$*")
|
||||
Text=$(echo "$Text" | tr ' ' '_')
|
||||
Text=${Text// /_}
|
||||
|
||||
while :
|
||||
do
|
||||
printf "%-.${WIDTH}s\r" "$Text"
|
||||
LastC=$(expr "$Text" : '.*\(.\)$')
|
||||
Text=$(printf "%-.${WIDTH}s" "$LastC$Text")
|
||||
LastC=${Text:${WMINUS}:1}
|
||||
Text="$LastC""${Text%?}"
|
||||
done
|
||||
|
||||
Executable
+24
@@ -0,0 +1,24 @@
|
||||
#!/bin/bash
|
||||
#
|
||||
# scrollbar - display scrolling text
|
||||
#
|
||||
# usage: scrollbar args
|
||||
#
|
||||
# A cute hack originally from Heiner Steven <hs@bintec.de>
|
||||
#
|
||||
# converted from ksh syntax to bash v2 syntax by Chet Ramey
|
||||
|
||||
WIDTH=${COLUMNS:-80}
|
||||
WMINUS=$(( $WIDTH - 1 ))
|
||||
|
||||
[ $# -lt 1 ] && set -- TESTING
|
||||
|
||||
# use the bash-2.02 printf builtin
|
||||
Text=$(printf "%-${WIDTH}s" "$*")
|
||||
|
||||
while :
|
||||
do
|
||||
printf "%-.${WIDTH}s\r" "$Text"
|
||||
LastC=${Text:${WMINUS}:1}
|
||||
Text="$LastC""${Text%?}"
|
||||
done
|
||||
@@ -0,0 +1,53 @@
|
||||
#Newsgroups: comp.unix.shell
|
||||
#From: gwc@root.co.uk (Geoff Clare)
|
||||
#Subject: Re: Determining permissions on a file
|
||||
#Message-ID: <Dr79nw.DtL@root.co.uk>
|
||||
#Date: Fri, 10 May 1996 17:23:56 GMT
|
||||
|
||||
#Here's a bit of Korn shell that converts the symbolic permissions produced
|
||||
#by "ls -l" into octal, using only shell builtins. How to create a script
|
||||
#combining this with an "ls -l" is left as an exercise...
|
||||
#
|
||||
#
|
||||
# Converted to Bash v2 syntax by Chet Ramey <chet@po.cwru.edu>
|
||||
#
|
||||
# usage: showperm modestring
|
||||
#
|
||||
# example: showperm '-rwsr-x--x'
|
||||
#
|
||||
|
||||
[ -z "$1" ] && {
|
||||
echo "showperm: usage: showperm modestring" >&2
|
||||
exit 2
|
||||
}
|
||||
|
||||
tmode="$1"
|
||||
|
||||
typeset -i omode sbits
|
||||
typeset pmode
|
||||
|
||||
# check for set-uid, etc. bits
|
||||
sbits=0
|
||||
case $tmode in
|
||||
???[sS]*) (( sbits += 8#4000 )) ;; # set-uid
|
||||
??????[sSl]*) (( sbits += 8#2000 )) ;; # set-gid or mand. lock
|
||||
?????????[tT]*) (( sbits += 8#1000 )) ;; # sticky
|
||||
esac
|
||||
|
||||
omode=0
|
||||
while :
|
||||
do
|
||||
tmode=${tmode#?}
|
||||
case $tmode in
|
||||
"") break ;;
|
||||
[-STl]*) (( omode *= 2 )) ;;
|
||||
[rwxst]*) (( omode = omode*2 + 1 )) ;;
|
||||
*) echo "$0: first letter of \"$tmode\" is unrecognized" >&2
|
||||
(( omode *= 2 ))
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
(( omode += sbits ))
|
||||
|
||||
printf "0%o\n" $omode
|
||||
@@ -0,0 +1,53 @@
|
||||
#Newsgroups: comp.unix.admin,comp.unix.solaris,comp.unix.shell
|
||||
#From: gwc@root.co.uk (Geoff Clare)
|
||||
#Subject: Re: timeout -t <sec> <unix command> (Re: How to give rsh a shorter timeout?)
|
||||
#Message-ID: <EoBxrs.223@root.co.uk>
|
||||
#Date: Fri, 13 Feb 1998 18:23:52 GMT
|
||||
|
||||
#
|
||||
# Conversion to bash v2 syntax done by Chet Ramey <chet@po.cwru.edu
|
||||
# UNTESTED
|
||||
#
|
||||
|
||||
prog=${0##*/}
|
||||
usage="usage: $prog [-signal] [timeout] [:interval] [+delay] [--] <command>"
|
||||
|
||||
SIG=-TERM # default signal sent to the process when the timer expires
|
||||
timeout=60 # default timeout
|
||||
interval=15 # default interval between checks if the process is still alive
|
||||
delay=2 # default delay between posting the given signal and
|
||||
# destroying the process (kill -KILL)
|
||||
|
||||
while :
|
||||
do
|
||||
case $1 in
|
||||
--) shift; break ;;
|
||||
-*) SIG=$1 ;;
|
||||
[0-9]*) timeout=$1 ;;
|
||||
:*) EXPR='..\(.*\)' ; interval=`expr x"$1" : "$EXPR"` ;;
|
||||
+*) EXPR='..\(.*\)' ; delay=`expr x"$1" : "$EXPR"` ;;
|
||||
*) break ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
case $# in
|
||||
0) echo "$prog: $usage" >&2 ; exit 2 ;;
|
||||
esac
|
||||
|
||||
(
|
||||
for t in $timeout $delay
|
||||
do
|
||||
while (( $t > $interval ))
|
||||
do
|
||||
sleep $interval
|
||||
kill -0 $$ || exit
|
||||
t=$(( $t - $interval ))
|
||||
done
|
||||
sleep $t
|
||||
kill $SIG $$ && kill -0 $$ || exit
|
||||
SIG=-KILL
|
||||
done
|
||||
) 2> /dev/null &
|
||||
|
||||
exec "$@"
|
||||
Reference in New Issue
Block a user