s7 0.0.1

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/bin/s7cli

@@ -0,0 +1,27 @@
+#!/usr/bin/ruby1.9
+# -*- coding: utf-8 -*-
+
+# Ruby 1.9 で Ruby-GetText-Package を使用するのはまだ時間がかかるようだ。
+# そのため、LANG=C にして様子を見る。
+ENV["LANG"] = "C"
+
+$:.unshift(File.expand_path("../lib", File.dirname(__FILE__)))
+
+require "gettext"
+
+require "s7"
+require "s7/s7cli"
+
+path = File.expand_path("../data/locale/", File.dirname(__FILE__))
+GetText.bindtextdomain("s7", :path => path)
+begin
+  S7::S7Cli.run(ARGV)
+rescue S7::ApplicationError => e
+  puts(e.message)
+  puts("----- back trace -----")
+  raise e
+end
+
+# Local Variables:
+# mode: ruby
+# End:

data/lib/gettext.rb

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+
+# gettext のモック
+module GetText
+  def self.included(mod)
+    class << mod
+      def _(s)
+        return s
+      end
+
+      def N_(s)
+        return s
+      end
+    end
+  end
+
+  def _(s)
+    return s
+  end
+
+  def N_(s)
+    return s
+  end
+
+  def bindtextdomain(*args)
+  end
+  module_function :bindtextdomain
+end

data/lib/s7.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+
+# S7 の名前空間を定義。
+module S7
+  # バージョン。
+  VERSION = "0.0.1"
+end
+
+require "s7/world"
+require "s7/s7_file"
+require "s7/exception"
+require "s7/gpass_file"

data/lib/s7/action.rb

@@ -0,0 +1,7 @@
+# -*- coding: utf-8 -*-
+
+module S7
+  # 操作を表現する。
+  class Action
+  end
+end

data/lib/s7/attribute.rb

@@ -0,0 +1,226 @@
+# -*- coding: utf-8 -*-
+
+require "date"
+require "gettext"
+
+module S7
+  # 属性を表現する。
+  class Attribute
+    include GetText
+
+    # サポートしている属性のクラス。
+    @@attribute_classes = {}
+
+    class << self
+      def create_instance(type, options)
+        return @@attribute_classes[type].new(options)
+      end
+
+      # 属性の型名の配列を返す。
+      def types
+        return @@attribute_classes.keys
+      end
+      
+      private
+      
+      def type(name)
+        @@attribute_classes[name] = self
+        self.const_set("TYPE", name)
+      end
+    end
+    
+    # 名前。
+    attr_accessor :name
+
+    # 機密情報かどうか。true であれば機密情報、false であればそうでない。
+    attr_accessor :secret
+
+    # 値を編集できるかどうか。true であれば編集でき、false であれ
+    # ばそうでない。
+    attr_accessor :editabled
+
+    # 削除できるかどうか。true であれば削除できず、false であれ
+    # ばそうでない。
+    attr_accessor :protected
+
+    def initialize(options)
+      self.name = options["name"]
+      self.value = options["value"]
+      self.secret = options["secret"] ? true : false
+      if options.key?("editabled")
+        self.editabled = options["editabled"] ? true : false
+      else
+        self.editabled = true
+      end
+      self.protected = options["protected"] ? true : false
+    end
+
+    # value を取得する。
+    def value
+      if @value.nil?
+        return nil
+      else
+        return get_value
+      end
+    end
+
+    # value を設定する。
+    def value=(val)
+      if val.nil?
+        @value = val
+      else
+        set_value(val)
+      end
+    end
+
+    # 属性の型を取得する。
+    def type
+      return self.class.const_get("TYPE")
+    end
+    
+    # 機密情報かどうかを取得する。
+    # 機密情報の場合、true を返す。そうでなれば false を返す。
+    def secret?
+      return secret ? true : false
+    end
+
+    # ユーザによる値の編集ができるかどうかを取得する。
+    # 編集できる場合、true を返す。そうでなければ true を返す。
+    def editable?
+      return editabled ? true : false
+    end
+
+    # ユーザによる削除ができるかどうかを取得する。
+    # 削除できる場合、true を返す。そうでなければ true を返す。
+    def protected?
+      return protected ? true : false
+    end
+
+    # value を表示するために文字列に変換する。
+    # このとき、 secret が true であれば「*」でマスクする。
+    def display_value(secret = @secret)
+      if secret
+        return "*" * value.to_s.length
+      else
+        return value.to_s
+      end
+    end
+
+    private
+
+    def get_value
+      return @value
+    end
+
+    def set_value(val)
+      @value = val
+    end
+  end
+
+  # 文字列の属性を表現する。
+  class TextAttribute < Attribute
+    type("text")
+
+    private
+    
+    def get_value
+      return @value.to_s.force_encoding("utf-8")
+    end
+
+    def set_value(val)
+      @value = val.to_s.force_encoding("utf-8")
+    end
+  end
+
+  # 数値の属性を表現する。
+  class NumericAttribute < Attribute
+    type("numeric")
+
+    private
+    
+    def get_value
+      return @value.to_i
+    end
+
+    def set_value(val)
+      @value = val.to_i
+    end
+  end
+
+  # 真偽値の属性を表現する。
+  class BooleanAttribute < Attribute
+    type("boolean")
+
+    # value を表示するために文字列に変換する。
+    # secret が true であれば「*」を返す。
+    # そうでなければ、Yes か No を返す。
+    def display_value(secret = @secret)
+      if secret
+        return "*"
+      else
+        return value ? _("Yes") : _("No")
+      end
+    end
+
+    private
+
+    def get_value
+      return @value ? true : false
+    end
+
+    def set_value(val)
+      @value = val ? true : false
+    end
+  end
+
+  # 日時の属性を表現する。
+  class DateTimeAttribute < Attribute
+    type("datetime")
+
+    # value を表示するために文字列に変換する。
+    # secret が true であれば「*」を返す。
+    # そうでなければ、「%Y/%m/%d %H:%M:%S」でフォーマットした文字列を返す。
+    # また、時分秒が全て0の場合は「%Y/%m/%d」でフォーマットする。
+    def display_value(secret = @secret)
+      if secret
+        return "*"
+      else
+        format = "%Y/%m/%d"
+        if value.hour != 0 || value.min != 0 || value.sec != 0
+          format << " %H:%M:%S"
+        end
+        return value.strftime(format)
+      end
+    end
+
+    private
+
+    def get_value
+      return @value.to_datetime
+    end
+    
+    def set_value(val)
+      case val
+      when Time, DateTime, Date
+        @value = val.to_datetime
+      else
+        @value = DateTime.parse(val.to_s)
+      end
+    end
+  end
+
+  # ファイルの属性を表現する。
+  class FileAttribute < Attribute
+    type("file")
+  end
+
+  # 画像の属性を表現する。
+  class FigureAttribute < FileAttribute
+    type("figure")
+  end
+
+  # 不明な属性を表現する。
+  class UnknownAttribute < Attribute
+    type("unknown")
+  end
+end

