trema 0.2.2.1 → 0.2.3

data/ruby/trema/action-set-vlan-vid.h

@@ -1,42 +0,0 @@
-/*
- * Author: Nick Karanatsios <nickkaranatsios@gmail.com>
- *
- * Copyright (C) 2008-2012 NEC Corporation
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License, version 2, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-
-#ifndef ACTION_SET_VLAN_VID_H
-#define ACTION_SET_VLAN_VID_H
-
-
-#include "ruby.h"
-
-
-extern VALUE cActionSetVlanVid;
-
-
-void Init_action_set_vlan_vid( void );
-
-
-#endif // ACTION_SET_VLAN_VID_H
-
-
-/*
- * Local variables:
- * c-basic-offset: 2
- * indent-tabs-mode: nil
- * End:
- */

data/ruby/trema/action-strip-vlan.c

@@ -1,81 +0,0 @@
-/*
- * Author: Nick Karanatsios <nickkaranatsios@gmail.com>
- *
- * Copyright (C) 2008-2012 NEC Corporation
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License, version 2, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-
-#include "trema.h"
-#include "ruby.h"
-
-
-extern VALUE mTrema;
-VALUE cActionStripVlan;
-
-
-/*
- * Strips the VLAN tag of a packet.
- *
- * @overload initialize()
- *
- * @return [ActionStripVlan] an object that encapsulates this action.
- */
-static VALUE
-action_strip_vlan_init( VALUE self ) {
-  return self;
-}
-
-
-/*
- * Appends its action(strip VLAN tag) to the list of actions.
- *
- * @return [ActionStripVlan] self
- */
-static VALUE
-action_strip_vlan_append( VALUE self, VALUE action_ptr ) {
-  openflow_actions *actions;
-  Data_Get_Struct( action_ptr, openflow_actions, actions );
-  append_action_strip_vlan( actions );
-  return self;
-}
-
-
-/*
- * (see ActionEnqueue#inspect)
- */
-static VALUE
-action_strip_vlan_inspect( VALUE self ) {
-  char str[ 64 ];
-  sprintf( str, "#<%s>", rb_obj_classname( self ) );
-  return rb_str_new2( str );
-}
-
-
-void
-Init_action_strip_vlan() {
-  cActionStripVlan = rb_define_class_under( mTrema, "ActionStripVlan", rb_cObject );
-  rb_define_method( cActionStripVlan, "initialize", action_strip_vlan_init, 0 );
-  rb_define_method( cActionStripVlan, "append", action_strip_vlan_append, 1 );
-  rb_define_method( cActionStripVlan, "inspect", action_strip_vlan_inspect, 0 );
-}
-
-
-/*
- * Local variables:
- * c-basic-offset: 2
- * indent-tabs-mode: nil
- * End:
- */

data/ruby/trema/action-strip-vlan.h

@@ -1,42 +0,0 @@
-/*
- * Author: Nick Karanatsios <nickkaranatsios@gmail.com>
- *
- * Copyright (C) 2008-2012 NEC Corporation
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License, version 2, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-
-#ifndef ACTION_STRIP_VLAN_H
-#define ACTION_STRIP_VLAN_H
-
-
-#include "ruby.h"
-
-
-extern VALUE cActionStripVlan;
-
-
-void Init_action_strip_vlan( void );
-
-
-#endif // ACTION_STRIP_VLAN_H
-
-
-/*
- * Local variables:
- * c-basic-offset: 2
- * indent-tabs-mode: nil
- * End:
- */

data/ruby/trema/action-vendor.c

