net-proto 1.0.1 → 1.0.3

data/CHANGES

@@ -1,3 +1,13 @@
+== 1.0.3 - 13-Aug-2007
+* Fix for OS X (whining about malloced pointer).
+* Added a Rakefile along with tasks for installation and testing.
+* Major internal reorganization.
+* Fixed Proto::VERSION test.
+
+== 1.0.2 - 18-Nov-2006
+* Updated the README, gemspec and netproto.txt files.
+* No code changes.
+
 == 1.0.1 - 30-Jun-2006
 * Added rdoc to the source files.
 * Added a gemspec.

data/MANIFEST

@@ -1,17 +1,13 @@
-CHANGES
-MANIFEST
-README
-extconf.rb
-net-proto.gemspec
-
-doc/netproto.txt
-
-examples/test_proto.rb
-
-lib/version.h
-lib/net/generic.c
-lib/net/linux.c
-lib/net/sunos.c 
-lib/net/windows.c
-
-test/tc_netproto.rb
+* CHANGES
+* MANIFEST
+* README
+* Rakefile
+* net-proto.gemspec
+* doc/netproto.txt
+* examples/test_proto.rb
+* ext/version.h
+* ext/generic/generic.c
+* ext/linux/linux.c
+* ext/sunos/sunos.c 
+* ext/windows/windows.c
+* test/tc_netproto.rb

data/README

@@ -1,25 +1,30 @@
 == Description
-The net-proto package provides the getprotobyname(), getprotobynumber() and
-the getprotoent() methods for Ruby.
+The net-proto package provides a way to get protocol information.
+
+This is really just a wrapper for the getprotobyname(), getprotobynumber() and
+the getprotoent() functions.
 
 == Prerequisites
 Ruby 1.8.0 or later.
 
 == Installation
-ruby extconf.rb
-make
-ruby test\tc_netproto.rb (optional)
-make site-install
+rake test (optional)
+rake install (non-gem) OR rake install_gem (gem)
 
 == Notes
-The net-proto package uses reentrant code for sunos and linux.  Otherwise, the
+The net-proto package uses reentrant code for sunos and linux. Otherwise, the
 generic form of the functions are used (which may be reentrant by default
 anway - check the man pages on your platform).
 
-The Proto.getprotoent method is not supported on Win32 platforms.
+The Proto.getprotoent method is not supported on MS Windows because the
+underlying function isn't supported by the MS Windows API.
 
 == Why should I use this?
-Ruby does define a predefined set of constants in socket.c in the general form
-of IPPROTO_XXX, Y.  However, using constants in this fashion can be unreliable
+Ruby has a predefined set of constants in socket.c in the general form of
+IPPROTO_XXX, Y.  However, using constants in this fashion can be unreliable
 because it's easy to define your own protocols (I set 'echo' to 7, for
 example), or to modify/delete entries in /etc/protocols.
+
+== Further Documentation
+See the 'netproto.txt' file under the 'doc' directory for more details.  There
+is also an example under the 'examples' directory.

data/doc/netproto.txt

@@ -20,7 +20,7 @@
    	
 == Constants
 VERSION
-	The current version number of this package, returned as a String.
+   The current version number of this package, returned as a String.
 	
 == Class Methods
 Proto.getprotobyname(name)
@@ -37,8 +37,8 @@ Proto.getprotoent{ |struct| ... }
    Proto::ProtoStruct.  In non-block form, returns an array of
    Proto::ProtoStruct objects.
 	
-	The fields are 'name' (a String), 'aliases' (an Array of String's,
-	though often only one element), and 'proto' (a Fixnum).
+   The fields are 'name' (a String), 'aliases' (an Array of String's,
+   though often only one element), and 'proto' (a Fixnum).
 
    This method is NOT supported on MS Windows.
     
@@ -53,8 +53,8 @@ Proto.getprotoent{ |struct| ... }
    separate method calls.  Rather, these are called internally by the various
    methods, except on Windows, which does not support them.
 
-   The 'getprotoent()' method is not supported on the Win32 platform.  It's
-   not part of the API as of Windows XP.
+   The 'getprotoent()' method is not supported on the MS Windows platform.
+   It's not part of the API as of Windows XP.
    
 == Known Bugs
    None that I'm aware of.  Please log any bug reports on the project page
