cached 0.2

data/.gitignore

@@ -0,0 +1,5 @@
+coverage
+doc/rdoc
+log
+pkg
+.gemspec

data/Rakefile

@@ -0,0 +1,15 @@
+load "#{File.dirname __FILE__}/vex/gem.rake"
+
+task :default => :test
+
+task :test do
+	sh "ruby test/test.rb"
+end
+
+task :rcov do
+  sh "cd test; rcov -o ../coverage -x ruby/.*/gems -x ^test.rb test.rb"
+end
+
+task :rdoc do
+  sh "rdoc -o doc/rdoc"
+end

data/bin/cached

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+
+if ARGV == %w(--install)
+  require "fileutils"
+  
+  FileUtils.rm($0)
+  FileUtils.symlink(__FILE__, $0)
+  exit
+elsif defined?(Gem)
+  STDERR.puts "Note: please run improved installation via\n\n\tsudo #{$0} --install"
+end
+
+begin
+  path = File.readlink(__FILE__)
+rescue Errno::EINVAL
+  path = __FILE__
+end
+
+$: << File.expand_path(File.dirname(path) + "/../lib")
+
+require "cached"
+
+load "db.rb"
+
+Db.database ||= "#{ENV["HOME"]}/.cached.sql"
+
+puts Cached.exec *ARGV

data/bin/kvstore

@@ -0,0 +1,74 @@
+#!/usr/bin/env ruby
+
+if ARGV == %w(--install)
+  require "fileutils"
+  
+  FileUtils.rm($0)
+  FileUtils.symlink(__FILE__, $0)
+  exit
+elsif defined?(Gem)
+  STDERR.puts "Note: please run improved installation via\n\n\tsudo #{$0} --install"
+end
+
+begin
+  path = File.readlink(__FILE__)
+rescue Errno::EINVAL
+  path = __FILE__
+end
+
+$: << File.expand_path(File.dirname(path) + "/../lib")
+
+require "db"
+
+Db.database = "#{ENV["HOME"]}/.kvstore.sql"
+
+class App 
+  include Db
+  
+  def initialize
+    unless ask "SELECT name FROM sqlite_master WHERE type='table' AND name='kvstore'"
+      ask "CREATE TABLE kvstore(key, value)"
+      ask "CREATE UNIQUE INDEX IF NOT EXISTS kvstore_key ON kvstore(key)"
+    end
+  end
+
+  def set(key, value)
+    ask("INSERT OR REPLACE INTO kvstore VALUES(?, ?)", key, value)
+  end
+
+  def get(key)
+    puts ask("SELECT value FROM kvstore WHERE key=?", key)
+  end
+
+  def delete(key)
+    ask("DELETE FROM kvstore WHERE key=?", key)
+  end
+
+  def list
+    sql("SELECT key, value FROM kvstore") do |row|
+      puts row.first
+    end
+  end
+  
+  def help(*args)
+    STDERR.puts <<-MSG
+
+Usage: 
+
+  #{$0} set key value
+  #{$0} get key
+  #{$0} delete key
+  #{$0} list
+MSG
+  end
+end  
+
+app = App.new
+
+cmd = ARGV.shift || "help"
+begin
+  app.send cmd, *ARGV
+rescue NoMethodError, ArgumentError
+  puts $!
+  app.help
+end

data/gem.yml

@@ -0,0 +1,11 @@
+#
+# A vex/gem config file.
+version:      0.2
+authors:      ["radiospiel"]
+email:        eno@open-lab.org
+homepage:     http://radiospiel.org
+summary:      cached command line tool
+description:  |
+  The 'cached' command line tool provides an easy to use *nix caching tool. 
+
+dependencies: sqlite3

data/hooks/post_install.rb

@@ -0,0 +1 @@
+STDERR.puts "*** THIS IS THE POST INSTALL SCRIPT"

data/hooks/pre_uninstall.rb

@@ -0,0 +1 @@
+STDERR.puts "*** THIS IS THE PRE UNINSTALL SCRIPT"

data/lib/cached.rb

