忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 4747 | 回复: 0

用 Ruby 进行简单的 lisp 表达式的解析 [复制链接]

论坛徽章:
0
发表于 2015-06-30 10:12 |显示全部楼层
就是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. $tests = {
  27.   "" => nil,
  28.   "1" => 1,
  29.   "(a b)" => [:a,:b],
  30.   "(1 2(2 3))" => [1,2,[2,3]],
  31.   '(a"b"c"d"(ef))' => [:a,"b",:c,"d",[:ef]],
  32.   '("a b" (c d-e))' => ["a b",[:c,:"d-e"]],
  33.   "(\"a\nb\"\nb\nc (d))" => ["a\nb",:b,:c,[:d]],
  34.   ' "a\nb"' => "a\nb",
  35.   '"a\\"b"'=>'a"b',
  36.   "\"\\\\\""=> "\\",
  37.   "(#t #f)" => [true,false],
  38.   "(define (f x) (if (zero? x) 0 (+ x (f (- x 1)))))" =>
  39.     [:define,[:f,:x],[:if,[:zero?,:x],0,[:+,:x,[:f,[:-,:x,1]]]]],
  40. }

  41. p $tests.all?{|x,y|parse(x)==y}
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP