dslkit 0.2.0

data/examples/null_pattern.rb

@@ -0,0 +1,52 @@
+require 'dslkit/polite'
+$:.unshift 'examples'
+
+include DSLKit::Deflect
+
+puts "Example 1"
+deflect(NilClass, :method_missing, Deflector.new { nil }) do
+  begin
+    p "foo".bar.baz
+  rescue NoMethodError
+    p "caught 1"
+  end
+  p nil.bar.baz
+  t = Thread.new do
+    begin
+      p nil.bar.baz
+    rescue NoMethodError
+      p "caught 2"
+    end
+  end
+  t.join if t.alive?
+  p nil.bar.baz
+end
+begin
+  p nil.bar.baz
+rescue NoMethodError
+  p "caught 3"
+end
+
+puts "-" * 70, "Example 2"
+deflect_start(NilClass, :method_missing, Deflector.new { nil })
+begin
+  p "foo".bar.baz
+rescue NoMethodError
+  p "caught 1"
+end
+p nil.bar.baz
+t = Thread.new do
+  begin
+    p nil.bar.baz
+  rescue NoMethodError
+    p "caught 2"
+  end
+end
+t.join if t.alive?
+p nil.bar.baz
+deflect_stop(NilClass, :method_missing)
+begin
+  p nil.bar.baz
+rescue NoMethodError
+  p "caught 3"
+end

data/examples/recipe.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+
+require 'dslkit/rude'
+$:.unshift 'examples'
+require 'recipe_common'
+
+class Cup < Unit; end
+class Teaspoon < Unit; end
+class Tablespoon < Unit; end
+
+class Flour < Ingredient; end
+class Bakingpowder < Ingredient; end
+class Salt < Ingredient; end
+class Egg < Ingredient; end
+class Milk < Ingredient; end
+class Butter < Ingredient; end
+
+class Recipe < DSLKit::BlankSlate.with(:respond_to?, :instance_exec, :inspect, /^deflect/)
+  include DSLKit::Deflect
+
+  def initialize(&block)
+    @ingredients = []
+    deflector = Deflector.new do |number, id, name|
+      if unit = Unit.unit(name, number)
+        unit
+      else
+        ingredient = Ingredient.ingredient(name, number)
+        @ingredients << ingredient
+      end
+    end
+    deflect(Numeric, :method_missing, deflector) do
+      instance_exec(&block)
+    end
+  end
+
+  attr_reader :ingredients
+
+  def to_a
+    @ingredients
+  end
+  alias to_ary to_a
+
+  def to_s
+    to_a * "\n"
+  end
+  alias inspect to_s
+
+  def method_missing(name, *args)
+    name = name.to_s.gsub(/_/, '').capitalize
+    @ingredients << Object.const_get(name).new(*args)
+  end
+end
+
+class RecipeInterpreter
+  def recipe(&block)
+    Recipe.new(&block)
+  end
+end
+
+recipe_source = <<EOT
+pancakes = recipe do
+  flour         2.cups
+  baking_powder 2.5.teaspoons
+  salt          0.5.teaspoon
+  egg           1
+  milk          1.5.cups
+  butter        2.tablespoons
+end
+EOT
+
+pancakes = RecipeInterpreter.new.interpret(recipe_source)
+puts pancakes
+
+puts
+
+def recipe(&block)
+  Recipe.new(&block)
+end
+
+pancakes = eval recipe_source
+puts pancakes

