Toy XML parser

ometa XMLParser {
  expr             = (~'<' char)*:c                                                 -> c.join('')
                   | '<' (~'>' char)+:c '>' expr*:b seq('</') (~'>' char)+:c '>'     -> [c.join('') , b]
}

model = "<a><b>z</b><b>z</b></a>"

alert(XMLParser.matchAll(model, 'expr'))






//converting XML trees to ASTs

ometa XMLParser {
  inelement:x     = seq(x) (~seq(x) char)*:c seq(x)   -> [x , c.join('')], 
  stuff           = inelement('<a>'):c                -> c,
  expr            = stuff:s     
}

model = "<a>bb<a>"

alert(XMLParser.matchAll(model, 'expr'))








//parsing 2-level xml elements

ometa XMLParser {
  otherstuff    = seq('<b>') (~seq('</b>') char)*:c seq('</b>')        -> ['b' , c.join('')],
  stuff         = seq('<a>') (~seq('</a>') otherstuff)*:c seq('</a>')  -> ['a' , c.join('')],
  expr          = stuff:s                                              -> s
}

model = "<a><b>alalal/.<//></b><b>alalal/.<//></b></a>"

alert(XMLParser.matchAll(model, 'expr'))


//parsing a single xml element

ometa XMLParser {
  between :x :y = seq(x) (~seq(y) char)*:c seq(y) -> c.join(''),
  stuff         = between('<a>','</a>'),
  expr          = stuff:s                         -> s
}

model = "<a>alalal/.<//></a>"

alert(XMLParser.matchAll(model, 'expr'))