turtle 0.0.1

data/lib/turtle.rb

@@ -0,0 +1,9 @@
+require 'turtle/builder'
+
+module Turtle
+
+  def self.build(out=STDOUT, extension=nil, &block)
+    Builder.build out, extension, &block
+  end
+
+end

data/lib/turtle/builder.rb

@@ -0,0 +1,228 @@
+module Turtle
+
+  class BlankNode
+
+    def initialize(name)
+      @name = name
+    end
+
+    def to_s()
+      "_:#{@name}"
+    end
+
+  end
+
+  class Builder
+    
+    def initialize(out)
+      @out = out
+      @state = :object
+      @xsd = nil
+      @blank = 0
+      @indent = 0
+    end
+
+    def base(uri)
+      @out.puts "@base <#{uri}> ."
+    end
+
+    def prefix(prefix, namespace=nil)
+      if namespace
+        case prefix
+        when :blank, :_
+          @out.puts "@prefix : <#{namespace}> ."          
+        else
+          @out.puts "@prefix #{prefix}: <#{namespace}> ."
+          @xsd = prefix if namespace == "http://www.w3.org/2001/XMLSchema#"
+        end
+      else
+        case prefix
+        when :blank, :_
+          @out.puts "@prefix : <#{namespace}> ."          
+        when :xsd
+          prefix(:xsd, "http://www.w3.org/2001/XMLSchema#")
+        when :rdf
+          prefix(:rdf, "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
+        when :rdfs
+          prefix(:rdfs, "http://www.w3.org/2000/01/rdf-schema#")
+        when :owl
+          prefix(:owl, "http://www.w3.org/2002/07/owl#")
+        when String
+          @out.puts "@prefix : <#{prefix}> ."          
+        end
+      end
+    end
+
+    def subject(s, p=nil, o=nil, &block)
+      @out.print "#{indent}#{resolve s}"
+      if p
+        @out.print " #{resolve p}"
+        if o
+          @out.print " #{resolve o}"
+          @state = :object
+        else
+          @state = :predicate
+        end
+      else
+        @state = :subject
+      end
+      indent &block
+      @out.puts " ."
+    end
+
+    def predicate(p, o=nil, &block)
+      if @state == :object 
+        @out.print " ;"
+      end
+      @out.print "\n#{indent}#{resolve p}"
+      if o
+        @out.print " #{resolve o}"
+        @state = :object
+      else
+        @state = :predicate
+      end
+      indent &block
+    end
+
+    def object(o)
+      if @state == :object
+        @out.print " ,"
+      end
+      @out.print "\n#{indent}#{resolve o}"
+      @state = :object
+    end
+
+    def comment(text)
+      @out.print "#{indent}# #{text}\n"
+    end
+
+    def newline
+      @out.print "\n"
+    end
+
+    def blank(name=nil)
+      unless name
+        name = "b#{@blank}"
+        @blank += 1
+      end
+      BlankNode.new name
+    end
+
+    alias s subject
+    alias p predicate
+    alias o object
+    alias triple subject
+    alias t subject
+    alias c comment
+    alias nl newline
+
+    def _(name=nil)
+      if name
+        blank name
+      else
+        :blank
+      end
+    end
+
+    def a()
+      :a
+    end
+      
+    def xsd_datatype(datatype)
+      if @xsd
+        "#{@xsd}:#{datatype}"
+      else
+        "<http://www.w3.org/2001/XMLSchema##{datatype}>"
+      end
+    end
+
+    def resolve(e)
+      case e
+      when Array
+        case e.size
+        when 0
+          "<>"
+        when 1
+          first = e.first
+          case first
+          when :blank, :_
+            ":"
+          when Symbol
+            "#{first}:"
+          when String
+            "<#{e.first}>"
+          end
+        else
+          first, last = e
+          case first
+          when :blank, :_
+            case last
+            when :blank, :_
+              ":"
+            else
+              ":#{last}"
+            end
+          when Symbol
+            case last
+            when :blank, :_
+              "#{first}:"
+            else
+              "#{first}:#{last}"
+            end
+          when String
+            "\"#{first}\"^^#{xsd_datatype last}"
+          end
+        end
+      when :blank, :_
+        resolve blank
+      when :a
+        "a"
+      when BlankNode
+        e.to_s
+      when Symbol
+        resolve blank(e)
+      when String
+        "\"#{encode(e)}\""
+      when Fixnum
+        "\"#{e}\"^^#{xsd_datatype :integer}"
+      when Float
+        "\"#{e}\"^^#{xsd_datatype :double}"
+      when true, false
+        "\"#{e}\"^^#{xsd_datatype :boolean}"
+      else
+        e
+      end
+    end
+
+    def encode(s)
+      a = s.codepoints.collect do |p|
+        case p
+        when 34 then "\\\""
+        when 92 then "\\\\"
+        when 0..127 then p.chr
+        else
+          "\\u#{sprintf("%X", p).rjust(4, "0")}"
+        end
+      end
+      a.join
+    end
+
+    def indent()
+      if block_given?
+        @indent += 1
+        yield
+        @indent -= 1
+      else
+        "  " * @indent
+      end
+    end
+
+    def self.build(out=STDOUT, extension=nil, &block)
+      builder = new out
+      builder.extend ext if extension
+      builder.instance_eval &block
+    end
+
+  end
+
+end

metadata

@@ -0,0 +1,56 @@
+--- !ruby/object:Gem::Specification 
+name: turtle
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Kim Dalsgaard
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-11-16 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: ""
+email: kim@kimdalsgaard.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/turtle/builder.rb
+- lib/turtle.rb
+has_rdoc: true
+homepage: http://github.com/dalsgaard/turtle.rb
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+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: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: A Ruby DSL for generating RDF in the Turtle format
+test_files: []
+