AmberVM 0.0.19

data/lib/amber/functions/general/cmp.rb

@@ -0,0 +1,43 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Cmp (compare) function is prett stight fowards, it takes two
+    # arguments, not less nor more and compares them using the <=> opperator.
+    #
+    # Returned is a Number.
+    class Cmp < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:number].new(params[0] <=> params[1])
+          end
+        end
+      end
+      register_for :cmp
+    end
+  end
+end

data/lib/amber/functions/general/eq.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Eq function tests if the two passed parameters are equal, using the 
+    # == opperator.
+    #
+    # It returns a Boolean.
+    class Eq < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] == params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :eq
+    end
+  end
+end

data/lib/amber/functions/general/gt.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Gt function  tests if the first argument passed is greater then the
+    # second one, using the > opperator.
+    #
+    # A Boolean is returned.
+    class Gt < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] > params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :gt
+    end
+  end
+end

data/lib/amber/functions/general/gte.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Gte function  tests if the first argument passed is greater or equal
+    # to then the second one, using the >= opperator.
+    #
+    # A Boolean is returned.
+    class Gte < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] >= params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :gte
+    end
+  end
+end

data/lib/amber/functions/general/lt.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Lt function  tests if the first argument passed is lower then the
+    # second one, using the < opperator.
+    #
+    # A Boolean is returned.
+    class Lt < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] < params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :lt
+    end
+  end
+end

data/lib/amber/functions/general/lte.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Lte function  tests if the first argument passed is lower or equal
+    # to then the second one, using the <= opperator.
+    #
+    # A Boolean is returned.
+    class Lte < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] <= params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :lte
+    end
+  end
+end

data/lib/amber/functions/general/neq.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The Eq function tests if the two passed parameters are unequal, using the 
+    # != opperator.
+    #
+    # It returns a Boolean.
+    class Neq < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            return AmberVM::Classes[:boolean].new(params[0] != params[1])
+          else
+          end
+        end
+        
+      end
+      register_for :neq
+    end
+  end
+end

data/lib/amber/functions/general/type.rb

@@ -0,0 +1,43 @@
+=begin
+The MIT License
+
+Copyright (c) 2008 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+module AmberVM
+  module Functions
+    
+    # The Eq function tests if the two passed parameters are unequal, using the 
+    # != opperator.
+    #
+    # It returns a Boolean.
+    class Type < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 1
+            return AmberVM::Classes[:string].new(params[0].class)
+          else
+          end
+        end        
+      end
+      register_for :type
+    end
+  end
+end

data/lib/amber/functions/general.rb

@@ -0,0 +1,3 @@
+Dir[File.dirname(__FILE__) + '/general/*.rb'].each do |c|
+  require c
+end

data/lib/amber/functions/io/print.rb

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2007 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+
+module AmberVM
+  module Functions
+    
+    # The print function is used to print one or more argumnts to the console,
+    # thus allowing scripts to generate console output.
+    #
+    # Eacha argument is passed to rubys +print# function.
+    class Print < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          params.each do |p|
+            print p
+          end
+        end
+        
+      end
+      register_for :print
+    end
+  end
+end

data/lib/amber/functions/io.rb

@@ -0,0 +1,3 @@
+Dir[File.dirname(__FILE__) + '/io/*.rb'].each do |c|
+  require c
+end

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

@@ -0,0 +1,73 @@
+=begin
+The MIT License
+
+Copyright (c) 2007 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    class Align < Function #:nodoc:
+      #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
+          AmberVM::Classes::String.new(str.gsub(/[\n\s]+$/,''))
+        else
+          AmberVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR MORE ARGUMENTS BUT GOT #{params.length}")
+        end
+      end
+
+      def Align.signature
+        [AmberVM::Classes::List]
+      end
+      register_for :align
+    end
+  end
+end

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

@@ -0,0 +1,45 @@
+=begin
+The MIT License
+
+Copyright (c) 2007 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+   
+    # The join function is used to join a list to a String. It expects two
+    # arguments, the first beeing the list, the second the string to join it by.
+    class Join < Function
+      def Join.execute params, env
+        if params.length == 2
+          AmberVM::Classes::String.new(params[0].join(params[1]))
+        else
+          AmberVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR 3 ARGUMENTS BUT GOT #{params.length}")
+        end
+      end
+
+      def Join.signature
+        [AmberVM::Classes::List, AmberVM::Classes::String]
+      end
+      register_for :join
+    end
+  end
+end

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

@@ -0,0 +1,58 @@
+=begin
+The MIT License
+
+Copyright (c) 2007 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+   
+    # The map function is used to execute a certain task for every elment of a
+    # List, the results of the map function are used to replace the original
+    # element.
+    #
+    # The map function passes two arguments to the mapping funciton, first the
+    # element of the list to be mapped and second the position of this element.
+    #
+    # It eppects twp parameters, first the List and second the mapping function,
+    # which should resond to #call
+    class Map < Function
+      def Map.execute params, env
+        if params.length == 2
+          block = params[1]
+          i = 0
+          AmberVM::Classes::List.new(params[0].map do |e|
+            e = block.call([e, AmberVM::Classes[:number].new(i)], env)
+            i += 1
+            e # needed to assure that the right value is returned
+          end,params[0].sepperator)
+        else
+          AmberVM::Classes[:error].new(1,"FUNCTION (#{self.class.to_s}) EXPECTS 2 ARGUMENTS BUT GOT #{params.length}")
+        end
+      end
+
+      def Map.signature
+        [AmberVM::Classes::List, AmberVM::Classes::Block]
+      end
+      register_for :map
+    end
+  end
+end

data/lib/amber/functions/list/split.rb

@@ -0,0 +1,55 @@
+=begin
+The MIT License
+
+Copyright (c) 2007 Heinz N. 'Licenser' Gies
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Ruby Mush"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+module AmberVM
+  module Functions
+    
+    # The split function is used to split a string by a sepperator char and
+    # generate a list from the passed elements.
+    #
+    # It takes two arguments, the first to be the string to split and the second
+    # the sepperator to split by. Note: the sepperator will be removed from the
+    # result.
+    class Split < Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            AmberVM::Classes[:list].new(params[0].to_s,params[1])
+          else
+            AmberVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR 3 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+        
+        def signature
+          [AmberVM::Classes::String, AmberVM::Classes::String]
+        end
+        
+        def data_type
+          :list
+        end
+      end
+      register_for :split
+    end
+  end
+end

data/lib/amber/functions/list.rb

@@ -0,0 +1,3 @@
+Dir[File.dirname(__FILE__) + '/list/*.rb'].each do |c|
+  require c
+end