summaryrefslogtreecommitdiff
path: root/web/glasgow/lit2x-0.16/literate/lit-2pgm-prl.lprl
blob: a8af7020ccae26bd179c4e210a0df3273ecddeb9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
\section[lit2pgm_for_prl]{Lit2pgm-only code for language \tr{prl}}

\begin{code}
sub mk_line_directive {
    local($filename,$lineno) = @_;
    # same as C
    "# line $lineno \"$filename\"\n";
}

# so we get 'do'ne correctly
1;
\end{code}