p4b 0.0.1.pre11 → 0.0.1.pre18

data/bin/p4b-bus

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+
+require_relative '../lib/p4b/bus/implementation'
+
+P4B::Bus::Implementation.start_service 'druby://localhost:6000/'
+P4B::Bus::Implementation.wait

data/bin/p4b-db

@@ -0,0 +1,3 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+

data/bin/p4b-md

@@ -0,0 +1,3 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+

data/bin/p4b-web

@@ -0,0 +1,2 @@
+#!/usr/bin/ruby
+# encoding: utf-8

data/bin/p4b-web-api

@@ -0,0 +1,3 @@
+#!/usr/bin/ruby
+# encoding: utf-8
+

data/lib/p4b/bus.rb

@@ -0,0 +1,73 @@
+# encoding: utf-8
+
+require 'drb'
+
+require_relative 'bus/version'
+
+# External interface for p4b-bus.
+
+module P4B::Bus
+
+  class Service
+
+    include P4B::Error::Checking
+
+    # @param [DRbObject] srv
+    def initialize srv
+      _type DRbObject, srv
+      @server = srv
+      methods = srv.registered_methods
+      methods.each do |m|
+        define_singleton_method(m) { |*a, &b| @server.start(m, *a, &b).value }
+        pm = "start_#{m}".intern
+        define_singleton_method(pm) { |*a, &b| @server.start(m, *a, &b) }
+      end
+    end
+
+    # @see Object#send
+    # @param [Symbol] name
+    # @param [*Array<Object>] args
+    # @yield
+    def call name, *args, &block
+      _type Symbol, name
+      @server.start(name, *args, &block).value
+    end
+
+    # @param [Symbol] name
+    # @param [*Array<Object>] args
+    # @yield
+    # @return [DRbObject<Thread>]
+    def start name, *args, &block
+      _type Symbol, name
+      @server.start(name, *args, &block)
+    end
+
+  end
+
+  class << self
+
+    include P4B::Error::Checking
+
+    # @param [String] uri
+    # @param [Hash] opts
+    # @return [DRbObject]
+    def connect uri, opts = {}
+      _type String, uri
+      _type Hash, opts
+      DRb.start_service nil, nil, opts
+      @server = DRbObject.new nil, uri
+    end
+
+    # @param [Symbol] name
+    # @return [Service]
+    def get name
+      _type Symbol, name
+      @services ||= {}
+      @services[name] ||= Service.new(@server.get(name))
+    end
+
+    alias :[] :get
+
+  end
+
+end

data/lib/p4b/bus/implementation.rb

@@ -0,0 +1,155 @@
+# encoding: utf-8
+
+require 'drb'
+require 'drctrl'
+
+require 'p4b'
+
+require_relative 'version'
+
+# Use in p4b-bus internal.
+
+module P4B::Bus::Implementation
+
+  class Service
+
+    include DRbUndumped
+    include P4B::Error::Checking
+
+    def initialize
+      @mutex = Mutex.new
+      @ids = 0
+      @objects = {}
+      @queue = []
+      @registered_methods = []
+    end
+
+    attr_reader :registered_methods
+
+    # @param [Object] object
+    # @param [*Array<Symbol>] methods
+    # @return [Fixnum]
+    def add_instance object, *methods
+      _type DRbObject, object
+      _type Symbol, *methods
+      @mutex.synchronize do
+        id = @ids += 1
+        @objects[id] = object
+        @queue.push id
+        @registered_methods.concat methods.compact
+        @registered_methods.uniq!
+        id
+      end
+    end
+
+    # @param [Fixnum] id
+    # @return [Object, nil]
+    def remove_instance id
+      _type Fixnum, id
+      @mutex.synchronize do
+        value = @objects.delete id
+        @queue.delete id
+        value
+      end
+    end
+
+    # @return [Boolean]
+    def empty?
+      @mutex.synchronize { @objects.empty? }
+    end
+
+    # @param [Symbol] method
+    # @param [*Array<Object>] args
+    # @yield
+    # @return [Thread]
+    def start method, *args, &block
+      _type Symbol, method
+      Thread.start method, args, block, &method(:do_call)
+    end
+
+    private
+
+    # @param [Symbol] method
+    # @param [Array<Object>] args
+    # @param [Proc] block
+    # @return [Object]
+    def do_call method, args, block
+      if empty?
+        # TODO: Error
+      end
+      sleep 1.0 until (id = @mutex.synchronize { @queue.shift })
+      obj = @mutex.synchronize { @objects[id] }
+      result = obj.send method, *args, &block
+      @mutex.synchronize { @queue.push(id) }
+      result
+    end
+
+  end
+
+  class << self
+
+    include DRbUndumped
+    include P4B::Error::Checking
+    
+    # @param [Symbol] name
+    # @param [Object] object
+    # @param [*Array<Symbol>] methods
+    # @return [Fixnum]
+    def register name, object, *methods
+      _type Symbol, name
+      _type DRbObject, object
+      _type Symbol, *methods
+      @mutex ||= Mutex.new
+      @mutex.synchronize do
+        @services ||= {}
+        @services[nm] ||= Service.new
+        @services[nm].add_instance object, *methods
+      end
+    end
+
+    # @param [Symbol] name
+    # @param [Fixnum] id
+    # @return [Object]
+    def unregister name, id
+      _type Symbol, name
+      _type Fixnum, id
+      @mutex ||= Mutex.new
+      @mutex.synchronize do
+        @services ||= {}
+        @services[nm] ||= Service.new
+        @services[nm].remove_instance id
+      end
+    end
+
+    # @param [Symbol] name
+    # @return [Service]
+    def get name
+      _type Symbol, name
+      @mutex ||= Mutex.new
+      @mutex.synchronize do
+        @services ||= {}
+        @services[nm] ||= Service.new
+      end
+    end
+
+    alias :[] :get
+
+    # @param [String] uri
+    # @param [Hash] opts
+    # @return [DRbServer]
+    def start_service uri, opts = {}
+      _type String, uri
+      _type Hash, opts
+      DRCtrl.start_service
+      DRb.start_service uri, self, opts
+    end
+
+    # @return [void]
+    def wait
+      DRCtrl.wait
+    end
+
+  end
+
+end
+

