tagz 0.0.1

data/a.rb

@@ -0,0 +1,11 @@
+
+require 'lib/tagz'
+include Tagz
+
+puts tagz {
+  a_ 'a'
+  b_ 'b'
+  c_ 'c'
+}
+
+

data/gemspec.rb

@@ -0,0 +1,27 @@
+
+lib, version = File::basename(File::dirname(File::expand_path(__FILE__))).split %r/-/, 2
+
+require 'rubygems'
+
+Gem::Specification::new do |spec|
+  $VERBOSE = nil
+  spec.name = lib 
+  spec.version = version 
+  spec.platform = Gem::Platform::RUBY
+  spec.summary = lib 
+
+  spec.files = Dir::glob "**/**"
+  spec.executables = Dir::glob("bin/*").map{|exe| File::basename exe}
+  
+  spec.require_path = "lib" 
+  spec.autorequire = lib
+
+  spec.has_rdoc = File::exist? "doc" 
+  spec.test_suite_file = "test/#{ lib }.rb" if File::directory? "test"
+
+  spec.extensions << "extconf.rb" if File::exists? "extconf.rb"
+
+  spec.author = "Ara T. Howard"
+  spec.email = "ara.t.howard@noaa.gov"
+  spec.homepage = "http://codeforpeople.com/lib/ruby/#{ lib }/"
+end

data/gen_readme.rb

@@ -0,0 +1,32 @@
+require 'pathname'
+
+$VERBOSE=nil
+
+def indent s, n = 2
+  ws = ' ' * n
+  s.gsub %r/^/, ws 
+end
+
+template = IO::read 'README.tmpl'
+
+samples = ''
+prompt = '~ > '
+
+Dir['sample*/*'].sort.each do |sample|
+  samples << "\n" << "  <========< #{ sample } >========>" << "\n\n"
+
+  cmd = "cat #{ sample }" 
+  samples << indent(prompt + cmd, 2) << "\n\n" 
+  samples << indent(`#{ cmd }`, 4) << "\n" 
+
+  cmd = "ruby #{ sample }" 
+  samples << indent(prompt + cmd, 2) << "\n\n" 
+
+  cmd = "ruby -Ilib #{ sample }" 
+  samples << indent(`#{ cmd } 2>&1`, 4) << "\n" 
+end
+
+#samples.gsub! %r/^/, '  '
+
+readme  = template.gsub %r/^\s*@samples\s*$/, samples
+print readme 

data/install.rb

