AmberVM 0.0.19

data/lib/amber/functions/all.rb

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

data/lib/amber/functions/array/append.rb

@@ -0,0 +1,50 @@
+=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 Append function takes two arguments. The first an List or and anything
+    # else as a second parameter.
+    #
+    # It will take the List and append the second parameter passed to it to this
+    # list in the very end.
+    class Append < Function
+      def Append.execute params, env
+        if params.length == 2
+          array = params.shift
+          value = params.shift
+          array << value
+        else
+          AmberVM::Classes[:error].new(1,"#-1 FUNCTION (#{self.class.to_s}) EXPECTS 2 OR MORE ARGUMENTS BUT GOT #{params.length}")
+        end
+      end
+
+      def Append.signature
+        [AmberVM::Classes::List, :any]
+      end
+      register_for :append
+    end
+  end
+end

data/lib/amber/functions/array/at.rb

@@ -0,0 +1,50 @@
+=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 At function is used to access elements for a List, it takes the List
+    # the get the element from as a first argument and the position to get it
+    # from, a Number, as the second.
+    class At < Function
+      class << self 
+        def execute params, env
+          if params.length == 2
+            array = params.shift
+            pos = params.shift
+            array[pos.to_i]
+          else
+            AmberVM::Classes[:error].new(1,"FUNCTION (#{self.class}) EXPECTS 2 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+        
+        def signature
+          [AmberVM::Classes::List, AmberVM::Classes::Number]
+        end
+      end
+      register_for :at
+    end
+  end
+end

data/lib/amber/functions/array/set_at.rb

@@ -0,0 +1,50 @@
+=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
+    
+    # This Function is used to set a element of a List on a specific position.
+    # The List is passed as first and the position, a Number, passed as second
+    # parameter.
+    class SetAt < Function
+      def SetAt.execute params, env
+        if params.length == 3
+          array = params.shift
+          pos = params.shift
+          value = params.shift
+          array[pos.to_i] = value
+        else
+          AmberVM::Classes[:error].new(1,"FUNCTION (#{self.class}) EXPECTS 3 ARGUMENTS BUT GOT #{params.length}")
+        end
+      end
+
+      def SetAt.signature
+        [AmberVM::Classes::List, AmberVM::Classes::Number, :any]
+      end
+      register_for :set_at
+    end
+  end
+end

data/lib/amber/functions/array.rb

@@ -0,0 +1,30 @@
+=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
+
+Dir[File.dirname(__FILE__) + '/array/*.rb'].each do |c|
+  require 'amber/functions/array/' + File.basename(c)
+end
+Dir[File.dirname(__FILE__) + '/collection/*.rb'].each do |c|
+  require 'amber/functions/collection/' + File.basename(c)
+end

data/lib/amber/functions/association/assoc_get.rb

@@ -0,0 +1,55 @@
+=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 AssocGet function is the Association (hash) equivalent to At function
+    # from the List. It get a Association as first argument and a index as the
+    # second. This index can be any kind of Class.
+    #
+    # It can also be called with two arguments if :self is set as a variable
+    # and :self is a Association - in this case it is concidered a object
+    # function. The first passed parameter will be the key, the second the
+    # value.
+    class AssocGet < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 2
+            assoc = params.shift
+            key = params.shift
+            assoc[key]
+          elsif params.length == 1 and (this = env.read_var_val(:self)).is_a?(AmberVM::Classes[:association]) 
+            this[params.shift]
+          else
+            AmberVM::Classes[:error].new(1,"FUNCTION (#{self.class}) EXPECTS 2 or 1 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+      end
+      
+      register_for :assoc_get
+    end
+  end
+end

data/lib/amber/functions/association/assoc_set.rb

@@ -0,0 +1,56 @@
+=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 AssocSet function is used to set elements of a Association, it takes
+    # the Association as first argument, the key as second and the valuse as
+    # third.
+    #
+    # It can also be called with two arguments, a key and a value if the :self
+    # variable is set and a Association - thus it is in object context of a
+    # Association.
+    class AssocSet < AmberVM::Functions::Function
+      class << self
+        def execute params, env
+          if params.length == 3
+            assoc = params.shift
+            key = params.shift
+            value = params.shift
+            assoc[key] = value
+          elsif params.length == 2 and (this = env.read_var_val(:self)).is_a?(AmberVM::Classes[:association]) 
+            key = params.shift
+            value = params.shift
+            this[key] = value
+          else
+            AmberVM::Classes[:error].new(1,"FUNCTION (#{self.class}) EXPECTS 3 or 2 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+      end
+      
+      register_for :assoc_set
+    end
+  end
+end

data/lib/amber/functions/bitwise/bitwise_and.rb

@@ -0,0 +1,41 @@
+=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 BitwiseAnd < Function
+      
+      register_for :bitwise_and
+      
+      def self.execute params, env
+        AmberVM::Classes::Number.new(params.shift.to_i & params.shift.to_i)
+      end
+      
+      def self.signature
+        [AmberVM::Classes::Number, AmberVM::Classes::Number]
+      end
+      
+    end
+  end
+end

data/lib/amber/functions/bitwise/bitwise_not.rb

@@ -0,0 +1,41 @@
+=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 BitwiseNot < Function
+      
+      register_for :bitwise_not
+      
+      def self.execute params, env
+        AmberVM::Classes::Number.new(~params.shift.to_i)
+      end
+      
+      def self.signature
+        [AmberVM::Classes::Number, AmberVM::Classes::Number]
+      end
+      
+    end
+  end
+end

data/lib/amber/functions/bitwise/bitwise_or.rb

@@ -0,0 +1,41 @@
+=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 BitwiseOr < Function
+      
+      register_for :bitwise_or
+      
+      def self.execute params, env
+        params.shift.to_i | params.shift.to_i
+      end
+      
+      def self.signature
+        [AmberVM::Classes::Number, AmberVM::Classes::Number]
+      end
+      
+    end
+  end
+end

data/lib/amber/functions/bitwise/bitwise_xor.rb

@@ -0,0 +1,41 @@
+=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 BitwiseXor < Function
+      
+      register_for :bitwise_xor
+      
+      def self.execute params, env
+        params.shift.to_i ^ params.shift.to_i
+      end
+      
+      def self.signature
+        [AmberVM::Classes::Number, AmberVM::Classes::Number]
+      end
+      
+    end
+  end
+end

data/lib/amber/functions/bitwise.rb

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

data/lib/amber/functions/collection/get.rb

@@ -0,0 +1,66 @@
+=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
+
+require 'amber/functions/array/at'
+require 'amber/functions/association/assoc_get'
+module AmberVM
+  module Functions
+    
+    # The Get function is a generalized function for getting elements of classes
+    # that store collections of more then one element. Currently List
+    # and Associations are supported.
+    #
+    # It takes two or one argument, if only one argument it passed it is used
+    # as the key to get, and the :sefl variable must be set. If two arguments
+    # are passed the first is expected to be the collection and the second
+    # to be the key.
+    class Get < AmberVM::Functions::Function
+      class << self
+        FUNCTION_MAP = {
+          AmberVM::Classes::List => AmberVM::Functions::At,
+          AmberVM::Classes::Association => AmberVM::Functions::AssocGet
+        }
+        def execute params, env
+          if params.length == 2
+            if fun = FUNCTION_MAP[params.first.class]
+              fun.execute(params, env)
+            else
+              AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) does not accept #{params.first.class}")
+            end
+          elsif params.length == 1 and FUNCTION_MAP.include?((this = env.read_var_val(:self)).class)
+            if fun = FUNCTION_MAP[this]
+              fun.execute(params, env)
+            else
+              AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) does not accept #{thiss.class}")
+            end         
+          else
+            AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) EXPECTS 2 or 1 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+      end
+      
+      register_for :get
+    end
+  end
+end

