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/doc/l-paper/cat.l

blob: 4fcaf88e2d8eb5431e307f78efdc4783d652b87e (plain)

typedef string FILE;

main(int ac, string av[])
{
	int	i;
	FILE	fd;

	if (ac == 1) {
		puts("-nonewline", read("stdin"));
	} else {
		for (i = 1; defined(av[i]); i++) {
			fd = open(av[i], "r");
			puts("-nonewline", read(fd));
		}
	}
}