xot 0.1.3 → 0.1.4

data/include/xot/string.h

@@ -25,4 +25,19 @@ 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/util.h

@@ -0,0 +1,26 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __XOT_UTIL_H__
+#define __XOT_UTIL_H__
+
+
+namespace Xot
+{
+
+
+	int bit2byte (int bits);
+
+	int byte2bit (int bytes);
+
+
+	template <typename T>
+	inline T clip (T minval, T maxval, T value)
+	{
+		return value > maxval ? maxval : (value < minval ? minval : value);
+	}
+
+
+}// Xot
+
+
+#endif//EOH

data/lib/xot.rb

@@ -0,0 +1,7 @@
+# -*- coding: utf-8 -*-
+
+
+require 'xot/module'
+require 'xot/hookable'
+require 'xot/setter'
+require 'xot/blockutil'

data/lib/xot/blockutil.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*-
+
+
+module Xot
+
+
+  module BlockUtil
+
+    extend module ClassMethods
+
+      def instance_eval_or_block_call (recv, *args, &block)
+        if block.arity == 0
+          recv.instance_eval &block
+        else
+          block.call recv, *args
+        end
+      end
+
+      self
+
+    end# ClassMethods
+
+  end# BlockUtil
+
+
+end# Xot

data/lib/xot/hookable.rb

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+
+
+module Xot
+
+
+  module Hookable
+
+    def hook (name, &block)
+      c = class << self; self; end
+      c.__send__ :define_method, name, &block
+      self
+    end
+
+    def on (name, &block)
+      hook name do |*a, &b|
+        block.call *a, &b
+      end
+    end
+
+    def before (name, &block)
+      hook name do |*a, &b|
+        super *a, &b unless block.call(*a, &b) == :skip
+      end
+    end
+
+    def after (name, &block)
+      hook name do |*a, &b|
+        ret = super *a, &b
+        block.call *a, &b
+        ret
+      end
+    end
+
+  end# Hookable
+
+
+end# Xot

data/lib/xot/module.rb

@@ -22,8 +22,15 @@ module Xot
       File.join root_dir, 'task'
     end
 
-    def load_tasks ()
-      Dir["#{task_dir}/**/*.rake"].each {|path| load path}
+    def load_tasks (*names)
+      if names.empty?
+        Dir["#{task_dir}/**/*.rake"].each {|path| load path}
+      else
+        names.each do |name|
+          path = "#{task_dir}/#{name}.rake"
+          load path if File.exist? path
+        end
+      end
     end
 
     def version ()

data/lib/xot/rake.rb

@@ -0,0 +1,5 @@
+# -*- coding: utf-8 -*-
+
+
+require 'xot/rake/task'
+require 'xot/rake/helpers'

data/lib/xot/rake/helpers.rb

@@ -51,17 +51,42 @@ module Xot
     end
 
     def env (name, defval = nil)
-      Object.const_get(name) rescue ENV[name.to_s] || defval
+      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
+      end
+    end
+
+    def header (mod)
+      puts "-- #{mod.to_s.capitalize} " + "-" * 50
     end
 
     def win32? ()
       RUBY_PLATFORM =~ /mswin|ming|cygwin/
     end
 
+    def mswin? ()
+      RUBY_PLATFORM =~ /mswin/
+    end
+
+    def ming? ()
+      RUBY_PLATFORM =~ /ming/
+    end
+
+    def cygwin? ()
+      RUBY_PLATFORM =~ /cygwin/
+    end
+
     def cocoa? ()
       RUBY_PLATFORM =~ /darwin/
     end
 
+    def clang? ()
+      RbConfig::CONFIG['CXX'] =~ /clang/
+    end
+
 
   end# Rake
 

data/lib/xot/rake/task.rb

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+
+
+module Xot
+
+
+  module Rake
+
+
+    def empty_task (*names)
+      names.each do |name|
+        task name => '.'
+      end
+    end
+
+
+  end# Rake
+
+
+end#Xot

data/lib/xot/setter.rb

@@ -0,0 +1,29 @@
+# -*- coding: utf-8 -*-
+
+
+module Xot
+
+
+  module Setter
+
+    def set (*args)
+      return if args.empty?
+
+      first = args.shift
+      if first.class == Hash
+        first.each {|name, value| set_value__ name, value}
+      else
+        set_value__ first, *args
+      end
+    end
+
+    private
+
+    def set_value__ (name, *value)
+      __send__ name.to_s + '=', *value
+    end
+
+  end# Setter
+
+
+end# Xot

data/src/debug.cpp

@@ -0,0 +1,36 @@
+#include "xot/debug.h"
+
+
+#include <stdio.h>
+#include <stdarg.h>
+#include <xot/string.h>
+
+
+namespace Xot
+{
+
+
+#ifdef _DEBUG
+
+	void
+	dout (const char* format, ...)
+	{
+		va_list args;
+		va_start(args, format);
+		printf("%s", stringf(format, args).c_str());
+		va_end(args);
+	}
+
+	void
+	doutln (const char* format, ...)
+	{
+		va_list args;
+		va_start(args, format);
+		printf("%s\n", stringf(format, args).c_str());
+		va_end(args);
+	}
+
+#endif
+
+
+}// Xot

