diff options
Diffstat (limited to 'test/heredoc.lm')
| -rw-r--r-- | test/heredoc.lm | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/test/heredoc.lm b/test/heredoc.lm new file mode 100644 index 0000000..05bf300 --- /dev/null +++ b/test/heredoc.lm @@ -0,0 +1,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> |