glue 0.41.0 → 1.0.0

data/lib/html/tokenizer.rb

@@ -1,103 +0,0 @@
-require 'strscan'
-
-module HTML#:nodoc:
-  
-  # A simple HTML tokenizer. It simply breaks a stream of text into tokens, where each
-  # token is a string. Each string represents either "text", or an HTML element.
-  #
-  # This currently assumes valid XHTML, which means no free < or > characters.
-  #
-  # Usage:
-  #
-  #   tokenizer = HTML::Tokenizer.new(text)
-  #   while token = tokenizer.next
-  #     p token
-  #   end
-  class Tokenizer#:nodoc:
-    
-    # The current (byte) position in the text
-    attr_reader :position
-    
-    # The current line number
-    attr_reader :line
-    
-    # Create a new Tokenizer for the given text.
-    def initialize(text)
-      @scanner = StringScanner.new(text)
-      @position = 0
-      @line = 0
-      @current_line = 1
-    end
-
-    # Return the next token in the sequence, or +nil+ if there are no more tokens in
-    # the stream.
-    def next
-      return nil if @scanner.eos?
-      @position = @scanner.pos
-      @line = @current_line
-      if @scanner.check(/<\S/)
-        update_current_line(scan_tag)
-      else
-        update_current_line(scan_text)
-      end
-    end
-  
-    private
-
-      # Treat the text at the current position as a tag, and scan it. Supports
-      # comments, doctype tags, and regular tags, and ignores less-than and
-      # greater-than characters within quoted strings.
-      def scan_tag
-        tag = @scanner.getch
-        if @scanner.scan(/!--/) # comment
-          tag << @scanner.matched
-          tag << @scanner.scan_until(/--\s*>/)
-        elsif @scanner.scan(/!/) # doctype
-          tag << @scanner.matched
-          tag << consume_quoted_regions
-        else
-          tag << consume_quoted_regions
-        end
-        tag
-      end
-
-      # Scan all text up to the next < character and return it.
-      def scan_text
-        @scanner.getch + (@scanner.scan(/[^<]*/) || "")
-      end
-      
-      # Counts the number of newlines in the text and updates the current line
-      # accordingly.
-      def update_current_line(text)
-        @current_line += text.scan(/\r\n|\r|\n/).length
-        text
-      end
-      
-      # Skips over quoted strings, so that less-than and greater-than characters
-      # within the strings are ignored.
-      def consume_quoted_regions
-        text = ""
-        loop do
-          match = @scanner.scan_until(/['"<>]/) or break
-
-          delim = @scanner.matched
-          if delim == "<"
-            match = match.chop
-            @scanner.pos -= 1
-          end
-
-          text << match
-          break if delim == "<" || delim == ">"
-
-          # consume the conqued region
-          while match = @scanner.scan_until(/[\\#{delim}]/)
-            text << match
-            break if @scanner.matched == delim
-            text << @scanner.getch # skip the escaped character
-          end
-        end
-        text
-      end
-  end
-  
-end

data/lib/html/version.rb

@@ -1,11 +0,0 @@
-module HTML#:nodoc:
-  module Version#:nodoc:
-
-    MAJOR = 0
-    MINOR = 5
-    TINY  = 0
-
-    STRING = [ MAJOR, MINOR, TINY ].join(".")
-
-  end
-end

data/test/fixture/article.csv

@@ -1,3 +0,0 @@
-title, body
-This is cool, The body
-Another, ..litle article

data/test/fixture/article.yml

@@ -1,13 +0,0 @@
-Wow:
-  title: this works
-  body: as well!!
-  
-Test:
-  title: I love this
-  body: just great
-  
-<% 5.times do |i| %>
-Auto#{i}:
-  title: title #{i}
-  body: body #{i}
-<% end %>

data/test/fixture/user.yml

@@ -1,12 +0,0 @@
-george:
-  name: George
-  age: 30
-
-stella:
-  name: Stella
-  age: 29
-
-renos:
-  oid: 17
-  name: Renos
-  age: 29

data/test/glue/builder/tc_xml.rb

@@ -1,57 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', '..', '..', 'nitro', 'lib')
-
-require 'test/unit'
-require 'glue/builder/xml'
-
-class TC_BuildersXml < Test::Unit::TestCase # :nodoc: all
-  include Glue
-
-  def test_string
-    x = Glue::XmlBuilder.new
-
-    x.start_tag!('html').
-      start_tag!('title').text!('hello').end_tag!('title').
-    end_tag!('html')
-    
-    assert_equal '<html><title>hello</title></html>', x.buffer
-  end
-  
-  def test_missing
-    x = Glue::XmlBuilder.new
-    x.b('This is bold')
-    assert_equal '<b>This is bold</b>', x.buffer
-
-    x = Glue::XmlBuilder.new
-    x.a('Nitro', :href => 'http://www.nitroproject.org')
-    assert_equal '<a href="http://www.nitroproject.org">Nitro</a>', x.buffer
-
-
-    x = Glue::XmlBuilder.new
-    x.b { 
-      x.i 'Hello', :class =>'new'
-      x.p 'Paragraph'
-    }
-    assert_equal '<b><i class="new">Hello</i><p>Paragraph</p></b>', x.buffer
-
-    x = Glue::XmlBuilder.new
-    x.hr
-    assert_equal '<hr />', x.buffer
-
-    x = Glue::XmlBuilder.new
-    x.hr(:style => 'height: 1px')
-    assert_equal '<hr style="height: 1px" />', x.buffer
-  end
-
-  def test_xml_builder
-    buffer = ''
-    x = Glue::XmlBuilder.new(buffer)
-
-    x.start_tag!('html').
-      start_tag!('title').text!('hello').end_tag!('title').
-    end_tag!('html')
-    
-    assert_equal '<html><title>hello</title></html>', buffer 
-  end
-    
-end

data/test/glue/tc_aspects.rb

@@ -1,99 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'facets/more/aspects'
-
-class TestCaseAspects < Test::Unit::TestCase # :nodoc: all
-
-  class Monitor
-    def self.pre(this)
-      this.ma = 2
-    end
-
-    def self.post(this)
-      this.mb = 5
-    end
-  end
-
-  module Localize
-    def localize
-      @ll = 5
-    end
-  end
-
-  module Tester
-    include ::Aspects
-
-    attr_accessor :ta
-    pre { |this| this.ta = 5 }
-  end
-  
-  class Dummy
-    include ::Aspects
-    include Tester
-
-    attr_accessor :a, :b, :c
-    attr_accessor :oa, :ob
-    attr_accessor :ma, :mb
-    attr_accessor :ll
-    attr_accessor :pa
-
-    pre :pre_advice
-    wrap Monitor
-    wrap Localize, :pre => :localize
-    post { |this| this.pa = 3 }
-
-    def initialize
-      @a = 0
-    end
-    
-    def hello(q)
-      @a += 1 + q
-    end
-
-    def pre_advice
-      @b = 1
-      @a += 1
-    end
-
-    def post_advice
-      @c = 1
-    end
-  end
-
-  # Class aspect.
-  
-  class Observer < Aspect
-    def self.pre(this)
-      this.oa = 9
-    end
-  end
-  
-  # Instance aspect.
-
-  class Epilogue < Aspect
-    def post(this)
-      this.ob = 9
-    end
-  end
-  
-  def test_all
-    Observer.wrap(Dummy, :hello)
-    Epilogue.new.wrap(Dummy, :hello)
-    ::Aspects.wrap(Dummy, :hello)
-
-    d = Dummy.new
-    d.hello(3)
-    assert_equal 5, d.a
-    assert_equal 1, d.b
-    assert_equal 9, d.oa
-    assert_equal 9, d.ob
-    assert_equal 2, d.ma
-    assert_equal 5, d.mb
-    assert_equal 5, d.ll
-    assert_equal 3, d.pa
-
-    assert_equal 5, d.ta
-  end
-
-end

data/test/glue/tc_attribute.rb

@@ -1,112 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', '..', 'og', 'lib')
-
-require 'test/unit'
-require 'og'
-require 'glue/logger'
-require 'glue/attribute'
-
-def VarChar(size)
-  return String, :sql => "VARCHAR(#{ size })"
-end
-NotNull = {:sql => "NOT NULL"}.freeze
-Null = {:sql => "NULL"}.freeze
-
-module Test # :nodoc: all
-
-class Msg
-  include Og::Unmanageable
-  
-  attr_accessor :owner_oid, Fixnum
-  attr_accessor :val1, :val2, :val3, Fixnum, :sql => "smallint"
-  attr_accessor :title, :body, String
-  attr_accessor :test, String, :sql => "char(10) NOT NULL"
-  attr_accessor :count, Fixnum
-  attr_accessor :create_time, Time  
-
-  # a marshaled property
-  attr_accessor :options, Array
-
-  # property with macro arguments!
-  attr_accessor :address, VarChar(30), NotNull
-  
-  def initialize
-    @create_time = Time.now
-    @options = []
-  end
-
-end
-
-class SubMsg < Msg
-  # to avoid conflicts with tc_og.rb
-  include Og::Unmanageable
-  
-  # duplicate definition with different type!
-  attr_accessor :count, Float
-
-  # another property
-  attr_accessor :another, Fixnum
-end
-
-class C
-  attr_accessor :name
-  attr_accessor :description
-end
-
-class C
-  attr_accessor :name, String
-  attr_accessor :description, String
-end
-
-class TC_N_Attributes < Test::Unit::TestCase
-
-  def setup
-    Msg.define_force_methods
-    @msg1 = Msg.new
-  end
-
-  def teardown
-    @msg1 = nil
-  end
-
-  def test_props
-    
-    # bug: props for subclasses.
-    # bug: props propagated to base classes.
-
-    assert(SubMsg.serializable_attributes)
-    assert_equal(Msg.serializable_attributes.size(), SubMsg.serializable_attributes.size() - 1)
-
-    assert_equal(11, Msg.serializable_attributes.size)
-    assert_equal(12, SubMsg.serializable_attributes.size)
-
-    # bug: duplicate definition       
-    
-    a = SubMsg.serializable_attributes.find { |p| :count == p }
-    assert_equal(Float, SubMsg.ann[SubMsg.serializable_attributes.find { |p| :count == p }].class)
-
-    # dont force conversion.
-    
-    @msg1.count = 2.4
-    assert_equal(Float, @msg1.count.class)
-
-    # force conversion
-    
-    @msg1.__force_count(2.4)
-    assert_equal(Fixnum, @msg1.count.class)    
-  end
-
-  def test_macro_params
-    sql = Msg.ann[Msg.serializable_attributes.find { |p| :address == p}].sql
-# FIXME: Temporarily dissabled.
-#   assert_equal 'VARCHAR(30) NOT NULL', sql
-  end
-
-
-  def test_soc
-    assert_equal String, C.ann.name.class
-  end
-  
-end
-
-end

data/test/glue/tc_attribute_mixins.rb

@@ -1,86 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', '..', 'og', 'lib')
-
-require 'test/unit'
-require 'glue/attribute'
-
-module Mixin
-  attr_accessor :date
-  ann self, :dummy => [123]
-end
-
-class MixedOnly
-  include Mixin
-  ann.self.dummy! << 5
-  ann.self.dummy! << 3 
-end
-
-class MixedOnly2
-  include Mixin
-end
-
-class MixedWithProp
-  include Mixin
-
-  attr_accessor :dummy
-end
-
-class Pure
-  attr_accessor :dummy
-end
-
-class Empty
-end
-
-class Base
-  attr_accessor :date
-  ann self, :dummy => [123]
-end
-
-class Child1 < Base
-  ann.self.dummy!.first << 5
-  ann.self.dummy!.first << 3 
-end
-
-class Child2 < Base
-end
-
-# Tests auto management.
-class TC_MixinsTest < ::Test::Unit::TestCase
-  def test_the_unmanaged
-    assert( Empty.respond_to?( :__props ) == false )
-    assert_respond_to( Pure.new, :dummy )
-  end
-
-  def test_manage_entities
-    assert_respond_to( Pure, :serializable_attributes )
-    assert_respond_to( Pure.new, :dummy )
-  end
-
-  def test_managing_mixedonly_classes
-    assert_respond_to( MixedOnly.new, :date )
-  end
-
-  def test_managing_mixins
-    assert_respond_to( Mixin, :serializable_attributes )
-  end
-
-  def test_managing_mixed_classes
-    obj = MixedWithProp.new
-    assert( obj.respond_to?( :date ) )
-    assert( obj.respond_to?( :dummy ) )
-  end
-
-  def test_crosspolination
-    assert_equal 3, MixedOnly.ann.self[:dummy].size  
-# FIXME:
-#   assert_equal 1, MixedOnly2.ann.self[:dummy].size  
-#   assert_equal 1, Mixin.ann.self[:dummy].size  
-=begin
-    gmosx: THINK!
-    assert_equal 3, Child1.__meta[:dummy].first.size  
-    assert_equal 1, Child2.__meta[:dummy].first.size  
-    assert_equal 1, Base.__meta[:dummy].first.size  
-=end
-  end
-end