File: s_exp.rb

package info (click to toggle)
ruby-rsec 0.4.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 272 kB
  • sloc: ruby: 2,130; lisp: 13; makefile: 3
file content (17 lines) | stat: -rw-r--r-- 399 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# s-expression parser

require "rsec"

include Rsec::Helpers

def s_exp
  id    = /[a-zA-Z][\w\-]*/.r.fail 'id'
  num   = prim(:double).fail 'num'

  naked_unit = id | num | seq_('(', lazy{exp}, ')')[1]
  unit  = naked_unit | seq_('(', lazy{unit}, ')')[1]
  units = unit.join(/\s+/).even._?
  exp   = seq_(id, units) {|(id, (units))| [id, *units]}
  seq_('(', exp, ')')[1].eof
end