summaryrefslogtreecommitdiff
path: root/web/glasgow/lit2x-0.16/literate/lit-2doc-lex.lprl
blob: 7b6c8246bb83ccd6ca709949bb0c71f9d6e098c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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}