/* */
address AREXX
p=pragma('d')
if right(p,1)~=":" then p=p||"/revision"
cmd = "ci -l -f -t- -m- "||p
address command cmd
open(ifile,"revision",'Read')
l = readln(ifile)
f = readln(ifile)
d = "$"
parse var l "$" deuh "vision: " vers "." revi " $" .
close(ifile)
open(ifile,"version.h",'Write')
writeln(ifile,"#define	VERSION  "||vers)
writeln(ifile,"#define	REVISION "||revi)
dat=translate(date(e),".","/")
writeln(ifile,'#define	DATE	"'dat'"');
fvr=f' 'vers'.'revi
say fvr
writeln(ifile,'#define	VERS	"'f' 'vers'.'revi'"')
writeln(ifile,'#define	SOURCEVERSION	__DATE__","__TIME__" : "__FILE__')
writeln(ifile,'#define	VSTRING	"'fvr' ('dat')"')
writeln(ifile,'#define	VERSTAG	"\0$VER: 'fvr' ('dat') © P.Marquardt"')
writeln(ifile,'#define	CHARVERSTAG static char CVERSTAG_[]=VERSTAG')
close(ifile)
address command type version.h