shoesgem 0.1424.0

data/shoes/lib/shoes/setup.rb

@@ -0,0 +1,329 @@
+require 'rubygems'
+require 'rubygems/dependency_installer'
+module Gem
+  @ruby = (File.join(Config::CONFIG['bindir'], 'shoes') + Config::CONFIG['EXEEXT']).
+          sub(/.*\s.*/m, '"\&"') + " --ruby"
+end
+class << Gem::Ext::ExtConfBuilder
+  alias_method :make__, :make
+  def make(dest_path, results)
+    raise unless File.exist?('Makefile')
+    mf = File.read('Makefile')
+    mf = mf.gsub(/^INSTALL\s*=\s*.*$/, "INSTALL = $(RUBY) -run -e install -- -vp")
+    mf = mf.gsub(/^INSTALL_PROG\s*=\s*.*$/, "INSTALL_PROG = $(INSTALL) -m 0755")
+    mf = mf.gsub(/^INSTALL_DATA\s*=\s*.*$/, "INSTALL_DATA = $(INSTALL) -m 0644")
+    File.open('Makefile', 'wb') {|f| f.print mf}
+    make__(dest_path, results)
+  end
+end
+
+# STDIN.reopen("/dev/tty") if STDIN.eof?
+class NotSupportedByShoes < Exception; end
+
+class Shoes::Setup
+
+  def self.init
+    gem_reset
+    install_sources if Gem.source_index.find_name('sources').empty?
+  end
+
+  def self.gem_reset
+    Gem.use_paths(GEM_DIR, [GEM_DIR, GEM_CENTRAL_DIR])
+    Gem.source_index.refresh!
+  end
+
+  def self.setup_app(setup)
+    appt = "Setting up for #{setup.script}"
+    Shoes.app :width => 370, :height => 158, :resizable => false, :title => appt do
+      background "#EEE".."#9AA"
+      image :top => 0, :left => 0 do
+        stroke "#FFF"; strokewidth 0.1
+        (0..158).step(3) { |i| line 0, i, 370, i }
+      end
+      @pulse = stack :top => 0, :left => 0
+      @logo = image "#{DIR}/static/shoes-icon-blue.png", :top => -20, :right => -20
+      stack :margin => 18 do
+        title "Shoes Setup", :size => 12, :weight => "bold", :margin => 0
+        para "Preparing #{setup.script}", :size => 8, :margin => 0, :margin_top => 8, :width => 220
+        @pr = progress :width => 1.0, :top => 70, :height => 20
+        button "Cancel", :top => 98, :left => 0.4 do
+          self.close
+        end
+
+        start do
+          @th = 
+            Thread.start(self.app) do |app|
+              begin
+                setup.start(app)
+              rescue => e
+                puts e.message
+              end
+            end
+        end
+      end
+
+      animate 10 do |i|
+        i %= 10
+        @pulse.clear do
+          fill black(0.2 - (i * 0.02))
+          strokewidth(3.0 - (i * 0.2))
+          stroke rgb(0.7, 0.7, 0.9, 1.0 - (i * 0.1))
+          oval(@logo.left - i, @logo.top - i, @logo.width + (i * 2)) 
+        end
+        @pr.fraction = $fraction
+        if @script
+          Shoes.visit(@script)
+          close
+        end
+      end
+    end
+  end
+
+  attr_accessor :steps, :script
+
+  def initialize(script, &blk)
+    @steps = []
+    @script = script
+    instance_eval &blk
+    unless no_steps?
+      app = self.class.setup_app(self)
+    end
+  end
+
+  def no_steps?
+    (@steps.map { |s| s[0] }.uniq - [:source]).empty?
+  end
+
+  def gem name, version = nil
+    arg = "#{name} #{version}".strip
+    name, version = arg.split(/\s+/, 2)
+    if Gem.source_index.find_name(name, version).empty?
+      @steps << [:gem, arg]
+    else
+      activate_gem(name, version)
+    end
+  end
+
+  def source uri
+    @steps << [:source, uri]
+  end
+
+  def activate_gem(name, version)
+    gem = Gem.source_index.find_name(name, version).first
+    Gem.activate(gem.name, "= #{gem.version}")
+  end
+
+  def start(app)
+    old_ui = Gem::DefaultUserInteraction.ui
+    ui = Gem::DefaultUserInteraction.ui = Gem::ShoesFace.new(app)
+    count, total = 0.5, @steps.length
+    ui.progress count, total
+
+    steps.each do |act, arg|
+      case act
+      when :gem
+        name, version = arg.split(/\s+/, 2)
+        count += 1
+        ui.say "Looking for #{name}"
+        if Gem.source_index.find_name(name, version).empty?
+          ui.title "Installing #{name}"
+          installer = Gem::DependencyInstaller.new
+          begin
+            installer.install(name, version || Gem::Requirement.default)
+            self.class.gem_reset
+            activate_gem(name, version)
+            ui.say "Finished installing #{name}"
+          rescue Object => e
+            ui.error "while installing #{name}", e
+            raise e
+          end
+        end
+      when :source
+        ui.title "Switching Gem servers"
+        ui.say "Pulling from #{arg}"
+        Gem.sources.clear << arg
+        self.class.gem_reset
+      end
+      ui.progress count, total
+    end
+    Gem::DefaultUserInteraction.ui = old_ui
+    app.instance_variable_set("@script", @script)
+  end
+
+  def svn(dir, save_as = nil, &blk)
+    dir.gsub! /(.)\/*$/, '\1/'
+    if save_as.nil? or save_as.empty?
+      save_as = File.join(GEM_DIR, 'svn', '1')
+      save_as.succ! while File.exists? save_as
+    elsif save_as.index(GEM_DIR) != 0
+      save_as = File.join(GEM_DIR, 'svn', save_as)
+    end
+    mkdir_p(save_as)
+    puts "** Pulling down #{dir}..."
+    svnuri = URI.parse(dir)
+    case svnuri.scheme
+    when "http", "https"
+      REXML::Document.new(svnuri.open { |f| f.read }).
+        each_element("/svn/index/*") do |ele|
+          fname, href = ele.attributes['name'], ele.attributes['href']
+          case ele.name
+          when "file"
+            puts "- #{dir}#{href}"
+            URI.parse("#{dir}#{href}").open do |f|
+              File.open(File.join(save_as, fname), 'wb') do |f2|
+                f2 << f.read(16384) until f.eof?
+              end
+            end
+          when "dir"
+            svn("#{dir}#{href}", File.join(save_as, fname))
+          end
+        end
+    else
+      raise NotSupportedByShoes, "Only HTTP addresses are supported by Shoes's Subversion module."
+    end
+    if blk
+      Dir.chdir(save_as, &blk)
+    end
+  end
+
+  def self.install_sources
+    require 'base64'
+    sources_gem = File.join(LIB_DIR, "sources-0.0.1.gem")
+    File.open(sources_gem, "wb") do |f|
+      f << Base64.decode64( <<-GEM.gsub(/^ +/, '') )
+        ZGF0YS50YXIuZ3oAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAADAwMDA2NDQAMDAwMDAwMAAwMDAwMDAwADAwMDAwMDAwMjYw
+        ADAwMDAwMDAwMDAwADAxMzMxNQAgMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1c3RhcgAwMHdoZWVs
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd2hlZWwAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAwMDAwMDAwADAwMDAwMDAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAfiwgAAKBzRAADyslM0i/OLy1KTi3WK0pioAkw
+        AAIzMxMwDQTotIGhCYINFgcKGBsxKBjQxjmooLS4JLEIaH15RmpqDh51hOTR
+        PTdEQG5+SmlOqoJ7ai6XgoIDNCUo2CpEK2WUlBRY6eunp+YCU0ZpUmVaflF6
+        qh6QUIoFKk1JTVMoTs1J04NqAQoh9AM5qXkpXCA80P4bBaNgFIyCUYAdAAAA
+        AP//AwBOIUx0AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1ldGFkYXRhLmd6
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAw
+        MDAwNjQ0ADAwMDAwMDAAMDAwMDAwMAAwMDAwMDAwMDYzMAAwMDAwMDAwMDAw
+        MAAwMTM0MDAAIDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAdXN0YXIAMDB3aGVlbAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAHdoZWVsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAMDAwMDAwMAAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAH4sIAACgc0QAA4SRyW7cMAyG73wKNndPNCkaFDrkmntb9FIEgizR
+        thItLiVneftKHk88QYHWMqCF5E/yY9d1+ImX/u069Y9kirynIOX3mYwbnNHF
+        pYjQ7COFrJ6Jc32RKA5fD8cj5Eu/3XqEqANJzGlhQxneDX9n+nkyISBeiIvD
+        EawuVeJGiNtOfOluPqMQcv2xE7d1g7yEoPlN4o/JZZy1edIj4czp2VnKaNNL
+        9EnbcxU4JEamkAphbQZdzEV7v5YOTL8Xx6RmXaYsETr0rgcK2vl6m1KguYrL
+        E4oqNFZXTmsbCDWbYTeXtXjQS0mb3E7A0qAXXxS9klmK7n3T6l20jiXWHSad
+        FdtkJA7aZzoXZFVLqP4PUMpvp4hAsTSavF9bQ4hdXVd3V/XUzv+cRPs+TENc
+        jgfmCq0yCBKbCGQ3RhdH9UR1FmCIizKTdhuLKXHN/+sBYHCe3tleb2QO3EOh
+        XNRmbY6Ng0orz+2FXgvrlc+l3w5zd6OY97CPDNqLpZmipWjcOeYPAAAA//8D
+        ADLcAkIBAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAA
+      GEM
+    end
+    Gem::Installer.new(sources_gem).install()
+  end
+end
+
+class Gem::ShoesFace
+  class ProgressReporter
+    attr_reader :count
+
+    def initialize(prog, status, size, initial_message,
+                   terminal_message = "complete")
+      @prog = prog
+      (@status = status).replace initial_message
+      @total = size
+      @count = 0.0
+    end
+
+    def updated(message)
+      @count += 1.0
+      @prog.fraction = (@count / @total.to_f) * 0.5
+    end
+
+    def done
+    end
+  end
+
+  def initialize app
+    @title, @status, @prog, = app.slot.contents[-1].contents
+  end
+  def title msg
+    @title.replace msg
+  end
+  def progress count, total
+    #@prog.fraction = count.to_f / total.to_f
+    $fraction = count.to_f / total.to_f
+  end
+  def ask_yes_no msg
+    Kernel.confirm(msg)
+  end
+  def ask msg
+    Kernel.ask(msg)
+  end
+  def error msg, e
+    stat = @status
+    stat.app do
+      error(e)
+      stat.replace link("Error") { Shoes.show_log }, " ", msg
+    end
+  end
+  def say msg
+    @status.replace msg
+  end
+  def alert msg, quiz=nil
+    say(msg)
+    ask(quiz) if quiz
+  end
+  def progress_reporter(*args)
+    ProgressReporter.new(@prog, @status, *args)
+  end
+  def method_missing(*args)
+    p args
+    nil
+  end
+end
+
+Shoes::Setup.init

data/shoes/lib/shoes/shy.rb

@@ -0,0 +1,131 @@
+#
+# lib/shoes/shy.rb
+# Shy, the Shoes YAML archive format
+#
+require 'digest/md5'
+require 'zlib'
+require 'shoes/minitar'
+require 'find'
+require 'tmpdir'
+require 'yaml'
+
+class Shy
+  VERSION = 0x0001
+  MAGIC   = "_shy".freeze
+  LAYOUT = "A4vV".freeze #Force to Little Endian for all platforms
+
+  yaml_as 'tag:hackety.org,2007:shy'
+  attr_accessor :name, :creator, :version, :launch
+
+  def self.launchable(d)
+    if File.directory? d
+      Dir["#{d}/**/*.rb"].map do |path|
+        path.gsub(%r!#{Regexp::quote(d)}/!, '')
+      end
+    else
+      [File.basename(d)]
+    end
+  end
+
+  def self.__hdr__(f)
+    hdr = f.read(10).unpack(LAYOUT)
+    raise IOError, "Invalid header" if hdr[0] != MAGIC and hdr[1] > VERSION
+    YAML.load(f.read(hdr[2]))
+  end
+
+
+  def self.du(root)
+    size = 0
+    Find.find(root) do |path|
+      if FileTest.directory?(path)
+        if File.basename(path)[0] == ?.
+          Find.prune
+        else
+          next
+        end
+      else
+        size += FileTest.size(path)
+      end
+    end
+    size
+  end
+
+  def self.meta(path, d = ".")
+    File.open(path, 'rb') do |f|
+      shy = __hdr__(f)
+    end
+  end
+
+  def self.x(path, d = ".")
+    File.open(path, 'rb') do |f|
+      shy = __hdr__(f)
+      inp = Zlib::GzipReader.new(f)
+      Archive::Tar::Minitar.unpack(inp, d)
+      shy
+    end
+  end
+
+  def self.c(path, shy, d, &blk)
+    path = File.expand_path(path)
+    meta = shy.to_yaml
+    File.open(path, "wb") do |f|
+      f << [MAGIC, VERSION, meta.length].pack(LAYOUT)
+      f << meta
+      self.czf(f, d, &blk)
+    end
+  end
+
+  def self.progress(total, &blk)
+    if blk
+      last, left = 0.0, total
+      proc do |action, name, stats|
+        if action == :file_progress
+          left -= stats[:currinc]
+          prg = 1.0 - (left.to_f / total.to_f)
+          blk[name, (last = prg), left] if prg - last > 0.02
+        end
+      end
+    end
+  end
+
+  def self.czf(f, d, &blk)
+    total = du(d)
+    out = Zlib::GzipWriter.new(f)
+    files = ["."]
+    unless File.directory? d
+      files = [File.basename(d)]
+      d = File.dirname(d)
+    end
+    Dir.chdir(d) do
+      Archive::Tar::Minitar.pack(files, out, &blk)
+    end
+  end
+
+  def self.xzf(f, d, &blk)
+    gz = Zlib::GzipReader.new(f)
+    Archive::Tar::Minitar.unpack(gz, d, &blk)
+  end
+
+  def self.md5sum(path)
+    digest = Digest::MD5.new
+    File.open(path, "rb") do |f|
+      digest.update f.read(8192) until f.eof
+    end
+    digest.hexdigest
+  end
+
+  def self.hrun(f)
+    b, i = 0, 1
+    last = 65535
+    while i < last
+      case f.readline
+      when /OLDSKIP=(\d+)/
+        last = $1.to_i 
+      when /FULLSIZE=(\d+)/
+        b = $1.to_i
+      end
+      i += 1
+    end
+    b
+  end
+end

data/shoes/lib/shoes/shybuilder.rb

@@ -0,0 +1,44 @@
+# -*- encoding: utf-8 -*-
+# crude shy-building UI; inspired by Jesse's "Shy Makey Thing"
+
+require 'shoes/shy'
+
+class Shoes
+  def self.start_shy_builder(launch_script)
+    launch_script = File.expand_path(launch_script)
+    top_dir = File.dirname(launch_script)
+    launch_script = File.basename(launch_script)
+    shy_name = "#{top_dir}.shy" 
+    Shoes.app do
+      background white
+      stack do
+        para "Almost ready to make #{shy_name}"
+        fields = {}
+        for label, name in [["Project Name", "name"],
+                            ["Version", "version"],
+                            ["Your Name", "creator"]]
+          flow :width => 1.0 do
+            para "#{label}: "
+            fields[name] = edit_line ''
+          end
+        end
+        button "Build .shy" do
+          shy_desc = Shy.new
+          for name in fields.keys
+            shy_desc.send("#{name}=".intern, fields[name].text)
+          end
+          shy_desc.launch = launch_script
+          Shy.c(shy_name, shy_desc, top_dir)
+          clear
+          background white
+          stack do
+            para "Built #{shy_name}"
+            button "Ok" do
+              close
+            end
+          end
+        end
+      end
+    end
+  end
+end