@load "filefuncs"

BEGIN {
	Level = 0

	os = ""
	if (ENVIRON["AWKLIBPATH"] == "sys$disk:[-]") {
		os = "VMS"
		system("create/dir/prot=o:rwed [.d1]")
		system("create/dir/prot=o:rwed [.d2]")
		system("copy fts.awk [.d1]f1")
		system("copy fts.awk [.d1]f2")
		system("copy fts.awk [.d2]f1")
		system("copy fts.awk [.d2]f2")
	} else {
		system("rm -fr d1 d2")
		system("mkdir d1 d2 ; touch d1/f1 d1/f2 d2/f1 d2/f2")
	}
	pathlist[1] = "d1"
	pathlist[2] = "d2"
	flags = FTS_PHYSICAL
	fts(pathlist, flags, data)

	output = "fts.ok"
	traverse(data)
	close(output)

	ftswalk(pathlist, data2)
	output = "_fts"
	traverse(data2)
	close(output)

	if (os == "VMS") {
		system("delete [.d1]*.*;*")
		system("delete [.d2]*.*;*")
		system("delete d1.dir;*")
		system("delete d2.dir;*")
	} else {
		system("rm -fr d1 d2")
	}
}

function indent(        i)
{
	for (i = 1; i <= Level; i++)
		printf("\t") > output
}

function sort_traverse(data,	sorted, i)
{
	asorti(data, sorted)
	for (i = 1; i in sorted; i++) {
		# 5/2015: skip for atime, since there can
		# occasionally be small differences.
		if (sorted[i] == "atime")
			continue

		indent()
		printf("%s --> %s\n", sorted[i], data[sorted[i]]) > output
	}
}

function traverse(data,         i)
{
	for (i in data) {
		if (isarray(data[i])) {
			indent()
			printf("%s:\n", i) > output

			Level++
			if (("mtime" in data[i]) && ! isarray(data[i]["mtime"])) {
				sort_traverse(data[i])
			} else {
				traverse(data[i])
			}
			Level--
#		} else {
#			JUNK = 1
#			if (i != "atime") {
#				# 4/2015: skip for atime, since there can
#				# occasionally be small differences.
#				indent()
#				printf("%s --> %s\n", i, data[i]) > output
#			}
		}
	}
}


function ftswalk(pathlist, data,	i, toppath)
{
	delete data
	for (i = 1; i in pathlist; i++) {
		toppath = pathlist[i]
		data[toppath]["junk"]++	# create array
		delete data[toppath]["junk"]
		process(pathlist[i], data)
	}
}

# enter process with pathname, array for that path already created but
# empty

function process(pathname, data_array,
		stat_data, i, direntry, command, shortname)	# locals
{
	stat(pathname, stat_data)
	if (stat_data["type"] == "file") {
		shortname = strrstr(pathname, "/")
		data_array["path"] = pathname
		for (i in stat_data) {
			if (i == "name")
				data_array["stat"][i] = shortname
			else
				data_array["stat"][i] = stat_data[i]
		}

		return
	}

	# stuff for a directory

	data_array[pathname]["."]["path"] = pathname
	for (i in stat_data)
		data_array[pathname]["."]["stat"][i] = stat_data[i]

	os = ""
	if (ENVIRON["AWKLIBPATH"] == "sys$disk:[-]") {
		os = "VMS"
		# Command in next section not valid on VMS.
		return
	}

	command = ("ls -f " pathname)
	while ((command | getline direntry) > 0) {
		if (direntry == "." || direntry == "..")
			continue
		data_array[pathname][direntry]["junk"]++
		delete data_array[pathname][direntry]["junk"]
		process(pathname "/" direntry,
			data_array[pathname][direntry])
	}
	close(command)
}

function strrstr(string, delim,		ind)
{
	if ((ind = index(string, delim)) == 0)
		return string

	do {
		string = substr(string, ind + 1)
	} while ((ind = index(string, delim)) > 0)

	return string
}