\section[lit2latex_for_lex]{Lit2latex-only code for language \tr{lex}} \begin{code} sub print_code_blk { # just use the std local($codetxt) = @_; if ($Lang_typeset =~ /tgrind/) { # 'yacc' is the nearest thing &std_tgrind_code_blk('yacc', $codetxt); } else { &std_print_code_blk($codetxt); } } sub mk_code_frag { local($codetxt) = @_; &std_mk_code_frag($codetxt); } # this keeps 'do'ing happy 1; \end{code}