File: strftime.awk

package info (click to toggle)
gawk 1%3A4.1.4%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 16,836 kB
  • ctags: 5,783
  • sloc: ansic: 48,799; awk: 11,167; yacc: 5,939; sh: 5,579; makefile: 2,554; sed: 121
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
}