#! /bin/sh

case "`pwd`" in
*/testdb)
    ;;
*)
    echo "$0: You must cd into testdb before starting." 1>&2
    exit 1
    ;;
esac

rm -rf files

mkdir files || exit 1

max=20

echo $max | mawk '

BEGIN {
    # alphabet, omitting q and x
    Letters[1] = "a"
    Letters[2] = "b"
    Letters[3] = "c"
    Letters[4] = "d"
    Letters[5] = "e"
    Letters[6] = "f"
    Letters[7] = "g"
    Letters[8] = "h"
    Letters[9] = "i"
    Letters[10] = "j"
    Letters[11] = "k"
    Letters[12] = "l"
    Letters[13] = "m"
    Letters[14] = "n"
    Letters[15] = "o"
    Letters[16] = "p"
    Letters[17] = "r" # sic
    Letters[18] = "s"
    Letters[19] = "t"
    Letters[20] = "u"
    Letters[21] = "v"
    Letters[22] = "w"
    Letters[23] = "y" # sic
    Letters[24] = "z"

    theFile = "none"
}

{
    theWord = ""

    for (i = 1; i <= $1; i++) {
	if (theFile != "none") {
	    close(theFile)
	}
	theFile = "files/" "" i
	MakeFile(theFile, i, makeWord(i))
    }
}

function MakeFile(theFile, theLength, theWord,      i, toDo) {
    toDo = 8192 / (theLength + 1)

    for (i = 1; i <= toDo; i++) {
	print theWord > theFile
    }
}

function makeWord(theLength,			i, theWord) {
    theWord = ""
    for (i = 1; i <= theLength; i++) {
	theWord = theWord "" Letters[i]
    }
    return theWord
}
'
