/[gcl]/gcl/binutils/libiberty/maint-tool
ViewVC logotype

Diff of /gcl/binutils/libiberty/maint-tool

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by camm, Fri Aug 9 05:36:35 2002 UTC revision 1.1.1.1.20.1 by camm, Fri Sep 30 02:10:43 2005 UTC
# Line 145  sub undoc { Line 145  sub undoc {
145              next unless /^\# *define/;              next unless /^\# *define/;
146              s/\# *define *//;              s/\# *define *//;
147          }          }
         next if $filename =~ /mpw\.c/;  
148    
149          s/ VPARAMS//;          s/ VPARAMS//;
150          s/ *\177.*//;          s/ *\177.*//;
# Line 213  sub locals_first { Line 212  sub locals_first {
212    
213  sub deps {  sub deps {
214    
215        $crule  = "\tif [ x\"\$(PICFLAG)\" != x ]; then \\\n";
216        $crule .= "\t  \$(COMPILE.c) \$(PICFLAG) \$< -o pic/\$@; \\\n";
217        $crule .= "\telse true; fi\n";
218        $crule .= "\t\$(COMPILE.c) \$< \$(OUTPUT_OPTION)\n";
219        $crule .= "\n";
220    
221      $incdir = shift @ARGV;      $incdir = shift @ARGV;
222    
223      opendir(INC, $incdir);      opendir(INC, $incdir);
# Line 223  sub deps { Line 228  sub deps {
228      }      }
229      $mine{'config.h'} = "config.h";      $mine{'config.h'} = "config.h";
230    
231        opendir(INC, $srcdir);
232        while ($f = readdir INC) {
233            next unless $f =~ /\.h$/;
234            $mine{$f} = "\$(srcdir)/$f";
235            $deps{$f} = join(' ', &deps_for("$srcdir/$f"));
236        }
237        $mine{'config.h'} = "config.h";
238    
239      open(IN, "$srcdir/Makefile.in");      open(IN, "$srcdir/Makefile.in");
240      open(OUT, ">$srcdir/Makefile.tmp");      open(OUT, ">$srcdir/Makefile.tmp");
241      while (<IN>) {      while (<IN>) {
# Line 252  sub deps { Line 265  sub deps {
265              @deps = sort { &locals_first($a,$b) } keys %scanned;              @deps = sort { &locals_first($a,$b) } keys %scanned;
266              $obj = $f;              $obj = $f;
267              $obj =~ s/\.c$/.o/;              $obj =~ s/\.c$/.o/;
268              $obj = "$obj:";              $obj = "./$obj:";
269              if ($#deps >= 0) {              if ($#deps >= 0) {
270                  print OUT $obj;                  print OUT "$obj \$(srcdir)/$f";
271                  $len = length($obj);                  $len = length("$obj $f");
272                  for $dt (@deps) {                  for $dt (@deps) {
273                      $d = $mine{$dt};                      $d = $mine{$dt};
274                      if ($len + length($d) > 70) {                      if ($len + length($d) > 70) {
# Line 267  sub deps { Line 280  sub deps {
280                      }                      }
281                  }                  }
282                  print OUT "\n";                  print OUT "\n";
283                } else {
284                    print OUT "$obj \$(srcdir)/$f\n";
285              }              }
286                $c = $crule;
287                $c =~ s@\$\<@\$\(srcdir\)\/$f@g;
288                print OUT $c;
289          }          }
290      }      }
291      closedir(S);      closedir(S);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.20.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26