data/lib/p4b/bus/version.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+module P4B; end
+
+module P4B::Bus
+
+  VERSION = [ 0, 0, 1, :pre ]
+
+end

data/lib/p4b/db.rb

@@ -0,0 +1 @@
+ 

data/lib/p4b/db/version.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+module P4B; end
+
+module P4B::Database
+
+  VERSION = [ 0, 0, 1, :pre ]
+
+end

data/lib/p4b/md.rb

@@ -0,0 +1 @@
+ 

data/lib/p4b/md/version.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+module P4B; end
+
+module P4B::Microdata
+
+  VERSION = [ 0, 0, 1, :pre ]
+
+end

data/lib/p4b/web.rb

@@ -0,0 +1 @@
+ 

data/lib/p4b/web/api.rb

@@ -0,0 +1 @@
+ 

data/lib/p4b/web/api/version.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+module P4B; end
+
+module P4B::Web::API
+
+  VERSION = [ 0, 0, 1, :pre ]
+
+end

data/lib/p4b/web/version.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+
+module P4B; end
+
+module P4B::Web
+
+  VERSION = [ 0, 0, 1, :pre ]
+
+end

data/share/p4b.css

@@ -0,0 +1 @@
+ 

data/share/p4b.html

@@ -0,0 +1,20 @@
+<!DOCTYPE html>
+
+<html>
+
+<head>
+
+<meta charset="UTF-8">
+
+<script src="p4b.js"></script>
+
+</head>
+
+<body>
+
+
+<script>init();</script>
+
+</body>
+
+</html>

data/share/p4b.js

