tcl.git - Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.

index : tcl.git

Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.

summary refs log tree commit diff stats

path: root/tests/langbench/sort.l

blob: f36c0e7f0f269e4312119667faac5e4b242a333c (plain)

void
main(int ac, string av[])
{
	int	i;
	FILE	f;
	string	buf;
	string	l[];

	fconfigure("stdout", buffering: "full", translation: "binary");
	for (i = 1; i < ac; ++i) {
		f = open(av[i], "rb");
		while (gets(f, &buf) >= 0) {
			push(&l, buf);
		}
	}
	foreach (buf in sort(l)) {
		puts(buf);
	}
}