[comp.lang.perl] h2pl fix

youki@newmars.ics.osaka-u.ac.jp (Youki Kadobayashi) (05/15/91)

Hi.

The h2pl scripts doesn't work on both perl 3.0@44 and perl 4.0@3.
These modification (attached below) solved my problem. I installed
both version on NeXT running OS 1.0. I wish someone could find this
patch useful.

*** getioctlsizes.orig	Sun May 12 00:13:53 1991
--- getioctlsizes	Sun May 12 00:23:40 1991
***************
*** 3,9 ****
  open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  
  while (<IOCTLS>) {
!     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\(\w+,\s*\w+,\s*([^)]+)/) {
  	$need{$2}++;
      } 
  }
--- 3,9 ----
  open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  
  while (<IOCTLS>) {
!     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('\w+',\s*\w+,\s*([^)]+)/) {
  	$need{$2}++;
      } 
  }
*** mksizes.orig	Sun Apr 14 12:49:07 1991
--- mksizes	Sun May 12 00:24:56 1991
***************
*** 13,19 ****
  #include <sys/param.h>
  #include <sys/types.h>
  #include <sys/socket.h>
! #include <net/if_arp.h>
  #include <net/if.h>
  #include <net/route.h>
  #include <sys/ioctl.h>
--- 13,19 ----
  #include <sys/param.h>
  #include <sys/types.h>
  #include <sys/socket.h>
! /* #include <net/if_arp.h> youki */
  #include <net/if.h>
  #include <net/route.h>
  #include <sys/ioctl.h>
*** mkvars.orig	Sun May 12 00:27:55 1991
--- mkvars	Sun May 12 00:27:39 1991
***************
*** 22,27 ****
--- 22,28 ----
  		print <<EOT
  warn "\$$var isn't correctly set" if defined \$_main{'$var'};
  EOT
+ 		;
  		next;
  	    } 
  	    ( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;

--
Youki Kadobayashi
Information Network Architecture Lab.
Dept. of Info. and Comp. Sci, Osaka University, Japan

tchrist@convex.COM (Tom Christiansen) (05/16/91)

From the keyboard of youki@newmars.ics.osaka-u.ac.jp (Youki Kadobayashi):
:The h2pl scripts doesn't work on both perl 3.0@44 and perl 4.0@3.
:These modification (attached below) solved my problem.

I'm glad you made them work for you: they are just guidelines.  I have
to tweak them myself for each new system.  Someday I may make it more
robust.

--tom
--
Tom Christiansen		tchrist@convex.com	convex!tchrist
		"So much mail, so little time."