1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#tab updateparser.tab.tcl %{ %} #include defs.fin %% now {return $NOW_} #include yesno.fin #include int.fin #include string.fin #include ws.fin %%