Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.

[h316.git] / lib / fortran / buildlib.sh

#!/bin/bash

if [ ! "$MAKE" ]; then
    echo "Not run from within Makefile!"
    exit 4
fi


# The suffix for library files (in and out)
LIB_SUFFIX=.lib
#######################################################################
IFS="
"

# Clean everything up
clean() {
    rm -rf $LIB_DIR $ORG_OBJDIR
}

# Generate org directory containing the original library objects
make_org() {
    if [ ! -d "$ORG_OBJDIR" ]; then
	mkdir  $ORG_OBJDIR
    fi
    tdir=$PWD
    cd $ORG_OBJDIR
    cat $tdir/$ORG_LIBDIR/*$LIB_SUFFIX | ldc -s -l
    cd $tdir
}

genlib(){
    echo "Library Builder start."
    if [ ! -d "$LIB_DIR" ]; then
	echo -n "Creating $LIB_DIR:"
	mkdir  $LIB_DIR && echo "Ok." || echo "FAILED!"
    fi
    
   # RECIPE_LIST=`ls $RECIPE_DIR/*$RECIPE_SUFFIX`
   # for recipe in $RECIPE_LIST; do
    recipe=$1
    lib=$LIB_DIR/`basename $recipe $RECIPE_SUFFIX`$LIB_SUFFIX
	echo "Building $lib:"
	rm -f $lib
	for item in `cat $recipe| egrep -v '^[[:space:]]*(#.*)*$'`; do
	    echo "appending $item."
	    cat `echo $item| egrep -o '[^[:space:]].*[^[:space:]]'` >> $lib || (echo "Error! could not find:$item")
        done	
	    cat $ENDBLOCK >> $lib
    #done
}
    

case $1 in
    clean)
	echo "Clean!"
	clean
    ;;
    makeorg)
	echo "Make org!"
	make_org
    ;;
    genlib)
	echo "Build Lib!"
	genlib  $2
    ;;
    *)
	clean
	make_org
	genlib
    ;;
esac