osc 0.1.4

data/README

@@ -0,0 +1,23 @@
+OSC �⥸�塼��
+==============
+
+OSC �ϥ��֥������Ȼظ�������ץȸ��� Ruby �Τ���Ρ��֥����ץ󥵥���ɡ�
+����ȥ�����ץ⥸�塼��Ǥ���
+
+
+���󥹥ȡ���
+------------
+
+������ץ� "install.rb" ��Ĥ����ޤ���
+
+  $ ruby install.rb config
+  $ ruby install.rb setup
+ ($ su)
+  # ruby install.rb install
+
+���路���ϡ�"ruby install.rb --help" �Ȥ��Ƥ���������
+
+
+������� (�դʤФ����褷)
+mailto:tadf@funaba.org
+http://www.funaba.org/

data/README.en

@@ -0,0 +1,23 @@
+An "OSC" module
+==============
+
+OSC is an "OpenSound Control" module for an object‐oriented
+scripting language Ruby.
+
+
+Install
+‐‐‐‐‐‐‐
+
+Use the script "install.rb".
+
+  $ ruby install.rb config
+  $ ruby install.rb setup
+ ($ su)
+  # ruby install.rb install
+
+For more information, type "ruby install.rb ‐‐help".
+
+
+Tadayoshi Funaba
+mailto:tadf@funaba.org
+http://www.funaba.org/en/

data/lib/osc.rb