@@ -62,21 +62,21 @@ Proto.getprotoent{ |struct| ... }
 	
 == Future Plans
    Use the asynchronous calls (WSAAsyncGetProtoByName and
-   WSAAsyncGetProtoByNumber) on Win32 systems.
+   WSAAsyncGetProtoByNumber) on MS Windows systems.
 	
 == Copyright
-	(C) 2003-2005 Daniel J. Berger
-	All rights reserved.
+   (C) 2003-2007 Daniel J. Berger
+   All rights reserved.
 	
 == Warranty
-	This package is provided "as is" and without any express or
-	implied warranties, including, without limitation, the implied
-	warranties of merchantability and fitness for a particular purpose.
+   This package is provided "as is" and without any express or
+   implied warranties, including, without limitation, the implied
+   warranties of merchantability and fitness for a particular purpose.
 	
 == License
-	Ruby's
+   Ruby's
 	
 == Author
-	Daniel J. Berger
-	djberg96 at yahoo dot com
-	rubyhacker1/imperator on IRC (Freenode)
+   Daniel J. Berger
+   djberg96 at gmail dot com
+   imperator on IRC (Freenode)

data/ext/extconf.rb

@@ -0,0 +1,16 @@
+require 'mkmf'
+require 'fileutils'
+
+case RUBY_PLATFORM
+   when /sunos|solaris/i
+      have_library('socket')
+      FileUtils.cp('sunos/sunos.c', 'proto.c')
+   when /linux/i
+      FileUtils.cp('linux/linux.c', 'proto.c')
+   when /win32|windows|dos|mingw|cygwin/i
+      FileUtils.cp('windows/windows.c', 'proto.c')
+   else
+      FileUtils.cp('generic/generic.c', 'proto.c')
+end
+
+create_makefile('net/proto')

data/ext/generic/generic.c

