ease_engine 0.0.19

data/benchmark/loop/loop.js

@@ -0,0 +1,23 @@
+require ( "date-utils" );
+
+function time_usec( time ){
+  return time * 1000;
+}
+
+var sec = 1;
+if ( 3 <= process.argv.length ){
+  sec = parseInt( process.argv[ 2 ] );
+}
+var usec = sec * 1000000;
+
+var count = 0;
+var start_usec = time_usec( Date.now() );
+while ( true ){
+  count += 1;
+  var end_usec = time_usec( Date.now() );
+  var update_usec = end_usec - start_usec;
+  if ( usec <= update_usec ){
+    console.log( "count="+ count +" update_usec="+ update_usec );
+    break;
+  }
+}

data/benchmark/loop/loop.php

@@ -0,0 +1,22 @@
+<?php
+function time_usec( $time ){
+  return $time * 1000000;
+}
+
+$sec = isset( $argv[ 1 ] ) ? intval( $argv[ 1 ] ) : 1;
+if ( $sec <= 0 ){
+  $sec = 1;
+}
+$usec = $sec * 1000000;
+
+$count = 0;
+$start_usec = time_usec( microtime( true ) );
+while ( true ){
+  $count += 1;
+  $end_usec = time_usec( microtime( true ) );
+  $update_usec = $end_usec - $start_usec;
+  if ( $usec <= $update_usec ){
+    printf( "count=%u update_usec=%u\n", $count, $update_usec );
+    break;
+  }
+}

data/benchmark/loop/loop.rb

@@ -0,0 +1,19 @@
+def time_usec( time )
+  time.to_i * 1000000 + time.usec
+end
+
+sec = ARGV[ 0 ].to_i
+sec = 1 if sec <= 0
+usec = sec * 1000000
+
+count = 0
+start_usec = time_usec( Time.new )
+while true
+  count += 1
+  end_usec = time_usec( Time.new )
+  update_usec = end_usec - start_usec
+  if usec <= update_usec
+    puts "count=#{count} update_usec=#{update_usec}"
+    break
+  end
+end

data/benchmark/loop/loop.scala

@@ -0,0 +1,30 @@
+import scala.util.control.Breaks.{ breakable, break }
+
+object loop {
+  def time_usec( time: Long ): Long = {
+    time * 1000
+  }
+  
+  def main( args: Array[ String ] ){
+    var argc = args.size
+    var sec = 1
+    if ( 1 <= argc ){
+      sec = Integer.parseInt( args( 0 ) )
+    }
+    var usec = sec * 1000000
+    
+    var count = 0
+    var start_usec = time_usec( System.currentTimeMillis() )
+    breakable {
+      while ( true ){
+        count += 1
+        var end_usec = time_usec( System.currentTimeMillis() )
+        var update_usec = end_usec - start_usec
+        if ( usec <= update_usec ){
+          printf( "count=%d update_usec=%d\n", count, update_usec )
+          break
+        }
+      }
+    }
+  }
+}

data/benchmark/measure/measure_client.rb

@@ -0,0 +1,76 @@
+require "ease_engine"
+
+class BenchmarkApplication < EaseEngine::Application
+  def on_start
+    super
+    
+    EaseEngine::Frame.fps = 60
+    
+    host = ARGV[ 0 ]
+    port = ARGV[ 1 ].to_i
+    @tcp_num = ARGV[ 2 ].to_i
+    @udp_num = ARGV[ 3 ].to_i
+    
+    @tcp_num.times{|i|
+      tcp_socket = EaseEngine::TCPSocket.new( host, port )
+#      EE_LOG_DBG.call "tcp_num=#{i + 1}"
+      add_connect_socket( tcp_socket )
+    }
+    
+    measure_packet = EaseEngine::MeasurePacket.new
+    
+    @udp_num.times{|i|
+      udp_socket = EaseEngine::UDPSocket.new
+#      EE_LOG_DBG.call "udp_num=#{i + 1}"
+      add_socket( udp_socket )
+      measure_packet.start
+      write_packet( udp_socket, measure_packet, 0, host, port )
+    }
+    
+    @measure.check
+    EE_LOG_DBG.call "host=#{host} port=#{port} tcp_num=#{@tcp_num} udp_num=#{@udp_num} watcher.size=#{@watcher.size} update_usec=#{@measure.update_usec}"
+    @measure.start
+    
+    @is_update = ( 0 < @watcher.size )
+    
+    @measure_read_socket = EaseEngine::Measure.new
+  end
+  
+  def on_update
+    if 1000000 <= @measure.check
+      EE_LOG_DBG.call "tcp_num=#{@tcp_num} udp_num=#{@udp_num} watcher.size=#{@watcher.size} update_usec=#{@measure.update_usec} count=#{@measure.count}"
+      
+      @measure.start
+      @is_update = ( 0 < @watcher.size )
+    end
+  end
+  
+  def on_end
+    super
+    
+    @measure_read_socket.check
+    EE_LOG_DBG.call "update_usec=#{@measure_read_socket.update_usec}"
+  end
+  
+  def on_connected_socket( socket )
+    write_packet( socket, EaseEngine::MeasurePacket.new, 0 )
+  end
+  
+  def on_read_socket( socket, packet )
+    send( "on_#{packet.packet_name.gsub( /\./, '_' )}", socket, packet )
+  end
+  
+  def on_EaseEngine_MeasurePacket( socket, packet )
+    if socket.kind_of?( EaseEngine::TCPSocket )
+      @tcp_num -= 1
+    else
+      @udp_num -= 1
+    end
+    
+    EE_LOG_DBG.call "MeasurePacket usec=#{packet.check} #{socket}"
+    remove_socket( socket )
+    
+    @is_update = false if 0 == @watcher.size
+  end
+end
+BenchmarkApplication::run