data/lib/amber/functions/collection/set.rb

@@ -0,0 +1,67 @@
+=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
+
+require 'amber/functions/array/set_at'
+require 'amber/functions/association/assoc_set'
+module AmberVM
+  module Functions
+    
+    # The Set function is a generalized function for setting elements of classes
+    # that store collections of more then one element. Currently List
+    # and Associations are supported.
+    #
+    # It takes trhee or two argument, if only two argument it passed the first 
+    # is used as the key, the second as value, and the :sefl variable must be
+    # set. If three arguments are passed the first is expected to be the
+    # collection, the second to be the key and the thrid is used as value to
+    # set
+    class Set < AmberVM::Functions::Function
+      class << self
+        FUNCTION_MAP = {
+          AmberVM::Classes::List => AmberVM::Functions::SetAt,
+          Classes::Association => AmberVM::Functions::AssocSet
+        }
+        def execute params, env
+          if params.length == 2
+            if fun = FUNCTION_MAP[params.first.class]
+              fun.execute(params, env)
+            else
+              AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) does not accept #{params.first.class}")
+            end
+          elsif params.length == 1 and FUNCTION_MAP.include?((this = env.read_var_val(:self)).class)
+            if fun = FUNCTION_MAP[this]
+              fun.execute(params, env)
+            else
+              AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) does not accept #{thiss.class}")
+            end         
+          else
+            AmberVM::Classes[:error].new(1, "FUNCTION (#{self.class}) EXPECTS 2 or 1 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+      end
+      
+      register_for :set
+    end
+  end
+end

data/lib/amber/functions/collection/size.rb

@@ -0,0 +1,54 @@
+=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 Size function is a generalized function for determin the number
+    # of elements for classes that store collections of more then one element.
+    # Currently List and Associations are supported.
+    #
+    # It takes one or no arguments, if no arguments are passed it expects :self
+    # to be set to a valid class, otherwis the first argument is queried for
+    # it's size.
+    class Size < Function
+      class << self
+        COLLECTION_CLASSES = [
+          AmberVM::Classes::List,
+          AmberVM::Classes::Association
+        ]
+        def execute params, env
+          if params.empty? and COLLECTION_CLASSES.include?((this = env[:self].val).class)
+            AmberVM::Classes::Number.new(this.size)
+          elsif params.length == 1
+            AmberVM::Classes::Number.new(params[0].size)
+          else
+            AmberVM::Classes[:error].new(1,"FUNCTION (#{self}) EXPECTS 1 or 0 ARGUMENTS BUT GOT #{params.length}")
+          end
+        end
+      end
+      register_for :size, :length
+    end
+  end
+end