From owner-freebsd-arch  Sat Dec 16 16:44:45 2000
From owner-freebsd-arch@FreeBSD.ORG  Sat Dec 16 16:44:43 2000
Return-Path: <owner-freebsd-arch@FreeBSD.ORG>
Delivered-To: freebsd-arch@freebsd.org
Received: from palrel3.hp.com (palrel3.hp.com [156.153.255.226])
	by hub.freebsd.org (Postfix) with ESMTP id 0565C37B400
	for <arch@FreeBSD.org>; Sat, 16 Dec 2000 16:44:43 -0800 (PST)
Received: from adlmail.cup.hp.com (adlmail.cup.hp.com [15.0.100.30])
	by palrel3.hp.com (Postfix) with ESMTP id 5EC8F8537
	for <arch@FreeBSD.org>; Sat, 16 Dec 2000 16:44:33 -0800 (PST)
Received: from cup.hp.com (p1000180.nsr.hp.com [15.109.0.180])
	by adlmail.cup.hp.com (8.9.3 (PHNE_18546)/8.9.3 SMKit7.02) with ESMTP id QAA18771
	for <arch@FreeBSD.org>; Sat, 16 Dec 2000 16:44:32 -0800 (PST)
Sender: marcel@cup.hp.com
Message-ID: <3A3C0C70.848F5057@cup.hp.com>
Date: Sat, 16 Dec 2000 16:44:32 -0800
From: Marcel Moolenaar <marcel@cup.hp.com>
Organization: Hewlett-Packard
X-Mailer: Mozilla 4.73 [en] (X11; U; Linux 2.2.12 i386)
X-Accept-Language: en
MIME-Version: 1.0
To: arch@FreeBSD.org
Subject: A perlified gensetdefs
Content-Type: multipart/mixed;
 boundary="------------34B57FFE194884664E44F09C"
Sender: owner-freebsd-arch@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.ORG

This is a multi-part message in MIME format.
--------------34B57FFE194884664E44F09C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi,

In order to reduce the number of ELF specific tools, I rewrote
gensetdefs(1) in perl, using objdump(1). When put in /sys/kern, we
further reduce the chicken/egg problem when building a kernel. This
definitely helps porting FreeBSD.

take a look at it and let me know if it's a good idea or not. Any perl
specific improvements, including style, are welcomed as well. I'm no
Perl programmer by any means...

-- 
Marcel Moolenaar
  mail: marcel@cup.hp.com / marcel@FreeBSD.org
  tel:  (408) 447-4222
--------------34B57FFE194884664E44F09C
Content-Type: application/x-perl;
 name="gensetdefs.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="gensetdefs.pl"

#!/usr/bin/perl

my %sz = ();
my $ptrsz = 0;

my $objdump = $ENV{OBJDUMP};
$objdump =~ s/^$/objdump/;

foreach $objfile (@ARGV) {
  open(SECTION, "$objdump -h $objfile |");
  while($line = <SECTION>) {
    ($idx, $name, $size, $vma, $lma, $ofs, $align) = split(" ", $line);
    if ($name =~ /^.set./) {
      $name =~ s/^.set.//;
      $sz{$name} = $sz{$name} + eval "0x$size";
      if ($ptrsz < eval $align) {
	$ptrsz = eval $align;
      }
    }
  }
  close SECTION;
}

open(SETDEFS_H, "| sort > setdefs.h");
while (($name, $size) = each %sz) {
  my $elts = $size / $ptrsz;
  print SETDEFS_H "DEFINE_SET($name, $elts);\n";
}
close SETDEFS_H;

open(SETDEF0_C, "> setdef0.c");
print SETDEF0_C "/* THIS FILE IS GENERATED, DO NOT EDIT. */\n\n";
print SETDEF0_C "#define DEFINE_SET(set, count)\t\t\t\\\n";
print SETDEF0_C "__asm__(\".section .set.\" #set \",\\\"aw\\\"\");\t\\\n";
print SETDEF0_C "__asm__(\".globl \" #set);\t\t\t\\\n";
print SETDEF0_C "__asm__(\".type \" #set \",\@object\");\t\t\\\n";
print SETDEF0_C "__asm__(\".p2align 3\");\t\t\t\t\\\n";
print SETDEF0_C "__asm__(#set \":\");\t\t\t\t\\\n";
print SETDEF0_C "__asm__(\".quad \" #count);\t\t\t\\\n";
print SETDEF0_C "__asm__(\".previous\")\n\n";
print SETDEF0_C "#include \"setdefs.h\"\n";
close SETDEF0_C;

open(SETDEF1_C, "> setdef1.c");
print SETDEF1_C "/* THIS FILE IS GENERATED, DO NOT EDIT. */\n\n";
print SETDEF1_C "#define DEFINE_SET(set, count)\t\t\t\\\n";
print SETDEF1_C "__asm__(\".section .set.\" #set \",\\\"aw\\\"\");\t\\\n";
print SETDEF1_C "__asm__(\".quad 0\");\t\t\t\t\\\n";
print SETDEF1_C "__asm__(\".previous\")\n\n";
print SETDEF1_C "#include \"setdefs.h\"\n";
close SETDEF1_C;

--------------34B57FFE194884664E44F09C--



To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-arch" in the body of the message