dm-drupal 0.1.0 → 0.1.2

data/lib/drupal/cck/builder.rb

@@ -0,0 +1,95 @@
+module Drupal
+  module CCK
+    class Builder
+      def self.code
+        types.
+          map{|t| table = Table.new t}.
+          select{|t| t.valid?}.
+          join("\n")
+      end
+
+      def self.types
+        @types ||= ContentType.all.map{|t| t.content_type }
+      end
+
+      def self.fields
+        @fields ||= Drupal::Repository.adapter.query('show tables').select{|t| t.match(/^content_field/)}
+      end
+      
+      module InstanceMethods
+        def generate_node
+          return node if node
+          self.node = Node.create! :type => content_type
+          self.vid = node.vid
+          save!
+          self.vid = node.vid
+          save!
+        end
+      end
+    end
+        
+    class Table
+      attr_accessor :content_type
+
+      def initialize content_type
+        self.content_type = content_type
+      end
+
+      def table
+        "content_type_#{content_type}"
+      end
+      
+      def fields
+        Drupal::CCK::ContentNodeFieldInstance.all :content_type => content_type
+      end
+      
+      def columns
+        @columns ||= fields
+      end
+
+      def ignore_columns
+        %w{nid vid}
+      end
+
+      def to_s
+        "
+          class #{content_type.camel_case}
+            #{Drupal.common}
+            storage_names[:drupal] = '#{table}'
+            property :nid, Integer
+            property :vid, Integer, :key => true
+            belongs_to :node,
+              :child_key => [:nid]
+            #{columns.map{|c| c.to_s}.join "\n"}
+            def self.content_type; :#{content_type}; end
+            def content_type; :#{content_type}; end
+            
+            extend CCK::FieldMethods
+            include CCK::Builder::InstanceMethods
+          end
+        "
+      end
+
+      def valid?
+        columns
+        true
+      rescue MysqlError
+        false
+      end
+    end
+  end
+  
+  def self.generate
+    Drupal.class_eval do
+      eval( CCK::Builder.fields.map do |field|
+        CCK::ThroughField.new field
+      end.join("\n") )
+  
+      eval CCK::Builder.code
+      
+      Drupal.hooks.each do |hook|
+        hook.load
+      end
+    end
+  end
+end

data/lib/drupal/cck/fields.rb

