norma 0.2

data/COPYING

@@ -0,0 +1,168 @@
+= GNU LESSER GENERAL PUBLIC LICENSE
+
+Version 3, 29 June 2007
+
+
+Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+Everyone is permitted to copy and distribute verbatim copies
+of this license document, but changing it is not allowed.
+
+
+This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+== 0. Additional Definitions.
+
+As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+"The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+==  1. Exception to Section 3 of the GNU GPL.
+
+You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+== 2. Conveying Modified Versions.
+
+If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+a) under this License, provided that you make a good faith effort to
+ensure that, in the event an Application does not supply the
+function or data, the facility still operates, and performs
+whatever part of its purpose remains meaningful, or
+
+b) under the GNU GPL, with none of the additional permissions of
+this License applicable to that copy.
+
+== 3. Object Code Incorporating Material from Library Header Files.
+
+The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+a) Give prominent notice with each copy of the object code that the
+Library is used in it and that the Library and its use are
+covered by this License.
+
+b) Accompany the object code with a copy of the GNU GPL and this license
+document.
+
+== 4. Combined Works.
+
+You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+a) Give prominent notice with each copy of the Combined Work that
+the Library is used in it and that the Library and its use are
+covered by this License.
+
+b) Accompany the Combined Work with a copy of the GNU GPL and this license
+document.
+
+c) For a Combined Work that displays copyright notices during
+execution, include the copyright notice for the Library among
+these notices, as well as a reference directing the user to the
+copies of the GNU GPL and this license document.
+
+d) Do one of the following:
+
+d-0) Convey the Minimal Corresponding Source under the terms of this
+License, and the Corresponding Application Code in a form
+suitable for, and under terms that permit, the user to
+recombine or relink the Application with a modified version of
+the Linked Version to produce a modified Combined Work, in the
+manner specified by section 6 of the GNU GPL for conveying
+Corresponding Source.
+
+d-1) Use a suitable shared library mechanism for linking with the
+Library.  A suitable mechanism is one that (a) uses at run time
+a copy of the Library already present on the user's computer
+system, and (b) will operate properly with a modified version
+of the Library that is interface-compatible with the Linked
+Version.
+
+e) Provide Installation Information, but only if you would otherwise
+be required to provide such information under section 6 of the
+GNU GPL, and only to the extent that such information is
+necessary to install and execute a modified version of the
+Combined Work produced by recombining or relinking the
+Application with a modified version of the Linked Version. (If
+you use option 4d0, the Installation Information must accompany
+the Minimal Corresponding Source and Corresponding Application
+Code. If you use option 4d1, you must provide the Installation
+Information in the manner specified by section 6 of the GNU GPL
+for conveying Corresponding Source.)
+
+== 5. Combined Libraries.
+
+You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+a) Accompany the combined library with a copy of the same work based
+on the Library, uncombined with any other library facilities,
+conveyed under the terms of this License.
+
+b) Give prominent notice with the combined library that part of it
+is a work based on the Library, and explaining where to find the
+accompanying uncombined form of the same work.
+
+== 6. Revised Versions of the GNU Lesser General Public License.
+
+The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.
+

data/MANIFEST

@@ -0,0 +1,26 @@
+#!mast demo lib meta [A-Z]*
+demo
+demo/bootstrap.rb
+demo/model.rb
+demo/setup.rb
+demo/store.rb
+lib
+lib/norma
+lib/norma/bootstrap.rb
+lib/norma/database.rb
+lib/norma/database_adapter
+lib/norma/database_adapter/mysql
+lib/norma/database_adapter/mysql/adapter.rb
+lib/norma/database_adapter/mysql/down.sql
+lib/norma/database_adapter/mysql/up.sql
+lib/norma/database_adapter/postgres
+lib/norma/database_adapter/postgres/adapter.rb
+lib/norma/database_adapter/postgres/down.sql
+lib/norma/database_adapter/postgres/up.sql
+lib/norma/orm.rb
+lib/norma.rb
+meta
+meta/package
+meta/project
+meta/version
+README

