cheri 0.0.2

data/lib/cheri/builder/html/common.rb

@@ -0,0 +1,32 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), 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.
+#++
+#
+
+
+module Cheri
+module Html
+VERSION = Cheri::VERSION
+class HtmlException < Cheri::CheriException; end
+class BuilderException < Cheri::Builder::BuilderException; end
+end #Html
+end #Cheri

data/lib/cheri/builder/html/connecter.rb

@@ -0,0 +1,57 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), 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.
+#++
+#
+
+module Cheri
+module Html
+
+HtmlConnecter = Cheri::Builder::TypeConnecter.new do
+
+  # This covers the general case, and is all that is really
+  # required here.
+  type HtmlElement do
+    connect HtmlElement, :add
+    connect Cheri::Builder::Content
+    # something non-html...
+    connect Object, :add
+  end
+  
+  # These provide more specific, and therefore more efficient (faster)
+  # matching, as we won't have to search up the ancestor chain.
+  type [Elem, EmptyElem, TextElem, EscElem, HtmlElem, BodyElem,
+        HeadElem, TableElem, ProcElem] do
+    connect Elem, :add
+    connect EmptyElem, :add
+    connect TextElem, :add
+    connect EscElem, :add
+    connect HtmlElem, :add
+    connect BodyElem, :add
+    connect HeadElem, :add
+    connect TableElem, :add
+    connect ProcElem, :add
+  end
+
+end #HtmlConnecter
+
+end #Html
+end #Cheri

data/lib/cheri/builder/html/element.rb

@@ -0,0 +1,156 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), 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.
+#++
+#
+
+
+module Cheri
+module Html
+
+# Marker 'interface' used by connecter
+module HtmlElement
+end
+
+
+# Included by all Cheri::Html builders
+module HtmlBuilder
+  def esc(inp,out=nil)
+    if @ctx[:html_esc] && (cs = Charsets.charset(inp))
+      cs.xlat(inp,(out ||= ''))
+      out
+    elsif out
+      out << inp
+    else
+      inp
+    end
+  end  
+end #XmlBuilder
+
+class Elem
+  include Cheri::Builder::MarkupBuilder
+  include HtmlBuilder
+  include HtmlElement
+
+  def mod
+    Cheri::Html  
+  end
+end
+
+class EmptyElem
+  include Cheri::Builder::EmptyMarkupBuilder
+  include HtmlBuilder
+  include HtmlElement
+
+  def mod
+    Cheri::Html  
+  end
+
+  def content?(value)
+    raise HtmlException,"content not allowed for empty element #{@sym}: #{value}"  
+  end
+end
+
+
+class TextElem
+  include Cheri::Builder::Builder
+  include Cheri::Builder::Content
+  include Cheri::Builder::ContentArgs
+  include HtmlBuilder
+  
+  def mod
+    Cheri::Html  
+  end
+
+  def object
+    self
+  end
+  
+  def run
+    value = @ctx.call(self,&@blk) if @blk
+    add(value) if value && !(Appendable === value)
+    self
+  end
+
+  # Appends content to +str+, or to an empty string if +str+ is omitted.
+  # Returns the result.
+  def to_s(str='')
+    @cont.each do |c|
+      if String === c
+        esc(c,str)
+      else
+        esc(c.to_s,str)
+      end
+    end if @cont
+    str
+  end
+
+  # Appends content to +ios+. Returns the result.
+  def to_io(ios)
+    @cont.each do |c|
+      if String === c
+        ios << esc(c)
+      else
+        ios << esc(c.to_s)
+      end
+    end if @cont
+    ios
+  end
+
+end
+
+class EscElem < TextElem
+
+  def esc(inp,out=nil)
+    if (cs = Charsets.charset(inp))
+      cs.xlat(inp,(out ||= ''))
+      out
+    elsif out
+      out << inp
+    else
+      inp
+    end
+  end  
+
+end
+
+# TODO: special handling for these:
+
+class HtmlElem < Elem
+end
+
+class BodyElem < Elem
+end
+
+class HeadElem < Elem
+end
+
+class TableElem < Elem
+end
+
+class FramesetElem < Elem
+end
+
+class ProcElem < Elem
+end
+
+end #Html
+end #Cheri

data/lib/cheri/builder/html/main.rb

