rVM 0.0.1

data/lib/rvm/base/plugin.rb

@@ -0,0 +1,332 @@
+# = PluginHost
+#
+# $Id: plugin.rb 69 2006-07-11 06:00:20Z murphy $
+#
+# A simple subclass plugin system.
+#
+#  Example:
+#    class Generators < PluginHost
+#      plugin_path 'app/generators'
+#    end
+#    
+#    class Generator
+#      extend Plugin
+#      PLUGIN_HOST = Generators
+#    end
+#    
+#    class FancyGenerator < Generator
+#      register_for :fancy
+#    end
+#
+#    Generators[:fancy]  #-> FancyGenerator
+#    # or
+#    require_plugin 'Generators/fancy'
+#
+#    Thanks a lot to Murphy, this code is borrowed from coderay.
+#
+module PluginHost
+
+  # Raised if Encoders::[] fails because:
+  # * a file could not be found
+  # * the requested Encoder is not registered
+  PluginNotFound = Class.new Exception
+  HostNotFound = Class.new Exception
+
+  PLUGIN_HOSTS = []
+  PLUGIN_HOSTS_BY_ID = {}  # dummy hash
+
+  # Loads all plugins using all_plugin_names and load.
+  def load_all
+    for plugin in all_plugin_names
+      load plugin
+    end
+  end
+
+  # Returns the Plugin for +id+.
+  #
+  # Example:
+  #  yaml_plugin = MyPluginHost[:yaml]
+  def [] id, *args, &blk
+    plugin = validate_id(id)
+    begin
+      plugin = plugin_hash.[] plugin, *args, &blk
+    end while plugin.is_a? Symbol
+    plugin
+  end
+
+  # Alias for +[]+.
+  alias load []
+
+  def require_helper plugin_id, helper_name
+    path = path_to File.join(plugin_id, helper_name)
+    require path
+  end
+
+  class << self
+
+    # Adds the module/class to the PLUGIN_HOSTS list.
+    def extended mod
+      PLUGIN_HOSTS << mod
+    end
+
+    # Warns you that you should not #include this module.
+    def included mod
+      warn "#{name} should not be included. Use extend."
+    end
+
+    # Find the PluginHost for host_id.
+    def host_by_id host_id
+      unless PLUGIN_HOSTS_BY_ID.default_proc
+        ph = Hash.new do |h, a_host_id|
+          for host in PLUGIN_HOSTS
+            h[host.host_id] = host
+          end
+          h.fetch a_host_id, nil
+        end
+        PLUGIN_HOSTS_BY_ID.replace ph
+      end
+      PLUGIN_HOSTS_BY_ID[host_id]
+    end
+
+  end
+
+  # The path where the plugins can be found.
+  def plugin_path *args
+    unless args.empty?
+      @plugin_path = File.expand_path File.join(*args)
+      load_map
+    end
+    @plugin_path
+  end
+
+  # The host's ID.
+  #
+  # If PLUGIN_HOST_ID is not set, it is simply the class name.
+  def host_id
+    if self.const_defined? :PLUGIN_HOST_ID
+      self::PLUGIN_HOST_ID
+    else
+      name
+    end
+  end
+
+  # Map a plugin_id to another.
+  #
+  # Usage: Put this in a file plugin_path/_map.rb.
+  #
+  #  class MyColorHost < PluginHost
+  #    map :navy => :dark_blue,
+  #      :maroon => :brown,
+  #      :luna => :moon
+  #  end
+  def map hash
+    for from, to in hash
+      from = validate_id from
+      to = validate_id to
+      plugin_hash[from] = to unless plugin_hash.has_key? from
+    end
+  end
+
+  # Define the default plugin to use when no plugin is found
+  # for a given id.
+  #
+  # See also map.
+  #
+  #  class MyColorHost < PluginHost
+  #    map :navy => :dark_blue
+  #    default :gray
+  #  end
+  def default id
+    id = validate_id id
+    plugin_hash[nil] = id
+  end
+
+  # Every plugin must register itself for one or more
+  # +ids+ by calling register_for, which calls this method.
+  #
+  # See Plugin#register_for.
+  def register plugin, *ids
+    for id in ids
+      unless id.is_a? Symbol
+        raise ArgumentError,
+          "id must be a Symbol, but it was a #{id.class}"
+      end
+      plugin_hash[validate_id(id)] = plugin
+    end
+  end
+
+  # A Hash of plugion_id => Plugin pairs.
+  def plugin_hash
+    @plugin_hash ||= create_plugin_hash
+  end
+
+  def has? id
+    plugin_hash.include? id
+  end
+  # Returns an array of all .rb files in the plugin path.
+  #
+  # The extension .rb is not included.
+  def all_plugin_names
+    Dir[path_to('*')].select do |file|
+      File.basename(file)[/^(?!_)\w+\.rb$/]
+    end.map do |file|
+      File.basename file, '.rb'
+    end
+  end
+
+  # Makes a map of all loaded plugins.
+  def inspect
+    map = plugin_hash.dup
+    map.each do |id, plugin|
+      map[id] = plugin.to_s[/(?>[\w_]+)$/]
+    end
+    "#{name}[#{host_id}]#{map.inspect}"
+  end
+
+protected
+  # Created a new plugin list and stores it to @plugin_hash.
+  def create_plugin_hash
+    @plugin_hash =
+      Hash.new do |h, plugin_id|
+        id = validate_id(plugin_id)
+        path = Dir[File.join(plugin_path, "#{plugin_id}.rb")].first || path_to(id)
+        begin
+          require path
+        rescue LoadError => boom
+          if h.has_key? nil  # default plugin
+            h[id] = h[nil]
+          else
+            raise PluginNotFound, 'Could not load plugin %p: %s' % [id, boom]
+          end
+        else
+          # Plugin should have registered by now
+          unless h.has_key? id
+            raise PluginNotFound,
+              "No #{self.name} plugin for #{id.inspect} found in #{path}."
+          end
+        end
+        h[id]
+      end
+  end
+
+  # Loads the map file (see map).
+  #
+  # This is done automatically when plugin_path is called.
+  def load_map
+    mapfile = path_to '_map'
+    if File.exist? mapfile
+      require mapfile
+    elsif $DEBUG
+      warn 'no _map.rb found for %s' % name
+    end
+  end
+
+  # Returns the Plugin for +id+.
+  # Use it like Hash#fetch.
+  #
+  # Example:
+  #  yaml_plugin = MyPluginHost[:yaml, :default]
+  def fetch id, *args, &blk
+    plugin_hash.fetch validate_id(id), *args, &blk
+  end
+
+  # Returns the expected path to the plugin file for the given id.
+  def path_to plugin_id
+    File.join(plugin_path, "#{plugin_id}.rb")
+  end
+
+  # Converts +id+ to a Symbol if it is a String,
+  # or returns +id+ if it already is a Symbol.
+  #
+  # Raises +ArgumentError+ for all other objects, or if the
+  # given String includes non-alphanumeric characters (\W).
+  def validate_id id
+    if id.is_a? Symbol or id.nil?
+      id
+    elsif id.is_a? String
+      if id[/\w+/] == id
+        id.to_sym
+      else
+        raise ArgumentError, "Invalid id: '#{id}' given."
+      end
+    else
+      raise ArgumentError,
+        "String or Symbol expected, but #{id.class} given."
+    end
+  end
+
+end
+
+
+# = Plugin
+#
+#  Plugins have to include this module.
+#
+#  IMPORTANT: use extend for this module.
+#
+#  Example: see PluginHost.
+module Plugin
+
+  def included mod
+    warn "#{name} should not be included. Use extend."
+  end
+
+  # Register this class for the given langs.
+  # Example:
+  #   class MyPlugin < PluginHost::BaseClass
+  #     register_for :my_id
+  #     ...
+  #   end
+  #
+  # See PluginHost.register.
+  def register_for *ids
+    plugin_host.register self, *ids
+  end
+
+  # The host for this Plugin class.
+  def plugin_host host = nil
+    if host and not host.is_a? PluginHost
+      raise ArgumentError,
+        "PluginHost expected, but #{host.class} given."
+    end
+    self.const_set :PLUGIN_HOST, host if host
+    self::PLUGIN_HOST
+  end
+
+  # Require some helper files.
+  #
+  # Example:
+  #
+  #  class MyPlugin < PluginHost::BaseClass
+  #     register_for :my_id
+  #     helper :my_helper
+  #
+  # The above example loads the file myplugin/my_helper.rb relative to the
+  # file in which MyPlugin was defined.
+  def helper *helpers
+    for helper in helpers
+      self::PLUGIN_HOST.require_helper plugin_id, helper.to_s
+    end
+  end
+
+  # Returns the pulgin id used by the engine.
+  def plugin_id
+    name[/[\w_]+$/].downcase
+  end
+
+end
+
+
+# Convenience method for plugin loading.
+# The syntax used is:
+#
+#  require_plugin '<Host ID>/<Plugin ID>'
+#
+# Returns the loaded plugin.
+def require_plugin path
+  host_id, plugin_id = path.split '/', 2
+  host = PluginHost.host_by_id(host_id)
+  raise PluginHost::HostNotFound,
+    "No host for #{host_id.inspect} found." unless host
+  host.load plugin_id
+end

