tms 1.0.0

data/.gitignore

@@ -0,0 +1,5 @@
+.DS_Store
+pkg
+doc
+*.gem
+*.swp

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 diff
+
+Name and idea from 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,30 @@
+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.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.0.0

data/bin/tms

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'tms'
+rescue LoadError
+  require 'rubygems'
+  require 'tms'
+end
+
+case ARGV.length
+when 0
+  Tms.list
+when 1
+  id = ARGV[0].to_i
+  Tms.diff(id - 1, id)
+when 2
+  Tms.diff(ARGV[0].to_i, ARGV[1].to_i)
+else
+  abort 'Max two arguments'
+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,69 @@
+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 colored_size(options = {})
+    if exist?
+      if directory?
+        if options[:recursive]
+          total = 0
+          find do |path|
+            total += path.size rescue nil
+          end
+          Tms::Space.space(total, :color => true)
+        else
+          '      '
+        end
+      else
+        Tms::Space.space(size, :color => true)
+      end
+    else
+      '!!!!!!'
+    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,93 @@
+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 list
+      @list ||= begin
+        backups_dir.children.select do |path|
+          path.basename.to_s =~ /^\d{4}-\d{2}-\d{2}-\d{6}$/
+        end.map(&method(:new)).sort_by(&:number)
+      end
+    end
+
+    def diff(a, b)
+      (a.path.children(false) | b.path.children(false)).reject{ |child| child.to_s[0, 1] == '.' }.sort.each do |path|
+        compare(a.path + path, b.path + path, Pathname('/') + path)
+      end
+    end
+
+  private
+
+    def compare(a, b, path)
+      case
+      when !a.exist?
+        puts "#{'  █'.green} #{b.colored_size(:recursive => true)} #{path}#{b.postfix}"
+      when !b.exist?
+        puts "#{'█  '.blue} #{a.colored_size(:recursive => true)} #{path}#{a.postfix}"
+      when a.ftype != b.ftype
+        puts "#{'!!!'.red.bold} #{a.colored_size} #{path} (#{a.ftype}=>#{b.ftype})"
+      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?
+            (a.children(false) | b.children(false)).sort.each do |child|
+              compare(a + child, b + child, path + child)
+            end
+          end
+        else
+          puts "??? #{path}#{a.postfix}".red.bold
+        end
+      end
+    end
+  end
+
+  attr_reader :path
+  def initialize(path)
+    @path = path
+  end
+
+  def name
+    @name ||= 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
+      end
+    src
+  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

metadata

@@ -0,0 +1,119 @@
+--- !ruby/object:Gem::Specification 
+name: tms
+version: !ruby/object:Gem::Version 
+  hash: 23
+  prerelease: false
+  segments: 
+  - 1
+  - 0
+  - 0
+  version: 1.0.0
+platform: ruby
+authors: 
+- Boba Fat
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-11-09 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: 
+- .gitignore
+- LICENSE
+- README.markdown
+- Rakefile
+- VERSION
+- bin/tms
+- ext/extconf.rb
+- ext/tms.c
+- lib/tms.rb
+- lib/tms/backup.rb
+- lib/tms/space.rb
+has_rdoc: true
+homepage: http://github.com/toy/tms
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+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: []
+