head	1.1;
access;
symbols;
locks
	root:1.1; strict;
comment	@# @;


1.1
date	94.12.14.16.14.56;	author root;	state Exp;
branches;
next	;


desc
@run the lexer
@


1.1
log
@Initial revision
@
text
@#!/usr/local/bin/tclsh

source "yylex.tcl"

while 1 {
	set tok [yylex]
	puts stdout "yytext is `$yytext' tok is `$tok'"
	if { $tok == "EOF" } {
		break
	}
}

exit 0
@
