rubymacros 0.1.0

data/test/test_expand.rb

@@ -0,0 +1,35 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008  Caleb Clausen
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Lesser General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+=end
+
+
+require 'test/unit'
+require "macro"
+class ExpandTest < Test::Unit::TestCase
+  def test_simple_expand
+    Macro.eval "macro simple(a,b) :(^a+^b) end"
+    ttt=RedParse::CallNode[nil, "p", [RedParse::CallNode[nil, "simple", [RedParse::LiteralNode[1], 
+      RedParse::LiteralNode[2]], nil, nil]], nil, nil]
+    ttt.macro_expand(Macro::GLOBALS,{})
+
+    assert_equal ttt.unparse({}),'p(1+2)'
+
+    ttt=Macro.parse "p(simple(1,2))"
+    ttt.macro_expand(Macro::GLOBALS,{})
+    assert_equal ttt.unparse({}),'p(1+2)'
+  end
+end

data/test/test_form.rb

@@ -0,0 +1,110 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008  Caleb Clausen
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Lesser General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+=end
+
+
+require "macro"
+require 'test/unit'
+require 'rubygems'
+require 'rubylexer'
+require "test/code/testcases" #from rubylexer
+require 'pp'
+
+
+class FormTest< Test::Unit::TestCase
+  EXAMPLES=TestCases::TESTCASES
+
+  EXAMPLES.each_with_index{|x,i|
+    next if /__END__/===x
+    if / \^[^\s]/===x and x.size>1000
+      while x['^']
+        warn "disabling tests of '#{x[/^.*\^.*$/]}'"
+        x[/^.*\^.*$/]=''
+      end
+      next
+    end
+    define_method "test_case_#{i}" do
+      check x
+    end
+  }
+
+  def check(code)
+    begin
+#      puts code
+      begin  as_form=Macro.eval(":(\n"+code+"\n)")
+      rescue Exception=>formexc
+       0
+      end
+
+      begin  
+        as_tree=RedParse.new("  \n"+code).parse
+        as_tree=RedParse::VarLikeNode["nil", {:@value=>false}] if RedParse::NopNode===as_tree
+      rescue Exception=>treeexc
+       0
+      end
+
+      errs=[formexc,treeexc].compact
+      raise errs.first if errs.size==1
+
+#      as_form.delete_extraneous_ivars! if as_form
+#      as_tree.delete_extraneous_ivars! if as_tree
+
+      assert_equal as_tree, as_form
+
+      assert_equal as_form, as_form.deep_copy
+    end
+  end
+end
+
+class FormParameterTest< Test::Unit::TestCase
+  DATA=[
+    "1", "1.1", "nil", "false", "true",
+    ":sym", "[1,2,3]", "{'a'=>4,:b=>6}", "'s'", 
+  ]
+  DIFFICULT_CHILDREN=[
+    "RedParse::ConstantNode[nil,'Object']","(a=[];a<<a)"
+  ]
+
+  def form_param_setup datum
+      $a=[]
+      $b=[]
+      Macro.eval(":($a.push(^#{datum}))").eval
+      datum=eval datum
+  end
+
+  def test_form_params
+    DATA.each{|datum|
+      datum=form_param_setup datum
+      $b.push datum
+
+      assert_equal( $b, $a)
+    }
+  end
+
+  def test_form_params_dc
+    DIFFICULT_CHILDREN.each{|datum|
+      datum=form_param_setup datum
+      if RedParse::Node===datum
+        $b.push datum.eval
+      else
+        $b.push datum
+      end
+
+      assert_equal( $b.inspect, $a.inspect) #byaah, not the best way....
+    }
+  end
+end

metadata

@@ -0,0 +1,94 @@
+--- !ruby/object:Gem::Specification 
+name: rubymacros
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Caleb Clausen
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-10-24 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: redparse
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.8.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.8.1
+    version: 
+description: Macros are programmed in ruby itself. And since parse trees are represented  in RedParse format, they're easier to use (programatically) and more object-oriented than other available ruby parsetree formats. (RedParse Node format  is actually designed to be straightforward to use and to represent the  structure of ruby source code very closely.)
+email: rubymacros-owner @at@ inforadical .dot. net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- Manifest.txt
+- README.txt
+files: 
+- COPYING.LGPL
+- Manifest.txt
+- README.txt
+- rubymacros.vpj
+- Rakefile
+- test/test_form.rb
+- test/test_expand.rb
+- lib/macro.rb
+- lib/macro/form.rb
+- lib/macro/version.rb
+- example/andand.rb
+- example/assert.rb
+- example/assert_wrap.rb
+- example/__dir__.rb
+- example/__dir___wrap.rb
+- example/loop.rb
+- example/loop_wrap.rb
+- example/simple.rb
+- example/simple_wrap.rb
+- example/with.rb
+- example/with_wrap.rb
+has_rdoc: true
+homepage: http://rubymacros.rubyforge.org/
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: rubymacros
+rubygems_version: 1.3.0
+signing_key: 
+specification_version: 2
+summary: Macros are programmed in ruby itself.
+test_files: 
+- test/test_all.rb