data/lib/rvm/classes/block.rb

@@ -0,0 +1,26 @@
+module RVM
+  module Classes
+    class Block < RVM::Classes::Class
+      attr_accessor :code
+      register_for :block
+      def initialize code
+        super()
+        @type = :any
+        @code = code
+      end
+      
+      def execute env
+      end
+      
+      def execargs
+        true
+      end
+      
+      def call params, env
+        #Logger.debug "Calling Block...(#{env},#{params})" if $DEBUG
+        env = RVM::Interpreter::Enviroment.new({:params => params||[]}, env)
+        @code.execute env
+      end
+    end
+  end
+end

data/lib/rvm/classes/boolean.rb

@@ -0,0 +1,27 @@
+module RVM
+  module Classes
+    class Boolean < RVM::Classes::Class
+      register_for :boolean
+      def data_type
+        :boolean
+      end
+      
+      def initialize value
+        super()
+        if value
+          if value.respond_to? :is_true?
+            @value = value.is_true?
+          else
+            @value = true
+          end
+        else
+          @value = false
+        end
+      end
+      
+      def is_true?
+        @value
+      end
+    end
+  end
+end

data/lib/rvm/classes/error.rb

@@ -0,0 +1,22 @@
+module RVM
+  module Classes
+    class Error < RVM::Classes::Class
+      register_for :error
+      attr_accessor :value
+      @@type = :error
+      def initialize value, text = "This is an error!"
+        super()
+        @value = value.to_i
+        @text = text
+      end
+      
+      def is_true? 
+        false
+      end
+      
+      def to_s
+				"##{@value.abs * -1} #{@text}"
+      end
+    end
+  end
+end

