用 Ruby 進(jìn)行簡(jiǎn)單的 lisp 表達(dá)式的解析

Lexus

就是lisp用的s表達(dá)式，可以向json一樣用來(lái)讀取保存的數(shù)據(jù)，也可以用來(lái)做DSL什么的。
代碼的各種情況還考慮得不是很完全，等用到一種測(cè)試用例再來(lái)補(bǔ)充對(duì)應(yīng)的實(shí)現(xiàn)吧。
這個(gè)實(shí)現(xiàn)對(duì)S表達(dá)式的格式以及這個(gè)解析函數(shù)在各方面都暫且以簡(jiǎn)單能用首要目的來(lái)著。

[Ruby]代碼

1. def parse(line)
   
2.   s = line.scan(/\(|\)|"(?:\\.|[^"])*"|[^()" \n]+/)
   
3.   f = ->(t=nil){
   
4.     case x = t || s.shift
   
5.     when ?(
   
6.       y = []
   
7.       while x = s.shift
   
8.         return y if x==?)
   
9.         y << f[x]
   
10.       end
    
11.       fail ")?"
    
12.     when nil
    
13.       nil
    
14.     when /^#(.*)$/
    
15.       {?t=>true,?f=>false}[$~[1]]
    
16.     when /\d+/
    
17.       x.to_i
    
18.     when /^\"(.*)\"$/m
    
19.       $~[1].gsub(/\\./,'\n'=>"\n","\\\\"=>"\\","\\\""=>'"')
    
20.     else
    
21.       x.to_sym
    
22.     end
    
23.   }
    
24.   f[]
    
25. end
    
26. 
    
27. $tests = {
    
28.   "" => nil,
    
29.   "1" => 1,
    
30.   "(a b)" => [:a,:b],
    
31.   "(1 2(2 3))" => [1,2,[2,3]],
    
32.   '(a"b"c"d"(ef))' => [:a,"b",:c,"d",[:ef]],
    
33.   '("a b" (c d-e))' => ["a b",[:c,:"d-e"]],
    
34.   "(\"a\nb\"\nb\nc (d))" => ["a\nb",:b,:c,[:d]],
    
35.   ' "a\nb"' => "a\nb",
    
36.   '"a\\"b"'=>'a"b',
    
37.   "\"\\\\\""=> "\\",
    
38.   "(#t #f)" => [true,false],
    
39.   "(define (f x) (if (zero? x) 0 (+ x (f (- x 1)))))" =>
    
40.     [:define,[:f,:x],[:if,[:zero?,:x],0,[:+,:x,[:f,[:-,:x,1]]]]],
    
41. }
    
42. 
    
43. p $tests.all?{|x,y|parse(x)==y}

復(fù)制代碼