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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
%D \module [
%D file=t-rst,
%D version=0.2 ‘Sex and Violence’
%D title=\CONTEXT\ User Module,
%D subtitle=reStructuredText,
%D author=Philipp Gesang,
%D date=\currentdate,
%D copyright=Philipp Gesang,
%D license=2-clause BSD,
%D ]
%M \usemodule[rst]
%M \loadsetups[t-rst.xml]
\writestatus{loading}{ConTeXt User Module / reStructuredText}
\unprotect
\startinterface all
\setinterfacevariable {RST} {RST}
\stopinterface
\definenamespace [RST] [
type=module,
comment=reStructuredText module,
version=0.2,
name=reST,
style=no,
command=yes,
setup=list,
parent=RST,
]
%D Loading the reStructuredText parser.
\ctxlua{environment.loadluafile("rst_parser")}
%D Setting some globals.
\setupreST [ ]
%D This command loads and processes the \type{*.rst} file.
\def\typesetRSTfile#1{\ctxlua{rst.do_rst_file("#1")}}
%D To process inline reST markup we’ll have to reset all catcodes
%D except for grouping, escaping and cs arguments.
\ifdefined\RSTcatcodes \else
\newcatcodetable \RSTcatcodes
\startcatcodetable \RSTcatcodes
\catcode`\^^I = 12 % ascii tab is a blank space
\catcode`\^^M = 12 % ascii return is end-line
\catcode`\^^L = 12 % ascii form-feed
\catcode`\ = 12
\catcode`\^^Z = 12
\catcode`\\ = 0
\catcode`\% = 12
\catcode`\# = 6
\catcode`\_ = 12
\catcode`\^ = 12
\catcode`\& = 12
\catcode`\| = 12
\catcode`\{ = 1
\catcode`\} = 2
\catcode`\~ = 12
\catcode`\$ = 12
\stopcatcodetable
\fi
%D The environment \type{\[start|stop]RST} and the macro
%D \type{\RST} allow access to reST-parser from inside a
%D \CONTEXT-document when the module is loaded.
\unexpanded\def\startRST{
\setcatcodetable \RSTcatcodes%
\dostartRST%
}
\let\stopRST\relax
\def\dostartRST#1\stopRST{%
\edef\RSTdata{#1}%
\setcatcodetable \ctxcatcodes%
\ctxlua{rst.do_rst_snippet([[\RSTdata]])}%
}
\def\RST{%
\setcatcodetable \RSTcatcodes%
\doRST%
}
\def\doRST#1{%
\def\RSTdata{#1}%
\setcatcodetable \ctxcatcodes%
\ctxlua{rst.do_rst_snippet([[\RSTdata]])}%
}
\protect \endinput
|