data/examples/recipe2.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby
+
+require 'dslkit/rude'
+$:.unshift 'examples'
+require 'recipe_common'
+
+class Cup < Unit; end
+class Teaspoon < Unit; end
+class Tablespoon < Unit; end
+
+class Flour < Ingredient; end
+class Bakingpowder < Ingredient; end
+class Salt < Ingredient; end
+class Egg < Ingredient; end
+class Milk < Ingredient; end
+class Butter < Ingredient; end
+
+class Recipe < DSLKit::BlankSlate.with(:respond_to?, :instance_exec, :inspect, /^deflect/)
+  include DSLKit::Deflect
+
+  def initialize(&block)
+    @ingredients = []
+    deflector = Deflector.new do |number, id, name|
+      if unit = Unit.unit(name, number)
+        unit
+      else
+        ingredient = Ingredient.ingredient(name, number)
+        @ingredients << ingredient
+      end
+    end
+    deflect_start(Numeric, :method_missing, deflector)
+    deflector2 = Deflector.new do |unit, id, name|
+      ingredient = Ingredient.ingredient(name, unit)
+      @ingredients << ingredient
+    end
+    deflect_start(Unit, :method_missing, deflector2)
+    instance_exec(&block)
+  ensure
+    deflect_stop(Numeric, :method_missing) if deflect?(Numeric, :method_missing)
+    deflect_stop(Unit, :method_missing) if deflect?(Unit, :method_missing)
+  end
+
+  attr_reader :ingredients
+
+  def to_a
+    @ingredients
+  end
+  alias to_ary to_a
+
+  def to_s
+    to_a * "\n"
+  end
+end
+
+class RecipeInterpreter
+  def recipe(&block)
+    Recipe.new(&block)
+  end
+end
+
+recipe_source = <<EOT
+pancakes = recipe do
+  2.cups.         flour
+  2.5.teaspoons.  baking_powder 
+  0.5.teaspoon.   salt
+  1.              egg
+  1.5.cups.       milk
+  2.tablespoons.  butter
+end
+EOT
+
+pancakes = RecipeInterpreter.new.interpret(recipe_source)
+puts pancakes
+
+puts
+
+def recipe(&block)
+  Recipe.new(&block)
+end
+
+pancakes = eval recipe_source
+puts pancakes

data/examples/recipe_common.rb

@@ -0,0 +1,99 @@
+class Ingredient
+  class << self
+    def inherited(klass)
+      ingredients << klass
+    end
+
+    attr_accessor :ingredients
+
+    def ingredient(name, amount)
+      name = name.to_s.gsub(/_/, '').capitalize
+      if klass = ingredients.find { |n| n.to_s == name }
+        klass.new(amount)
+      else
+        raise "unknown ingredient #{name}"
+      end
+    end
+  end
+  self.ingredients = []
+
+  def initialize(amount = 1)
+    @amount = amount
+  end
+
+  def name
+    self.class.name.downcase
+  end
+
+  attr_reader :amount
+
+  def to_s
+    "#@amount #{name}"
+  end
+end
+
+class Unit
+  class << self
+    def inherited(klass)
+      units << klass
+    end
+
+    attr_accessor :units
+
+    def unit(name, amount)
+      name = name.to_s.gsub(/s$/, '').capitalize
+      if klass = units.find { |n| n.to_s == name }
+        klass.new(amount)
+      end
+    end
+  end
+  self.units = []
+
+  def initialize(n = 1)
+    @n = n
+  end
+
+  def name
+    self.class.name.downcase
+  end
+
+  attr_reader :n
+  
+  def to_s
+    "#@n #{name}#{@n > 1 ? 's' : ''}"
+  end
+end
+
+class Unit
+  class << self
+    def inherited(klass)
+      units << klass
+    end
+
+    attr_accessor :units
+
+    def unit(name, amount)
+      name = name.to_s.gsub(/s$/, '').capitalize
+      if klass = units.find { |n| n.to_s == name }
+        klass.new(amount)
+      end
+    end
+  end
+  self.units = []
+
+  def initialize(n = 1)
+    @n = n
+  end
+
+  def name
+    self.class.name.downcase
+  end
+
+  attr_reader :n
+  
+  def to_s
+    "#@n #{name}#{@n > 1 ? 's' : ''}"
+  end
+end
+
+

data/examples/subtract.reg

@@ -0,0 +1,9 @@
+# vim: set filetype=ruby:
+
+# Subtraction A = A - B, A >= 0 and A >= B
+register.A = 10                             # register names have to be uppercase
+register.B = 3
+
+label(Sub_B)  { decrement B, Stop, Sub_A }  # labels have to be uppercase as well
+label(Sub_A)  { decrement A, Stop, Sub_B }
+label(Stop)   { halt }

data/install.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+require 'rbconfig'
+require 'fileutils'
+include FileUtils::Verbose
+
+include Config
+
+src = File.join(*%w[lib dslkit])
+dst = File.join(CONFIG["sitelibdir"], 'dslkit')
+mkdir_p dst
+for file in %w[polite.rb rude.rb]
+  install File.join(src, file), File.join(dst, file)
+end
+install File.join('lib', 'dslkit.rb'), File.join(CONFIG["sitelibdir"], file)
+
+    # vim: set et sw=4 ts=4: