rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/io/tcpfns.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Subsidiary routines used to "pack" and "unpack" TCP messages.
+
+module Trepanning
+  module TCPPacking
+
+    unless defined?(TCP_MAX_PACKET)
+      TCP_MAX_PACKET = 8192 # Largest size for a recv
+      LOG_MAX_MSG    = Math.log10(TCP_MAX_PACKET).ceil
+    end
+      
+    def pack_msg(msg)
+      fmt = '%%%dd' % LOG_MAX_MSG # A funny way of writing: '%4d'
+      (fmt % msg.size) + msg
+    end
+
+    def unpack_msg(buf)
+      length  = Integer(buf[0...LOG_MAX_MSG])
+      data    = buf[LOG_MAX_MSG..LOG_MAX_MSG+length]
+      buf     = buf[LOG_MAX_MSG+length..-1]
+      [buf, data]
+    end
+  end
+end
+
+# Demo
+if __FILE__ == $0
+  include Trepanning::TCPPacking
+  msg = "Hi there!"
+  puts unpack_msg(pack_msg(msg))[1] == msg
+end
+

data/io/tcpfns.rbc

@@ -0,0 +1,694 @@
+!RBIX
+0
+x
+M
+1
+n
+n
+x
+10
+__script__
+i
+90
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+15
+65
+49
+5
+0
+99
+43
+6
+7
+7
+49
+8
+1
+83
+9
+9
+86
+5
+45
+0
+10
+43
+11
+47
+49
+12
+1
+15
+7
+13
+64
+19
+0
+15
+5
+5
+5
+20
+0
+47
+49
+14
+1
+47
+49
+15
+1
+79
+49
+8
+1
+20
+0
+83
+9
+47
+49
+16
+1
+8
+87
+1
+15
+2
+11
+I
+7
+I
+1
+I
+0
+I
+0
+n
+p
+17
+x
+10
+Trepanning
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+10
+Trepanning
+i
+28
+5
+66
+99
+7
+0
+65
+49
+1
+2
+13
+99
+12
+7
+2
+12
+7
+3
+12
+65
+12
+49
+4
+4
+15
+49
+2
+0
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+5
+x
+10
+TCPPacking
+x
+11
+open_module
+x
+15
+__module_init__
+M
+1
+n
+n
+x
+10
+TCPPacking
+i
+90
+5
+66
+26
+93
+0
+15
+29
+17
+0
+7
+0
+98
+1
+1
+30
+8
+23
+25
+92
+0
+27
+8
+28
+15
+7
+2
+8
+29
+1
+9
+34
+1
+8
+61
+65
+7
+0
+7
+3
+49
+4
+2
+15
+65
+7
+5
+45
+6
+7
+45
+0
+8
+49
+9
+1
+49
+10
+0
+49
+4
+2
+15
+99
+7
+11
+7
+12
+65
+67
+49
+13
+0
+49
+14
+4
+15
+99
+7
+15
+7
+16
+65
+67
+49
+13
+0
+49
+14
+4
+11
+I
+6
+I
+0
+I
+0
+I
+0
+n
+p
+17
+x
+14
+TCP_MAX_PACKET
+x
+16
+vm_const_defined
+s
+8
+constant
+I
+2000
+x
+9
+const_set
+x
+11
+LOG_MAX_MSG
+x
+4
+Math
+n
+n
+x
+5
+log10
+x
+4
+ceil
+x
+8
+pack_msg
+M
+1
+n
+n
+x
+8
+pack_msg
+i
+27
+7
+0
+64
+45
+1
+2
+49
+3
+1
+19
+1
+15
+20
+1
+20
+0
+49
+4
+0
+49
+3
+1
+20
+0
+81
+5
+11
+I
+4
+I
+2
+I
+1
+I
+1
+n
+p
+6
+s
+5
+%%%dd
+x
+11
+LOG_MAX_MSG
+n
+x
+1
+%
+x
+4
+size
+x
+1
++
+p
+7
+I
+-1
+I
+d
+I
+0
+I
+e
+I
+c
+I
+f
+I
+1b
+x
+52
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpfns.rb
+p
+2
+x
+3
+msg
+x
+3
+fmt
+x
+17
+method_visibility
+x
+15
+add_defn_method
+x
+10
+unpack_msg
+M
+1
+n
+n
+x
+10
+unpack_msg
+i
+77
+5
+20
+0
+44
+43
+0
+78
+45
+1
+2
+2
+49
+3
+3
+49
+4
+1
+47
+49
+5
+1
+19
+1
+15
+20
+0
+44
+43
+0
+45
+1
+6
+45
+1
+7
+20
+1
+81
+8
+49
+3
+2
+49
+4
+1
+19
+2
+15
+20
+0
+44
+43
+0
+45
+1
+9
+20
+1
+81
+8
+77
+49
+3
+2
+49
+4
+1
+19
+0
+15
+20
+0
+20
+2
+35
+2
+11
+I
+9
+I
+3
+I
+1
+I
+1
+n
+p
+10
+x
+5
+Range
+x
+11
+LOG_MAX_MSG
+n
+x
+3
+new
+x
+2
+[]
+x
+7
+Integer
+n
+n
+x
+1
++
+n
+p
+11
+I
+-1
+I
+12
+I
+0
+I
+13
+I
+18
+I
+14
+I
+30
+I
+15
+I
+46
+I
+16
+I
+4d
+x
+52
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpfns.rb
+p
+3
+x
+3
+buf
+x
+6
+length
+x
+4
+data
+p
+11
+I
+2
+I
+8
+I
+22
+I
+9
+I
+2b
+I
+a
+I
+3e
+I
+d
+I
+4c
+I
+12
+I
+5a
+x
+52
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpfns.rb
+p
+0
+x
+13
+attach_method
+p
+3
+I
+2
+I
+6
+I
+1c
+x
+52
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpfns.rb
+p
+0
+x
+13
+attach_method
+x
+11
+active_path
+x
+7
+Globals
+x
+2
+$0
+x
+2
+[]
+x
+2
+==
+n
+x
+10
+TCPPacking
+x
+7
+include
+s
+9
+Hi there!
+x
+8
+pack_msg
+x
+10
+unpack_msg
+x
+4
+puts
+p
+13
+I
+0
+I
+5
+I
+1a
+I
+1c
+I
+2a
+I
+1d
+I
+35
+I
+1e
+I
+3b
+I
+1f
+I
+56
+I
+1c
+I
+5a
+x
+52
+/home/rocky-rvm/.rvm/src/rbx-trepanning/io/tcpfns.rb
+p
+1
+x
+3
+msg