@@ -0,0 +1,377 @@
+# osc.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: osc.rb,v 1.4 2006-11-10 21:54:37+09 tadf Exp $
+
+require 'forwardable'
+require 'socket'
+require 'thread'
+
+module OSC
+
+  class OSCArgument
+
+    def initialize(val) @val = val end
+
+    attr_accessor :val
+
+    def to_i() @val.to_i end
+    def to_f() @val.to_f end
+    def to_s() @val.to_s end
+
+    def padding(s)
+      s + ("\000" * ((4 - (s.size % 4)) % 4))
+    end
+
+    private :padding
+
+  end
+
+  class OSCInt32 < OSCArgument
+
+    def tag() 'i' end
+    def encode() [@val].pack('N') end
+
+  end
+
+  class OSCFloat32 < OSCArgument
+
+    def tag() 'f' end
+    def encode() [@val].pack('g') end # fake
+
+  end
+
+  class OSCString < OSCArgument
+
+    def tag() 's' end
+    def encode() padding(@val.sub(/\000.*\z/, '') + "\000") end
+
+  end
+
+  class OSCBlob < OSCArgument
+
+    def tag() 'b' end
+    def encode() padding([@val.size].pack('N') + @val) end
+
+  end
+
+  class Packet
+
+    class PO
+
+      def initialize(str) @str, @index = str, 0 end
+      def rem() @str.length - @index end
+      def eof? () rem <= 0 end
+      def skip(n) @index += n end
+      def skip_padding() skip((4 - (@index % 4)) % 4) end
+
+      def getn(n)
+	raise EOFError if rem < n
+	s = @str[@index, n]
+	skip(n)
+	s
+      end
+
+      def getc
+	raise EOFError if rem < 1
+	c = @str[@index]
+	skip(1)
+	c
+      end
+
+    end
+
+    def self.decode_int32(io)
+      i = io.getn(4).unpack('N')[0]
+      i -= 2**32 if i > (2**31-1)
+      i
+    end
+
+    def self.decode_float32(io)
+      f = io.getn(4).unpack('g')[0]
+      f
+    end
+
+    def self.decode_string(io)
+      s = ''
+      until (c = io.getc) == 0
+	s << c
+      end
+      io.skip_padding
+      s
+    end
+
+    def self.decode_blob(io)
+      l = io.getn(4).unpack('N')[0]
+      b = io.getn(l)
+      io.skip_padding
+      b
+    end
+
+    def self.decode_timetag(io)
+      t1 = io.getn(4).unpack('N')[0]
+      t2 = io.getn(4).unpack('N')[0]
+      [t1, t2]
+    end
+
+    def self.decode2(time, packet, list)
+      io = PO.new(packet)
+      id = decode_string(io)
+      if id =~ /\A\#/
+	if id == '#bundle'
+	  t1, t2 = decode_timetag(io)
+	  if t1 == 0 && t2 == 1
+	    time = nil
+	  else
+	    time = t1 + t2.to_f / (2**32)
+	  end
+	  until io.eof?
+	    l = io.getn(4).unpack('N')[0]
+	    s = io.getn(l)
+	    decode2(time, s, list)
+	  end
+	end
+      elsif id =~ /\//
+	address = id
+	if io.getc == ?,
+	  tags = decode_string(io)
+	  args = []
+	  tags.scan(/./) do |t|
+	    case t
+	    when 'i'
+	      i = decode_int32(io)
+	      args << OSCInt32.new(i)
+	    when 'f'
+	      f = decode_float32(io)
+	      args << OSCFloat32.new(f)
+	    when 's'
+	      s = decode_string(io)
+	      args << OSCString.new(s)
+	    when 'b'
+	      b = decode_blob(io)
+	      args << OSCBlob.new(b)
+	    when /[htd]/; io.read(8)
+	    when 'S'; decode_string(io)
+	    when /[crm]/; io.read(4)
+	    when /[TFNI\[\]]/;
+	    end
+	  end
+	end
+	list << [time, Message.new(address, nil, *args)]
+      end
+    end
+
+    private_class_method :decode_int32, :decode_float32, :decode_string,
+    :decode_blob, :decode_timetag, :decode2
+
+    def self.decode(packet)
+      list = []
+      decode2(nil, packet, list)
+      list
+    end
+
+  end
+
+  class Message < Packet
+
+    def initialize(address, tags=nil, *args)
+      @address = address
+      @args = []
+      args.each_with_index do |arg, i|
+	if tags && tags[i]
+	  case tags[i]
+	  when ?i; @args << OSCInt32.new(arg)
+	  when ?f; @args << OSCFloat32.new(arg)
+	  when ?s; @args << OSCString.new(arg)
+	  when ?b; @args << OSCBlob.new(arg)
+	  when ?*; @args << arg
+	  else; raise ArgumentError, 'unknown type'
+	  end
+	else
+	  case arg
+	  when Integer;     @args << OSCInt32.new(arg)
+	  when Float;       @args << OSCFloat32.new(arg)
+	  when String;      @args << OSCString.new(arg)
+	  when OSCArgument; @args << arg
+	  end
+	end
+      end
+    end
+
+    attr_accessor :address
+
+    def tags() ',' + @args.collect{|x| x.tag}.join end
+
+    def encode
+      s = OSCString.new(@address).encode
+      s << OSCString.new(tags).encode
+      s << @args.collect{|x| x.encode}.join
+    end
+
+    def to_a() @args.collect{|x| x.val} end
+
+    extend Forwardable
+    include Enumerable
+
+    de = (Array.instance_methods - self.instance_methods)
+    de -= %w(assoc flatten flatten! pack rassoc transpose)
+    de += %w(include? sort)
+
+    def_delegators(:@args, *de)
+
+    undef_method :zip
+
+  end
+
+  class Bundle < Packet
+
+    def encode_timetag(t)
+      case t
+      when NIL # immediately
+	t1 = 0
+	t2 = 1
+      when Numeric
+	t1, fr = t.divmod(1)
+	t2 = (fr * (2**32)).to_i
+      when Time
+	t1, fr = (t.to_f + 2208988800).divmod(1)
+	t2 = (fr * (2**32)).to_i
+      else
+	raise ArgumentError, 'invalid time'
+      end
+      [t1, t2].pack('N2')
+    end
+
+    private :encode_timetag
+
+    def initialize(timetag=nil, *args)
+      @timetag = timetag
+      @args = args
+    end
+
+    attr_accessor :timetag
+
+    def encode()
+      s = OSCString.new('#bundle').encode
+      s << encode_timetag(@timetag)
+      s << @args.collect{|x|
+	x2 = x.encode; [x2.size].pack('N') + x2}.join
+    end
+
+    extend Forwardable
+    include Enumerable
+
+    def to_a() @args.collect{|x| x.to_a} end
+
+    de = (Array.instance_methods - self.instance_methods)
+    de -= %w(assoc flatten flatten! pack rassoc transpose)
+    de += %w(include? sort)
+
+    def_delegators(:@args, *de)
+
+    undef_method :zip
+
+  end
+
+  class SimpleServer
+
+    def initialize(port)
+      @so = UDPSocket.new
+      @so.bind('', port)
+      @cb = []
+      @qu = Queue.new
+    end
+
+    def add_method(pat, obj=nil, &proc)
+      case pat
+      when NIL; re = pat
+      when Regexp; re = pat
+      when String
+	pat = pat.dup
+	pat.gsub!(/[.^(|)]/, '\\1')
+	pat.gsub!(/\?/, '[^/]')
+	pat.gsub!(/\*/, '[^/]*')
+	pat.gsub!(/\[!/, '[^')
+	pat.gsub!(/\{/, '(')
+	pat.gsub!(/,/, '|')
+	pat.gsub!(/\}/, ')')
+	pat.gsub!(/\A/, '\A')
+	pat.gsub!(/\z/, '\z')
+	re = Regexp.new(pat)
+      else
+	raise ArgumentError, 'invalid pattern'
+      end
+      unless ( obj && !proc) ||
+	     (!obj &&  proc)
+	raise ArgumentError, 'wrong number of arguments'
+      end
+      @cb << [re, (obj || proc)]
+    end
+
+    def sendmesg(mesg)
+      @cb.each do |re, obj|
+	if re.nil? || re =~ mesg.address
+	  obj.send(if Proc === obj then :call else :accept end, mesg)
+	end
+      end
+    end
+
+    def dispatcher
+      loop do
+	time, mesg = @qu.pop
+	now = Time.now.to_f + 2208988800
+	diff = if time.nil?
+	       then 0 else time - now end
+	if diff <= 0
+	  sendmesg(mesg)
+	else
+	  Thread.fork do
+	    sleep(diff)
+	    sendmesg(mesg)
+	    Thread.exit
+	  end
+	end
+      end
+    end
+
+    def detector
+      loop do
+	pa = @so.recv(16384)
+	begin
+	  Packet.decode(pa).each{|x| @qu.push(x)}
+	rescue EOFError
+	end
+      end
+    end
+
+    private :sendmesg, :dispatcher, :detector
+
+    def run
+      Thread.fork do
+	begin
+	  dispatcher
+	rescue
+	  Thread.main.raise $!
+	end
+      end
+      begin
+	detector
+      rescue
+	Thread.main.raise $!
+      end
+    end
+
+  end
+
+  class SimpleClient
+
+    def initialize(host, port)
+      @so = UDPSocket.new
+      @so.connect(host, port)
+    end
+
+    def send(mesg)
+      @so.send(mesg.encode, 0)
+    end
+
+  end
+
+end

data/sample/dumbserver.rb

@@ -0,0 +1,21 @@
+# dumbserver.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: dumbserver.rb,v 1.3 2006-03-11 10:03:36+09 tadf Exp $
+
+require 'osc'
+require 'gopt'
+include  OSC
+
+def usage
+  warn 'usage: dumbserver [-l lport]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('l:')
+
+lport = (opt[:l] || '10000').to_i
+
+ss = SimpleServer.new(lport)
+ss.add_method(nil) do |mesg|
+  p [mesg.address, mesg.to_a]
+end
+ss.run

data/sample/getmjd.mxt

@@ -0,0 +1,59 @@
+max v2;
+#N vpatcher 424 40 805 528;
+#P origin 0 -149;
+#P window setfont "Sans Serif" 9.;
+#P newex 250 267 68 9109513 osc-route /mjd;
+#P newex 242 233 81 9109513 osc-route /getmjd;
+#P newex 98 206 27 9109513 t b f;
+#P newex 139 207 27 9109513 t b f;
+#P button 117 37 15 0;
+#P newex 101 123 52 9109513 unpack i i i;
+#P message 112 65 26 9109513 date;
+#P newex 107 93 40 9109513 date;
+#P user incdec 64 157 15 15 0 0;
+#P user incdec 110 157 15 15 0 0;
+#P user incdec 156 157 15 15 0 0;
+#P button 279 333 15 0;
+#P newex 121 345 27 9109513 t b s;
+#P number 268 302 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
+#P newex 242 197 80 9109513 opensoundcontrol;
+#P newex 246 163 71 9109513 udp-read 10000;
+#P newex 75 417 124 9109513 udp-write 192.168.1.2 10000;
+#P message 86 314 98 9109513 /getmjd/civil \$1 \$2 \$3;
+#P button 49 245 15 0;
+#P number 161 183 35 9 1 31 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
+#P number 115 183 35 9 1 12 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
+#P number 69 183 35 9 1950 2050 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
+#P newex 106 282 48 9109513 pack f f f;
+#P newex 97 380 80 9109513 opensoundcontrol;
+#P comment 32 183 100 9109513 civil;
+#P comment 234 302 100 9109513 mjd;
+#P comment 78 37 100 9109513 today;
+#P connect 24 0 8 0;
+#P connect 23 0 8 0;
+#P connect 18 0 5 0;
+#P connect 21 2 5 0;
+#P connect 3 0 10 0;
+#P connect 4 0 9 0;
+#P connect 14 1 3 0;
+#P connect 14 0 3 0;
+#P connect 6 0 24 0;
+#P connect 19 0 21 0;
+#P connect 5 0 4 0;
+#P connect 8 0 4 0;
+#P connect 20 0 19 0;
+#P connect 22 0 20 0;
+#P connect 17 0 6 0;
+#P connect 21 0 6 0;
+#P connect 9 0 14 0;
+#P connect 24 1 4 1;
+#P connect 7 0 23 0;
+#P connect 23 1 4 2;
+#P connect 16 0 7 0;
+#P connect 21 1 7 0;
+#P connect 11 0 12 0;
+#P connect 12 1 25 0;
+#P connect 25 0 26 0;
+#P connect 26 0 13 0;
+#P connect 13 0 15 0;
+#P pop;

data/sample/getmjd.pd

@@ -0,0 +1,38 @@
+#N canvas 387 154 557 361 10;
+#X obj 213 296 sendOSC;
+#X floatatom 221 113 2 1 12 0 - - -;
+#X floatatom 252 113 2 1 31 0 - - -;
+#X obj 386 128 dumpOSC 10000;
+#X msg 75 59 disconnect;
+#X floatatom 411 238 5 30000 80000 0 - - -;
+#X floatatom 179 113 4 1950 2050 0 - - -;
+#X obj 161 181 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 134 111 civil;
+#X text 375 236 mjd;
+#X obj 422 271 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 18 25 connect 192.168.1.2 10000;
+#X obj 199 221 pack f f f;
+#X msg 145 257 send /getmjd/civil \$1 \$2 \$3;
+#X obj 250 141 t b f;
+#X obj 201 141 t b f;
+#X obj 377 164 OSCroute /getmjd;
+#X obj 386 202 OSCroute /mjd;
+#X connect 1 0 15 0;
+#X connect 2 0 14 0;
+#X connect 3 0 16 0;
+#X connect 4 0 0 0;
+#X connect 5 0 10 0;
+#X connect 6 0 12 0;
+#X connect 6 0 7 0;
+#X connect 7 0 12 0;
+#X connect 11 0 0 0;
+#X connect 12 0 13 0;
+#X connect 13 0 0 0;
+#X connect 14 0 7 0;
+#X connect 14 1 12 2;
+#X connect 15 0 7 0;
+#X connect 15 1 12 1;
+#X connect 16 0 17 0;
+#X connect 17 0 5 0;

data/sample/getmjd.rb

@@ -0,0 +1,41 @@
+# getmjd.rb: Written by Tadayoshi Funaba 2005
+# $Id: getmjd.rb,v 1.2 2005-08-06 15:32:23+09 tadf Exp $
+
+require 'osc'
+require 'date'
+require 'gopt'
+include  OSC
+
+class GetMJD
+
+  def initialize(sc)
+    @sc = sc
+  end
+
+  def accept(mesg)
+    civil = mesg.collect{|x| x.to_i}
+    begin
+      mjd = Date.new(*civil).mjd
+    rescue
+      mjd = 0
+    end
+    @sc.send(Message.new('/getmjd/mjd', nil, mjd.to_f))
+  end
+
+end
+
+def usage
+  warn 'usage: getmjd [-h rhost] [-p rport] [-l lport]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('h:p:l:')
+
+rhost = (opt[:h] || 'localhost')
+rport = (opt[:p] || '10000').to_i
+lport = (opt[:l] || rport).to_i
+
+ss = SimpleServer.new(lport)
+sc = SimpleClient.new(rhost, rport)
+ss.add_method('/getmjd/civil', GetMJD.new(sc))
+ss.run

data/sample/joy-test.rb

@@ -0,0 +1,43 @@
+# joy-test.rb: Written by Tadayoshi Funaba 2005
+# $Id: joy-test.rb,v 1.2 2005-08-06 15:28:49+09 tadf Exp $
+
+require 'osc'
+require 'gopt'
+include  OSC
+
+def usage
+  warn 'usage: joy-test [-h rhost] [-p rport]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('h:p:')
+
+rhost = (opt[:h] || 'localhost')
+rport = (opt[:p] || '10000').to_i
+
+sc = SimpleClient.new(rhost, rport)
+
+btns = [0] * 10
+btns[0] = 1
+
+sc.send(Message.new('/joy/buttons', 'f'*10, *btns))
+(-2**15).step(2**15, 2**11) do |i|
+  sc.send(Message.new('/joy/pos', 'f'*3, i, 0, 0))
+  sleep 0.1
+end
+(-2**15).step(2**15, 2**11) do |i|
+  sc.send(Message.new('/joy/pos', 'f'*3, 0, i, 0))
+  sleep 0.1
+end
+sc.send(Message.new('/joy/pos', 'f'*3, 0, 0, 0))
+(6..9).each do |i|
+  btns[i] = 1
+  sc.send(Message.new('/joy/buttons', 'f'*10, *btns))
+  btns[i] = 0
+  sleep 2.0
+end
+btns[4] = 1
+sc.send(Message.new('/joy/buttons', 'f'*10, *btns))
+sleep 2.0
+btns = [0] * 10
+sc.send(Message.new('/joy/buttons', 'f'*10, *btns))