@@ -0,0 +1,116 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), 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.
+#++
+#
+
+
+module Cheri
+module Html
+
+include Cheri::Builder
+
+class << self
+  def append_features(clazz)
+    Cheri::Builder.module_included(self,clazz)
+    super
+  end
+  private :append_features
+
+  def factory
+    HtmlFactory  
+  end
+
+  def connecter
+    HtmlConnecter  
+  end  
+
+end #self
+
+  # Instance methods
+
+  # call-seq:
+  #   html([*args] [, &block]) -> HtmlProxy if no block given, else result of block
+  #   
+  def html(*r,&k)
+    if (ctx = __cheri_ctx)
+      if k
+      
+        # TODO: search stack for Html?
+        # new HtmlElement if stack empty, maybe other cases?
+        if ctx.tos(HtmlElement)
+          HtmlFrame.new(ctx,*r,&k).run
+        else
+          ctx.msend(Cheri::Html,:html,*r,&k)
+        end
+      
+      else
+        ctx[:html_proxy] ||= HtmlProxy.new(ctx,*r)
+      end
+    end
+  end
+  private :html
+
+
+module HtmlFactory
+  def self.builder(ctx,sym,*r,&k)
+    clazz = Types[sym]
+    clazz ? clazz.new(ctx,sym,*r,&k) : nil
+  end
+end #HtmlFactory
+
+class HtmlProxy < Cheri::Builder::BaseProxy
+
+  impl(Types.keys)
+  
+  def mod
+    Cheri::Html  
+  end
+  private :mod
+
+  def [](opts)
+    if Symbol === opts
+      case opts
+        when :esc : @ctx[:html_esc] = true
+        else raise ArgumentError,"invalid simple html option: :#{opts}"
+      end
+    elsif Hash === opts
+      @ctx[:html_esc] = opts[:esc] != false if opts[:esc] != nil
+    else
+      raise Cheri.type_error(opts,Hash,Symbol)
+    end
+    nil
+  end
+end #HtmlProxy
+
+class HtmlFrame
+  include Cheri::Builder::Frame
+  def initialize(ctx,*r,&k)
+    super
+    @obj = ctx[:html_proxy] ||= HtmlProxy.new(ctx,*r)  
+  end
+  def mod
+    Cheri::Html  
+  end
+end #HtmlFrame
+
+end #Html
+end #Cheri

data/lib/cheri/builder/html/types.rb

@@ -0,0 +1,123 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), 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.
+#++
+#
+
+module Cheri
+module Html
+Types = Hash[
+  :tt => Elem,
+  :i => Elem,
+  :b => Elem,
+  :big => Elem,
+  :small => Elem,
+  :em => Elem,
+  :strong => Elem,
+  :dfn => Elem,
+  :code => Elem,
+  :samp => Elem,
+  :kbd => Elem,
+  :var => Elem,
+  :cite => Elem,
+  :abbr => Elem,
+  :acronym => Elem,
+  :sub => Elem,
+  :sup => Elem,
+  :span => Elem,
+  :bdo => Elem,
+  :basefont => EmptyElem,
+  :font => Elem,
+  :br => EmptyElem,
+  :body => BodyElem,
+  :address => Elem,
+  :div => Elem,
+  :center => Elem,
+  :a => Elem,
+  :map => Elem,
+  :area => EmptyElem,
+  :link => EmptyElem,
+  :img => EmptyElem,
+  :object => Elem,
+  :param => EmptyElem,
+  :applet => Elem,
+  :hr => EmptyElem,
+  :p => Elem,
+  :h1 => Elem,
+  :h2 => Elem,
+  :h3 => Elem,
+  :h4 => Elem,
+  :h5 => Elem,
+  :h6 => Elem,
+  :pre => Elem,
+  :q => Elem,
+  :blockquote => Elem,
+  :ins => Elem,
+  :del => Elem,
+  :dl => Elem,
+  :dt => Elem,
+  :dd => Elem,
+  :ol => Elem,
+  :ul => Elem,
+  :li => Elem,
+  :dir => Elem,
+  :menu => Elem,
+  :form => Elem,
+  :label => Elem,
+  :input => EmptyElem,
+  :select => Elem,
+  :optgroup => Elem,
+  :option => Elem,
+  :textarea => Elem,
+  :fieldset => Elem,
+  :legend => Elem,
+  :button => Elem,
+  :table => TableElem,
+  :caption => Elem,
+  :thead => Elem,
+  :tfoot => Elem,
+  :tbody => Elem,
+  :colgroup => Elem,
+  :col => EmptyElem,
+  :tr => Elem,
+  :th => Elem,
+  :td => Elem,
+  :head => HeadElem,
+  :title => Elem,
+  :base => EmptyElem,
+  :meta => EmptyElem,
+  :style => Elem,
+  :script => Elem,
+  :noscript => Elem,
+  :html => HtmlElem,
+  :frameset => FramesetElem,
+  :frame => EmptyElem,
+  :text => TextElem,
+  :t => TextElem,
+  :proc => ProcElem,
+  :esc => EscElem
+
+# TODO: iframe, noframes
+
+]
+
+end #Html
+end #Cheri