#tab blocksendparser.tab.tcl %{ %} #include defs.fin %% lock {return $LOCK_} #include ws.fin %%