data/demo/bootstrap.rb

@@ -0,0 +1,36 @@
+require 'norma'
+require './model.rb'
+require './store.rb'
+
+$norma_store.bootstrap
+
+p MyClass.records
+
+#p store.count( MyClass )
+
+#Norma.bootstrap
+
+#MyClass.record_store( store )
+
+#p store.count( MyClass )
+
+#obj = MyClass.new(1,2,3)
+#obj.as_record.save
+
+#obj2 = MyClass.record_load( obj.record_id )
+#p obj2
+
+# obj2 = MyClass.new( 4,5,6 )
+# 
+# p obj1
+# p obj2
+# 
+# obj1.record_save
+# obj2.record_save
+# 
+# p obj1.record_id
+# p obj2.record_id
+# 
+# p obj1
+# p obj2
+

data/demo/model.rb

@@ -0,0 +1,13 @@
+class MyClass
+
+  attr_accessor :a, :b, :c, :d
+
+  def initialize( a,b,c )
+    @a = a
+    @b = b
+    @c = c
+    @d = [ a, b, c ]
+  end
+
+end
+

data/demo/setup.rb

@@ -0,0 +1,30 @@
+require 'norma'
+require './model.rb'
+require './store.rb'
+
+$norma_store.down
+$norma_store.up
+
+#MyClass.record_store(store)
+
+# create and save
+obj = MyClass.new(1,2,3)
+obj.as_record.save
+
+#obj2 = MyClass.record_load( obj.record_id )
+#p obj2
+
+# obj2 = MyClass.new( 4,5,6 )
+# 
+# p obj1
+# p obj2
+# 
+# obj1.record_save
+# obj2.record_save
+# 
+# p obj1.record_id
+# p obj2.record_id
+# 
+# p obj1
+# p obj2
+

data/demo/store.rb

@@ -0,0 +1,7 @@
+$norma_store = Norma::Database::Postgres.connect(
+  :database => 'norma_development',
+  :username => 'trans',
+  :password => 'april',
+  :port     => 5432
+)
+

data/lib/norma.rb

@@ -0,0 +1,3 @@
+require 'norma/bootstrap'
+require 'norma/database'
+require 'norma/orm'

data/lib/norma/bootstrap.rb

@@ -0,0 +1,10 @@
+module Norma
+
+  def self.bootstrap
+    ObjectSpace.each_object(Class) do |c|
+      c.store.bootstrap if c.store
+    end
+  end
+
+end
+

data/lib/norma/database.rb

