🚀 go-pugleaf

In article <40035@bbn.COM> cosell@bbn.com (Bernie Cosell) writes:
   I hate to be picky, but the script has a bit of a problem.
   [deleted error cases]
   On the other hand, here's a short perl script that also does the job.
   [deleted perl script]
I never seem to learn not to publish hacks (someone might use them :-)).
Here's a production version. I like perl, but it limits the potential
usefulness of a script 'cause not everyone has it.
Wayne

#! /bin/sh
#
#       @(#)num         1.0 (waynet@sun) 05/18/89
#
pathname=oculus:/HOME/waynet/bin/num
myname=`basename $0`
#
# Author:
#     Wayne Thompson
#
# Description:
#     This script will output a sequence of integers.
#
usage="usage: $myname [-wWIDTH] [firstn] lastn."
#
# Options:
#     -wN       field width of N, left zero padded.
#
# Files:
#
# Diagnostics:
#
# Dependencies:
#
# Bugs:
#

## >> BEGIN function: isnum >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ##

# Function:
#     isnum
#
# Description:
#     This function tests whether it's argument is numeric.
#
# Variables:
#
# Usage:
#     if isnum 5
#     then
#         echo "true"
#     fi
#
# Diagnostics:
#

isnum () {
    expr ${1:-null} + 1 > /dev/null 2>&1
}

## << END function: isnum <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ##

case $1 in
    -w*[0-9])
        width=`expr substr $1 3 1`
        shift
        ;;
esac

case $# in
    1)
        start=0
        end=$1
        ;;
    2)
        start=$1
        end=$2
        ;;
    *)
        echo >&2 "$usage"
        exit 1
        ;;      
esac

for i in $@
do
    isnum $i || {
        echo >&2 "$myname: $i: non-numeric argument."
        echo >&2 "$usage"
        exit 1
    }
done

if [ $start -gt $end ]
then
    echo >&2 "$myname: firstn greater than lastn."
    echo >&2 "$usage"
    exit 1
fi

awk '
    BEGIN {
        for (i = '$start'; i <= '$end'; i++) {
            printf ("%0'$width'd\n", i)
        }
    }
' /dev/null