xot 0.1.6 → 0.1.7

data/include/xot/string.h

@@ -8,11 +8,45 @@
 #include <string>
 
 
+#define XOT_STRINGF(format, result) \
+	Xot::String result; \
+	do \
+	{ \
+		if (format) \
+		{ \
+			va_list args; \
+			va_start(args, format); \
+			result = Xot::stringf(format, args); \
+			va_end(args); \
+		} \
+	} \
+	while (false)
+
+
 namespace Xot
 {
 
 
-	typedef std::string String;
+	class String : public std::string
+	{
+
+		typedef std::string Super;
+
+		public:
+
+			String ();
+
+			String (const char* str);
+
+			operator const char* () const;
+
+			friend String operator + (const String& lhs, const String& rhs);
+
+			friend String operator + (const String& lhs, const char*   rhs);
+
+			friend String operator + (const char*   lhs, const String& rhs);
+
+	};// String
 
 
 	String stringf (const char* format, ...);
@@ -25,19 +59,4 @@ namespace Xot
 }// Xot
 
 
-#define XOT_STRINGF(format, result) \
-	Xot::String result;								\
-	do \
-	{ \
-		if (format) \
-		{ \
-			va_list args; \
-			va_start(args, format); \
-			result = Xot::stringf(format, args); \
-			va_end(args); \
-		} \
-	} \
-	while (false)
-
-
 #endif//EOH

data/include/xot/time.h

@@ -0,0 +1,17 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __XOT_TIME_H__
+#define __XOT_TIME_H__
+
+
+namespace Xot
+{
+
+
+	double time (bool local = true);
+
+
+}// Xot
+
+
+#endif//EOH

data/include/xot/util.h

@@ -4,6 +4,9 @@
 #define __XOT_UTIL_H__
 
 
+#include <stdint.h>
+
+
 namespace Xot
 {
 
@@ -20,6 +23,29 @@ namespace Xot
 	}
 
 
+	template <typename T>
+	inline T* set_pointer_flag (T* pointer, bool flag = true)
+	{
+		uintptr_t intval = *(uintptr_t*) &pointer;
+		if (flag) intval |=  0x1;
+		else      intval &= ~0x1;
+		return *(T**) &intval;
+	}
+
+	template <typename T>
+	inline const T* set_pointer_flag (const T* pointer, bool flag = true)
+	{
+		return set_pointer_flag(const_cast<T*>(pointer), flag);
+	}
+
+	template <typename T>
+	inline bool get_pointer_flag (const T* pointer)
+	{
+		uintptr_t intval = *(uintptr_t*) &pointer;
+		return intval & 0x1;
+	}
+
+
 }// Xot
 
 

data/lib/xot.rb

@@ -2,7 +2,8 @@
 
 
 require 'xot/module'
-require 'xot/load_path'
+require 'xot/bit_flag'
+require 'xot/block_util'
 require 'xot/hookable'
 require 'xot/setter'
-require 'xot/block_util'
+require 'xot/invoker'

data/lib/xot/bit_flag.rb

@@ -0,0 +1,52 @@
+# -*- coding: utf-8 -*-
+
+
+module Xot
+
+
+  class BitFlag
+
+    def initialize (none = 0, &block)
+      @bit2sym, @sym2bit = {}, {none: none, no: none}
+      BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+    def flag (symbol, bit)
+      @sym2bit[symbol] = bit
+      @bit2sym[bit]    = symbol if bit.to_s(2).count('1') == 1
+    end
+
+    def bits2symbols (bits)
+      array = []
+      bits.to_s(2).reverse.each_char.with_index do |char, index|
+        next unless char == '1'
+        bit = BitFlag.bit index
+        symbol = @bit2sym[bit]
+        raise "unknown bit for flag." unless symbol
+        array << symbol
+      end
+      array
+    end
+
+    def symbols2bits (*symbols)
+      symbols.map {|sym| sym2bit sym}.reduce(0) {|a, b| a | b}
+    end
+
+    def self.bit (*args)
+      bits = 0
+      args.each {|n| bits |= 0x1 << n}
+      bits
+    end
+
+    private
+
+      def sym2bit (symbol)
+        bit = @sym2bit[symbol]
+        raise 'unknown symbol for flag.' unless bit
+        bit
+      end
+
+  end# BitFlag
+
+
+end# Xot

