Re: 4GL Static variable initialization for SCCS 'what' command

Mike Aubury (mike@lintel.demon.co.uk) wrote: : In article <38470r$j24@news.acns.nwu.edu> ** none ** writes: [ wonders how to store a static SCCS id in a program ] [ Mike answers: ] : If you want to have a variable to be initialized you will have to : have some sort of initialization function which would be called from : the main section: : : function init_modname() : let version="%I%" : end function We have an awk script that creates a new module with the appropriate comment header. It also creates a function: function common() define rcsid char(80) let rcsid = "$Header$" end function ^^^^^^ named with the basename of the module, strictly for RCS identification. Note that the function never needs to be (or is) called. For those familiar with SCCS, RCS expands ''$Header$`` to something like this: with SCCS, RCS expands ''$Header$`` to something like this: $Header: common.4gl,v 1.22 94/08/05 17:22:34 clunding Exp $ Regards, craig -- |---------------------------------------------------------------------------| | Craig Ludington, independent consultant | | | craigl@mcs.com | This space unintentionally | | craigl@craigl.pr.mcs.net | left blank. | | clunding@arlingtonhgts.pamd.cig.mot.com | | |---------------------------------------------------------------------------|