started to implement simple object system (tuples).

more to come.

examples/tuples.stackd

@@ -0,0 +1,5 @@
+in: examples.tuples ;
+
+tuple: foo bar baz ;
+
+$! pp ;

runtime/primitives/syntax.rb

@@ -1,5 +1,14 @@
 module Primitives
   module Syntax
+    def get_current_module(scope)
+      mod_name = scope["*module_name*"]
+      if mod_name
+        scope[mod_name]
+      else
+        nil
+      end
+    end
+
     def init_primitive_syntax
       syntax('require:') do |scope, atoms|
         filename = atoms.first.eval(scope)
@@ -11,15 +20,29 @@ def init_primitive_syntax
         first = atoms.first
         case first
         when Stackd::Identifier
-          mod_name = scope["*module_name*"]
-          if mod_name
-            scope[mod_name].define_word(first.text_value, atoms[1..-1])
+          mod = get_current_module(scope)
+          if mod
+            mod.define_word(first.text_value, atoms[1..-1])
           else
             scope.define_word(first.text_value, atoms[1..-1])
           end
         end
       end
 
+      syntax('tuple:') do |scope, atoms|
+        tuplename = atoms.first.text_value
+        slots = atoms.rest.map{|a| a.text_value}
+        case atoms.first
+        when Stackd::Identifier
+          mod = get_current_module(scope)
+          if mod
+            mod.define_tuple(tuplename, slots)
+          else
+            scope.define_tuple(tuplename, slots)
+          end
+        end
+      end
+
       syntax('in:') do |scope, atoms|
         module_name = atoms.first.text_value
         scope["*modules*"] << module_name

runtime/scope.rb

@@ -2,6 +2,11 @@ class Scope
   def initialize(parent = nil)
     @parent = parent || {}
     @symbols = {}
+    @tuples = {}
+  end
+
+  def tuples
+    @tuples
   end
 
   def [](name)
@@ -19,6 +24,10 @@ def define_word(name, *body, &block)
   def syntax(name, &block)
     self[name] = Syntax.new(self, &block)
   end
+
+  def define_tuple(name, slots)
+    self.tuples[name] = Tuple.new(name, slots)
+  end
 end
 
 class TopLevel < Scope

runtime/stackd.rb

@@ -7,7 +7,8 @@
  "primitives/words",
  "nodes",
  "scope",
- "word"].each do |path|
+ "word",
+ "tuple"].each do |path|
   require File.dirname(__FILE__) + '/' + path
 end
 

runtime/tuple.rb

@@ -0,0 +1,15 @@
+class Tuple
+  def initialize(name, slots)
+    @name = name
+    @slots = slots || []
+#    self.class.instance_eval{ attr_accessor *slots }
+  end
+
+  def to_s
+    "#<Tuple:#{@name} [#{@slots.join(',')}]>"
+  end
+
+  def inspect
+    to_s
+  end
+end