From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-45415-listarch-gdb-patches=sources.redhat.com@sourceware.org>
Received: (qmail 18147 invoked by alias); 28 Aug 2006 18:27:36 -0000
Received: (qmail 18138 invoked by uid 22791); 28 Aug 2006 18:27:36 -0000
X-Spam-Check-By: sourceware.org
Received: from nevyn.them.org (HELO nevyn.them.org) (66.93.172.17)     by sourceware.org (qpsmtpd/0.31.1) with ESMTP; Mon, 28 Aug 2006 18:27:34 +0000
Received: from drow by nevyn.them.org with local (Exim 4.54) 	id 1GHlpa-0004aU-DI; Mon, 28 Aug 2006 14:27:30 -0400
Date: Tue, 29 Aug 2006 11:41:00 -0000
From: Daniel Jacobowitz <drow@false.org>
To: Jim Blandy <jimb@codesourcery.com>
Cc: Jan Kratochvil <jan.kratochvil@redhat.com>, gdb-patches@sourceware.org
Subject: Re: RFC: Access TLS symbols without DWARF debuginfo v2
Message-ID: <20060828182730.GA16500@nevyn.them.org>
Mail-Followup-To: Jim Blandy <jimb@codesourcery.com>, 	Jan Kratochvil <jan.kratochvil@redhat.com>, 	gdb-patches@sourceware.org
References: <20060825021311.GB30225@host0.dyn.jankratochvil.net> <20060825034301.GA24479@nevyn.them.org> <20060825134750.GA5857@nevyn.them.org> <20060825021304.GA30225@host0.dyn.jankratochvil.net> <20060825134315.GA4994@nevyn.them.org> <20060825021311.GB30225@host0.dyn.jankratochvil.net> <20060825034301.GA24479@nevyn.them.org> <20060825200112.GA18780@host0.dyn.jankratochvil.net> <m3y7t8u41g.fsf@codesourcery.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <m3y7t8u41g.fsf@codesourcery.com>
User-Agent: Mutt/1.5.11+cvs20060403
X-IsSubscribed: yes
Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sourceware.org>
List-Archive: <http://sourceware.org/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sourceware.org>
List-Help: <mailto:gdb-patches-help@sourceware.org>, <http://sourceware.org/ml/#faqs>
Sender: gdb-patches-owner@sourceware.org
X-SW-Source: 2006-08/txt/msg00198.txt.bz2

On Mon, Aug 28, 2006 at 11:08:11AM -0700, Jim Blandy wrote:
> Jan Kratochvil <jan.kratochvil@redhat.com> writes:
> > Forgot again, last time, sorry.  Isn't there some tool to generate this
> > changelog type templates from the diff?
> 
> If you write one, let me know.  :)

Several exit, I think.  I'm pretty sure I originally got this from
Diego Novillo, and then maybe fixed a bug in it.  Or this might be one
I didn't get from Diego; I didn't leave myself any notes about it :-)

#!/usr/bin/perl

use strict;

my $file = shift @ARGV;
open FILE, $file;

my $dfile;
my $ldfile;
my $ltext;

$ldfile = "";
$ltext = "";
while (<FILE>)
{
  chomp;
  if (/^--- ([^\t]+)\t/) {
    $dfile = $1;
  } elsif (/^@@.*@@ (.*)$/) {
    my $text = $1;
    if ($text !~ /^struct /) {
      $text =~ s/ *\(.*$//;
      $text =~ s/.*  *//;
    }
    next if $text eq $ltext;
    if ($dfile ne $ldfile) {
      print "\t* $dfile ";
      $ldfile = $dfile;
    } else {
      print "\t";
    }
    print "($text):\n";
    $ltext = $text;
  }
}

close OUT;


-- 
Daniel Jacobowitz
CodeSourcery