diff options
Diffstat (limited to 'web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl')
-rw-r--r-- | web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl b/web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl new file mode 100644 index 0000000000..7b6c8246bb --- /dev/null +++ b/web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl @@ -0,0 +1,27 @@ +\section[lit2doc_for_lex]{Document-processing code for language \tr{lex}} + +\begin{code} +sub rm_embedded_stuff { # return clean code + entries (\002 separated) + local($codetxt) = @_; + + ($codetxt, ''); +} + +sub add_code_interests { # DO NOTHING + # section and blk to record in ($s == -1: don't update) + the code + local($s, $b, $_) = @_; + + # nothing special on uses; here's the lex IGNORE_WD table: + & setup_lex_keywords(); + + ('', &std_codething_uses_check($s, $b, $_)); +} + +sub setup_lex_keywords { + $IGNORE_WD{'while'} = 1; +# $IGNORE_WD{''} = 1; +} + +# this keeps 'do'ing happy +1; +\end{code} |