home *** CD-ROM | disk | FTP | other *** search
- #
- # insert header in an empty include-file
- #
- # $VER: header4h V1.01 (25.03.1993)
- #
-
- # 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) peek pos
- # look through the filename for all illegal chars and eliminate them
- repeat cr `if cl (tlate u) if `c=[ ./:]' (tlate 95) right'
- # get the new name
- pop pos 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
-