2 # the next line restarts using tclsh \
5 # $Id: cvs-date.tcl,v 1.3 2001-09-11 12:43:40 adam Exp $
11 set f [open {|cvs log} r]
12 while {[gets $f line] >= 0} {
13 if {[regexp {^date: ([0-9]+)[ /]+([0-9]+)[ /]+([0-9]+)[ /]} $line dummy year month day]} {
14 set this $year$month$day
25 set fname [lindex $argv 0]
26 if {[string length $fname]} {
27 set f [open [lindex $argv 0] w]
28 puts $f "#define YAZ_DATE ${sec}L"
29 puts $f "#define YAZ_DATE_STR \"$sec\""