用 Ruby 进行简单的 lisp 表达式的解析

Lexus

就是lisp用的s表达式，可以向json一样用来读取保存的数据，也可以用来做DSL什么的。
代码的各种情况还考虑得不是很完全，等用到一种测试用例再来补充对应的实现吧。
这个实现对S表达式的格式以及这个解析函数在各方面都暂且以简单能用首要目的来着。

[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}

复制代码