data/benchmark/measure/measure_server.rb

@@ -0,0 +1,47 @@
+require "ease_engine"
+
+class BenchmarkApplication < EaseEngine::Application
+  def on_start
+    super
+    
+    @is_update = true
+    EaseEngine::Frame.fps = 60
+    
+    host = ARGV[ 0 ]
+    port = ARGV[ 1 ].to_i
+    backlog = ARGV[ 2 ].to_i
+    backlog = Socket::Constants::SOMAXCONN if backlog <= 0
+    
+    @tcp_socket = EaseEngine::TCPServer.new( host, port )
+    @tcp_socket.listen( backlog )
+    add_server_socket( @tcp_socket )
+    
+    @udp_socket = EaseEngine::UDPSocket.new
+    @udp_socket.bind( host, port )
+    add_socket( @udp_socket )
+    
+    EE_LOG_DBG.call "host=#{host} port=#{port} backlog=#{backlog} Socket::Constants::SOMAXCONN=#{Socket::Constants::SOMAXCONN}"
+  end
+  
+  def on_update
+    if 1000000 <= @measure.check
+      EE_LOG_DBG.call "watcher.size=#{@watcher.size} update_usec=#{@measure.update_usec} count=#{@measure.count}"
+      
+      @measure.start
+    end
+  end
+  
+  def on_read_socket( socket, packet )
+    write_packet( socket, packet, 0 )
+  end
+  
+  def on_close_socket( socket )
+    case socket
+    when @tcp_socket
+      EE_LOG_DBG.call "on_close_socket #{socket}"
+    when @udp_socket
+      EE_LOG_DBG.call "on_close_socket #{socket}"
+    end
+  end
+end
+BenchmarkApplication::run

data/benchmark/process.rb

@@ -0,0 +1,3 @@
+require "ease_engine"
+
+p EaseEngine::Process.execute( "ls" )

data/benchmark/tcp/tcp_client.rb

@@ -0,0 +1,45 @@
+require "ease_engine"
+
+class BenchmarkApplication < EaseEngine::Application
+  def on_start
+    super
+    
+    EaseEngine::Frame.fps = 60
+    
+    host = ARGV[ 0 ]
+    port = ARGV[ 1 ].to_i
+    @tcp_num = ARGV[ 2 ].to_i
+    @connected_tcp_num = 0
+    
+    @tcp_num.times{
+      add_connect_socket( EaseEngine::TCPSocket.new( host, port ) )
+    }
+    EE_LOG_DBG.call "host=#{host} port=#{port} tcp_num=#{@tcp_num} watcher.size=#{@watcher.size}"
+    
+    @measure = EaseEngine::Measure.new
+    @measure_update = EaseEngine::Measure.new
+    
+    @is_update = ( 0 < @tcp_num )
+  end
+  
+  def on_connected_socket( socket )
+    @connected_tcp_num += 1
+    
+    @is_update = false if @tcp_num <= @connected_tcp_num
+  end
+  
+  def on_update
+    if 1000000 <= @measure_update.check
+      EE_LOG_DBG.call "update_usec=#{@measure_update.update_usec} count=#{@measure_update.count} tcp_num=#{@tcp_num} connected_tcp_num=#{@connected_tcp_num}"
+      @measure_update.start
+    end
+  end
+  
+  def on_end
+    super
+    
+    @measure.check
+    EE_LOG_DBG.call "update_usec=#{@measure.update_usec}"
+  end
+end
+BenchmarkApplication::run

data/benchmark/tcp/tcp_server.rb

