%{
#include <string.h>
%}
%pic
%compare-strncmp
%language=ANSI-C
%readonly-tables
%define lookup-function-name is_keyword_tcl
%%
body
break
case
chain
class
configbody
constructor
continue
default
destructor
else
elseif
error
eval
exit
for
for_array_keys
for_file
for_recursive_glob
foreach
if
in
itcl_class
loop
method
proc
return
switch
then
uplevel
while