@@ -1,121 +0,0 @@
-/*
- * Author: Nick Karanatsios <nickkaranatsios@gmail.com>
- *
- * Copyright (C) 2008-2012 NEC Corporation
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License, version 2, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-
-#include "trema.h"
-#include "ruby.h"
-
-
-extern VALUE mTrema;
-VALUE cActionVendor;
-
-
-/*
- * An action to set vendor specific extensions. 
- *
- * @overload initialize(options={})
- *
- *   @example
- *     ActionVendor.new( :vendor => VENDOR_ID )
- *   @param [Hash] options
- *     the options hash to create this action class instance with.
- *
- *   @option options [Number] vendor
- *     the vendor id this action refers to.
- *
- *   @raise [ArgumentError] if vendor argument is not supplied.
- *   @raise [ArgumentError] if vendor is not an unsigned 32-bit integer.
- *   @raise [TypeError] if options is not a Hash.
- *
- *   @return [ActionVendor] 
- *     an object that encapsulates this action.
- */
-static VALUE
-action_vendor_init( int argc, VALUE *argv, VALUE self ) {
-  VALUE options;
-
-  if ( rb_scan_args( argc, argv, "10", &options ) == 1 ) {
-    Check_Type( options, T_HASH );
-    VALUE vendor;
-    if ( ( vendor = rb_hash_aref( options, ID2SYM( rb_intern( "vendor" ) ) ) ) != Qnil ) {
-      if ( rb_funcall( vendor, rb_intern( "unsigned_32bit?" ), 0 ) == Qfalse ) {
-        rb_raise( rb_eArgError, "Vendor id must be an unsigned 32-bit integer" );
-      }
-      rb_iv_set( self, "@vendor", vendor );
-    }
-  }
-  return self;
-}
-
-
-/*
- * The vendor id of this action.
- *
- * @return [Number] the value of vendor.
- */
-static VALUE
-action_get_vendor( VALUE self ) {
-  return rb_iv_get( self, "@vendor" );
-}
-
-
-/*
- * Appends its action(vendor) to the list of actions.
- *
- * @return [ActionVendor] self
- */
-static VALUE
-action_vendor_append( VALUE self, VALUE action_ptr ) {
-  openflow_actions *actions;
-  uint32_t vendor = ( uint32_t ) NUM2UINT( action_get_vendor( self ) );
-
-  Data_Get_Struct( action_ptr, openflow_actions, actions );
-  append_action_vendor( actions, vendor, NULL );
-  return self;
-}
-
-
-/*
- * (see ActionEnqueue#inspect)
- */
-static VALUE
-action_vendor_inspect( VALUE self ) {
-  uint32_t vendor = ( uint32_t ) NUM2UINT( action_get_vendor( self ) );
-  char str[ 64 ];
-  sprintf( str, "#<%s vendor=%u>", rb_obj_classname( self ), vendor );
-  return rb_str_new2( str );
-}
-
-
-void
-Init_action_vendor() {
-  cActionVendor = rb_define_class_under( mTrema, "ActionVendor", rb_cObject );
-  rb_define_method( cActionVendor, "initialize", action_vendor_init, -1 );
-  rb_define_method( cActionVendor, "vendor", action_get_vendor, 0 );
-  rb_define_method( cActionVendor, "append", action_vendor_append, 1 );
-  rb_define_method( cActionVendor, "inspect", action_vendor_inspect, 0 );
-}
-
-
-/*
- * Local variables:
- * c-basic-offset: 2
- * indent-tabs-mode: nil
- * End:
- */

data/ruby/trema/vendor-request.c

