gen-dict

#!/bin/sh
# Copyright 2019, by J. Richard Barnette. All Rights Reserved.

cd $(dirname $0)

MODE=gen
FILE=bootstrap/initdict.c
META=meta

usage() {
cat <<END >&2
usage: $(basename $0) [ options ] target-type
available options:
-l	list the file-order on stdout
-s	list the input source files on stdout
-g	(default) write generated output to stdout
-b	generate new $FILE and rebuild bootstrap/forth
-t	test changes; diff generated output against current file
-n	generate no output; allow errors to show
-r	reset $FILE from git, rebuild, then regenerate
-f	specify name of the output file; default is $FILE
END
    exit 1
}

# option -l
# list the file-order on stdout
list() {
    for f in "$@"
    do
        echo $f
    done
}

# option -g (default)
# generate initdict.c stdout
gen() {
    cat <<END_HEAD
/*
 * Copyright $(date +%Y), by J. Richard Barnette. All Rights Reserved.
 */

/* This file was automatically generated by "${GENCMD}" */

END_HEAD
    cat "$@" | bootstrap/forth
}

# option -b
# generate new initdict.c and rebuild bootstrap/forth
build() {
    gen "$@" >$FILE
    cd bootstrap
    make
}

# option -t
# test changes; diff generated output against current file
changes() {
    gen "$@" | diff $FILE -
}

# option -n
# generate no output; allow errors to show
dry_run() {
    gen "$@" >/dev/null
}

# option -r
# rebuild bootstrap/forth using original initdict.c, then regenerate
regen() {
    cd bootstrap
    git checkout initdict.c
    make
    cd ..
    gen "$@" >$FILE
}

while getopts gbtlnsrf: opt
do
    case $opt in
        l) MODE=list ;;
        s) MODE=cat ;;
        g) MODE=gen ;;
        b) MODE=build ;;
        t) MODE=changes ;;
        n) MODE=dry_run ;;
        r) MODE=regen ;;
        f) FILE=$OPTARG ;;
        \?) usage ;;
    esac
done
shift $(( OPTIND - 1 ))

if [ $# -eq 1 ]
then
    META="$1"
elif [ $# -gt 1 ]
then
    usage
fi

GENCMD="$(basename $0) $META"
FILEORDER="forth/$META/file-order"
if [ ! -f $FILEORDER ]
then
    echo "$FILEORDER: no file" >&2
    usage
fi

$MODE $(sed 's/#.*//' $FILEORDER)