data/src/defs.cpp

@@ -0,0 +1,6 @@
+#include "xot/defs.h"
+
+
+// compile to check
+#include <xot/pimpl.h>
+#include <xot/ref.h>

data/src/util.cpp

@@ -0,0 +1,22 @@
+#include "xot/util.h"
+
+
+namespace Xot
+{
+
+
+	int
+	bit2byte (int bits)
+	{
+		if ((bits % 8) != 0) return -1;
+		return bits / 8;
+	}
+
+	int
+	byte2bit (int bytes)
+	{
+		return bytes * 8;
+	}
+
+
+}// Xot

data/task/ext.rake

@@ -0,0 +1,90 @@
+# -*- mode: ruby; coding: utf-8 -*-
+
+
+require 'rbconfig'
+
+
+task :ext => 'ext:build'
+
+%w[clean].each do |t|
+  task t.intern => "ext:#{t}"
+end
+
+
+namespace :ext do
+
+
+  rbconf = RbConfig::CONFIG
+
+  mod      = MODULE
+  modname  = env :MODNAME,  mod.name.downcase
+  dlname   = env :DLNAME,   'native'
+  dlext    = env :DLEXT,    rbconf['DLEXT'] || 'so'
+  extdir   = env :EXTDIR,   "ext/#{modname}"
+  libdir   = env :LIBDIR,   "lib/#{modname}"
+  ruby     = env :RUBY,     'ruby'
+  make     = env :MAKE,     'make'
+  cxx      = env :CXX,      rbconf['CXX'] || 'g++'
+  defs     = env :DEFS,     []
+  debug    = env :DEBUG,    false
+  incdirs  = env :INCDIRS,  []
+  cxxflags = env(:CXXFLAGS, rbconf['CXXFLAGS']).dup
+
+  outname = "#{dlname}.#{dlext}"
+  extout  = File.join extdir, outname
+  libout  = File.join libdir, outname
+
+  srcs = FileList["#{extdir}/**/*.cpp"]
+
+  incroot = rbconf['rubyhdrdir']
+  incdirs += [
+    incroot,
+    "#{incroot}/#{RUBY_PLATFORM}",
+    '/opt/local/include',
+    '/opt/include'
+  ]
+  incdirs.uniq!
+
+  defs     << '_DEBUG' if debug
+  defs     << 'NDEBUG' unless debug
+  defs     << 'WIN32' if win32?
+  defs     << 'COCOA' if cocoa?
+  defs     << $~[0].upcase if RUBY_PLATFORM =~ /mswin|ming|cygwin|darwin/i
+  cxxflags << ' ' << rbconf['debugflags'] if debug
+  cxxflags << ' --stdlib=libc++' if clang?
+  cxxflags << defs.map{|s| " -D#{s}"}.join
+  cxxflags << incdirs.map{|s| " -I#{s}"}.join
+
+  extconf  = File.join extdir, 'extconf.rb'
+  makefile = File.join extdir, 'Makefile'
+  depend   = File.join extdir, 'depend.mf'
+
+
+  task :build => libout
+
+  task :clean do
+    sh %( cd #{extdir} && #{make} clean ) if File.exist? makefile
+    sh %( rm -rf #{makefile} #{depend} #{libout} )
+  end
+
+  file libout => extout do
+    sh %( cp #{extout} #{libout} )
+  end
+
+  file extout => [:lib, makefile] do
+    sh %( cd #{extdir} && #{make} )
+  end
+
+  file makefile => [extconf, depend] do
+    sh %( cd #{extdir} && #{ruby} #{File.basename extconf} )
+  end
+
+  file depend => srcs do
+    inc = incdirs.map{|s| " -I#{s}"}.join
+    src = srcs.map{|cpp| File.basename cpp}.join ' '
+    dep = File.basename depend
+    sh %( cd #{extdir} && #{cxx} -M #{cxxflags} #{inc} #{src} > #{dep} )
+  end
+
+
+end# :ext

data/task/gem.rake

@@ -1,11 +1,14 @@
 # -*- mode: ruby; coding: utf-8 -*-
 
 
-namespace :ext do
-  task :rdoc => "ext"
-  directory "ext"
+task :gem => 'gem:build'
+
+%w[clean install uninstall upload].each do |t|
+  task t.intern => "gem:#{t}"
 end
 
+empty_task :lib, :ext, :rdoc
+
 
 namespace :gem do
 
@@ -21,6 +24,10 @@ namespace :gem do
 
   task :build => gemfile
 
+  task :clean do
+    sh %( rm -f #{gemfile} )
+  end
+
   task :install => gemfile do
     sh %( #{gem} install #{gemfile} )
   end
@@ -29,15 +36,11 @@ namespace :gem do
     sh %( #{gem} uninstall #{name} )
   end
 
-  task :clean do
-    sh %( rm -f #{gemfile} )
-  end
-
   task :upload => gemfile do
     sh %( #{gem} push #{gemfile} )
   end
 
-  file gemfile => ["lib:build", "ext:rdoc"] do
+  file gemfile => [:lib, :ext, :rdoc] do
     sh %( #{gem} build #{gemspec} )
   end