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/grep.l

blob: 96c255ea8b9f89b229a96f7b3aa57360e60149fb (plain)

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

	for (i = 1; i < ac; ++i) {
		f = open(av[i], "rb");
		while (gets(f, &buf) >= 0) {
			if (buf =~ /[^A-Za-z]fopen\(.*\)/) puts(buf);
		}
		close(f);
	}
}