@@ -0,0 +1,84 @@
+load "db.rb"
+Db.database ||= "#{ENV["HOME"]}/.cached.sql"
+
+require 'digest/sha1'
+
+class Entry
+  extend Db
+  
+  def self.init
+    unless ask "SELECT name FROM sqlite_master WHERE type='table' AND name='cached'"
+      ask "CREATE TABLE cached(key, value, valid_until)"
+    end
+
+    ask "CREATE UNIQUE INDEX IF NOT EXISTS cached_key ON cached(key)"
+    ask "CREATE INDEX IF NOT EXISTS cached_valid_until ON cached(valid_until)"
+  end
+
+  init
+
+  def self.cleanup
+    ask "DELETE FROM cached WHERE valid_until < ?", now
+  end
+
+  def self.now
+    Time.now.to_i
+  end
+
+  def self.get(key)
+    value, valid_until = *row("SELECT value, valid_until FROM cached WHERE key=?", key)
+    return value if value && valid_until.to_i >= now
+  end
+
+  def self.set(key, value, options)
+    ask "INSERT OR REPLACE INTO cached (key, value, valid_until) VALUES(?, ?, ?)", key, value, now + options[:ttl]
+  end
+end
+
+module Cached
+  def self.exec(*args)
+    ttl = 3600
+    
+    case args.first
+    when /^--ttl=([0-9]+)$/
+      args.shift
+      ttl = $1.to_i
+    end
+    
+    key = Digest::SHA1.hexdigest(Dir.getwd + ":" + args.inspect)
+    Entry.get(key) || begin
+      value = run(*args)
+      Entry.set(key, value, :ttl => ttl)
+      value
+    end
+  end
+
+  def self.shell_escape(*args)
+    args.map do |str|
+      if str.empty?
+        "''"
+      elsif %r{\A[0-9A-Za-z+,./:=@_-]+\z} =~ str
+        str
+      else
+        result = ''
+        str.scan(/('+)|[^']+/) {
+          if $1
+            result << %q{\'} * $1.length
+          else
+            result << "'#{$&}'"
+          end
+        }
+        result
+      end
+    end.join(" ")
+  end
+
+  def self.run(*args)
+    command = args.join(" ")
+    # command = shell_escape args
+    `#{command}`
+  end
+end
+
+#
+# TODO: start cleanup in background... Entry.cleanup

data/lib/db.rb

@@ -0,0 +1,40 @@
+load "fast_gem.rb"
+
+FastGem.load "sqlite3"
+
+module Db
+  def self.database=(database)
+    @database = database
+  end
+  
+  def self.database
+    @database
+  end
+  
+  def db
+    @db ||= SQLite3::Database.new(Db.database)
+  end
+
+  def log(query, *args)
+    # STDERR.puts "[sqlite] #{query}"
+  end
+  
+  def sql(query, *args, &block)
+    log query, *args
+    r = db.execute query, *args, &block
+    return r if r
+    return [ db.changes ] if query =~ /^\s*(DELETE|INSERT)\b/i
+  end
+
+  def ask(query, *args)
+    log query, *args
+    r = db.get_first_value(query, *args)
+    return r if r
+    return db.changes if query =~ /^\s*(DELETE|INSERT)\b/i
+  end
+  
+  def row(query, *args)
+    log query, *args
+    db.get_first_row(query, *args)
+  end
+end

data/lib/fast_gem.rb

@@ -0,0 +1,56 @@
+module Gem
+  require 'rbconfig'
+
+  if !defined?(ConfigMap)
+
+    ConfigMap = {
+      :EXEEXT            => RbConfig::CONFIG["EXEEXT"],
+      :RUBY_SO_NAME      => RbConfig::CONFIG["RUBY_SO_NAME"],
+      :arch              => RbConfig::CONFIG["arch"],
+      :bindir            => RbConfig::CONFIG["bindir"],
+      :datadir           => RbConfig::CONFIG["datadir"],
+      :libdir            => RbConfig::CONFIG["libdir"],
+      :ruby_install_name => RbConfig::CONFIG["ruby_install_name"],
+      :ruby_version      => RbConfig::CONFIG["ruby_version"],
+      :rubylibprefix     => RbConfig::CONFIG["rubylibprefix"],
+      :sitedir           => RbConfig::CONFIG["sitedir"],
+      :sitelibdir        => RbConfig::CONFIG["sitelibdir"],
+      :vendordir         => RbConfig::CONFIG["vendordir"] ,
+      :vendorlibdir      => RbConfig::CONFIG["vendorlibdir"]
+    }
+
+  end
+
+  def self.user_home
+    ENV["HOME"]
+  end
+end
+
+require 'rubygems/defaults'
+
+module FastGem
+  extend self
+
+  def gem_paths
+    [ Gem.default_dir, Gem.user_dir ]
+  end
+
+  #
+  # Try ro find the file "name" in any of the available paths, and return the path
+  def find(name)
+    # look into each gempath for a matching file, sort by version (roughly), 
+    # and return the last hit
+    gem_paths.
+      map { |gem_path| Dir.glob("#{gem_path}/gems/#{name}-[0-9]*") }.
+      flatten.
+      sort_by { |gem_path| gem_path.gsub(/.*\/gems\/[^-]+-/, "") }.
+      last
+  end
+  
+  def load(name)
+    path = find(name)
+    # STDERR.puts "Load #{name} from #{path}"
+    $: << "#{path}/lib"
+    require name
+  end
+end

data/script/console

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#
+# Start a console that initializes the gem
+#
+require "irb"
+require "rubygems"
+
+begin
+  require 'wirble'
+  Wirble.init
+  Wirble.colorize
+rescue LoadError
+  STDERR.puts "To enable colorized and tab completed run 'gem install wirble'"
+end
+
+$: << "#{File.dirname(__FILE__)}/../lib"
+$: << "#{File.dirname(__FILE__)}/../init.rb"
+
+IRB.start

data/test/test.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+DIRNAME = File.expand_path File.dirname(__FILE__)
+Dir.chdir(DIRNAME)
+
+STDERR.puts "Skipping tests"

data/vex/gem.rake

@@ -0,0 +1,36 @@
+def sys(*args)
+  STDERR.puts "#{args.join(" ")}"
+  system *args
+end
+
+namespace :gem do
+  task :build => :spec do
+    options = []
+    sys "gem build .gemspec #{options.join(" ")} && mkdir -p pkg && mv *.gem pkg"
+  end
+
+  task :spec do
+    File.open ".gemspec", "w" do |file|
+      file.write <<-TXT
+      require "vex/gem"
+      Gem.spec File.dirname(__FILE__)
+TXT
+    end
+  end
+  
+  task :install => :build do
+    file = Dir.glob("pkg/*.gem").sort.last
+    sys "gem install #{file}"
+  end
+  
+  task :push => :build do
+    file = Dir.glob("pkg/*.gem").sort.last
+    puts "To push the gem to gemcutter please run"
+    puts
+    puts "\tgem push #{file}"
+  end
+end
+
+desc "Build gem"
+# task :gem => %w(test gem:install)
+task :gem => %w(gem:install gem:push)

data/vex/gem.rb

@@ -0,0 +1,95 @@
+module Gem
+  (class << self; self; end).class_eval do
+    def default_attributes
+      %w(name version date files executables)
+    end
+    
+    def set_root(root)
+      @root = File.expand_path(root)
+      @name = File.basename(@root)
+      @conf ||= YAML.load File.read("#{@root}/gem.yml")
+      @attributes ||= (default_attributes + @conf.keys.map(&:to_s)).uniq
+    end
+    
+    # attr_reader :root, :conf, :attributes, 
+    attr_reader :name
+
+    def attribute(name)
+      if @conf.key?(name) && !%w(dependencies).include?(name)
+        @conf[name]
+      else
+        self.send(name)
+      end
+    end
+
+    #
+    # create a new Gem::Specification object for this gem.
+    def spec(root)
+      self.set_root root
+    
+      Gem::Specification.new do |s|
+        @attributes.each do |attr|
+          v = attribute(attr)
+          next if v.nil?
+          
+          log attr, v
+          
+          s.send attr + "=", v
+        end
+        
+        %w(pre_uninstall post_install).each do |hook|
+          next unless File.exists?("#{root}/hooks/#{hook}.rb")
+          log hook, "yes"
+          Gem.send(hook) {
+            load "hooks/#{hook}.rb"
+          }
+        end
+      end
+    end
+    
+    def log(attr, v)
+      v = case attr
+      when "files" then "#{v.length} files"
+      else              v.inspect
+      end
+      
+      STDERR.puts "#{"%20s" % attr}:\t#{v}"
+    end
+    
+    def dependencies
+      return nil unless @conf["dependencies"]
+
+      @conf["dependencies"].map do |d|
+        Gem::Dependency.new d, ">= 0"
+      end
+    end
+    
+    def head(file)
+      File.open(file) do |f|
+        f.readline
+      end
+    end
+    
+    def executables
+      r = Dir.glob("#{@root}/bin/**/*").map do |file|
+        next unless head(file) =~ /^#!/
+        file[@root.length + 5 .. -1]
+      end.compact
+      
+      return nil if r.empty?
+      r
+    end
+
+    #
+    # get files from git
+    def files
+      r = `git ls-files`.split("\n")
+    end
+
+    #
+    # return the date
+    def date
+      Date.today.to_s
+    end
+  end
+end

metadata

@@ -0,0 +1,95 @@
+--- !ruby/object:Gem::Specification 
+name: cached
+version: !ruby/object:Gem::Version 
+  hash: 15
+  prerelease: false
+  segments: 
+  - 0
+  - 2
+  version: "0.2"
+platform: ruby
+authors: 
+- radiospiel
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-06-16 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: sqlite3
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: |
+  The 'cached' command line tool provides an easy to use *nix caching tool. 
+
+email: eno@open-lab.org
+executables: 
+- cached
+- kvstore
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Rakefile
+- bin/cached
+- bin/kvstore
+- gem.yml
+- hooks/post_install.rb
+- hooks/pre_uninstall.rb
+- lib/cached.rb
+- lib/db.rb
+- lib/fast_gem.rb
+- script/console
+- test/test.rb
+- vex/gem.rake
+- vex/gem.rb
+has_rdoc: true
+homepage: http://radiospiel.org
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: cached command line tool
+test_files: []
+