Fix XFD header timestamp not using SOURCE_DATE_EPOCH

Author: ddeclerck

cobc/ChangeLog

@@ -1,4 +1,9 @@
 
+2025-05-20  David Declerck <[email protected]>
+
+	* sqlxfdgen.c (output_xfd_file): fix to take
+	  SOURCE_DATE_EPOCH into account
+
 2025-05-19  David Declerck <[email protected]>
 
 	* cobc.c (set_compile_date): fix SOURCE_DATE_EPOCH being

cobc/sqlxfdgen.c

@@ -1,5 +1,5 @@
 /*
-   Copyright (C) 2019-2021 Free Software Foundation, Inc.
+   Copyright (C) 2019-2021,2025 Free Software Foundation, Inc.
    Written by Ron Norman, Simon Sobisch
 
    This file is part of GnuCOBOL.
@@ -1316,8 +1316,6 @@ output_xfd_file (struct cb_file *fl)
 	char	outname[COB_FILE_BUFF], tblname[64], time_stamp[32];
 	char	ridname[72];
 	FILE	*fx, *fs;
-	struct tm	*loctime;
-	time_t		sectime;
 	struct cb_field		*f;
 	struct cb_alt_key	*l;
 	struct cb_key_component *c;
@@ -1345,14 +1343,8 @@ output_xfd_file (struct cb_file *fl)
 		idx[sub] = 0;
 	sub = 0;
 	next_lbl = 1;
-	sectime = time (NULL);
-	loctime = localtime (&sectime);
-	if (loctime) {
-		strftime (time_stamp, (size_t)COB_MINI_MAX,
-			  		"%b %d %Y %H:%M:%S", loctime);
-	} else {
-		strcpy(time_stamp,"Time unknown");
-	}
+	strftime (time_stamp, (size_t)COB_MINI_MAX,
+				"%b %d %Y %H:%M:%S", &current_compile_tm);
 	if (fl->sql_name) {
 		strcpy(tblname,fl->sql_name);
 	} else if(fl->assign

tests/testsuite.src/syn_file.at

@@ -2397,7 +2397,7 @@ AT_CLEANUP
 
 
 AT_SETUP([XFD directive and creation])
-AT_KEYWORDS([file cobc sql SUPPRESS WHEN])
+AT_KEYWORDS([file cobc sql SUPPRESS WHEN SOURCE_DATE_EPOCH])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION DIVISION.
@@ -3090,7 +3090,8 @@ AT_DATA([prog.cob], [
            STOP RUN.
 ])
 
-AT_CHECK([$COMPILE -Wno-unsupported -fsql prog.cob], [0], [], [])
+AT_CHECK([SOURCE_DATE_EPOCH=1011960000 \
+$COMPILE -Wno-unsupported -fsql prog.cob], [0], [], [])
 
 AT_CAPTURE_FILE(./tspfilex.ddl)
 
@@ -3133,7 +3134,7 @@ CREATE INDEX k2_tspfilex ON tspfilex (disk,dp_mgr,machine,rid_tspfilex);
 AT_CHECK([$DIFF reference tspfilex.ddl], [0], [], [])
 
 AT_DATA([reference],
-[# Generated on MMM DD YYYY HH:MM:SS from prog.cob
+[# Generated on Jan 25 2002 12:00:00 from prog.cob
 H,1,tspfilex,2,',','.',0,3
 D,1,'MMDDYYYY',8,1,0,,0,4:4,0:2,2:2,0:0,0:0,0:0,0:0,0:0
 D,2,'YYMMDDCC',8,1,0,,0,0:2,2:2,4:2,0:0,0:0,0:0,6:2,0:0
@@ -3184,10 +3185,7 @@ K,2,Y,Y,0x2A,disk,dp_mgr,machine,rid_tspfilex
 K,0,R,N,,rid_tspfilex
 ])
 
-AT_CHECK([$SED -e 's/Generated on ... .. .... ..:..:../Generated on MMM DD YYYY HH:MM:SS/g' \
-tspfilex.xd > tspfilex.sed], [0], [], [])
-
-AT_CHECK([$DIFF reference tspfilex.sed], [0], [], [])
+AT_CHECK([$DIFF reference tspfilex.xd], [0], [], [])
 
 AT_CLEANUP