#
#   insert header in an empty include-file
#
#   $VER: header4h V1.00 (18.11.1992)
#

# Read in an empty header
insfile $(dir)h.h

# insert file-name in header and footer
find MODUL
down insline
tab ($file)
find ENDE
last right ($file)

# make a "good" #ifndef
# look for #ifndef
top
find #ifndef
# insert the filename after the #ifndef-statement
last right push pos ($file) pick auto
# look through the filename for all illegal chars and eliminate them
repeat cr `if cl (tlate -32) if `c=[ .]' (tlate 95) right'
# get the new name
pop auto scanf w
# add it to the #define
down last right ($scanf)
# and as a comment at the #endif
find #endif find /* repeat 3 right ($scanf)

# go to the top and position cursor
top find DESCRIPTION
down insline tab