data/lib/xot/extconf.rb

@@ -0,0 +1,59 @@
+# -*- coding: utf-8 -*-
+
+
+require 'xot/rake'
+require 'xot/block_util'
+
+
+module Xot
+
+
+  class ExtConf
+
+    include Xot::Rake
+
+    attr_reader :modules, :defs, :include_dirs, :lib_dirs, :headers, :libs, :local_libs, :frameworks
+
+    def initialize (*modules, &block)
+      @modules = modules.map {|m| m.const_get :Module}
+      @defs, @include_dirs, @lib_dirs, @headers, @libs, @local_libs, @frameworks =
+        ([[]] * 7).map &:dup
+      Xot::BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+    def debug ()
+      env :DEBUG, false
+    end
+
+    def setup ()
+      yield if block_given?
+
+      modules.each do |m|
+        name = m.name.downcase
+        headers << "#{name}.h"
+        libs << name
+      end
+
+      local_libs << (clang? ? 'c++' : 'stdc++')
+
+      $CPPFLAGS = cppflags $CPPFLAGS, defs, include_dirs
+      $CFLAGS   = cflags   $CFLAGS + ' -x c++'
+      $LDFLAGS  = ldflags  $LDFLAGS, lib_dirs, frameworks
+      $LOCAL_LIBS << local_libs.map {|s| " -l#{s}"}.join
+    end
+
+    def create_makefile (*args)
+      modules.each do |m|
+        dir_config m.name.downcase, m.include_dir, m.lib_dir
+      end
+
+      exit 1 unless headers.all? {|s| have_header s}
+      exit 1 unless libs.all?    {|s| have_library s, 't'}
+
+      super
+    end
+
+  end# ExtConf
+
+
+end# Xot

data/lib/xot/invoker.rb

@@ -0,0 +1,48 @@
+# -*- coding: utf-8 -*-
+
+
+require 'ostruct'
+
+
+module Xot
+
+
+  module Invoker
+
+    def initialize ()
+    end
+
+    def handlers (create = false)
+      if create
+        @handlers ||= []
+      else
+        @handlers ? @handlers : []
+      end
+    end
+
+    def add_handler (handler)
+      return unless handler
+      a = self.handlers true
+      a.push handler unless a.include? handler
+    end
+
+    def remove_handler (handler)
+      return unless handler
+      self.handlers.delete handler
+    end
+
+    def invoke (name, attributes = {}, options = {})
+      only     = options[:only]
+      only     = [only] if only && !only.kind_of?(Array)
+      handlers = only ? only : @handlers
+      return unless handlers
+
+      handlers.each do |handler|
+        handler.send name, OpenStruct.new(attributes) if handler.respond_to? name
+      end
+    end
+
+  end# Invoker
+
+
+end# Xot

data/lib/xot/module.rb

@@ -4,7 +4,11 @@
 module Xot
 
 
-  extend module ModuleInfo
+  module Module
+
+    def name ()
+      super.split('::')[-2]
+    end
 
     def version ()
       open(root_dir 'VERSION') {|f| f.readline.chomp}
@@ -14,12 +18,12 @@ module Xot
       File.expand_path "../../../#{path}", __FILE__
     end
 
-    def include_dirs ()
-      %w[include].map {|dir| root_dir dir}
+    def include_dir ()
+      root_dir 'include'
     end
 
-    def lib_dirs ()
-      %w[lib].map {|dir| root_dir dir}
+    def lib_dir ()
+      root_dir 'lib'
     end
 
     def task_dir ()
@@ -37,9 +41,9 @@ module Xot
       end
     end
 
-    self
+    extend self
 
-  end# ModuleInfo
+  end# Module
 
 
 end# Xot

data/lib/xot/rake.rb

@@ -2,6 +2,7 @@
 
 
 require 'erb'
+require 'rbconfig'
 require 'pp'
 
 
@@ -26,26 +27,26 @@ module Xot
     end
 
     def erb (str)
-      ERB.new(str, nil, "%").result binding
+      ERB.new(str, nil, '%').result binding
     end
 
     def compile (path, out)
       open(path) do |input|
-        open(out, "w") do |output|
+        open(out, 'w') do |output|
           output.write erb(input.read)
         end
       end
     #rescue
     end
 
