r5rs/index.html r5rs/r5rs-Z-C.css r5rs/r5rs-Z-G-10.gif r5rs/r5rs-Z-G-11.gif r5rs/r5rs-Z-G-12.gif r5rs/r5rs-Z-G-13.gif r5rs/r5rs-Z-G-14.gif r5rs/r5rs-Z-G-15.gif r5rs/r5rs-Z-G-16.gif r5rs/r5rs-Z-G-17.gif r5rs/r5rs-Z-G-18.gif r5rs/r5rs-Z-G-19.gif r5rs/r5rs-Z-G-2.gif r5rs/r5rs-Z-G-20.gif r5rs/r5rs-Z-G-21.gif r5rs/r5rs-Z-G-22.gif r5rs/r5rs-Z-G-23.gif r5rs/r5rs-Z-G-24.gif r5rs/r5rs-Z-G-25.gif r5rs/r5rs-Z-G-26.gif r5rs/r5rs-Z-G-27.gif r5rs/r5rs-Z-G-28.gif r5rs/r5rs-Z-G-29.gif r5rs/r5rs-Z-G-3.gif r5rs/r5rs-Z-G-30.gif r5rs/r5rs-Z-G-31.gif r5rs/r5rs-Z-G-32.gif r5rs/r5rs-Z-G-33.gif r5rs/r5rs-Z-G-34.gif r5rs/r5rs-Z-G-35.gif r5rs/r5rs-Z-G-36.gif r5rs/r5rs-Z-G-37.gif r5rs/r5rs-Z-G-38.gif r5rs/r5rs-Z-G-39.gif r5rs/r5rs-Z-G-4.gif r5rs/r5rs-Z-G-40.gif r5rs/r5rs-Z-G-41.gif r5rs/r5rs-Z-G-42.gif r5rs/r5rs-Z-G-43.gif r5rs/r5rs-Z-G-44.gif r5rs/r5rs-Z-G-45.gif r5rs/r5rs-Z-G-46.gif r5rs/r5rs-Z-G-47.gif r5rs/r5rs-Z-G-48.gif r5rs/r5rs-Z-G-49.gif r5rs/r5rs-Z-G-5.gif r5rs/r5rs-Z-G-50.gif r5rs/r5rs-Z-G-51.gif r5rs/r5rs-Z-G-52.gif r5rs/r5rs-Z-G-53.gif r5rs/r5rs-Z-G-54.gif r5rs/r5rs-Z-G-55.gif r5rs/r5rs-Z-G-56.gif r5rs/r5rs-Z-G-57.gif r5rs/r5rs-Z-G-58.gif r5rs/r5rs-Z-G-59.gif r5rs/r5rs-Z-G-6.gif r5rs/r5rs-Z-G-60.gif r5rs/r5rs-Z-G-61.gif r5rs/r5rs-Z-G-62.gif r5rs/r5rs-Z-G-63.gif r5rs/r5rs-Z-G-64.gif r5rs/r5rs-Z-G-65.gif r5rs/r5rs-Z-G-7.gif r5rs/r5rs-Z-G-8.gif r5rs/r5rs-Z-G-9.gif r5rs/r5rs-Z-G-D-1.gif r5rs/r5rs-Z-G-D-2.gif r5rs/r5rs-Z-G-D-3.gif r5rs/r5rs-Z-G-D-4.gif r5rs/r5rs-Z-G-D-5.gif r5rs/r5rs-Z-G-D-6.gif r5rs/r5rs-Z-G-D-7.gif r5rs/r5rs-Z-G-D-8.gif r5rs/r5rs-Z-H-1.html r5rs/r5rs-Z-H-10.html r5rs/r5rs-Z-H-11.html r5rs/r5rs-Z-H-12.html r5rs/r5rs-Z-H-13.html r5rs/r5rs-Z-H-14.html r5rs/r5rs-Z-H-15.html r5rs/r5rs-Z-H-2.html r5rs/r5rs-Z-H-3.html r5rs/r5rs-Z-H-4.html r5rs/r5rs-Z-H-5.html r5rs/r5rs-Z-H-6.html r5rs/r5rs-Z-H-7.html r5rs/r5rs-Z-H-8.html r5rs/r5rs-Z-H-9.html r5rs/r5rs.html @@ -9,4 +9,28 @@ Hoe.spec('heist') do |p| p.extra_deps = %w(oyster treetop) end +namespace :spec do + task :r5rs do + procedures = Dir['r5rs/*.html']. + map { |f| File.read(f) }. + join("\n"). + split(/\n+/). + grep(/(syntax|procedure)\:/). + map { |s| s.gsub(/<\/?[^>]+>/, ''). + scan(/\(([^\) ]+)/). + flatten. + first }. + uniq. + compact. + map { |s| s.gsub('&lt;', '<'). + gsub('&gt;', '>') } + + scope = Heist::Runtime.new.top_level + procedures.each do |proc| + message = scope.defined?(proc) ? scope.exec(proc) : 'MISSING' + puts "%32s %48s" % [proc, message] + end + end +end + # vim: syntax=Ruby Rakefile 966fcb395ae34ec92d6210f7f0ff5c5ba59fbb7f James Coglan jcoglan@googlemail.com http://github.com/jcoglan/heist/commit/3553379ca84051d59f4795aad1563ebd225f6b2a 3553379ca84051d59f4795aad1563ebd225f6b2a 2009-07-24T07:50:09-07:00 2009-07-24T07:50:09-07:00 Including a mirror of the R5RS spec and adding a Rake task to check for unimplemented requirements. 96aeada105441ce4bb7071e7c8184d552f3f0b80 James Coglan jcoglan@googlemail.com