@@ -0,0 +1,52 @@
+module Drupal
+  module CCK
+    module FieldMethods
+      def fields
+        Drupal::CCK::ContentNodeFieldInstance.all :type_name => type
+      end
+    end
+    
+    class ThroughField
+      attr_accessor :field_name, :table
+      
+      def initialize field
+        self.table = field
+        self.field_name = field.match(/^content_field_(.*)/)[1]
+      end
+      
+      def field
+        @field ||= ContentNodeField.first :field_name => "field_#{field_name}"
+      end
+      
+      def valid?
+        !field.nil?
+      end
+      
+      def field_type
+        case field.type
+        when 'userreference'
+          "belongs_to :user,
+            :class_name => 'Drupal::User',
+            :child_key => [:#{field.field_name}_uid]"
+        end
+      end
+      
+      def to_s
+        return "" unless valid?
+        "
+          class #{field_name.camel_case}
+            #{Drupal.common}
+            storage_names[:drupal] = '#{table}'
+            
+            property :vid, Integer, :key => true
+            belongs_to :node,
+              :class_name => 'Drupal::Node',
+              :child_key => [:nid]
+            Drupal::User
+            #{field_type}
+          end
+        "
+      end
+    end
+  end
+end

data/lib/drupal/cck.rb

@@ -0,0 +1,92 @@
+module Drupal
+  module CCK
+    module NodeMethods
+      def cck_class
+        @cck_class ||= eval("Drupal::#{type.camel_case}")
+      end
+    
+      def cck
+        @cck ||= cck_class.first(:nid => nid)
+      end
+    
+      def find_or_create_cck
+        return cck if cck
+        @cck = cck_class.create! :vid => vid, :nid => nid
+      end      
+    end
+    
+    class ContentType
+      eval Drupal.common
+      storage_names[:drupal] = 'node_type'
+      
+      property :content_type, String,
+        :key => true, :field => 'type'
+    end
+    
+    class ContentNodeFieldInstance
+      eval Drupal.common
+      storage_names[:drupal] = 'content_node_field_instance'
+      
+      property :field_name, String,
+        :length => 32, :key => true
+      property :content_type, String,
+        :length => 32, :key => true,
+        :field => 'type_name'
+        
+      def field
+        @field ||= ContentNodeField.first :field_name => field_name
+      end
+      
+      def field_type
+        @field_type ||= field.type
+      end
+      
+      def to_s
+        f = field_name.match(/^field_(.*)/)[1]
+        case field_type
+        when 'userreference'
+          if through?
+            r = "has 1, :#{f},
+                   :class_name => Drupal::#{f.camel_case},
+                   :child_key => [:nid]
+                 
+                 has 1, :#{f}_user,
+                   :remote_name => :user,
+                   :class_name => Drupal::User,
+                   :child_key => [:nid],
+                   :through => :#{f}"
+          else
+            r = "belongs_to :#{field_name},
+              :class_name => 'Drupal::User'"
+          end
+        when 'number_integer'
+          r  = "property :#{f}, Integer, 
+                  :field => 'field_#{f}_value'"
+        when 'text'
+          r  = "property :#{f}, Text, 
+                  :field => 'field_#{f}_value'"
+        end
+        r
+      end
+      
+      def through?
+        Drupal::CCK::Builder.fields.include? "content_#{field_name}"
+      end
+    end
+    
+    class ContentNodeField
+      eval Drupal.common
+      storage_names[:drupal] = 'content_node_field'
+      
+      property :type, String,
+        :length => 127
+      property :field_name, String,
+        :length => 32
+    end
+  end
+  
+  Node.send :include, CCK::NodeMethods
+end
+
+require 'drupal/cck/fields.rb'
+require 'drupal/cck/builder.rb'

data/lib/drupal/node.rb

@@ -0,0 +1,58 @@
+module Drupal
+  class Node
+    eval Drupal.common
+    storage_names[:drupal] = 'node'
+
+    property :nid, Serial
+    property :vid, Integer
+    property :uid, Integer
+    property :type, String
+    property :title, String
+    
+    before :save, :assign_vid
+    after :save, :write_node_revision
+    
+    def assign_vid
+      return true unless vid.nil? 
+      self.vid ||= Drupal::Node.all.last.nid + 1
+      save!
+      self.vid = nid
+      save!
+    end
+    
+    def write_node_revision
+      find_or_init_node_revision.attributes = {
+        :nid     => nid,
+        :vid     => vid, 
+        :uid     => uid, 
+        :title   => title,
+        :body    => '',
+        :teaser  => '',
+        :log     => ''
+      }
+      node_revision.save!
+    end
+    
+    def find_or_init_node_revision
+      return node_revision if node_revision
+      @node_revision = Drupal::NodeRevision.new
+    end
+    
+    def node_revision
+      @node_revision ||= Drupal::NodeRevision.get vid
+    end
+  end
+  
+  class NodeRevision
+    eval Drupal.common
+    storage_names[:drupal] = 'node_revisions'
+
+    property :vid, Serial
+    property :nid, Integer
+    property :uid, Integer
+    property :title, String
+    property :body, Text
+    property :teaser, Text
+    property :log, Text
+  end
+end

data/lib/drupal/user.rb

@@ -0,0 +1,23 @@
+module Drupal
+  class User
+    eval Drupal.common
+    storage_names[:drupal] = 'users'
+
+    property :uid, Serial
+    
+    property :name, String,
+      :length => 60,
+      :nullable => false
+    
+    property :mail, String,
+      :length => 64
+    
+    has n, :nodes, 
+      :child_key => [:uid],
+      :repository => Drupal::Repository
+    
+    def profile
+      Drupal::Node.first :type => 'profile', :uid => uid
+    end
+  end
+end

data/lib/drupal.rb

@@ -0,0 +1,48 @@
+module Drupal
+  RepositoryName = :drupal
+  Repository = repository(Drupal::RepositoryName)
+  
+  def self.common
+    "
+      include DataMapper::Resource
+    
+      def self.default_repository_name
+        Drupal::RepositoryName
+      end
+    "
+  end
+  
+  class PostHook
+    attr_accessor :cls, :proc
+    
+    def load
+      cls.class_eval &proc
+    end
+        
+    def initialize cls, proc
+      self.cls  = cls
+      self.proc = proc
+    end
+  end
+  
+  def self.hooks
+    @hooks||= []
+    @hooks
+  end
+  
+  def self.hooks= hook
+    hooks
+    @hooks << hook
+  end
+end
+
+module DataMapper::Resource::ClassMethods
+  def post_drupal &blk
+    Drupal.hooks = Drupal::PostHook.new self, blk
+  end
+end
+
+$:<< File.expand_path(Pathname.new(__FILE__).dirname)
+require 'drupal/user'
+require 'drupal/node'
+require 'drupal/cck'

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: dm-drupal
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
+  version: 0.1.2
 platform: ruby
 authors: 
 - quinn shanahan
@@ -22,7 +22,12 @@ extensions: []
 extra_rdoc_files: []
 
 files: 
-- README
+- lib/drupal/cck/builder.rb
+- lib/drupal/cck/fields.rb
+- lib/drupal/cck.rb
+- lib/drupal/node.rb
+- lib/drupal/user.rb
+- lib/drupal.rb
 has_rdoc: true
 homepage: 
 licenses: []

data/README

@@ -1,19 +0,0 @@
-== DM Drupal ==
-
-Its a Datamapper wrapper for a drupal+cck database.
-
-lots of eval right now. sorry.
-
-== Using Hooks ==
-
-this is for associating with dynamic cck fields that don't exist when the app loads.
-
-class BlogPost
-  include DataMapper::Resource  
-  post_drupal do
-    has 1, :drupal_blog_post,
-      :repository => repository(:drupal),
-      :class_name => 'Drupal::BlogPost',
-      :child_key => ['legacy_blog_post_id']
-  end
-end