blob: 05bf300875c280e9b9fe854e7fb88eea18da5594 (
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
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
|
##### LM #####
context heredoc
rl ident_char /[a-zA-Z_]/
lex
# Tokens
token other /(^(ident_char|0|'\n'))+/
token here_close //
token id
/ident_char+/
{
if HereId && HereId == match_text {
input.push( make_token(
typeid<here_close>
input.pull(match_length - 1) ) )
}
else {
input.push( make_token( typeid<id> input.pull(match_length) ) )
}
}
token nl /'\n'/
end
def here_name
[id]
{
HereId = $r1
}
HereId: str
def here_data
[here_data_item*]
def here_data_item
[id]
| [other]
| [nl]
def start
[here_name here_data here_close id nl]
end # heredoc
cons HereDoc: heredoc[]
parse S: heredoc::start(HereDoc)[stdin]
print_xml(S)
print( '\n' )
##### IN #####
hello
random 9392af j9 stuff
hello
##### EXP #####
<heredoc::start><heredoc::here_name><heredoc::id>hello</heredoc::id></heredoc::here_name><heredoc::here_data><heredoc::_repeat_here_data_item><heredoc::here_data_item><heredoc::nl>
</heredoc::nl></heredoc::here_data_item><heredoc::here_data_item><heredoc::id>random</heredoc::id></heredoc::here_data_item><heredoc::here_data_item><heredoc::other> 9392</heredoc::other></heredoc::here_data_item><heredoc::here_data_item><heredoc::id>af</heredoc::id></heredoc::here_data_item><heredoc::here_data_item><heredoc::other> </heredoc::other></heredoc::here_data_item><heredoc::here_data_item><heredoc::id>j</heredoc::id></heredoc::here_data_item><heredoc::here_data_item><heredoc::other>9 </heredoc::other></heredoc::here_data_item><heredoc::here_data_item><heredoc::id>stuff</heredoc::id></heredoc::here_data_item><heredoc::here_data_item><heredoc::nl>
</heredoc::nl></heredoc::here_data_item></heredoc::_repeat_here_data_item></heredoc::here_data><heredoc::here_close>hell</heredoc::here_close><heredoc::id>o</heredoc::id><heredoc::nl>
</heredoc::nl></heredoc::start>
|