data/lib/rvm/classes/list.rb

@@ -0,0 +1,48 @@
+require 'lib/base/classes'
+module RVM
+  module Classes
+    class List < Array
+      extend Plugin
+      plugin_host Classes
+      register_for :list
+      @@type = :list
+      attr_reader :sepperator
+      
+      def data_type
+        :list
+      end
+      
+      def initialize source= [], sepperator = ' '
+        super()
+        if source.is_a?(::String) # Okay we've to hack here to get sure we get the /real/ String
+          source = source.split sepperator
+        elsif !source.is_a?(Array)
+          source = [source]
+        end
+        self.concat source
+        @sepperator = sepperator.to_s
+      end
+      
+      def resplit(sep)
+        sep = sep.to_s
+        if sep != @sepperator
+          t = self.join(@sepperator)
+          @sepperator = sep
+          self.clear
+          self.concat(t.split(sep))
+        end
+      end
+      
+      def sepperator= sep
+        @sepperator = sep.to_s
+      end
+      
+      def to_s
+        if @sepperator
+          map{|i| i.to_s}.join(@sepperator)
+        end
+      end
+      
+    end
+  end
+end

data/lib/rvm/classes/number.rb

@@ -0,0 +1,70 @@
+module RVM
+  module Classes
+    class Number < Class
+      register_for :number
+      @@type = :number
+      
+      def initialize value
+        super()
+        if value.is_a? Numeric
+          @value = value
+        elsif value.respond_to?(:to_f) and ((v = value.to_f) != value.to_i)
+          @value = v
+        elsif value.respond_to?(:to_i)
+          @value = value.to_i
+        else
+          @value = "#{value}".to_f
+        end
+        if @value.to_f == @value.to_i
+          @value = @value.to_i
+        end
+      end
+      
+      def == v
+        @value == v
+      end
+      
+      def to_s
+        @value.to_s
+      end
+      
+      def to_i
+        @value.to_i
+      end
+      
+      def to_f
+        @value.to_f
+      end
+      
+      def is_true?
+        @value != 0
+      end
+      
+      def value
+        @value
+      end
+
+      def respond_to?(symbol,include_private = false)
+        super(symbol,include_private)
+      end
+      
+      alias method_missing_old_number method_missing
+      def method_missing m, *args
+        if @value.respond_to? m
+          args.map! do |a|
+            if a.is_a? Number
+              a.value
+            else
+              Number.new(a).value
+            end
+          end
+          r = @value.send(m,*args)
+          r = Number.new(r) if r.is_a? Numeric
+          r
+        else
+          method_missing_old_number m, *args
+        end
+      end
+    end
+  end
+end

data/lib/rvm/classes/string.rb