-    def params (n, sep = "", &block)
-      raise "block not given." unless block
-      return "" if n == 0
-      (1..n).map(&block).join(sep)
+    def params (max, sep = '', &block)
+      raise 'block not given.' unless block
+      return '' if max == 0
+      (1..max).map(&block).join(sep)
     end
 
     def convertions (paths, convs)
-      raise "empty conversion." if convs.empty?
+      raise 'empty conversion.' if convs.empty?
       paths = paths.map do |path|
         convpath = path
         convs.each do |from, to|
@@ -56,17 +57,69 @@ module Xot
       Hash[*paths.flatten]
     end
 
-    def env (name, defval = nil)
+    def env (name, defval = nil, to = nil)
       case val = (ENV[name.to_s] || Object.const_get(name) rescue defval)
-      when /^\d+$/ then val.to_i
-      when 'true'  then true
-      when 'false' then false
-      else val
+      when /^\d+$/        then val.to_i
+      when 'true',  true  then true
+      when 'false', false then false
+      when nil            then nil
+      when Numeric        then val
+      else
+        val = val.split /\s+/ if to == :array && val.respond_to?(:split)
+        val.dup
       end
     end
 
+    def ruby_incdirs ()
+      root = RbConfig::CONFIG['rubyhdrdir']
+      [root, RbConfig::CONFIG['rubyarchhdrdir'] || "#{root}/#{RUBY_PLATFORM}"]
+    end
+
+    def cppflags (flags = '', defs = [], incdirs = [])
+      s = flags.dup
+      s << cppflags_defs(defs)      .map {|s| " -D#{s}"}.join
+      s << cppflags_incdirs(incdirs).map {|s| " -I#{s}"}.join
+      s
+    end
+
+    def cppflags_defs (defs = [])
+      a = defs
+      a << $~[0].upcase if RUBY_PLATFORM =~ /mswin|ming|cygwin|darwin/i
+      a << (debug? ? '_DEBUG' : 'NDEBUG')
+      a << 'WIN32' if win32?
+      a << 'OSX'   if osx?
+      a << 'IOS'   if ios?
+      a
+    end
+
+    def cppflags_incdirs (dirs = [])
+      a = dirs.dup
+      a += ruby_incdirs
+      a
+    end
+
+    def cflags (flags = '')
+      s = flags.dup
+      s << ' -Wno-unknown-pragmas'
+      s << ' ' << RbConfig::CONFIG['debugflags'] if debug?
+      s << ' -stdlib=libc++ -mmacosx-version-min=10.7' if clang?
+      s.gsub! /-O\d?/, '-O0' if debug?
+      s
+    end
+
+    def ldflags (flags = '', libdirs = [], frameworks = [])
+      s = flags.dup
+      s << libdirs.map    {|s| " -L#{s}"}.join
+      s << frameworks.map {|s| " -framework #{s}"}.join
+      s
+    end
+
     def header (mod)
-      puts "-- #{mod.to_s.capitalize} " + "-" * 50
+      puts "-- #{mod.to_s.capitalize} " + '-' * 50
+    end
+
+    def debug? ()
+      env :DEBUG, false
     end
 
     def win32? ()
@@ -85,10 +138,14 @@ module Xot
       RUBY_PLATFORM =~ /cygwin/
     end
 
-    def cocoa? ()
+    def osx? ()
       RUBY_PLATFORM =~ /darwin/
     end
 
+    def ios? ()
+      false
+    end
+
     def clang? ()
       RbConfig::CONFIG['CXX'] =~ /clang/
     end
@@ -98,3 +155,31 @@ module Xot
 
 
 end# Xot
+
+
+if Kernel.const_defined? :Rake
+  module Rake
+    class Application
+      alias invoke_task_org invoke_task
+
+      def invoke_task (*args, &block)
+        invoke_task_org *args, &block
+      rescue RuntimeError => e
+        if e.message =~ /don't\s+know\s+.*\s+task\s+/i
+          escalate_tasks
+        else
+          raise
+        end
+      end
+
+      def escalate_tasks ()
+        Dir.chdir '..' do
+          cmd = "rake #{ARGV.join ' '}"
+          $stderr.puts "(in #{Dir.pwd}) #{cmd}"
+          system cmd
+        end
+        exit 0
+      end
+    end
+  end
+end