#! /bin/bash
#!/bin/bash
# /* vim filetype=sh : */ # -*- sh -*-
if [ -z "$1" ]
then echo "requirez: no argument"
     exit
fi

if [ ! -f "$1" ]
then echo "requirez: $f not a file"
     exit
fi


In=${In=$1}
Out=${Out=$HOME/bin/wisp/$In}
Lib=${Lib=$HOME/lib/wisp}
Parts=${Parts="misc string math os io list"}
#---------------------------------------------------------------
header() {   
cat<<EOF 
#!`which gawk` -f            
# /* vim: set filetype=awk : */ -*- awk -*- 
#
# ----| $1 |--------------------------------------
#
#   _ _ _ _ _                                    ((
#  |=|=|=|=|=|.----------------------------.    _))_
#  |-|-|-|-|-||  a 'requirez' code bundle  | ___\__/)_
#  |_|_|_|_|_|'----------------------------'|_||_~~_|_|
#
# Built by "$USER" on `date`.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; version 2.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc.,51 Franklin Street, Fifth Floor, Boston, 
# MA 02110-1301, USA.
#
EOF
}
#---------------------------------------------------------------
includes() {
cat<<'EOF'
m4_divert(-1)`'m4_dnl 
m4_changecom(`##')
m4_define(`requirez1',`#---- [$1 ] ------------------------------------------
m4_define(`HAVE`$1'',1)'`m4_include($1)') 
m4_define(`requirez',`m4_ifdef(`HAVE`$1'',`',`requirez1(`$1')')')
m4_divert`'m4_dnl
EOF
}
#---------------------------------------------------------------
my_m4() {
	(includes $1; cat $1) | m4 -P
}
#---------------------------------------------------------------
Src="$Lib"
for i in $Parts; do Src="${Src}:${Lib}/$i"; done
export M4PATH="$Src"

[ -f $Out ] && rm -f $Out
( header $1; my_m4 $In ) > $Out
chmod +x $Out
chmod -w $Out
ls -s $Out