@@ -0,0 +1,233 @@
+module Norma
+  ### Base class for database adapters.
+  ### This class is modeled for a minimal Postgresql
+  ### adapter as a reference point.
+  class Database
+
+    ### Database Interface Error class
+    class InterfaceError < TypeError ; end
+
+    #
+    CORE = [String, Symbol, Fixnum, Float, Range, Time, Array, Hash]
+
+    #
+    def initialize(connection, logger = nil)
+      @connection = connection
+      @logger = logger
+      @runtime = 0
+      @cache = {}
+    end
+
+    def bootstrap
+      raise InterfaceError, "no bootstrap method"
+    end
+
+    # Read a record.
+    def read(id, object=nil)
+      raise InterfaceError, "no read method"
+    end
+
+    # Save (or insert) a record.
+    def save(klass, obj, id=nil)
+      raise InterfaceError, "no save method"
+    end
+
+    # Delete a record.
+    def delete(klass, id)
+      raise InterfaceError, "no save method"
+    end
+
+    # Select records.
+    def select(&block)
+      raise InterfaceError, "no select method"
+    end
+
+    # Return next available object record index.
+    def mint_id
+      raise InterfaceError, "no mint_id method"
+    end
+
+    # Load a record. This calls read, but caches
+    # the result. This is very important, otherwise
+    # an object will be loaded more than once.
+    #
+    def load( id, object=nil )
+      @cache[id] ||= read(id)
+    end
+
+    #
+    def update_sql(object)
+      update_object_sql(object) + update_class_sql(object)
+    end
+
+    #
+    def insert_sql(object)
+      insert_object_sql(object) + insert_class_sql(object)
+    end
+
+    #
+    def update_object_sql(object)
+      sql = ''
+      sql << %|UPDATE obj\n|
+      sql << %|SET class='#{object.class}'\n|
+      sql << %|WHERE id=#{object.record_id}|
+      sql << ';'
+      sql
+    end
+
+    #
+    def insert_object_sql(object)
+      sql = ''
+      sql << %|INSERT INTO obj |
+      sql << %|(id, class)\n|
+      sql << %|VALUES (#{object.record_id}, '#{object.class}')|
+      sql << ';'
+      sql
+    end
+
+    #
+    def update_class_sql(object)
+      return '' unless respond_to?("sql#{object.class}")
+      sql = ''
+      sql << %|UPDATE obj#{object.class}\n|
+      sql << %|SET |
+      sql << send("sql#{object.class}").map{|k,v|"#{k}=#{v}"}.join(' ')
+      sql << %|\nWHERE id=#{object.id}|
+      sql << ';'
+      sql
+    end
+
+    #
+    def insert_class_sql(object)
+      return '' unless respond_to?("sql#{object.class}")
+
+      atts = send("sql#{object.class}", object)        
+      keys = atts.keys.join(',')
+      vals = atts.values.join(',')
+
+      sql = ''
+      sql << %|INSERT INTO obj#{object.class} |
+      sql << %|(id, #{keys})\n|
+      sql << %|VALUES (#{object.record_id}, #{vals})|
+      sql << ';'
+      sql
+    end
+
+    #
+    def update_ivar_sql(object, field, value)
+      name = field.sub(/^@/,'')
+      sql = ''
+      sql << %|UPDATE ivar\n|
+      sql << %|SET val_id=#{value.record_id}\n|
+      sql << %|WHERE obj_id=#{object.record_id} AND name='#{name}'|
+      sql << ';'
+    end
+
+    #
+    def insert_ivar_sql(object, field, value)
+      name = field.sub(/^@/,'')
+      sql = ''
+      sql << %|INSERT INTO ivar |
+      sql << %|(obj_id, val_id, name)\n|
+      sql << %|VALUES (#{object.record_id}, #{value.record_id}, '#{name}')|
+      sql << ';'
+    end
+
+    ####################
+    # Object -> Record #
+    ####################
+
+    #
+    #def sqlObject(object)
+    #  object.inspect
+    #end
+
+    def sqlSymbol(object)
+      { :value => object.to_s.inspect }
+    end
+
+    def sqlString(object)
+      { :value => object.inspect }
+    end
+
+    def sqlFixnum(object)
+      { :value => object.to_i }
+    end
+
+    def sqlFloat(object)
+      { :value => object.to_f }
+    end
+
+    def sqlRange(object)
+      { :begins    => object.begin,
+        :ends      => object.end,
+        :exclusive => object.exclude_end? }
+    end
+
+    def sqlTime(object)
+      { :value => object.strftime('%Y-%m-%d %H:%M:%S').inspect }
+    end
+
+    def sqlArray(object)
+      { :values => "'{" + object.map{|o|"#{o.record_id}"}.join(',') + "}'" }
+    end
+
+    def sqlHash(object)
+      { :keys => object.keys,
+        :values => object.values 
+      }
+    end
+
+    ####################
+    # Record -> Object #
+    ####################
+
+    def newSymbol(rec)
+      rec[1].to_sym
+    end
+
+    #
+    def newString(rec)
+      rec[1]
+    end
+
+    def newFixnum(rec)
+      Integer(rec[1])
+    end
+
+    def newFloat(rec)
+      Float(rec[1])
+    end
+
+    def newRange(rec)
+      Range.new(rec[1], rec[2], rec[3])
+    end
+
+    def newTime(rec)
+      rec[1]  # TODO: parse time string
+    end
+
+    def newArray(rec)
+      ary = []
+      rec[1].scan(/\d+/).each do |i|
+        ary << load(i.to_i)
+      end
+      ary
+    end
+
+    def newHash(rec)
+      keys = []
+      rec[1].scan(/\d+/).each do |id|
+        keys << load(id.to_i)
+      end
+      vals = []
+      rec[2].scan(/\d+/).each do |id|
+        vals << load(id.to_i)
+      end
+      Hash[*keys.zip(vals)]
+    end
+
+  end # class Database
+
+end # module Norma
+

data/lib/norma/database_adapter/mysql/adapter.rb

@@ -0,0 +1,143 @@
+begin
+  require 'mysql'
+rescue Object
+  puts 'Ruby MySQL bindings are not installed!'
+end
+
+
+module Norma
+
+  # Mysql Store
+  class Database::Mysql < Database
+
+    # Create a connection to database.
+    def self.connect(config)
+      host     = config[:host]     || "localhost"
+      port     = config[:port]     || 5433 unless host.nil?
+      username = config[:username] || ""
+      password = config[:password] || ""
+
+      if config.key?(:database)
+        database = config[:database]
+      else
+        raise ArgumentError, "No database specified. Missing argument: database."
+      end
+
+      return new(
+        PGconn.connect(host, port, "", "", database, username, password) #, logger
+      )
+    end
+
+    # Return database conguration.
+    def config
+      { :database => @connection.db,
+        :port => @connection.port,
+        :host => @connection.host,
+        :username => @connection.user
+      }
+    end
+
+    # Execute SQL
+    def execute(sql)
+      #puts "\n#{sql}\n" if $DEBUG
+      @connection.exec(sql)
+    end
+
+    # Create object link tables.
+    def up
+      file = File.join(File.dirname(__FILE__), 'up.sql')
+      sql  = File.read(file)
+      execute sql
+    end
+
+    # Destroy object link tables.
+    def down
+      file = File.join(File.dirname(__FILE__), 'down.sql')
+      sql  = File.read(file)
+      execute sql
+    end
+
+    def bootstrap
+      sql = "SELECT id FROM obj;"
+      res = execute(sql)
+      res.each do |row|
+        load(row['id'])
+      end
+    end
+
+    # Get a new object id.
+    def mint_id
+      r = execute "SELECT nextval('obj_sequence');"
+      r[0][0].to_i
+    end
+
+    # Save-out an object to the database.
+    def save(object)
+#puts "Saving a #{object.class} id(#{object.record_id})"
+      sql = []
+      if object.as_record.persisted?
+        sql << update_sql(object)
+        object.state.each do |field, value|
+          value.as_record.save unless value.as_record.persisted?
+          sql << update_ivar_sql(object, field, value)
+        end
+      else
+        sql << insert_sql(object)
+        object.state.each do |field, value|
+          value.as_record.save unless value.as_record.persisted?
+          sql << insert_ivar_sql(object, field, value)
+        end
+      end
+      sql = sql.join("\n")
+      execute(sql)
+      object.as_record.persisted!
+    end
+
+    # Read object from database.
+    #
+    # TODO: Use a join query if possible and if more efficient.
+    #
+    def read(id, object=nil)
+      sql = "SELECT * FROM obj WHERE id=#{id};"
+      obj = execute(sql)
+
+      return nil unless obj  # THINK: raise error instead?
+
+      classname = obj[0][1]
+
+      klass = Object.const_get(classname)
+
+      immutable = (klass<=NilClass || klass<=FalseClass || klass<=TrueClass || klass<=Fixnum || klass<=Symbol)
+
+      case klass
+      when NilClass
+        object = nil
+      when FalseClass
+        object = false
+      when TrueClass
+        object = true
+      else
+        if CORE.include?(klass)
+          sql = "SELECT * FROM obj#{klass} WHERE id=#{id};"
+          rec = execute(sql)
+          object = __send__("new#{klass}", rec[0])
+        else
+          object = klass.allocate
+        end
+      end
+
+      unless immutable
+        sql = "SELECT * FROM ivar WHERE obj_id=#{id};"
+        var = execute(sql)
+        var.each do |row|
+          object.__send__(:instance_variable_set, "@#{row['name']}", load(row['val_id']))
+        end
+      end
+
+      object
+    end
+ 
+  end # class Database::Postgres
+
+end # module Norma
+

data/lib/norma/database_adapter/mysql/down.sql

@@ -0,0 +1,17 @@
+/* -*- sql -*-
+* Note that ivar_obj_index is automatically
+* dropped with the ivar table.
+*/
+DROP TABLE ivar;
+DROP TABLE obj;
+DROP TABLE objSymbol;
+DROP TABLE objString;
+DROP TABLE objFixnum;
+DROP TABLE objFloat;
+DROP TABLE objRange;
+DROP TABLE objTime;
+DROP TABLE objArray;
+DROP TABLE objHash;
+
+DROP SEQUENCE obj_sequence;
+

data/lib/norma/database_adapter/mysql/up.sql

@@ -0,0 +1,83 @@
+/* Sequence for object ids. (Use uuids instead?) */
+
+CREATE SEQUENCE obj_sequence;
+
+/* Every object has an entry in the obj table.
+ * If the object is a core-class object, then it will also
+ * have an entry in one of the obj* class tables with the 
+ * same id.
+ */
+
+/* Should class allow NULL? */
+
+CREATE TABLE obj (
+  id         int,
+  class      text    NULL,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objFixnum (
+  id         int,
+  value      int,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objSymbol (
+  id         int,
+  value      text,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objString (
+  id         int,
+  value      text,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objFloat (
+  id         int,
+  value      float,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objRange (
+  id         int,
+  begins     numeric,
+  ends       numeric,
+  exclusive  bool,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objTime (
+  id         int,
+  value      timestamp,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objArray (
+  id         int,
+  values     int[],
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objHash (
+  id         int,
+  keys       int[],
+  values     int[],
+  PRIMARY KEY (id)
+);
+
+/*** 
+ *** Instance Variable Table. All instance
+ *** variables are stored in this table.
+ ***/
+CREATE TABLE ivar (
+  name          text   NOT NULL,
+  obj_id        int    REFERENCES obj(id),
+  val_id        int    REFERENCES obj(id),
+  PRIMARY KEY (obj_id, name)
+);
+
+CREATE INDEX ivar_obj_index ON ivar(obj_id);
+
+

data/lib/norma/database_adapter/postgres/adapter.rb

@@ -0,0 +1,145 @@
+begin
+  require 'postgres'
+rescue Object => ex
+  puts 'Ruby-PostgreSQL bindings are not installed!'
+  #Logger.error 'Ruby-PostgreSQL bindings are not installed!'
+  #Logger.error ex
+end
+
+
+module Norma
+
+  # Postgresql Store
+  class Database::Postgres < Database
+
+    # Create a connection to database.
+    def self.connect(config)
+      host     = config[:host]     || "localhost"
+      port     = config[:port]     || 5433 unless host.nil?
+      username = config[:username] || ""
+      password = config[:password] || ""
+
+      if config.key?(:database)
+        database = config[:database]
+      else
+        raise ArgumentError, "No database specified. Missing argument: database."
+      end
+
+      return new(
+        PGconn.connect(host, port, "", "", database, username, password) #, logger
+      )
+    end
+
+    # Return database conguration.
+    def config
+      { :database => @connection.db,
+        :port => @connection.port,
+        :host => @connection.host,
+        :username => @connection.user
+      }
+    end
+
+    # Execute SQL
+    def execute(sql)
+      #puts "\n#{sql}\n" if $DEBUG
+      @connection.exec(sql)
+    end
+
+    # Create object link tables.
+    def up
+      file = File.join(File.dirname(__FILE__), 'up.sql')
+      sql  = File.read(file)
+      execute sql
+    end
+
+    # Destroy object link tables.
+    def down
+      file = File.join(File.dirname(__FILE__), 'down.sql')
+      sql  = File.read(file)
+      execute sql
+    end
+
+    def bootstrap
+      sql = "SELECT id FROM obj;"
+      res = execute(sql)
+      res.each do |row|
+        load(row['id'])
+      end
+    end
+
+    # Get a new object id.
+    def mint_id
+      r = execute "SELECT nextval('obj_sequence');"
+      r[0][0].to_i
+    end
+
+    # Save-out an object to the database.
+    def save(object)
+#puts "Saving a #{object.class} id(#{object.record_id})"
+      sql = []
+      if object.as_record.persisted?
+        sql << update_sql(object)
+        object.state.each do |field, value|
+          value.as_record.save unless value.as_record.persisted?
+          sql << update_ivar_sql(object, field, value)
+        end
+      else
+        sql << insert_sql(object)
+        object.state.each do |field, value|
+          value.as_record.save unless value.as_record.persisted?
+          sql << insert_ivar_sql(object, field, value)
+        end
+      end
+      sql = sql.join("\n")
+      execute(sql)
+      object.as_record.persisted!
+    end
+
+    # Read object from database.
+    #
+    # TODO: Use a join query if possible and if more efficient.
+    #
+    def read(id, object=nil)
+      sql = "SELECT * FROM obj WHERE id=#{id};"
+      obj = execute(sql)
+
+      return nil unless obj  # THINK: raise error instead?
+
+      classname = obj[0][1]
+
+      klass = Object.const_get(classname)
+
+      immutable = (klass<=NilClass || klass<=FalseClass || klass<=TrueClass || klass<=Fixnum || klass<=Symbol)
+
+      case klass
+      when NilClass
+        object = nil
+      when FalseClass
+        object = false
+      when TrueClass
+        object = true
+      else
+        if CORE.include?(klass)
+          sql = "SELECT * FROM obj#{klass} WHERE id=#{id};"
+          rec = execute(sql)
+          object = __send__("new#{klass}", rec[0])
+        else
+          object = klass.allocate
+        end
+      end
+
+      unless immutable
+        sql = "SELECT * FROM ivar WHERE obj_id=#{id};"
+        var = execute(sql)
+        var.each do |row|
+          object.__send__(:instance_variable_set, "@#{row['name']}", load(row['val_id']))
+        end
+      end
+
+      object
+    end
+ 
+  end # class Database::Postgres
+
+end # module Norma
+

data/lib/norma/database_adapter/postgres/down.sql

@@ -0,0 +1,17 @@
+/* -*- sql -*-
+* Note that ivar_obj_index is automatically
+* dropped with the ivar table.
+*/
+DROP TABLE ivar;
+DROP TABLE obj;
+DROP TABLE objSymbol;
+DROP TABLE objString;
+DROP TABLE objFixnum;
+DROP TABLE objFloat;
+DROP TABLE objRange;
+DROP TABLE objTime;
+DROP TABLE objArray;
+DROP TABLE objHash;
+
+DROP SEQUENCE obj_sequence;
+

data/lib/norma/database_adapter/postgres/up.sql

@@ -0,0 +1,83 @@
+/* Sequence for object ids. (Use uuids instead?) */
+
+CREATE SEQUENCE obj_sequence;
+
+/* Every object has an entry in the obj table.
+ * If the object is a core-class object, then it will also
+ * have an entry in one of the obj* class tables with the 
+ * same id.
+ */
+
+/* Should class allow NULL? */
+
+CREATE TABLE obj (
+  id         int,
+  class      text    NULL,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objFixnum (
+  id         int,
+  value      int,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objSymbol (
+  id         int,
+  value      text,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objString (
+  id         int,
+  value      text,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objFloat (
+  id         int,
+  value      float,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objRange (
+  id         int,
+  begins     numeric,
+  ends       numeric,
+  exclusive  bool,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objTime (
+  id         int,
+  value      timestamp,
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objArray (
+  id         int,
+  values     int[],
+  PRIMARY KEY (id)
+);
+
+CREATE TABLE objHash (
+  id         int,
+  keys       int[],
+  values     int[],
+  PRIMARY KEY (id)
+);
+
+/*** 
+ *** Instance Variable Table. All instance
+ *** variables are stored in this table.
+ ***/
+CREATE TABLE ivar (
+  name          text   NOT NULL,
+  obj_id        int    REFERENCES obj(id),
+  val_id        int    REFERENCES obj(id),
+  PRIMARY KEY (obj_id, name)
+);
+
+CREATE INDEX ivar_obj_index ON ivar(obj_id);
+
+

data/lib/norma/orm.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/env ruby
+
+require 'norma/database'
+require 'norma/database_adapter/postgres/adapter.rb'
+
+
+module Norma
+
+  EXCLUDE_FIELDS = [ '@as_record' ]
+
+  # Record delegator
+  class Record
+
+    # Access the delegate object.
+    attr :object
+
+    #
+    def initialize( object )
+      @object = object
+    end
+
+    #
+    def store
+      @object.class.record_store
+    end
+
+    #
+    def id
+      @id ||= store.mint_id
+    end
+
+    # Is the object persisted in the database?
+    def persisted? ; @persisted ; end
+    def persisted! ; @persisted = true ; end
+
+    # Load
+    def reload
+      store.load(id, @object)
+    end
+
+    # Save
+    def save
+      store.save(@object)
+    end
+
+  end
+
+  #
+  class ::Class
+
+    # Set the storage adapter for the class.
+    # This allows differnt classes to be stored
+    # in different databases. By default the 
+    # store set in the global $norma_store is
+    # used.
+    def record_store(store=nil)
+      @store = store if store
+      @store ||= $norma_store
+    end
+
+    def records
+      a = []
+      ObjectSpace.each_object(self) do |o| ; a << o ; end
+      a
+    end
+
+  end
+
+  #
+  class ::Object
+
+    def as_record
+      @as_record ||= Norma::Record.new(self)
+    end
+
+    def record_id
+      as_record.id
+    end
+
+    # TODO: rename to record_state ?
+    # TODO: Add user define include/exlcude of persitant variables.
+    def state
+      fields = instance_variables - Norma::EXCLUDE_FIELDS
+      values = fields.collect { |v| instance_variable_get(v) }
+      return fields.zip(values)
+    end
+
+  end
+
+end
+

data/meta/package

@@ -0,0 +1 @@
+norma

data/meta/project

@@ -0,0 +1 @@
+rubyworks

data/meta/version

@@ -0,0 +1 @@
+0.2

metadata

@@ -0,0 +1,80 @@
+--- !ruby/object:Gem::Specification 
+name: norma
+version: !ruby/object:Gem::Version 
+  version: "0.2"
+platform: ruby
+authors: 
+- "- Thomas Sawyer"
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-09-23 00:00:00 -04:00
+default_executable: 
+dependencies: []
+
+description: ""
+email: "- Thomas Sawyer"
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- MANIFEST
+- COPYING
+files: 
+- demo/bootstrap.rb
+- demo/model.rb
+- demo/setup.rb
+- demo/store.rb
+- lib/norma/bootstrap.rb
+- lib/norma/database.rb
+- lib/norma/database_adapter/mysql/adapter.rb
+- lib/norma/database_adapter/mysql/down.sql
+- lib/norma/database_adapter/mysql/up.sql
+- lib/norma/database_adapter/postgres/adapter.rb
+- lib/norma/database_adapter/postgres/down.sql
+- lib/norma/database_adapter/postgres/up.sql
+- lib/norma/orm.rb
+- lib/norma.rb
+- meta/package
+- meta/project
+- meta/version
+- README
+- MANIFEST
+- COPYING
+has_rdoc: true
+homepage: http://rubyworks.github.com/norma
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --title
+- norma api
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: norma
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: ""
+test_files: []
+