summaryrefslogtreecommitdiff
path: root/web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl
diff options
context:
space:
mode:
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.lprl27
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}