@@ -0,0 +1,73 @@
+module RVM
+  module Classes
+    class String <String 
+      extend Plugin
+      plugin_host Classes
+      register_for :string
+      @@type = :string
+      ANSI_MAP = {
+				'h' => 1,  'H' => 22, 
+				'u' => 4,  'U' => 24,
+				'f' => 5,  'f' => 25,
+				'i' => 7,  'I' => 27,
+				'n' => 0,
+				'x' => 30, 'X' => 40,
+				'r' => 31, 'R' => 41,
+				'g' => 32, 'G' => 42,
+				'y' => 33, 'Y' => 42,
+				'b' => 34, 'B' => 44,
+				'm' => 35, 'M' => 45,
+				'c' => 36, 'C' => 45,
+				'w' => 37, 'W' => 47,
+      }
+      def initialize val = ""
+        super val.to_s
+      end
+      
+      def is_true?
+        not empty?
+      end
+      
+      def data_type
+        :string
+      end
+      
+      def center width, char = " " 
+        c = char[0..0]
+        c = ' ' if c.empty?
+        width = width.to_i - self.length
+        width = 0 if width < 0
+        l = width / 2
+        r = width - l
+        self.class.new((c*l) + self +  (c*r))
+      end
+      
+      def ljust width, char = " " 
+        c = char[0..0]
+        c = ' ' if c.empty?
+        width = width.to_i - self.length
+        width = 0 if width < 0
+        self.class.new(self +  (c*width))
+      end
+      
+      def rjust width, char = " " 
+        c = char[0..0]
+        c = ' ' if c.empty?
+        width = width.to_i - self.length
+        width = 0 if width < 0
+        self.class.new((c*width) + self)
+      end
+      
+      def + v
+        self.class.new(super(v))
+      end
+      
+      def ansi colorset
+        colorset.gsub!(/[^#{ANSI_MAP.keys.join('')}]/,'')
+        colorcode = colorset.split('').map { |c| ANSI_MAP[c].to_s}.join(';')
+        c = "\e[#{colorcode}m"
+        self.class.new("#{c}#{self.gsub("\e[0m",c)}\e[0m")
+      end
+    end
+  end
+end

data/lib/rvm/functions/list/align.rb

@@ -0,0 +1,49 @@
+module RVM
+	module Functions
+		class Align < Function
+      #TODO: Fix this  
+			def Align.execute params, env
+				if params.length >=2
+					alignments = params.shift
+					alignments.map! { |i| i.to_i }
+					data = []
+					alignments.size.times do
+						data << params.shift || []
+					end
+
+					filler = params.shift || " "
+					filler = filler.to_s
+					colsep = params.shift || " "
+					colsep = colsep.to_s
+					rowsep = params.shift || "\n"
+					rowsep = rowsep.to_s
+					running = true
+					str = ""
+					while running
+						i = 0;
+						running = false
+						alignments.each do |arg|
+							running = (item = data[i].shift) || running
+							if arg > 0
+								str << ljust(item || "",arg,filler)
+							else
+								str << rjust(item || "",arg*-1,filler)
+							end
+							str << colsep
+							i =+ 1
+						end
+						str << rowsep
+					end
+					RVM::Classes[:string].new(str.gsub(/[\n\s]+$/,''))
+				else
+					RVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR MORE ARGUMENTS BUT GOT #{params.length}")
+				end
+			end
+
+			def Align.signature
+				[:list]
+			end
+			register_for :align
+		end
+	end
+end

data/lib/rvm/functions/list/join.rb

@@ -0,0 +1,18 @@
+module RVM
+	module Functions
+		class Join < Function
+			def Join.execute params, env
+				if params.length == 2
+					RVM::Classes[:string].new(params[0].join(params[1]))
+				else
+					RVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR 3 ARGUMENTS BUT GOT #{params.length}")
+				end
+			end
+
+			def Join.signature
+				[:list, :string]
+			end
+			register_for :join
+		end
+	end
+end

data/lib/rvm/functions/list/map.rb

@@ -0,0 +1,24 @@
+module RVM
+	module Functions
+		class Map < Function
+			def Map.execute params, env
+				if params.length == 2
+					block = params[1]
+					i = 0
+					RVM::Classes[:list].new(params[0].map do |e|
+						e = block.call([e, RVM::Classes[:number].new(i)], env)
+						i += 1
+						e # needed to assure that the right value is returned
+					end,params[0].sepperator)
+				else
+					RVM::Classes[:error].new(1,"FUNCTION (#{self.class.to_s}) EXPECTS 2 ARGUMENTS BUT GOT #{params.length}")
+				end
+			end
+
+			def Map.signature
+				[:list, :block]
+			end
+			register_for :map
+		end
+	end
+end