@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

}