@@ -0,0 +1,40 @@
+require "ease_engine"
+
+class BenchmarkApplication < EaseEngine::Application
+  def on_start
+    super
+    
+    @is_update = true
+    EaseEngine::Frame.fps = 60
+    
+    host = ARGV[ 0 ]
+    port = ARGV[ 1 ].to_i
+    backlog = ARGV[ 2 ].to_i
+    backlog = Socket::Constants::SOMAXCONN if backlog <= 0
+    
+    @tcp_socket = EaseEngine::TCPServer.new( host, port )
+    @tcp_socket.listen( backlog )
+    add_server_socket( @tcp_socket )
+    
+    EE_LOG_DBG.call "host=#{host} port=#{port} backlog=#{backlog} Socket::Constants::SOMAXCONN=#{Socket::Constants::SOMAXCONN}"
+  end
+  
+  def on_update
+    if 1000000 <= @measure.check
+      EE_LOG_DBG.call "watcher.size=#{@watcher.size} update_usec=#{@measure.update_usec} count=#{@measure.count}"
+      @measure.start
+    end
+  end
+  
+  def on_read_socket( socket, packet )
+    remove_socket( socket )
+  end
+  
+  def on_close_socket( socket )
+    case socket
+    when @tcp_socket
+      EE_LOG_DBG.call "on_close_socket #{socket}"
+    end
+  end
+end
+BenchmarkApplication::run

data/benchmark/udp/udp_client.rb

@@ -0,0 +1,84 @@
+require "ease_engine"
+require "./udp_packet"
+
+class BenchmarkApplication < EaseEngine::Application
+  def on_start
+    super
+    
+    EaseEngine::Frame.fps = 60
+    
+    host = ARGV[ 0 ]
+    port = ARGV[ 1 ].to_i
+    udp_num = 1
+    
+    @base_data_array = [
+      0,
+      1,
+      -1,
+      "str",
+      "あいう",
+      0.0,
+      1.5,
+      -1.5,
+      true,
+      false,
+      nil
+    ]
+    
+    base_data_packet = BaseDataPacket.new
+    base_data_packet.array = @base_data_array
+    
+    parent_packet = UDP::ParentPacket.new
+    parent_packet.parent = 0
+    
+    child_packet = UDP::ChildPacket.new
+    child_packet.child = 1
+    
+    grandchild_packet = UDP::GrandchildPacket.new
+    grandchild_packet.grandchild = 2
+    
+    udp_num.times{
+      socket = EaseEngine::UDPSocket.new
+      add_socket( socket )
+      write_packet( socket, base_data_packet, 0, host, port )
+      write_packet( socket, parent_packet, 0, host, port )
+      write_packet( socket, child_packet, 0, host, port )
+      write_packet( socket, grandchild_packet, 0, host, port )
+    }
+    
+    @measure.check
+    EE_LOG_DBG.call "host=#{host} port=#{port} udp_num=#{udp_num} watcher.size=#{@watcher.size} update_usec=#{@measure.update_usec}"
+    @measure.start
+    
+    @is_update = ( 0 < @watcher.size )
+  end
+  
+  def on_end
+    super
+    
+    @measure.check
+    EE_LOG_DBG.call "update_usec=#{@measure.update_usec}"
+  end
+  
+  def on_read_socket( socket, packet )
+    send( "on_#{packet.packet_name.gsub( /\./, '_' )}", socket, packet )
+  end
+  
+  def on_BaseDataPacket( socket, packet )
+    EE_LOG_DBG.call "#{packet.array}"
+    EaseEngine.assert( @base_data_array == packet.array, "#{@base_data_array} != #{packet.array}" )
+  end
+  
+  def on_UDP_ParentPacket( socket, packet )
+    EE_LOG_DBG.call "#{packet}"
+  end
+  
+  def on_UDP_ChildPacket( socket, packet )
+    EE_LOG_DBG.call "#{packet}"
+  end
+  
+  def on_UDP_GrandchildPacket( socket, packet )
+    EE_LOG_DBG.call "#{packet}"
+  end
+end
+BenchmarkApplication::run

data/benchmark/udp/udp_packet.rb

@@ -0,0 +1,40 @@
+require "ease_engine"
+
+class BaseDataPacket < EaseEngine::Packet
+  def initialize
+    super
+    
+    packer :array
+  end
+end
+
+module UDP
+  class ParentPacket < EaseEngine::Packet
+    attr_accessor   :type
+    
+    def initialize
+      super
+      
+      packer :parent
+      @type = "parent"
+    end
+  end
+  
+  class ChildPacket < ParentPacket
+    def initialize
+      super
+      
+      packer :child
+      @type = "child"
+    end
+  end
+  
+  class GrandchildPacket < ChildPacket
+    def initialize
+      super
+      
+      packer :grandchild
+      @type = "grandchild"
+    end
+  end
+end