[up] [log] [?]
[first]  [entry] [exit]  [last]

(meg/match ~{:close-tag (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")) :main (* :tagged -1) :open-tag (* (constant :tag) "<" (capture :w+ :tag-name) ">") :tagged (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>")) :untagged (capture (some (if-not "<" 1))) :value (* (constant :value) (group (any (+ :tagged :untagged))))}
           "<p><em>Hello</em> <strong>world</strong>!</p>")

captures and tags
captures: @[:tag]
tagged-captures:
  tags: @[nil]
  values: @[:tag]

current frame
status: entered frame 11
peg: (some :w)
text: <p><em>Hello</em> <strong>world</strong>!</p>
index: 1

frames call stack
11 (some :w)
10 :w+
9 (capture :w+ :tag-name)
6 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
5 :open-tag
4 (* :open-tag :value :close-tag)
3 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
2 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
1 :tagged
0 (* :tagged -1)