diff options
| author | s-ol <s-ol@users.noreply.github.com> | 2020-02-11 17:35:26 +0000 |
|---|---|---|
| committer | s-ol <s-ol@users.noreply.github.com> | 2020-02-13 08:39:03 +0000 |
| commit | 85df7feacac36f5cd058e86ff81b3f4aa9f0ded8 (patch) | |
| tree | adf72d8d77016eb8e9d211f256dbdc52d5f14350 /core/parsing.moon | |
| parent | add edge and pilot/* (diff) | |
| download | alive-85df7feacac36f5cd058e86ff81b3f4aa9f0ded8.tar.gz alive-85df7feacac36f5cd058e86ff81b3f4aa9f0ded8.zip | |
new Registry tagging mechanism
Diffstat (limited to 'core/parsing.moon')
| -rw-r--r-- | core/parsing.moon | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/core/parsing.moon b/core/parsing.moon index 5186cb8..c23b7b7 100644 --- a/core/parsing.moon +++ b/core/parsing.moon @@ -1,5 +1,6 @@ import Const from require 'core.const' import Cell, RootCell from require 'core.cell' +import Tag from require 'core.registry' import R, S, P, V, C, Ct from require 'lpeg' -- whitespace @@ -29,7 +30,7 @@ atom = num + sym + str expr = (V 'cell') + atom explist = Ct mspace * (V 'expr') * (space * (V 'expr'))^0 * mspace -tag = (P '[') * atom * (P ']') +tag = (P '[') * (digit^1 / Tag\parse) * (P ']') cell = (P '(') * tag^-1 * (V 'explist') * (P ')') / Cell\parse root = P { |