summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/h2pl/mksizes
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/h2pl/mksizes')
-rw-r--r--contrib/perl5/h2pl/mksizes42
1 files changed, 0 insertions, 42 deletions
diff --git a/contrib/perl5/h2pl/mksizes b/contrib/perl5/h2pl/mksizes
deleted file mode 100644
index cb4b8ab..0000000
--- a/contrib/perl5/h2pl/mksizes
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/local/bin/perl
-
-($iam = $0) =~ s%.*/%%;
-$tmp = "$iam.$$";
-open (CODE,">$tmp.c") || die "$iam: cannot create $tmp.c: $!\n";
-
-$mask = q/printf ("$sizeof{'%s'} = %d;\n"/;
-
-# write C program
-select(CODE);
-
-print <<EO_C_PROGRAM;
-#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>
-
-main() {
-EO_C_PROGRAM
-
-while ( <> ) {
- chop;
- printf "\t%s, \n\t\t\"%s\", sizeof(%s));\n", $mask, $_,$_;
-}
-
-print "\n}\n";
-
-close CODE;
-
-# compile C program
-
-select(STDOUT);
-
-system "cc $tmp.c -o $tmp";
-die "couldn't compile $tmp.c" if $?;
-system "./$tmp";
-die "couldn't run $tmp" if $?;
-
-unlink "$tmp.c", $tmp;
OpenPOWER on IntegriCloud