Mercurial > hg > CbC > CbC_gcc

comparison libiberty/gather-docs @ 67:f6334be47118

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
author nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
date Tue, 22 Mar 2011 17:18:12 +0900
parents 77e2b8dfacca
children 04ced10e8804
comparison
equal deleted inserted replaced
65:65488c3d617d 67:f6334be47118
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 # -*- perl -*- 2 # -*- perl -*-
3 3
4 # Copyright (C) 2001 4 # Copyright (C) 2001, 2009, 2011
5 # Free Software Foundation 5 # Free Software Foundation
6 # 6 #
7 # This file is part of the libiberty library. 7 # This file is part of the libiberty library.
8 # Libiberty is free software; you can redistribute it and/or 8 # Libiberty is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU Library General Public 9 # modify it under the terms of the GNU Library General Public
71 $pertinent = 0 if /^\*\//; 71 $pertinent = 0 if /^\*\//;
72 next unless $pertinent; 72 next unless $pertinent;
73 73
74 if (/^\@def[a-z]*[a-wyz] /) { 74 if (/^\@def[a-z]*[a-wyz] /) {
75 75
76 ($name) = m/[^\(]* ([^\( \t\r\n]+) *\(/; 76 ($name) = m/[^\(]* ([^\( \t\r\n\@]+) *(\(|\@?$)/;
77 $name =~ s/[ ]*$//; 77 $name =~ s/[ ]*\@?$//;
78 $key = $name; 78 $key = $name;
79 $key =~ tr/A-Z/a-z/; 79 $key =~ tr/A-Z/a-z/;
80 $key =~ s/[^a-z0-9]+/ /g; 80 $key =~ s/[^a-z0-9]+/ /g;
81 $name{$key} = $node; 81 $name{$key} = $node;
82 $lines{$key} = ''; 82 $lines{$key} = '';