@@ -0,0 +1,144 @@
+/*******************************************************
+ * proto.c (generic.c)
+ *******************************************************/
+#include <ruby.h>
+#include <version.h>
+#include <netdb.h>
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+VALUE sProto;
+
+/*
+ * call-seq:
+ *    Proto.getprotobyname(name)
+ *
+ * Given a protocol string, returns the corresponding number, or nil if not
+ * found.
+*/
+static VALUE np_getprotobyname(VALUE klass, VALUE v_proto_name){
+   struct protoent* p;
+   VALUE v_proto_num = Qnil;
+   
+   SafeStringValue(v_proto_name);
+
+   setprotoent(0);
+   p = getprotobyname(StringValuePtr(v_proto_name));
+
+   if(p)
+      v_proto_num = INT2FIX(p->p_proto);
+      
+   endprotoent();
+
+   return v_proto_num;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotobynumber(num)
+ *
+ * Given a protocol number, returns the corresponding string, or nil if not
+ * found.
+ */
+static VALUE np_getprotobynumber(VALUE klass, VALUE v_proto_num){
+   struct protoent* p;
+   VALUE v_proto_name = Qnil;
+
+   setprotoent(0);
+   p = getprotobynumber(NUM2INT(v_proto_num));
+   
+   if(p)
+      v_proto_name = rb_str_new2(p->p_name);
+      
+   endprotoent();
+
+   return v_proto_name;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotoent
+ *    Proto.getprotoent{ |struct| ... }
+ *
+ * In block form, yields each entry from /etc/protocols as a struct of type
+ * Proto::ProtoStruct.  In non-block form, returns an array of
+ * Proto::ProtoStruct objects.
+	
+ * The fields are 'name' (a String), 'aliases' (an Array of String's,
+ * though often only one element), and 'proto' (a Fixnum).
+*/
+static VALUE np_getprotoent(VALUE klass){
+   struct protoent* p;
+   VALUE v_aliases = Qnil;
+   VALUE v_array   = Qnil;
+   VALUE v_struct  = Qnil;
+
+   p = malloc(sizeof(struct protoent));
+   
+   if(!rb_block_given_p())
+      v_array = rb_ary_new();
+      
+   setprotoent(0);
+
+   while((p = getprotoent())){
+      v_aliases = rb_ary_new();
+      
+#ifdef __MACH__ or #ifdef __APPLE__
+      char **aliases = p->p_aliases;
+      while(*aliases){
+         rb_ary_push(v_aliases, rb_str_new2(*aliases));
+         aliases++;
+      }
+#else
+      while(*p->p_aliases){
+         rb_ary_push(v_aliases, rb_str_new2(*p->p_aliases));
+         (void)p->p_aliases++;
+      }
+#endif
+      
+      v_struct = rb_struct_new(sProto,
+         rb_str_new2(p->p_name),
+         v_aliases,
+         INT2FIX(p->p_proto)
+      );
+
+      if(rb_block_given_p())
+         rb_yield(v_struct);
+      else
+         rb_ary_push(v_array, v_struct);
+   }
+
+   free(p);
+   endprotoent();
+   
+   return v_array; /* nil if a block is given */
+}
+
+void Init_proto(){
+   VALUE mNet, cProto;
+
+   /* The Net module serves only as a namespace */
+   mNet = rb_define_module("Net");
+
+   /* The Proto class encapsulates network protocol information */
+   cProto = rb_define_class_under(mNet, "Proto", rb_cObject);
+
+   /* Structure definitions */
+   sProto = rb_struct_define("ProtoStruct", "name", "aliases", "proto", 0);
+
+   /* Class methods */
+   rb_define_singleton_method(cProto, "getprotobyname", np_getprotobyname, 1);
+   rb_define_singleton_method(cProto, "getprotobynumber", np_getprotobynumber, 1);
+   rb_define_singleton_method(cProto, "getprotoent", np_getprotoent, 0);
+
+   /* 1.0.3: The version of this package. This is a string, not a number */
+   rb_define_const(cProto, "VERSION", rb_str_new2(NET_PROTO_VERSION));
+}
+
+#ifdef __cplusplus
+}
+#endif

data/ext/linux/linux.c

@@ -0,0 +1,153 @@
+/*******************************************************
+ * proto.c (linux.c)
+ *******************************************************/
+#include <ruby.h>
+#include <version.h>
+#include <netdb.h>
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+#define BUF_SIZE 8192
+
+VALUE sProto;
+
+/*
+ * call-seq:
+ *    Proto.getprotobyname(name)
+ *
+ * Given a protocol string, returns the corresponding number, or nil if not
+ * found.
+*/
+static VALUE np_getprotobyname(VALUE klass, VALUE v_proto_name){
+   struct protoent* p;
+   char buffer[BUF_SIZE];
+   VALUE v_proto_num = Qnil;
+   
+   SafeStringValue(v_proto_name);
+
+   p = malloc(sizeof(struct protoent));
+
+   setprotoent(0);
+   getprotobyname_r(StringValuePtr(v_proto_name), p, buffer, BUF_SIZE, &p);
+   
+   if(p){
+      v_proto_num = INT2FIX(p->p_proto);
+      free(p);
+   }  
+   
+   endprotoent();
+   return v_proto_num;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotobynumber(num)
+ *
+ * Given a protocol number, returns the corresponding string, or nil if not
+ * found.
+ */
+
+static VALUE np_getprotobynumber(VALUE klass, VALUE v_proto_num){
+   struct protoent* p;
+   char buffer[BUF_SIZE];
+   char* proto_name;
+   VALUE v_proto_name = Qnil;
+
+   p = malloc(sizeof(struct protoent));
+
+   setprotoent(0);
+   getprotobynumber_r(NUM2INT(v_proto_num), p, buffer, BUF_SIZE, &p);
+
+   if(p){
+      v_proto_name = rb_str_new2(proto_name = p->p_name);
+      free(p);
+   }
+   
+   endprotoent();
+   return v_proto_name;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotoent
+ *    Proto.getprotoent{ |struct| ... }
+ *
+ * In block form, yields each entry from /etc/protocols as a struct of type
+ * Proto::ProtoStruct.  In non-block form, returns an array of
+ * Proto::ProtoStruct objects.
+	
+ * The fields are 'name' (a String), 'aliases' (an Array of String's,
+ * though often only one element), and 'proto' (a Fixnum).
+*/
+static VALUE np_getprotoent(VALUE klass){
+   struct protoent* p;
+   struct protoent* q;
+   char buffer[BUF_SIZE];
+   VALUE v_alias_array = Qnil;
+   VALUE v_array = Qnil;
+   VALUE v_struct = Qnil;
+
+   p = malloc(sizeof(struct protoent));
+   q = malloc(sizeof(struct protoent));
+   
+   if(!rb_block_given_p())
+      v_array = rb_ary_new();
+      
+   setprotoent(0);
+
+   while(!getprotoent_r(p, buffer, BUF_SIZE, &q)){
+      v_alias_array = rb_ary_new();
+
+      while((*p->p_aliases)){
+         rb_ary_push(v_alias_array, rb_str_new2(*p->p_aliases));
+         (void)*p->p_aliases++;
+      }
+      
+      v_struct = rb_struct_new(sProto,
+         rb_str_new2(p->p_name),
+         v_alias_array,
+         INT2FIX(p->p_proto)
+      );
+         
+      if(rb_block_given_p())
+         rb_yield(v_struct);
+      else
+         rb_ary_push(v_array, v_struct);
+   }
+
+   free(p);
+   free(q);
+   
+   endprotoent();
+   
+   return v_array; /* nil if a block was given */
+}
+
+void Init_proto(){
+   VALUE mNet, cProto;
+
+   /* The Net module serves as a namespace only */
+   mNet = rb_define_module("Net");
+
+   /* The Proto class encapsulates network protocol information */
+   cProto = rb_define_class_under(mNet, "Proto", rb_cObject);
+
+   /* Structure definitions */
+   sProto = rb_struct_define("ProtoStruct", "name", "aliases", "proto", 0);
+
+   /* Class methods */
+   rb_define_singleton_method(cProto, "getprotobyname", np_getprotobyname, 1);
+   rb_define_singleton_method(cProto, "getprotobynumber", np_getprotobynumber, 1);
+   rb_define_singleton_method(cProto, "getprotoent", np_getprotoent, 0);
+
+   /* 1.0.3: The version of this package. This is a string, not a number */
+   rb_define_const(cProto, "VERSION", rb_str_new2(NET_PROTO_VERSION));
+}
+
+#ifdef __cplusplus
+}
+#endif

data/ext/sunos/sunos.c

@@ -0,0 +1,137 @@
+/*******************************************************
+ * proto.c (sunos.c)
+ *******************************************************/
+#include <ruby.h>
+#include <version.h>
+#include <netdb.h>
+#include <string.h>
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+#define BUF_SIZE 8192
+
+VALUE sProto;
+
+/*
+ * call-seq:
+ *    Proto.getprotobyname(name)
+ *
+ * Given a protocol string, returns the corresponding number, or nil if not
+ * found.
+*/
+static VALUE np_getprotobyname(VALUE klass, VALUE v_proto_name){
+   struct protoent p;
+   char buffer[BUF_SIZE];
+   VALUE v_proto_num = Qnil;
+   
+   SafeStringValue(v_proto_name);
+
+   setprotoent(0);
+   
+   if(getprotobyname_r(StringValuePtr(v_proto_name),&p,buffer,BUF_SIZE) != NULL)
+      v_proto_num = INT2FIX(p.p_proto);
+
+   endprotoent();
+
+   return v_proto_num;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotobynumber(num)
+ *
+ * Given a protocol number, returns the corresponding string, or nil if not
+ * found.
+ */
+static VALUE np_getprotobynumber(VALUE klass, VALUE v_proto_num){
+   struct protoent p;
+   char buffer[BUF_SIZE];
+   VALUE v_proto_name = Qnil;
+
+   setprotoent(0);
+   
+   if(getprotobynumber_r(NUM2INT(v_proto_num),&p,buffer,BUF_SIZE) != NULL)
+      v_proto_name = rb_str_new2(p.p_name);
+
+   endprotoent();
+
+   return v_proto_name;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotoent
+ *    Proto.getprotoent{ |struct| ... }
+ *
+ * In block form, yields each entry from /etc/protocols as a struct of type
+ * Proto::ProtoStruct.  In non-block form, returns an array of
+ * Proto::ProtoStruct objects.
+	
+ * The fields are 'name' (a String), 'aliases' (an Array of String's,
+ * though often only one element), and 'proto' (a Fixnum).
+*/
+static VALUE np_getprotoent(){
+   struct protoent p;
+   char buffer[BUF_SIZE];
+   VALUE v_alias_array = Qnil;
+   VALUE v_array = Qnil;
+   VALUE v_struct = Qnil;
+   
+   if(!rb_block_given_p())
+   	v_array = rb_ary_new();
+
+   setprotoent(0);
+
+   while(getprotoent_r(&p, buffer, BUF_SIZE)){
+      v_alias_array = rb_ary_new();
+      
+      while(*p.p_aliases){
+         rb_ary_push(v_alias_array ,rb_str_new2(*p.p_aliases));
+         (void)p.p_aliases++;
+      }
+      
+      v_struct = rb_struct_new(sProto,
+      	rb_str_new2(p.p_name),
+      	v_alias_array,
+      	INT2FIX(p.p_proto)
+      );
+
+      if(rb_block_given_p())
+         rb_yield(v_struct);
+      else
+         rb_ary_push(v_array, v_struct);
+   }
+
+   endprotoent();
+
+   return v_array; /* nil unless a block is given */
+}
+
+void Init_proto()
+{
+   VALUE mNet, cProto;
+
+   /* The Net module serves only as a namespace */
+   mNet = rb_define_module("Net");
+
+   /* The Proto class encapsulates information associated for network protocol entries */
+   cProto = rb_define_class_under(mNet, "Proto", rb_cObject);
+
+   /* Structure definitions */
+   sProto = rb_struct_define("ProtoStruct", "name", "aliases", "proto", 0);
+
+   /* Class methods */
+   rb_define_singleton_method(cProto, "getprotobyname", np_getprotobyname,1);
+   rb_define_singleton_method(cProto, "getprotobynumber", np_getprotobynumber,1);
+   rb_define_singleton_method(cProto, "getprotoent", np_getprotoent,0);
+
+   /* 1.0.3: The version of this package. This a string, not a number */
+   rb_define_const(cProto, "VERSION", rb_str_new2(NET_PROTO_VERSION));
+}
+
+#ifdef __cplusplus
+}
+#endif

data/{lib → ext}/version.h

@@ -1,2 +1,2 @@
 /* version.h - there can be only one */
-#define NET_PROTO_VERSION "1.0.1"
+#define NET_PROTO_VERSION "1.0.3"

data/ext/windows/windows.c

@@ -0,0 +1,73 @@
+/***********************
+ * proto.c (windows.c)
+ ***********************/
+#include <ruby.h>
+#include <version.h>
+#include <windows.h>
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+/*
+ * call-seq:
+ *    Proto.getprotobyname(name)
+ *
+ * Given a protocol string, returns the corresponding number, or nil if not
+ * found.
+*/
+static VALUE np_getprotobyname(VALUE klass, VALUE rbProtoName){
+   struct protoent* p;
+   VALUE v_proto_num = Qnil;
+
+   SafeStringValue(rbProtoName);
+   p = getprotobyname(StringValuePtr(rbProtoName));
+   
+   if(p)
+      v_proto_num = INT2FIX(p->p_proto);
+
+   return v_proto_num;
+}
+
+/*
+ * call-seq:
+ *    Proto.getprotobynumber(num)
+ *
+ * Given a protocol number, returns the corresponding string, or nil if not
+ * found.
+ */
+static VALUE np_getprotobynumber(VALUE klass, VALUE v_proto_num)
+{
+   struct protoent* p;
+   VALUE v_proto_name = Qnil;
+
+   p = getprotobynumber(NUM2INT(v_proto_num));
+
+   if(p)
+      v_proto_name = rb_str_new2(p->p_name);
+
+   return v_proto_name;
+}
+
+void Init_proto()
+{
+   VALUE mNet, cProto;
+   
+   /* The Net module serves only as a namespace */
+   mNet = rb_define_module("Net");
+   
+   /* The Proto class encapsulates network protocol information */
+   cProto = rb_define_class_under(mNet, "Proto", rb_cObject);
+
+   /* Class Methods */
+   rb_define_singleton_method(cProto,"getprotobyname",np_getprotobyname,1);
+   rb_define_singleton_method(cProto,"getprotobynumber",np_getprotobynumber,1);
+
+   /* 1.0.3: The version of this package. This is a string, not a number */
+   rb_define_const(cProto, "VERSION", rb_str_new2(NET_PROTO_VERSION));
+}
+
+#ifdef __cplusplus
+}
+#endif

data/test/tc_netproto.rb

@@ -1,32 +1,9 @@
-############################################
+###########################################################################
 # tc_netproto.rb
 #
-# Test suite for net-proto - all platforms.
-############################################
-base = File.basename(Dir.pwd)
-
-if base == "test" || base =~ /net-proto.*/
-   require "ftools"
-   Dir.chdir("..") if base == "test"
-   Dir.mkdir("net") unless File.exists?("net")
-   	  	
-   extension = ".so"
-   extension = ".sl" if RUBY_PLATFORM =~ /hpux/i
-   extension = ".bundle" if RUBY_PLATFORM =~ /darwin|powerpc/i
-	
-   proto_file = "proto" + extension
-
-   if File.exist?(proto_file)
-      File.copy(proto_file,"net")
-   else
-      puts "No proto#{extenstion} file found."
-      puts "Please run extconf.rb and make first."
-      exit!
-   end
-	$LOAD_PATH.unshift(Dir.pwd)
-   Dir.chdir("test") rescue nil
-end
-
+# Test suite for net-proto - all platforms. This test suite should be run
+# via the 'rake test' task.
+###########################################################################
 require "net/proto"
 require "test/unit"
 include Net
@@ -44,7 +21,7 @@ class TC_Net_Proto < Test::Unit::TestCase
    end
 	
    def test_version
-      assert_equal("1.0.1", Proto::VERSION)
+      assert_equal("1.0.3", Proto::VERSION)
    end
 
    def test_getprotobynumber

metadata

@@ -1,10 +1,10 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.0
+rubygems_version: 0.9.4
 specification_version: 1
 name: net-proto
 version: !ruby/object:Gem::Version 
-  version: 1.0.1
-date: 2006-06-30 00:00:00 -06:00
+  version: 1.0.3
+date: 2007-08-13 00:00:00 -06:00
 summary: The net-proto package provides the getprotobyname(), getprotobynumber() and the getprotoent() methods for Ruby.
 require_paths: 
 - lib
@@ -31,12 +31,19 @@ authors:
 files: 
 - doc/netproto.txt
 - test/tc_netproto.rb
+- ext/extconf.rb
+- ext/version.h
+- ext/generic
+- ext/generic/generic.c
+- ext/linux
+- ext/linux/linux.c
+- ext/sunos
+- ext/sunos/sunos.c
+- ext/windows
+- ext/windows/windows.c
 - CHANGES
-- MANIFEST
 - README
-- extconf.rb
-- lib/version.h
-- lib/net/sunos.c
+- MANIFEST
 test_files: 
 - test/tc_netproto.rb
 rdoc_options: []
@@ -44,10 +51,12 @@ rdoc_options: []
 extra_rdoc_files: 
 - CHANGES
 - README
+- MANIFEST
+- doc/netproto.txt
 executables: []
 
 extensions: 
-- extconf.rb
+- ext/extconf.rb
 requirements: []
 
 dependencies: []

data/extconf.rb

@@ -1,30 +0,0 @@
-################################
-# extconf.rb file for net-proto
-################################
-require "mkmf"
-require "ftools"
-
-##################################################
-# Use the appropriate .c file, based on platform
-##################################################
-c_file = nil
-
-case RUBY_PLATFORM
-   when /win32|windows|mingw|cygwin/i
-      c_file = "lib/net/windows.c"
-   when /sunos|solaris/i
-      c_file = "lib/net/sunos.c"
-      have_library("socket")
-   when /linux/i
-      c_file = "lib/net/linux.c"
-   else
-      c_file = "lib/net/generic.c"
-end
-
-File.delete("proto.c") if File.exists?("proto.c")
-File.delete("version.h") if File.exists?("version.h")
-
-File.copy(c_file, "proto.c")
-File.copy("lib/version.h",".")
-
-create_makefile("net/proto")

data/lib/net/sunos.c

@@ -1,136 +0,0 @@
-/*******************************************************
- * proto.c (sunos.c)
- *******************************************************/
-#include "ruby.h"
-#include "version.h"
-#include <netdb.h>
-#include <string.h>
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-#define BUF_SIZE 8192
-
-VALUE sProto;
-
-/*
- * call-seq:
- *    Proto.getprotobyname(name)
- *
- * Given a protocol string, returns the corresponding number, or nil if not
- * found.
-*/
-static VALUE np_getprotobyname(VALUE klass, VALUE rbProtoName){
-   struct protoent p;
-   char buffer[BUF_SIZE];
-   VALUE rbProtoNum = Qnil;
-   
-   SafeStringValue(rbProtoName);
-
-   setprotoent(0);
-   
-   if(getprotobyname_r(StringValuePtr(rbProtoName),&p,buffer,BUF_SIZE) != NULL)
-		rbProtoNum = INT2FIX(p.p_proto);
-
-   endprotoent();
-
-	return rbProtoNum;
-}
-
-/*
- * call-seq:
- *    Proto.getprotobynumber(num)
- *
- * Given a protocol number, returns the corresponding string, or nil if not
- * found.
- */
-static VALUE np_getprotobynumber(VALUE klass, VALUE rbProtoNum){
-   struct protoent p;
-   char buffer[BUF_SIZE];
-   VALUE rbProtoName = Qnil;
-
-   setprotoent(0);
-   
-   if(getprotobynumber_r(NUM2INT(rbProtoNum),&p,buffer,BUF_SIZE) != NULL)
-      rbProtoName = rb_str_new2(p.p_name);
-
-   endprotoent();
-
-	return rbProtoName;
-}
-
-/*
- * call-seq:
- *    Proto.getprotoent
- *    Proto.getprotoent{ |struct| ... }
- *
- * In block form, yields each entry from /etc/protocols as a struct of type
- * Proto::ProtoStruct.  In non-block form, returns an array of
- * Proto::ProtoStruct objects.
-	
- * The fields are 'name' (a String), 'aliases' (an Array of String's,
- * though often only one element), and 'proto' (a Fixnum).
-*/
-static VALUE np_getprotoent(){
-   struct protoent p;
-   char buffer[BUF_SIZE];
-   VALUE rbAliasArray = Qnil;
-   VALUE rbArray = Qnil;
-   VALUE rbStruct = Qnil;
-   
-   if(!rb_block_given_p())
-   	rbArray = rb_ary_new();
-
-   setprotoent(0);
-
-   while(getprotoent_r(&p, buffer, BUF_SIZE)){
-      rbAliasArray = rb_ary_new();
-      
-      while(*p.p_aliases){
-         rb_ary_push(rbAliasArray ,rb_str_new2(*p.p_aliases));
-         (void)p.p_aliases++;
-      }
-      
-      rbStruct = rb_struct_new(sProto,
-      	rb_str_new2(p.p_name),
-      	rbAliasArray,
-      	INT2FIX(p.p_proto)
-      );
-
-      if(rb_block_given_p()){
-         rb_yield(rbStruct);
-      }
-      else{
-         rb_ary_push(rbArray, rbStruct);
-      }
-   }
-
-   endprotoent();
-
-	return rbArray; /* nil unless a block is given */
-}
-
-void Init_proto()
-{
-   /* Module and class definitions */
-   VALUE mNet, cProto;
-   mNet = rb_define_module("Net");
-   cProto = rb_define_class_under(mNet,"Proto",rb_cObject);
-
-   /* Structure definitions */
-   sProto = rb_struct_define("ProtoStruct","name","aliases","proto",0);
-
-   /* Class methods */
-   rb_define_singleton_method(cProto,"getprotobyname",np_getprotobyname,1);
-   rb_define_singleton_method(cProto,"getprotobynumber",np_getprotobynumber,1);
-   rb_define_singleton_method(cProto,"getprotoent",np_getprotoent,0);
-
-   /* Constants */
-   rb_define_const(cProto,"VERSION",rb_str_new2(NET_PROTO_VERSION));
-}
-
-#ifdef __cplusplus
-}
-#endif