tms 1.1.1-darwin

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Boba Fat
+
+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.

data/README.markdown

@@ -0,0 +1,11 @@
+# tms
+
+Time Machine Status
+
+View avaliable Time Machine backups and show changes
+
+Name and idea from [fernlightning.com](http://www.fernlightning.com/doku.php?id=software:misc:tms)
+
+## Copyright
+
+Copyright (c) 2010 Boba Fat. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,31 @@
+begin
+  require 'jeweler'
+
+  name = 'tms'
+
+  Jeweler::Tasks.new do |gem|
+    gem.name = name
+    gem.summary = %Q{Time Machine Status}
+    gem.description = %Q{View avaliable Time Machine backups and show diff}
+    gem.homepage = "http://github.com/toy/#{name}"
+    gem.authors = ["Boba Fat"]
+    gem.platform = 'darwin'
+    gem.add_dependency 'colored'
+    gem.add_dependency 'xattr'
+    gem.add_dependency 'mutter'
+  end
+
+  Jeweler::GemcutterTasks.new
+
+  require 'pathname'
+  desc "Replace system gem with symlink to this folder"
+  task 'ghost' do
+    gem_path = Pathname(Gem.searcher.find(name).full_gem_path)
+    current_path = Pathname('.').expand_path
+    system('rm', '-r', gem_path)
+    system('ln', '-s', current_path, gem_path)
+  end
+
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end

data/VERSION

@@ -0,0 +1 @@
+1.1.1

data/bin/tms

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'tms'
+rescue LoadError
+  require 'rubygems'
+  require 'tms'
+end
+
+require 'optparse'
+
+ids, options = ARGV.partition{ |arg| arg =~ /^-?\d+$/ }
+OptionParser.new do |op|
+  op.banner = <<-BANNER
+Usege:
+  List:                #{op.program_name} [options]
+  Diff:                #{op.program_name} [options] id1 id2
+  Diff with previous:  #{op.program_name} [options] id
+  BANNER
+
+  op.on('-d', '--directory DIRECTORY', 'Use backup directory') do |dir|
+    Tms::Backup.backups_dir = dir
+  end
+
+  op.on('-f', '--filter DIRECTORY', 'Show diff starting from directory') do |dir|
+    Tms::Backup.filter_dir = dir
+  end
+
+  op.on('-p', '--progress', 'Show backups in progress') do
+    Tms::Backup.show_in_progress = true
+  end
+end.parse!(options)
+
+ids = ids.map(&:to_i)
+case ids.length
+when 0
+  Tms.list
+when 1
+  Tms.diff(ids[0] - 1, ids[0])
+when 2
+  Tms.diff(ids[0], ids[1])
+end

data/ext/extconf.rb

@@ -0,0 +1,9 @@
+require 'mkmf'
+
+if RUBY_PLATFORM.downcase.include?("darwin")
+  with_ldflags($LDFLAGS + ' -framework Foundation'){ true }
+else
+  with_ldflags($LIBS + ' -lCoreFoundation'){ true }
+end
+
+create_makefile('tms')

data/ext/tms.c

@@ -0,0 +1,41 @@
+#include "ruby.h"
+#include <CoreServices/CoreServices.h>
+
+static VALUE backup_volume(VALUE self){
+	OSStatus status = pathTooLongErr;
+	char *path;
+	size_t pathLength = 256;
+
+	CFDataRef aliasData;
+	AliasHandle alias;
+	FSRef fs;
+	Boolean wasChanged;
+
+	aliasData = CFPreferencesCopyAppValue(CFSTR("BackupAlias"), CFSTR("com.apple.TimeMachine"));
+	if (aliasData) {
+		if (noErr == PtrToHand(CFDataGetBytePtr(aliasData), (Handle *)&alias, CFDataGetLength(aliasData))) {
+			if (noErr == FSResolveAlias(NULL, alias, &fs, &wasChanged)) {
+				path = malloc(pathLength);
+				while (noErr != (status = FSRefMakePath(&fs, (UInt8*)path, pathLength))) {
+					if (pathTooLongErr == status) {
+						pathLength += 256;
+						path = reallocf(path, pathLength);
+					}
+				}
+			}
+			DisposeHandle((Handle)alias);
+		}
+		CFRelease(aliasData);
+	}
+
+	if (noErr == status) {
+		return rb_str_new2(path);
+	} else {
+		return Qnil;
+	}
+}
+
+void Init_tms() {
+	VALUE cTms = rb_define_module("Tms");
+	rb_define_singleton_method(cTms, "backup_volume", backup_volume, 0);
+}

data/lib/tms.rb

@@ -0,0 +1,84 @@
+require 'pathname'
+require 'colored'
+require 'xattr'
+require 'mutter'
+
+class Pathname
+  def real_directory?
+    directory? && !symlink?
+  end
+
+  def lino
+    @ino ||= lstat.ino
+  end
+
+  def postfix
+    return '@' if symlink?
+    return '/' if directory?
+    ''
+  end
+
+  def count_size(options = {})
+    if defined?(@counted_size)
+      @counted_size
+    else
+      @counted_size = if exist?
+        if directory?
+          if options[:recursive]
+            total = 0
+            find do |path|
+              total += path.size rescue nil
+            end
+            total
+          else
+            0
+          end
+        else
+          size
+        end
+      else
+        nil
+      end
+    end
+  end
+
+  def colored_size(options = {})
+    case size = count_size(options)
+    when nil
+      '!!!!!!'
+    when 0
+      '      '
+    else
+      Tms::Space.space(size, :color => true)
+    end
+  end
+end
+
+module Tms
+  class << self
+    def list
+      backups = Backup.list
+      Mutter::Table.new do
+        column :align => :right, :style => :red
+        column :align => :right, :style => :blue
+        column :align => :right
+        column
+      end.tap do |table|
+        table << ['', '', 'num', 'name']
+        backups.each_with_index do |backup, i|
+          table << [i, i - backups.length, backup.number, backup.name]
+        end
+      end.print
+    end
+
+    def diff(a, b)
+      backup_a = Backup.list[a] || abort("No backup with id #{a}")
+      backup_b = Backup.list[b] || abort("No backup with id #{b}")
+      Backup.diff(backup_a, backup_b)
+    end
+  end
+end
+
+require 'tms.so'
+require 'tms/backup'
+require 'tms/space'

data/lib/tms/backup.rb

@@ -0,0 +1,133 @@
+class Tms::Backup
+  class << self
+    def backups_dir
+      @backups_dir ||= begin
+        backup_volume = Tms.backup_volume
+        abort 'backup volume not avaliable' if backup_volume.nil?
+
+        computer_name = `scutil --get ComputerName`.strip
+        abort 'can\'t get computer name' unless $?.success?
+
+        backups_dir = Pathname(backup_volume) + 'Backups.backupdb' + computer_name
+        abort "ops backups dir is not a dir" unless backups_dir.directory?
+
+        backups_dir
+      end
+    end
+    def backups_dir=(dir)
+      @backups_dir = Pathname(dir)
+    end
+
+    attr_accessor :filter_dir
+    attr_accessor :show_in_progress
+
+    def list
+      @list ||= begin
+        backups = []
+        backups_dir.children.each do |path|
+          case path.basename.to_s
+          when /^\d{4}-\d{2}-\d{2}-\d{6}$/
+            backups << new(path)
+          when /^\d{4}-\d{2}-\d{2}-\d{6}\.inProgress$/
+            if show_in_progress
+              path.children.select(&:directory?).each do |path_in_progress|
+                backups << new(path_in_progress, true)
+              end
+            end
+          end
+        end
+        backups.sort
+      end
+    end
+
+    def diff(a, b)
+      total = 0
+      if filter_dir
+        root_dir = (a.path.children + b.path.children).select(&:directory?).select{ |child| Pathname(File.join(child, filter_dir)).exist? }.map(&:basename).uniq
+        root_dir = File.join(root_dir, filter_dir)
+        total += compare(a.path + root_dir, b.path + root_dir, Pathname('/') + root_dir)
+      else
+        (a.path.children(false) | b.path.children(false)).reject{ |child| child.to_s[0, 1] == '.' }.sort.each do |path|
+          total += compare(a.path + path, b.path + path, Pathname('/') + path)
+        end
+      end
+      puts "#{'Total:'.bold} #{Tms::Space.space(total, :color => true)}"
+    end
+
+  private
+
+    def compare(a, b, path)
+      case
+      when !a.exist?
+        puts "#{'  █'.green} #{b.colored_size(:recursive => true)} #{path}#{b.postfix}"
+        b.count_size || 0
+      when !b.exist?
+        puts "#{'█  '.blue} #{a.colored_size(:recursive => true)} #{path}#{a.postfix}"
+        0
+      when a.ftype != b.ftype
+        puts "#{'!!!'.red.bold} #{a.colored_size} #{path} (#{a.ftype}=>#{b.ftype})"
+        b.count_size || 0
+      when a.lino != b.lino
+        if a.readable? && b.readable?
+          puts "#{'█≠█'.yellow} #{a.colored_size} #{path}#{a.postfix}" unless a.symlink? && a.readlink == b.readlink
+          if a.real_directory?
+            total = 0
+            (a.children(false) | b.children(false)).sort.each do |child|
+              total += compare(a + child, b + child, path + child)
+            end
+            total
+          else
+            b.size
+          end
+        else
+          puts "??? #{path}#{a.postfix}".red.bold
+          0
+        end
+      else
+        0
+      end
+    end
+  end
+
+  attr_reader :path, :in_progress
+  def initialize(path, in_progress = false)
+    @path = path
+    @in_progress = in_progress
+  end
+
+  def name
+    @name ||= in_progress ? "#{path.dirname.basename}/#{path.basename}" : path.basename.to_s
+  end
+
+  def started_at
+    @start_date ||= Time.at(xattr.get('com.apple.backupd.SnapshotStartDate').to_i / 1_000_000.0)
+  end
+  def finished_at
+    @finished_at ||= Time.at(xattr.get('com.apple.backupd.SnapshotCompletionDate').to_i / 1_000_000.0)
+  end
+  def completed_in
+    finished_at - started_at
+  end
+  {
+    :state   => 'com.apple.backupd.SnapshotState',
+    :type    => 'com.apple.backupd.SnapshotType',
+    :version => 'com.apple.backup.SnapshotVersion',
+    :number  => 'com.apple.backup.SnapshotNumber',
+  }.each do |name, attr|
+    class_eval <<-src
+      def #{name}
+        @#{name} ||= xattr.get('#{attr}').to_i rescue '-'
+      end
+    src
+  end
+
+  def <=>(other)
+    name <=> other.name
+  end
+
+private
+
+  def xattr
+    @xattr ||= Xattr.new(path)
+  end
+end

data/lib/tms/space.rb

@@ -0,0 +1,39 @@
+module Tms::Space
+  SIZE_SYMBOLS = %w[B K M G T P E Z Y].freeze
+  COLORS = [].tap do |colors|
+    [:white, :black, :yellow, :red].each do |color|
+      colors << {:foreground => color}
+      colors << {:foreground => color, :extra => :bold}
+    end
+    colors << {:foreground => :yellow, :extra => :reversed}
+    colors << {:foreground => :red, :extra => :reversed}
+  end.freeze
+
+  def space(size, options = {})
+    precision = [options[:precision].to_i, 1].max || 2
+    length = 4 + precision + (options[:can_be_negative] ? 1 : 0)
+
+    number = size.to_i
+    degree = 0
+    while number.abs >= 1000 && degree < SIZE_SYMBOLS.length - 1
+      degree += 1
+      number /= 1024.0
+    end
+
+    space = "#{(degree == 0 ? number.to_s : "%.#{precision}f" % number).rjust(length)}#{number == 0 ? ' ' : SIZE_SYMBOLS[degree]}"
+    if options[:color]
+      unless ''.respond_to?(:red)
+        require 'toy/fast_gem'
+        fast_gem 'colored'
+      end
+      step = options[:color].is_a?(Hash) && options[:color][:step] || 10
+      start = options[:color].is_a?(Hash) && options[:color][:start] || 1
+      coef = 10.0 / (step * Math.log(10))
+      color = [[Math.log(size) * coef - start, 0].max.to_i, COLORS.length - 1].min rescue 0
+      Colored.colorize(space, COLORS[color])
+    else
+      space
+    end
+  end
+  self.extend self
+end

data/tms.gemspec

@@ -0,0 +1,59 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{tms}
+  s.version = "1.1.1"
+  s.platform = %q{darwin}
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Boba Fat"]
+  s.date = %q{2010-12-03}
+  s.default_executable = %q{tms}
+  s.description = %q{View avaliable Time Machine backups and show diff}
+  s.executables = ["tms"]
+  s.extensions = ["ext/extconf.rb"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+    "README.markdown"
+  ]
+  s.files = [
+    "LICENSE",
+    "README.markdown",
+    "Rakefile",
+    "VERSION",
+    "bin/tms",
+    "ext/extconf.rb",
+    "ext/tms.c",
+    "lib/tms.rb",
+    "lib/tms/backup.rb",
+    "lib/tms/space.rb",
+    "tms.gemspec"
+  ]
+  s.homepage = %q{http://github.com/toy/tms}
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.7}
+  s.summary = %q{Time Machine Status}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<colored>, [">= 0"])
+      s.add_runtime_dependency(%q<xattr>, [">= 0"])
+      s.add_runtime_dependency(%q<mutter>, [">= 0"])
+    else
+      s.add_dependency(%q<colored>, [">= 0"])
+      s.add_dependency(%q<xattr>, [">= 0"])
+      s.add_dependency(%q<mutter>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<colored>, [">= 0"])
+    s.add_dependency(%q<xattr>, [">= 0"])
+    s.add_dependency(%q<mutter>, [">= 0"])
+  end
+end
+

metadata

@@ -0,0 +1,119 @@
+--- !ruby/object:Gem::Specification 
+name: tms
+version: !ruby/object:Gem::Version 
+  hash: 17
+  prerelease: false
+  segments: 
+  - 1
+  - 1
+  - 1
+  version: 1.1.1
+platform: darwin
+authors: 
+- Boba Fat
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-03 00:00:00 +03:00
+default_executable: tms
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: colored
+  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
+- !ruby/object:Gem::Dependency 
+  name: xattr
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: mutter
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id003
+description: View avaliable Time Machine backups and show diff
+email: 
+executables: 
+- tms
+extensions: 
+- ext/extconf.rb
+extra_rdoc_files: 
+- LICENSE
+- README.markdown
+files: 
+- LICENSE
+- README.markdown
+- Rakefile
+- VERSION
+- bin/tms
+- ext/extconf.rb
+- ext/tms.c
+- lib/tms.rb
+- lib/tms/backup.rb
+- lib/tms/space.rb
+- tms.gemspec
+has_rdoc: true
+homepage: http://github.com/toy/tms
+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: Time Machine Status
+test_files: []
+