rubymacros 0.1.5 → 0.1.6

data/example/linenum_wrap.rb

@@ -1,3 +1,21 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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'
 Macro.require 'example/linenum.rb'
 

data/example/loop.rb

@@ -1,3 +1,21 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
 =begin doesn't work yet
 macro loop(&body)
   :(while true

data/example/loop_wrap.rb

@@ -1,3 +1,21 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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'
 Macro.require 'example/loop.rb'
 

data/example/meta.rb

@@ -0,0 +1,25 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+module X
+  class<<self
+  end
+end
+
+  class<<self
+  end

data/example/meta_wrap.rb

@@ -0,0 +1,20 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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"
+Macro.require "example/meta.rb"

data/example/nilresult.rb

@@ -0,0 +1,26 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+macro nilresult
+  nil
+end
+
+
+nilresult
+
+p Macro.expand( "a; nilresult; b" ).unparse

data/example/nilresult_wrap.rb

@@ -0,0 +1,21 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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'
+Macro.require 'example/nilresult'
+

data/example/pipeline.rb

@@ -0,0 +1,37 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+macro pipeline stages
+  result=:(begin end)
+
+end
+
+
+=begin
+(0..9).map{|n| n+100 }.select{|n| n%2==0 }.inject(0){|sum,n| sum+n }
+
+begin
+sum=0
+for x in (0..9) 
+  x=x+100
+  next if x%2==0
+  sum=sum+x
+end
+sum
+end
+=end

data/example/rescuing.rb

@@ -0,0 +1,33 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+macro rescuing_vars(method)
+  method.body=:(
+     begin
+        ^method.body
+     rescue => e; puts "rescuing" ; #raise
+     end
+  )
+  return method
+end
+
+rescuing_vars def foo
+  bar
+end
+
+foo

data/example/rescuing_wrap.rb

@@ -0,0 +1,21 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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'
+Macro.require 'example/rescuing'
+

data/example/role.rb

@@ -0,0 +1,103 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+# Role base class. Use SimpleDelegator instead?
+class Role
+  def initialize(mappings)
+    @mappings = mappings
+  end
+  attr :mappings
+end
+ 
+# Context (UseCase) base class.
+class Context
+end
+
+macro context_class name, roles, verbs
+lc_roles=roles.map{|role| 
+  ConstantNode===role or fail
+  role.unparse.downcase.gsub("::","__") 
+}
+sym_roles=lc_roles.map{|role|
+  LiteralNode[role]
+}
+at_roles=lc_roles.map{|role|
+  VarNode["@"+role]
+}
+var_roles=lc_roles.map{|role|
+  VarNode[role]
+}
+:(
+# We can think of a context as setting a scene.
+class ^name < Context
+  attr_accessor ^*sym_roles
+  def initialize(^*var_roles)
+    ^*at_roles = ^*var_roles
+  end
+  ^verbs.map{|verb| context_verb(^*verb) }
+end
+)
+end
+
+macro context_verb(name, *args)
+  :(:(
+    def ^^name(^^*args,&block)
+      ^*roles.zip(at_roles).map{|role,var|
+        :((^var).(^eval(role.unparse).mappings[name])(^^*args,&block))
+      }
+    end
+  ))
+end
+
+ 
+ 
+# --- example ---
+ 
+# Mixins are fixed roles.
+class Balance
+  def initialize
+    @balance = 0
+  end
+  def availableBalance
+    @balance
+  end
+  def increaseBalance(amount)
+    @balance += amount
+    puts "Tranfered from account #{__id__} $#{amount}"
+  end
+  def decreaseBalance(amount)
+    @balance -= amount
+    puts "Tranfered to account #{__id__} $#{amount}"
+  end
+end
+ 
+Balance::TransferSource= Role.new :transfer => :decreaseBalance
+Balance::TransferDestination= Role.new :transfer => :increaseBalance
+
+context_class Balance::Transfer, 
+  Balance::TransferSource, Balance::TransferDestination,
+  [transfer, amount]
+ 
+class Account<Balance
+  # An account by definition has a balance.
+end
+ 
+acct1 = Account.new
+acct2 = Account.new
+ 
+Balance::Transfer.new(acct1, acct2).transfer(50)

data/example/role_with_eval.rb

@@ -0,0 +1,92 @@
+=begin
+    rubymacros - a macro preprocessor for ruby
+    Copyright (C) 2008, 2016  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
+
+  def Context roles, verbs
+    lc_roles=roles.map{|role| 
+      role.downcase.gsub("::","__") 
+    } 
+    sym_roles=lc_roles.map{|role|
+      ":"+role
+    }.join(',')
+    at_roles=lc_roles.map{|role|
+      "@"+role
+    }
+    var_roles=lc_roles.join(',')
+    result=Class.new(Context)
+    result.class_eval "
+      # We can think of a context as setting a scene.
+        attr_accessor #{sym_roles}
+        def initialize(#{var_roles})
+          #{at_roles.join ','} = #{var_roles}
+        end
+        #{verbs.map{|verb| Context.verb(roles.zip(at_roles), verb) }.join("\n")}
+    "
+    return result
+  end
+
+# Context (UseCase) base class.
+class Context
+  def self.verb(roles_n_vars, name)
+    "
+      def #{name}(*args, &block)
+        #{roles_n_vars.map{|role,var|
+          "#{var}.#{eval(role)[name.to_sym]}(*args, &block)"
+        }.join("\n")}
+      end
+    "
+  end
+end
+
+ 
+ 
+# --- example ---
+ 
+# Mixins are fixed roles.
+class Balance
+  def initialize
+    @balance = 0
+  end
+  def availableBalance
+    @balance
+  end
+  def increaseBalance(amount)
+    @balance += amount
+    puts "Tranfered from account #{__id__} $#{amount}"
+  end
+  def decreaseBalance(amount)
+    @balance -= amount
+    puts "Tranfered to account #{__id__} $#{amount}"
+  end
+end
+ 
+Balance::TransferSource= { :transfer => :decreaseBalance }
+Balance::TransferDestination= { :transfer => :increaseBalance }
+
+Balance::Transfer=Context(
+  %w[Balance::TransferSource Balance::TransferDestination],
+  %w[transfer]
+)
+
+class Account<Balance
+  # An account by definition has a balance.
+end
+ 
+acct1 = Account.new
+acct2 = Account.new
+ 
+Balance::Transfer.new(acct1, acct2).transfer(50)