@@ -1,193 +0,0 @@
-/*
- * Author: Nick Karanatsios <nickkaranatsios@gmail.com>
- *
- * Copyright (C) 2008-2012 NEC Corporation
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License, version 2, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-
-#include "trema.h"
-#include "ruby.h"
-
-
-#define VENDOR_ID 0xccddeeff
-
-
-extern VALUE mTrema;
-VALUE cVendorRequest;
-
-
-static VALUE
-vendor_request_alloc( VALUE klass ) {
-  buffer *data = alloc_buffer_with_length( 16 );
-  append_back_buffer( data, 16 );
-  memset( data->data, 'a', 16 );
-  buffer *vendor_request = create_vendor( get_transaction_id(), VENDOR_ID, data );
-  free_buffer( data );
-
-  return Data_Wrap_Struct( klass, NULL, free_buffer, vendor_request );
-}
-
-
-/*
- * Creates a {VendorRequest} instance to facilitate sending of vendor 
- * experimental messages.
- *
- * @overload initialize(options={})
- *
- *   @example
- *     vendor_data = "test".unpack( "C*" ) => [ 116, 101, 115, 116 ]
- *     VendorRequest.new
- *     VendorRequest.new( :vendor_id => 0x3000 )
- *     VendorRequest.new( :vendor_id => 0x3000, :vendor_data => vendor_data )
- *     VendorRequest.new( :vendor_id => 0x3000, :vendor_data => vendor_data, :transaction_id => 123 )
- *
- *   @param [Hash] options
- *     the options to create a message with.
- *
- *   @option options [Number] :transaction_id
- *     Auto-generated transaction_id if not specified.
- *
- *   @option options [Number] :vendor_id
- *     The assigned vendor id defaults to 0xccddeeff if not specified.
- *
- *   @option options [Array] :vendor_data
- *     Fixed 16 bytes of data if not specified. User can set upto 16 bytes of any
- *     vendor specific data.
- *
- *   @raise [ArgumentError] if transaction id is not an unsigned 32-bit integer.
- *   @raise [ArgumentError] if user data is not an array of bytes.
- *   @raise [TypeError] if options is not a hash.
- *
- *   @return [VendorRequest]
- *     an object that encapsulates the +OFPT_VENDOR+ OpenFlow message.
- */
-static VALUE
-vendor_request_init( int argc, VALUE *argv, VALUE self ) {
-  buffer *vendor_request;
-  uint32_t xid = get_transaction_id();
-  uint32_t vendor = VENDOR_ID;
-  VALUE options;
-
-  Data_Get_Struct( self, buffer, vendor_request );
-  if ( rb_scan_args( argc, argv, "01", &options ) == 1 ) {
-    Check_Type( options, T_HASH );
-    VALUE xid_r;
-    if ( ( xid_r = rb_hash_aref( options, ID2SYM( rb_intern( "transaction_id" ) ) ) ) != Qnil ) {
-      if ( rb_funcall( xid_r, rb_intern( "unsigned_32bit?" ), 0 ) == Qfalse ) {
-        rb_raise( rb_eArgError, "Transaction ID must be an unsigned 32-bit integer" );
-      }
-      xid = ( uint32_t ) NUM2UINT( xid_r );
-    }
-    VALUE vendor_r;
-    if ( ( vendor_r = rb_hash_aref( options, ID2SYM( rb_intern( "vendor_id" ) ) ) ) != Qnil ) {
-      vendor = ( uint32_t ) NUM2UINT( vendor_r );
-    } 
-    VALUE data_r;
-    if ( ( data_r = rb_hash_aref( options, ID2SYM( rb_intern( "vendor_data" ) ) ) ) != Qnil ) {
-      if ( TYPE( data_r ) == T_ARRAY ) {
-        uint8_t *buf;
-        uint16_t data_length = ( uint16_t ) ( vendor_request->length - sizeof( struct ofp_vendor_header ) );
-        int32_t i;
-        buf = ( uint8_t * ) ( ( char * ) vendor_request->data + sizeof( struct ofp_vendor_header ) );
-        memset( buf, 0, data_length );
-        for ( i = 0; i < data_length && i < RARRAY( data_r )->len; i++ ) {
-          buf[ i ] = ( uint8_t ) FIX2INT( RARRAY_PTR( data_r )[ i ] );
-        }
-      }
-      else {
-        rb_raise( rb_eTypeError, "Vendor data must be specified as an array of bytes" );
-      }
-    }
-  }
-  ( ( struct ofp_header * ) ( vendor_request->data ) )->xid = htonl( xid );
-  ( ( struct ofp_vendor_header * ) ( vendor_request->data ) )->vendor = htonl( vendor );
-  return self;
-}
-
-
-/*
- * Transaction ids, message sequence numbers matching requests to replies.
- *
- * @return [Number] the value of transaction id.
- */
-static VALUE
-vendor_request_transaction_id( VALUE self ) {
-  buffer *vendor_request;
-  Data_Get_Struct( self, buffer, vendor_request );
-  uint32_t xid = ntohl( ( ( struct ofp_header * ) ( vendor_request->data ) )->xid );
-  return UINT2NUM( xid );
-}
-
-
-/*
- * A 32-bit value that uniquely identifies the vendor.
- *
- * @return [Number] the value of vendor id.
- */
-static VALUE
-vendor_request_vendor( VALUE self ) {
-  buffer *vendor_request;
-  Data_Get_Struct( self, buffer, vendor_request );
-  uint32_t vendor = ntohl( ( ( struct ofp_vendor_header * ) ( vendor_request->data ) )->vendor );
-  return UINT2NUM( vendor );
-}
-
-
-/*
- * Vendor specific data payload.
- *
- * @return [Array] an array of data payload bytes.
- * @return [nil] vendor specific data not found.
- */
-static VALUE
-vendor_request_data( VALUE self ) {
-  VALUE data_arr;
-  buffer *vendor_request;
-  uint8_t *buf;
-  uint32_t i;
-
-  Data_Get_Struct( self, buffer, vendor_request );
-  uint16_t data_length = ( uint16_t ) ( vendor_request->length - sizeof ( struct ofp_vendor_header ) );
-
-  if ( data_length > 0 ) {
-    data_arr = rb_ary_new2( data_length );
-    buf = ( uint8_t * ) ( ( char * ) vendor_request->data + sizeof ( struct ofp_vendor_header ) );
-    for ( i = 0; i < data_length; i++ ) {
-      rb_ary_push( data_arr, INT2FIX( buf[i] ) );
-    }
-    return data_arr;
-  }
-  return Qnil;
-}
-
-
-void
-Init_vendor_request() {
-  cVendorRequest = rb_define_class_under( mTrema, "VendorRequest", rb_cObject );
-  rb_define_alloc_func( cVendorRequest, vendor_request_alloc );
-  rb_define_method( cVendorRequest, "initialize", vendor_request_init, -1 );
-  rb_define_method( cVendorRequest, "transaction_id", vendor_request_transaction_id, 0 );
-  rb_define_method( cVendorRequest, "vendor", vendor_request_vendor, 0 );
-  rb_define_method( cVendorRequest, "data", vendor_request_data, 0 );
-}
-
-
-/*
- * Local variables:
- * c-basic-offset: 2
- * indent-tabs-mode: nil
- * End:
- */