@@ -0,0 +1,210 @@
+#!/usr/bin/env ruby
+require 'rbconfig'
+require 'find'
+require 'ftools'
+require 'tempfile'
+include Config
+
+LIBDIR      = "lib"
+LIBDIR_MODE = 0644
+
+BINDIR      = "bin"
+BINDIR_MODE = 0755
+
+
+$srcdir            = CONFIG["srcdir"]
+$version           = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
+$libdir            = File.join(CONFIG["libdir"], "ruby", $version)
+$archdir           = File.join($libdir, CONFIG["arch"])
+$site_libdir       = $:.find {|x| x =~ /site_ruby$/}
+$bindir            = CONFIG["bindir"] || CONFIG['BINDIR']
+$ruby_install_name = CONFIG['ruby_install_name'] || CONFIG['RUBY_INSTALL_NAME'] || 'ruby'
+$ruby_ext          = CONFIG['EXEEXT'] || ''
+$ruby              = File.join($bindir, ($ruby_install_name + $ruby_ext))
+
+if !$site_libdir
+  $site_libdir = File.join($libdir, "site_ruby")
+elsif $site_libdir !~ %r/#{Regexp.quote($version)}/
+  $site_libdir = File.join($site_libdir, $version)
+end
+
+def install_rb(srcdir=nil, destdir=nil, mode=nil, bin=nil)
+#{{{
+  path   = []
+  dir    = []
+  Find.find(srcdir) do |f|
+    next unless FileTest.file?(f)
+    next if (f = f[srcdir.length+1..-1]) == nil
+    next if (/CVS$/ =~ File.dirname(f))
+    next if f =~ %r/\.lnk/
+    path.push f
+    dir |= [File.dirname(f)]
+  end
+  for f in dir
+    next if f == "."
+    next if f == "CVS"
+    File::makedirs(File.join(destdir, f))
+  end
+  for f in path
+    next if (/\~$/ =~ f)
+    next if (/^\./ =~ File.basename(f))
+    unless bin
+      File::install(File.join(srcdir, f), File.join(destdir, f), mode, true)
+    else
+      from = File.join(srcdir, f)
+      to = File.join(destdir, f)
+      shebangify(from) do |sf|
+        $deferr.print from, " -> ", File::catname(from, to), "\n"
+        $deferr.printf "chmod %04o %s\n", mode, to 
+        File::install(sf, to, mode, false)
+      end
+    end
+  end
+#}}}
+end
+def shebangify f
+#{{{
+  open(f) do |fd|
+    buf = fd.read 42 
+    if buf =~ %r/^\s*#\s*!.*ruby/o
+      ftmp = Tempfile::new("#{ $$ }_#{ File::basename(f) }")
+      begin
+        fd.rewind
+        ftmp.puts "#!#{ $ruby  }"
+        while((buf = fd.read(8192)))
+          ftmp.write buf
+        end
+        ftmp.close
+        yield ftmp.path
+      ensure
+        ftmp.close!
+      end
+    else
+      yield f
+    end
+  end
+#}}}
+end
+def ARGV.switch
+#{{{
+  return nil if self.empty?
+  arg = self.shift
+  return nil if arg == '--'
+  if arg =~ /^-(.)(.*)/
+    return arg if $1 == '-'
+    raise 'unknown switch "-"' if $2.index('-')
+    self.unshift "-#{$2}" if $2.size > 0
+    "-#{$1}"
+  else
+    self.unshift arg
+    nil
+  end
+#}}}
+end
+def ARGV.req_arg
+#{{{
+  self.shift || raise('missing argument')
+#}}}
+end
+def linkify d, linked = []
+#--{{{
+  if test ?d, d
+    versioned = Dir[ File::join(d, "*-[0-9].[0-9].[0-9].rb") ]
+    versioned.each do |v| 
+      src, dst = v, v.gsub(%r/\-[\d\.]+\.rb$/, '.rb')
+      lnk = nil
+      begin
+        if test ?l, dst
+          lnk = "#{ dst }.lnk"
+          puts "#{ dst } -> #{ lnk }"
+          File::rename dst, lnk
+        end
+        unless test ?e, dst
+          puts "#{ src } -> #{ dst }"
+          File::copy src, dst 
+          linked << dst
+        end
+      ensure
+        if lnk
+          at_exit do
+            puts "#{ lnk } -> #{ dst }"
+            File::rename lnk, dst
+          end
+        end
+      end
+    end
+  end
+  linked
+#--}}}
+end
+
+
+#
+# main program
+#
+
+libdir = $site_libdir
+bindir = $bindir
+no_linkify = false
+linked = nil
+help = false
+
+usage = <<-usage
+  #{ File::basename $0 }
+    -d, --destdir    <destdir>
+    -l, --libdir     <libdir>
+    -b, --bindir     <bindir>
+    -r, --ruby       <ruby>
+    -n, --no_linkify
+    -s, --sudo
+    -h, --help
+usage
+
+begin
+  while switch = ARGV.switch
+    case switch
+    when '-d', '--destdir'
+      libdir = ARGV.req_arg
+    when '-l', '--libdir'
+      libdir = ARGV.req_arg
+    when '-b', '--bindir'
+      bindir = ARGV.req_arg
+    when '-r', '--ruby'
+      $ruby = ARGV.req_arg
+    when '-n', '--no_linkify'
+      no_linkify = true
+    when '-s', '--sudo'
+      sudo = 'sudo' 
+    when '-h', '--help'
+      help = true
+    else
+      raise "unknown switch #{switch.dump}"
+    end
+  end
+rescue
+  STDERR.puts $!.to_s
+  STDERR.puts usage
+  exit 1
+end    
+
+if help
+  STDOUT.puts usage
+  exit
+end
+
+system "#{ sudo } #{ $ruby } pre-install.rb" if test(?s, 'pre-install.rb')
+
+unless no_linkify
+  linked = linkify('lib') + linkify('bin')
+end
+
+system "#{ $ruby } extconf.rb && make && #{ sudo } make install" if test(?s, 'extconf.rb')
+
+install_rb(LIBDIR, libdir, LIBDIR_MODE)
+install_rb(BINDIR, bindir, BINDIR_MODE, bin=true)
+
+if linked
+  linked.each{|path| File::rm_f path}
+end
+
+system "#{ sudo } #{ $ruby } post-install.rb" if test(?s, 'post-install.rb')

data/lib/tagz.rb

