sys-host 0.6.1 → 0.6.2

data/ext/sunos/sunos.c

@@ -1,242 +0,0 @@
-/*****************************************************************
- * sunos.c (host.c) - Solaris specific version
- *
- * Author: Daniel Berger
- *****************************************************************/
-#include "ruby.h"
-#include "constants.h"
-#include <unistd.h>
-#include <netdb.h>
-
-#ifndef HAVE_INET_NTOP
-
-#ifndef _SYS_TYPES_H
-#include <sys/types.h>
-#endif
-
-#ifndef _SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-
-#ifndef _NETINET_IN_H
-#include <netinet/in.h>
-#endif
-
-#endif
-
-#include <arpa/inet.h>
-
-#define MAXBUF 2048
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-VALUE cHostError, sHostInfo;
-
-/*
- * Sys::Host.hostname
- *
- * Returns the hostname of the current machine.
- */
-static VALUE host_hostname()
-{
-   char host_name[MAXHOSTNAMELEN];
-
-   if(gethostname(host_name, MAXHOSTNAMELEN) != 0)
-      rb_raise(cHostError, "gethostname() call failed");
-
-   return rb_str_new2(host_name);
-}
-
-#ifdef HAVE_GETHOSTID
-/*
- * Sys::Host.host_id
- *
- * Returns the host id of the current machine.
- */
-static VALUE host_host_id(){
-   return ULL2NUM(gethostid());
-}
-#endif
-
-/*
- * Sys::Host.ip_addr
- *
- * Returns an array of IP addresses associated with the current hostname.
- */
-static VALUE host_ip_addr()
-{
-   char host_name[MAXHOSTNAMELEN];
-   struct hostent* hp;
-   VALUE v_addr = rb_ary_new();
-#ifndef HAVE_INET_NTOP
-   struct in_addr ipa;
-#endif
-
-   if(gethostname(host_name, MAXHOSTNAMELEN) != 0)
-      rb_raise(cHostError, "gethostname() call failed");
-
-#ifdef HAVE_GETHOSTBYNAME_R
-{
-   char buf[HOSTENT_BUF];
-   struct hostent hp_buf;
-   int err;
-   hp = gethostbyname_r(host_name, &hp_buf, buf, HOSTENT_BUF, &err);
-}
-#else
-   hp = gethostbyname(host_name);
-#endif
-
-   if(!hp)
-      rb_raise(cHostError, "gethostbyname() call failed");
-
-#ifdef HAVE_INET_NTOP
-   char str[INET_ADDRSTRLEN];
-   while(*hp->h_addr_list){
-      rb_ary_push(
-         v_addr,
-         rb_str_new2(
-            inet_ntop(hp->h_addrtype, *hp->h_addr_list, str, INET_ADDRSTRLEN)
-         )
-      );
-      *hp->h_addr_list++;
-   }
-#else
-   int n;
-   for(n = 0; hp->h_addr_list[n] != NULL; n++){
-      memcpy(&ipa.s_addr, hp->h_addr_list[n], hp->h_length);
-      rb_ary_push(v_addr, rb_str_new2(inet_ntoa(ipa)));
-   }
-#endif
-
-   return v_addr;
-}
-
-/*
- * Sys::Host.info
- * Sys::Host.info{ |i| ... }
- *
- * Yields a HostInfo struct containing various bits of information about
- * the local machine for each entry in the hosts table.  In non-block form,
- * returns an array of HostInfo structs.
- *
- * The Struct::HostInfo struct contains 5 fields:
- *
- * * name      (String)
- * * aliases   (Array)
- * * addr_type (Integer)
- * * length    (Integer)
- * * addr_list (Array)
- */
-static VALUE host_info(VALUE klass){
-   VALUE v_hostinfo;
-   VALUE v_addr    = rb_ary_new();
-   VALUE v_array   = rb_ary_new();
-   VALUE v_aliases = rb_ary_new();
-
-   sethostent(0);
-
-#ifdef HAVE_GETHOSTENT_R
-   struct hostent host;
-   char buf[MAXBUF];
-   int err;
-
-   while(gethostent_r(&host, buf, MAXBUF, &err)){
-      while(*host.h_aliases){
-         rb_ary_push(v_aliases, rb_str_new2(*host.h_aliases));
-         *host.h_aliases++;
-      }
-
-      while(*host.h_addr_list){
-         inet_ntop(host.h_addrtype, *host.h_addr_list, buf, MAXBUF);
-         rb_ary_push(v_addr, rb_str_new2(buf));
-         *host.h_addr_list++;
-      }
-
-      v_hostinfo = rb_struct_new(sHostInfo,
-         rb_str_new2(host.h_name),
-         v_aliases,
-         INT2FIX(host.h_addrtype),
-         INT2FIX(host.h_length),
-         v_addr
-      );         
-#else
-   struct hostent* host;
-   char buf[INET_ADDRSTRLEN];
-
-   while((host = gethostent())){
-      while(*host->h_aliases){
-         rb_ary_push(v_aliases, rb_str_new2(*host->h_aliases));
-         *host->h_aliases++;
-      }
-
-      while(*host->h_addr_list){
-         inet_ntop(host->h_addrtype, *host->h_addr_list, buf, INET_ADDRSTRLEN);
-         rb_ary_push(v_addr, rb_str_new2(buf));
-         *host->h_addr_list++;
-      }
-
-      v_hostinfo = rb_struct_new(sHostInfo,
-         rb_str_new2(host->h_name),
-         v_aliases,
-         INT2FIX(host->h_addrtype),
-         INT2FIX(host->h_length),
-         v_addr
-      );         
-#endif
-
-      if(rb_block_given_p())
-         rb_yield(v_hostinfo);
-      else
-         rb_ary_push(v_array, v_hostinfo);
-
-      rb_ary_clear(v_aliases);   
-      rb_ary_clear(v_addr);
-   }      
-
-   endhostent();
-
-   if(rb_block_given_p())
-      return Qnil;
-
-   return v_array;
-}
-
-void Init_host()
-{
-   VALUE mSys, cHost;
-
-   /* The Sys module serves as a toplevel namespace, nothing more. */
-   mSys  = rb_define_module("Sys");
-
-   /* The Host class encapsulates information about your machine, such as
-    * the host name and IP address.
-    */
-   cHost = rb_define_class_under(mSys, "Host", rb_cObject);
-
-   /* This error is raised if any of the Host methods fail. */
-   cHostError = rb_define_class_under(cHost, "Error", rb_eStandardError);
-
-   /* 0.6.1: The version of this library. This is a string, not a number. */
-   rb_define_const(cHost, "VERSION", rb_str_new2(SYS_HOST_VERSION));
-
-   /* Structs */
-   sHostInfo = rb_struct_define("HostInfo", "name", "aliases", "addr_type",
-      "length", "addr_list", 0
-   );
-
-   /* Class Methods */
-   rb_define_singleton_method(cHost, "hostname", host_hostname, 0);
-   rb_define_singleton_method(cHost, "ip_addr", host_ip_addr, 0);
-   rb_define_singleton_method(cHost, "info", host_info, 0);
-
-#ifdef HAVE_GETHOSTID
-   rb_define_singleton_method(cHost, "host_id", host_host_id, 0);
-#endif
-}
-
-#ifdef __cplusplus
-}
-#endif