talk-shellfu-style/99bottles.sh

#!/bin/bash

#
# Bottles of Beer song in Bash
#
# A way-overcomplicated implementation of the bottles of beer song in bash.
# Optional argument:
#
#  *  `--careless` - Generate the "happen to fall" version
#
# NOTE:  This is an altered version of a "99 bottles of beer" song
# Bash script by Bill Brown.  The intent of the altered version is
# to show the style, so the above text is preserved from [the
# original][99b].
#
#   [99b]: http://99-bottles-of-beer.net/language-bash-1831.html
#

pred() {
    #
    # Get predecessor to a number $1
    #
    local numeral=$1    # number in word form
    case $numeral in
        *nine)      echo ${numeral%nine}eight;;
        *eight)     echo ${numeral%eight}seven;;
        *seven)     echo ${numeral%seven}six;;
        *six)       echo ${numeral%six}five;;
        *five)      echo ${numeral%five}four;;
        *four)      echo ${numeral%four}three;;
        *three)     echo ${numeral%three}two;;
        *two)       echo ${numeral%two}one;;
        one)        echo zero;;
        *-one)      echo ${numeral%-one};;
        *one)       echo ${numeral%one};;
        ten)        echo nine;;
        eleven)     echo ten;;
        twelve)     echo eleven;;
        *teen)      teenpred $numeral;;
        *ty)        tenspred $numeral;;
        zero)       echo "";  #to terminate
    esac
}

teenpred() {
    #
    # Get predecessor of a teen $1
    #
    local numeral=$1    # number in word form
    case $numeral in
        thirteen)   echo twelve;;
        *)          echo $(crunchprefix $(pred $(uncrunchprefix ${numeral%teen})))teen;;
    esac
}

tenspred() {
    #
    # Get predecessor of a multiple of ten $1
    #
    local numeral=$1    # number in word form
    case $numeral in
        twenty)     echo nineteen;;
        *) echo $(crunchprefix --tens $(pred $(uncrunchprefix ${numeral%ty})))ty-nine;;
    esac
}

crunchprefix() {
    #
    # Crunch number prefix $1 to its conventional form
    #
    # ...such as `three` --> `thir`
    #
    # option `--tens` - multiples of ten are a bit different
    #
    local numeral       # number in word form
    local tensop        # 'true' if --tens option is active
    [ $1 = --tens ] && { tensop=true; shift; }
    numeral=$1
    case $numeral in
        two)    [ -n "$tensop" ] && echo twen || echo $numeral;;
        three)  echo thir;;
        four)   [ -n "$tensop" ] && echo 'for' || echo $numeral;;
        five)   echo fif;;
        eight)  [ -n "$tensop" ] && echo eigh || echo $numeral;;
        *)      echo $numeral;;
    esac
}

uncrunchprefix() {
    #
    # Reverse crunchprefix $1
    #
    local prefix=$1     # numeral crunch-prefix
    case $prefix in
        twen)   echo two;;
        thir)   echo three;;
        'for')  echo four;;
        fif)    echo five;;
        eigh)   echo eight;;
        *)      echo $prefix;;
    esac
}

grammar() {
    #
    # Apply peculiarities of English grammar to text on stdin
    #
    local oneBottle=false   # 'true' if this line affects the following line
    local line              # every line
    while read line; do
        line="${line/one more bottles/one more bottle}"
        case "$line" in
            *"one of those bottles"*)   line="$(
                                            [ $oneBottle = true ] \
                                             && echo ${line/one of those bottles/that lone bottle} \
                                             || echo $line
                                        )"
                                        ;;
            *"one down"*)               line="$(
                                            [ $oneBottle = true ] \
                                             && echo ${line/one down/it down} \
                                             || echo $line
                                        )"
                                        ;;
            *bottles*)                  oneBottle=false;;
            *bottle*)                   oneBottle=true;;
        esac
        #Some say the twenties should have no hyphen
        line="${line/twenty-/twenty }"
        echo $line
    done
}

capitalize() {
    #
    # Fix capitalization of each line on stdin
    #
    local line      # every line
    while read line; do
        echo -n ${line:0:1} | tr '[:lower:]' '[:upper:]'
        echo ${line#?}
    done
}

punctuate() {
    #
    # Add punctuation to each line on stdin
    #
    local line      # every line
    while read line; do
        case "${line}" in
            [Ii]f*)     echo ${line},;;
            '')         echo;;
            *)          echo ${line}.;;
        esac
    done
}

verse() {
    #
    # Write one verse with number $1
    #
    local nb=$1     # numeral
    echo $nb bottles of beer on the wall
    echo $nb bottles of beer
    if [ $nb = zero ]; then
        echo Go to the store and buy some more
        nb=ninety-nine
    else
        echo $breakLine
        nb=$(pred $nb)
    fi
    echo $nb bottles of beer on the wall
}

poeticize() {
    #
    # Make text on stdin nice
    #
    local first     # first word of a line
    local rest      # remainder of a line
    local syl       # number of syllables in the first word
    while read first rest; do
        case "$rest" in
            *beer*)
                first=${first/zero/no}
                syl=$(syllables ${first% *})
                case $syl in  #improve meter
                    1|2)    echo $first 'more' $rest;;
                    *)      echo $first $rest;;
                esac
                ;;
            *)  echo $first $rest
        esac
    done
}

syllables() {
    #
    # Estimate number of syllables in word $1
    #
    local word=$1   # word (numeral) to do the estimation on
    local n=1
    case $word in
        eleven)     n=2;; #sounds better if not considered 3
        *teen)      n=2;;
        *ty)        n=2;;
        *-*)        n=3;; #don't care about more than 3
    esac
    case $word in
        *seven*)    let $((n = n+1));;
    esac
    echo $n
}

main() {
    local breakLine             # bottle-break (or not) line
    local standardBreakLine     # ^^ standard variant
    local wastefulBreakLine     # ^^ wasteful (bottle breaks) variant
    local nb            # beginning number
    standardBreakLine="Take one down and pass it around"
    wastefulBreakLine="If one of those bottles should happen to fall"
    breakLine=$(
        [ "$1" = --careless ] \
         && echo $wastefulBreakLine \
         || echo $standardBreakLine
    )
    nb=ninety-nine
    while [ -n "$nb" ]; do
        verse $nb
        echo
        nb=$(pred $nb)
    done | poeticize | grammar | punctuate | capitalize
}

main "$@"