File: strftime.awk

package info (click to toggle)
gawk 1%3A5.2.1-2
  • links: PTS
  • area: main
  • in suites: bookworm, trixie
  • size: 25,256 kB
  • sloc: ansic: 54,687; awk: 14,521; yacc: 6,814; sh: 6,418; makefile: 3,004; sed: 119; python: 31; csh: 6
file content (35 lines) | stat: -rw-r--r-- 1,009 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# strftime.awk ; test the strftime code
#
# input is the output of `date', see Makefile.in

BEGIN {
	maxtries = 10
	# On DOS/Windows, DATECMD is set by the Makefile to point to
	# Unix-like 'date' command.
	datecmd = DATECMD
	if (datecmd == "")
	    datecmd = "date"
	fmt = "%a %b %e %H:%M:%S %Z %Y"

	# loop until before equals after, thereby protecting
	# against a race condition where the seconds field might have
	# incremented between running date and strftime
	i = 0
	while (1) {
		if (++i > maxtries) {
			printf "Warning: this system is so slow that after %d attempts, we could never get two sequential invocations of strftime to give the same result!\n", maxtries > "/dev/stderr"
			break
		}
		before = strftime(fmt)
		datecmd | getline sd
		after = strftime(fmt)
		close(datecmd)
		if (before == after) {
			if (i > 1)
				printf "Notice: it took %d loops to get the before and after strftime values to match\n", i > "/dev/stderr"
			break
		}
	}
	print sd > "strftime.ok"
	print after > OUTPUT
}