@@ -0,0 +1,376 @@
+module Tagz
+  Tagz::VERSION = '0.0.1' unless defined? Tagz::VERSION
+  def self.version() VERSION end
+
+  class NotOpen < StandardError; end
+  class StillOpen < StandardError; end
+
+  module Fragment  #--{{{
+    attr_accessor 'tag' 
+    attr_accessor 'open' 
+    attr_accessor 'added' 
+    attr_accessor 'created_at'
+    alias_method 'open?', 'open'
+
+    def self.new str='', tag='', options = {} #--{{{
+      return str if Fragment === str
+      str.extend Fragment
+      str.tag = tag.to_s
+      str.stack << tag.to_s 
+      str.open = true 
+      str.added = { str.object_id => true }
+      options.each{|k,v| str.send "#{ k }=", v}
+      str.created_at = caller
+      str
+    end #--}}}
+
+=begin
+    def tag
+      stack.last
+    end
+=end
+
+    def stack 
+      @stack ||= []
+    end
+
+    def push fragment
+      if Fragment === fragment
+        stack.push fragment.tag
+      end
+    end
+
+    def pop
+      stack.pop
+    end
+
+    def closes? other #--{{{
+      tag.to_s == other.tag.to_s
+    end #--}}}
+
+    def << content #--{{{
+      super content.to_s
+    end            #--}}}
+
+    def add fragment  #--{{{
+      push fragment
+      oid = fragment.object_id
+      self << fragment unless added[oid]
+      self
+    ensure
+      added[oid] = true
+    end  #--}}}
+  end  #--}}}
+
+  module Abilities  #--{{{
+    def __tag_stack__  #--{{{
+      @__tag_stack__ ||= []
+    end  #--}}}
+
+    def __tag_attrs__ attrs = {}  #--{{{
+      return nil if attrs.empty?
+      ( 42 - 10 ).chr <<
+        case attrs
+          when Hash
+            attrs.map{|k,v| "#{ k }=#{ v.to_s.inspect }"}.join(" ")
+          else
+            attrs.to_s
+        end
+    end  #--}}}
+
+    def __tag_start__ *argv, &block  #--{{{
+      tag = argv.shift
+
+      case argv.size
+        when 0                      # no attrs, no content
+          attrs = {}
+          content = nil
+        when 1                      # string content
+          case argv.first
+            when Hash
+              attrs = argv.shift 
+              content = nil 
+            else
+              if block
+                attrs = argv.shift 
+                content = nil 
+              else
+                content = argv.shift 
+                attrs = {}
+              end
+          end
+        when 2                      # string attrs, string content OR string content, hash attrs
+          case argv.last
+            when Hash
+              attrs = argv.last
+              content = argv.first.to_s
+            else
+              attrs = argv.first
+              content = argv.last.to_s
+          end
+        else                       # string attrs, string content(s) OR string content(s), hash attrs
+          case argv.last
+            when Hash
+              attrs = argv.last
+              content = argv[0..-2].join
+            else
+              attrs = argv.first
+              content = argv[1..-1].join
+          end
+      end
+
+      if content and block
+        b = block and block = lambda{ "#{ content }#{ b.call }" }
+      end
+
+      if content and block.nil?
+        #block = lambda{ content }
+      end
+
+      stack = __tag_stack__
+
+      if block.nil?
+        start = Fragment( "<#{ tag }#{ __tag_attrs__ attrs }  >#{ content }", tag )
+        stack << start 
+        start
+      else
+        ### we reserve two bytes ( 0.chr 0.chr ) to avoid massive data shift/copy
+        start = Fragment( "<#{ tag }#{ __tag_attrs__ attrs } #{ 0.chr }#{ 0.chr }", tag )
+        stack << start 
+        size = start.size
+        pos = ( (size - 2) .. (size - 1) )
+        top = stack.last
+        tid = top.object_id
+        ssize = stack.size
+        
+
+        content = block.call top
+        content_was_added = size < start.size
+
+
+        ### handle dangling tags
+        if stack.size > ssize 
+          i = ssize
+          while((opentag = stack[i]))
+            top.add opentag
+            i += 1
+          end
+          stack.pop until stack.size == ssize
+        end
+
+### TODO we could raise an error
+=begin
+        until stack.last.object_id == tid
+          begin
+            last = stack.last
+            ne = last.created_at[3] 
+            raise StillOpen, "<#{ last.tag }> @ '#{ ne }'"
+          ensure
+            stack.clear
+          end
+        end
+=end
+        
+        if content
+          top[pos] = ' >'
+          top.add content unless content_was_added
+          stop = Fragment( "</#{ tag }>", tag, :open => false )
+          top.add stop
+          top.open = false
+        else
+          top[pos] = '/>'
+          top.open = false
+        end
+
+        content = stack.pop
+
+        top = stack.last
+        if top and top.open?
+          top.add content
+        end
+
+        content
+      end
+    end  #--}}}
+
+    def __tag_stop__ tag  #--{{{
+      stack = __tag_stack__
+      top = stack.last
+      stop = Fragment( "</#{ tag }>", tag, :open => false )
+      if top
+        if stop.closes?(top)
+          top.add stop
+          top.open = false
+          content = stack.pop
+          top = stack.last
+          top.add content if top and top.open?
+          content
+        else
+          raise NotOpen, tag.to_s
+        end
+      else
+        raise NotOpen, tag.to_s
+      end
+    end  #--}}}
+
+    def method_missing m, *a, &b  #--{{{
+      case m.to_s
+        when %r/^(.*[^_])_(!)?$/o
+          m, bang = $1, $2
+          unless bang
+            __tag_start__ m, *a, &b
+          else
+            __tag_start__(m, *a){}
+          end
+        when %r/^_([^_].*)$/o
+          m = $1 
+          __tag_stop__ m, *a, &b
+        else
+          super
+      end
+    end  #--}}}
+
+    def tagz *argv, &block  #--{{{
+      stack = __tag_stack__
+      top = stack.last
+      size = stack.size
+
+      unless block
+        top ||= Fragment()
+        if argv.empty?
+          top
+        else
+          string = argv.join
+          top.add string 
+          string
+        end
+      else
+        obj = Tagz === self ? self : clone.instance_eval{ extend Tagz; self }
+        stack << (top=Fragment())
+        top = stack.last
+        tid = top.object_id
+
+        string = obj.instance_eval(&block)
+
+        until stack.last.object_id == tid
+          pop = stack.pop
+          last = stack.last
+          last.add pop 
+        end
+
+        top = stack.pop
+
+        content_was_added = top.size > 0
+        top.add string unless content_was_added
+
+        top
+      end
+    end  #--}}}
+    alias_method "markup", "tagz"
+    alias_method "__", "tagz"
+    alias_method "_", "tagz"
+
+    def Fragment(*a, &b) Fragment.new(*a, &b) end
+
+### TODO - i'd like to use 'tag' for these but action view has eaten it!
+    def element tag, *a, &b
+      __tag_stack__ << (top=Fragment())
+      __tag_start__ tag, *a, &b
+      __tag_stack__.pop
+    end
+    alias_method "e", "element"
+
+    def element_ tag, *a, &b
+      __tag_stack__ << (top=Fragment())
+      __tag_start__ tag, *a, &b
+      __tag_stack__.pop
+    end
+    alias_method "e_", "element_"
+
+    def _element tag, *a, &b
+      __tag_stack__ << (top=Fragment())
+      __tag_stop__ tag, *a, &b
+      __tag_stack__.pop
+    end
+    alias_method "_e", "_element"
+
+    def element! tag, *a, &b
+      b ||= lambda{}
+      __tag_stack__ << (top=Fragment())
+      __tag_start__ tag, *a, &b
+      __tag_stack__.pop
+    end
+    alias_method "e!", "element!"
+
+    def xhtml_ which = :transitional, *a, &b
+      decl = 
+%Q|<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-#{ which }.dtd'>|
+      attrs = {}
+      attrs.update 'xmlns' => 'http://www.w3.org/1999/xhtml',
+                   'xml:lang' => 'en'
+      decl << html_(attrs, &b)
+    end
+  end  #--}}}
+
+=begin
+    def concat s  #--{{{
+      tagz << s.to_s
+      self
+    end  #--}}}
+    def tag *a, &b  #--{{{
+      __tag_start__ *a, &b
+    end  #--}}}
+    def tag! *a, &b  #--{{{
+      __tag_start__(*a){}
+    end  #--}}}
+    def tag_ *a, &b  #--{{{
+      __tag_start__ *a, &b
+    end  #--}}}
+    def _tag *a, &b  #--{{{
+      __tag_stop__ *a, &b
+    end  #--}}}
+=end
+
+  def self.included other  #--{{{
+    other.module_eval{ include Abilities }
+  end  #--}}}
+
+  def self.extend_object other  #--{{{
+    other.extend Abilities 
+  end  #--}}}
+
+  class ::String
+    include Tagz 
+    def tag *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def tag_ *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def _tag *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def tag! *a
+      tagz{ __tag_start__(self, *a){} }
+    end
+  end
+
+  class ::Symbol
+    include Tagz 
+    def tag *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def tag_ *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def _tag *a, &b
+      tagz{ __tag_start__ self, *a, &b }
+    end
+    def tag! *a
+      tagz{ __tag_start__(self, *a){} }
+    end
+  end
+
+end
+
+require File.join(File.dirname(__FILE__), 'tagz', 'rails') if defined? Rails