@@ -0,0 +1,286 @@
+/* encoding: utf-8 */
+
+var P4B = {};
+
+window.P4B_SESSION = 0;
+
+function init() {
+
+  function $method(func) {
+    return {
+      value: func,
+      writable: false,
+      enumerable: true,
+      configurable: false
+    };
+  };
+  function $hidden_method(func) {
+    return {
+      value: func,
+      writable: false,
+      enumerable: false,
+      configurable: false
+    };
+  }
+  function $methods_desc() {
+    var result = {};
+    for (var i = 0, l = arguments.length; i < l; i++) {
+      var func = arguments[i];
+      result[func.name] = $method(func);
+    }
+    return result;
+  }
+  function $hidden_methods_desc() {
+    var result = {};
+    for (var i = 0, l = arguments.length; i < l; i++) {
+      var func = arguments[i];
+      result[func.name] = $hidden_method(func);
+    }
+    return result;
+  }
+
+  function $property_desc(name, rw) {
+    var result = {};
+    var _name = '_' + name;
+    result[_name] = {
+      value: null,
+      writable: true,
+      enumerable: false,
+      configurable: false
+    };
+    var getter = function() { return this[_name]; };
+    var setter;
+    if (rw) {
+      setter = function(val) {
+        this[_name] = val;
+        if (this.modify) {
+          this.modify();
+        }
+      };
+    }
+    result[name] = {
+      get: getter,
+      set: setter,
+      enumerable: true,
+      configurable: false
+    }
+    return result;
+  }
+  function $rw_desc() {
+    var result = {};
+    for (var i = 0, l = arguments.length; i < l; i++) {
+      var name = arguments[i];
+      var _name = '_' + name;
+      var desc = $property_desc(name, true);
+      result[name] = desc[name];
+      result[_name] = desc[_name];
+    }
+    return result;
+  }
+  function $ro_desc() {
+    var result = {};
+    for (var i = 0, l = arguments.length; i < l; i++) {
+      var name = arguments[i];
+      var _name = '_' + name;
+      var desc = $property_desc(name, false);
+      result[name] = desc[name];
+      result[_name] = desc[_name];
+    }
+    return result;
+  }
+
+  Object.defineProperties(
+    Object.prototype,
+    {
+      $add_methods: $hidden_method(function $add_methods() {
+        Object.defineProperties(
+          this,
+          $methods_desc.apply(this, arguments)
+        );
+      }),
+      $add_hidden_methods: $hidden_method(function $add_hidden_methods() {
+        Object.defineProperties(
+          this,
+          $hidden_methods_desc.apply(this, arguments)
+        );
+      }),
+      $add_rw_properties: $hidden_method(function $add_rw_properties() {
+        Object.defineProperties(
+          this,
+          $rw_desc.apply(this, arguments)
+        );
+      }),
+      $add_ro_properties: $hidden_method(function $add_ro_properties() {
+        Object.defineProperties(
+          this,
+          $ro_desc.apply(this, arguments)
+        );
+      })
+    }
+  );
+
+  Function.prototype.$add_hidden_methods(function $inherit(ancestor) {
+    Object.defineProperty(
+      this,
+      'prototype',
+      {
+        writable: false,
+        enumerable: false,
+        configurable: false,
+        value: Object.create(ancestor.prototype, {
+          constructor: $hidden_method(this)
+        })
+      }
+    );
+  });
+
+  function lead(s, len) {
+    var res = s.toString();
+    while (res.length < len) {
+      res = '0' + res;
+    }
+    return res;
+  }
+
+  function user_id() {
+    return '00000000'; // placeholder, TODO!
+  }
+
+  function date_id() {
+    var now = new Date();
+    return [
+      lead(now.getUTCFullYear(), 4),
+      lead(now.getUTCMonth(), 2) + lead(now.getUTCDate(), 2),
+      lead(now.getUTCHours(), 2) + lead(now.getUTCMinutes(), 2)
+    ].join('-');
+  }
+
+  var _seed = null;
+  function seed_id() {
+    if (!_seed) {
+      _seed = lead(Math.floor(Math.random() * 0x10000).toString(16), 4);
+    }
+    return _seed;
+  }
+
+  function date_uid (date) {
+    return lead(date.getUTCFullYear(), 4) + '-' + 
+           lead(date.getUTCMonth(), 2) + lead(date.getUTCDate(), 2) + '-' + 
+           lead(date.getUTCHours(), 2) + lead(date.getUTCMinutes(), 2);
+  }
+
+  var _guid = 0;
+  function guid() {
+    return [
+      user_id(),
+      date_id(),
+      seed_id() + lead((++_guid).toString(), 8)
+    ].join('-');
+  }
+
+  function $guid(obj, data) {
+    var value = data['id'];
+    if (!value) {
+      obj._modified = true;
+      value = guid();
+    }
+    Object.defineProperty(
+      obj,
+      'guid',
+      {
+        writable: false,
+        enumerable: true,
+        configurable: false,
+        value: value
+      }
+    );
+  }
+
+  var _luid = 0;
+  function luid() {
+    return ++_luid;
+  }
+
+  function $luid(obj) {
+    Object.defineProperty(
+      obj,
+      'luid',
+      {
+        writable: false,
+        enumerable: true,
+        configurable: false,
+        value: luid()
+      }
+    );
+  }
+
+  var _list = {
+    guid: {},
+    luid: {}
+  };
+  function $list(obj) {
+    _list.guid[obj.guid] = obj;
+    _list.luid[obj.luid] = obj;
+  }
+  function $find(value) {
+    result = {
+      object: null,
+      guid: null,
+      luid: null
+    }
+    if (value instanceof Data) {
+      result.object = value;
+      result.guid = result.object.guid;
+      result.luid = result.object.luid;
+    } else if (typeof(value) === 'number') {
+      result = $find(_list.luid[value]);
+    } else if (typeof(value) === 'string') {
+      result = $find(_list.guid[value]);
+    }
+    return result;
+  }
+  
+  function Data(data) {
+    data = data || {};
+    this._modified = false;
+    $guid(this, data);
+    $luid(this);
+    $list(this);
+    //
+  }
+  Data.$inherit(Object);
+  Data.prototype.$add_ro_properties('modified');
+  Data.prototype.$add_methods(function modify() { this._modified = true; });
+
+  function Item(data) {
+    Data.call(this, data);
+    //
+  }
+  Item.$inherit(Data);
+
+  function Group(data) {
+    Item.call(this, data);
+    //
+  }
+  Group.$inherit(Item);
+
+  function Element(data) {
+    Item.call(this, data);
+    //
+  }
+  Element.$inherit(Item);
+
+  P4B.$add_methods(Data, Item, Group, Element);
+
+  console.log(P4B);
+  e = new Element();
+  console.log(e);
+  console.log(e instanceof Data);
+  console.log(guid());
+  console.log(guid());
+  console.log(luid());
+  console.log(document.cookie);
+
+}
+
+