data/lib/s7/cipher.rb

@@ -0,0 +1,110 @@
+# -*- coding: utf-8 -*-
+
+require "openssl"
+
+module S7
+  # 秘密鍵暗号化方式を用いた暗号化処理を表現する。
+  class Cipher
+    @@cipher_classes = {}
+
+    class << self
+      def create_instance(type, options)
+        return @@cipher_classes[type].new(options)
+      end
+
+      private
+      
+      def cipher_type(name)
+        if @@cipher_classes.nil?
+          @@cipher_classes = {}
+        end
+        @@cipher_classes[name] = self
+        self.const_set("CIPHER_TYPE", name)
+      end
+    end
+
+    attr_accessor :options
+
+    def initialize(options)
+      self.options = options
+    end
+
+    # io で指定した IO からデータを読み込み、復号する。
+    def decrypt(io)
+      begin
+        cipher = create_cipher
+        cipher.decrypt
+        parse_options(cipher, options)
+        s = ""
+        while d = io.read(cipher.block_size)
+          s << cipher.update(d)
+        end
+        s << cipher.final
+      rescue OpenSSL::Cipher::CipherError
+        raise InvalidPassphrase
+      end
+      return s
+    end
+
+    # io で指定した IO からデータを読み込み、暗号化する。
+    def encrypt(io)
+      cipher = create_cipher
+      cipher.encrypt
+      parse_options(cipher, options)
+      s = ""
+      while d = io.read(cipher.block_size)
+        s << cipher.update(d)
+      end
+      s << cipher.final
+      return s
+    end
+
+    private
+
+    def create_cipher
+      cipher_type = self.class.const_get("CIPHER_TYPE")
+      return OpenSSL::Cipher::Cipher.new(cipher_type)
+    end
+    
+    def parse_options(cipher, options)
+      if options.key?(:passphrase)
+        cipher.pkcs5_keyivgen(options[:passphrase])
+      elsif options.key?(:key)
+        cipher.key_len = options[:key].length
+        cipher.key = options[:key].key
+        if options.key?(:iv)
+          cipher.iv = options[:iv]
+        end
+      else
+        raise ArgumentError, "too few options: :passphrase or :key"
+      end
+      if options.key?(:padding)
+        cipher.padding = options[:padding]
+      end
+    end
+  end
+
+  # 秘密鍵方式の一つ AES を用いて暗号化処理を行うクラスを表現する。
+  class Aes256CbcCipher < Cipher
+    cipher_type "AES-256-CBC"
+  end
+
+  # 秘密鍵方式の一つ Blowfish を用いて暗号化処理を行うクラスを表現する。
+  class BfCbcCipher < Cipher
+    cipher_type "BF-CBC"
+  end
+
+  # Cipher クラスと同じインタフェースを持つが、暗号化しないクラスを表現
+  # する。
+  class PlainCipher < Cipher
+    cipher_type "plain"
+
+    def encrypt(io)
+      return io.read
+    end
+
+    def decrypt(io)
+      return io.read
+    end
+  end
+end

data/lib/s7/configuration.rb

@@ -0,0 +1,41 @@
+# -*- coding: utf-8 -*-
+
+require "fileutils"
+
+module S7
+  # 設定を表現する。
+  class Configuration
+    # デフォルトの秘密鍵暗号方式。
+    DEFAULT_CIPHER_TYPE = "AES-256-CBC"
+    
+    # World オブジェクト。
+    attr_accessor :world
+
+    # 秘密鍵暗号方式。
+    attr_accessor :cipher_type
+    
+    def initialize(world)
+      @world = world
+      @cipher_type = DEFAULT_CIPHER_TYPE
+    end
+
+    # 設定をファイルに書き出す。
+    def save(path)
+      hash = {
+        "cipher_type" => @cipher_type,
+      }
+      FileUtils.touch(path)
+      File.open(path, "wb") do |f|
+        f.write(hash.to_yaml)
+      end
+    end
+    
+    # 設定をファイルから読み込む。
+    def load(path)
+      File.open(path, "rb") do |f|
+        hash = YAML.load(f.read)
+        @cipher_type = hash["cipher_type"]
+      end
+    end
+  end
+end