tools/cxref/contrib/make_depend.pl

   1 #!/bin/sh
   2 #
   3 # C Cross Referencing & Documentation tool. Version 1.5.
   4 #
   5 # A Perl script to produce a neat output for makefile dependencies.
   6 #
   7 # Written by Andrew M. Bishop
   8 #
   9 # This file Copyright 1999,2003 Andrew M. Bishop
  10 # It may be distributed under the GNU Public License, version 2, or
  11 # any higher version.  See section COPYING of the GNU Public license
  12 # for conditions under which this file may be redistributed.
  13 #
  14
  15 exec perl -x $0 $*
  16
  17 exit 1
  18
  19 #!perl
  20
  21 # The C pre-processor arguments (-D, -I).
  22 $cpp_args="";
  23
  24 # The files to check.
  25 @cfiles=();
  26 @hfiles=();
  27
  28 #
  29 # Parse the command line arguments
  30 #
  31
  32 if( $#ARGV==-1 )
  33   {
  34    print "Usage: make_depend filename1.h [filename2.h ...]\n";
  35    print "                   filename1.c filename2.c\n";
  36    print "                   [-Ddefine] [-Udefine] [-Iinclude]\n";
  37    exit 0;
  38   }
  39
  40 while ( $#ARGV >= 0 )
  41   {
  42    $_=$ARGV[0];
  43    if(-f $_)
  44      {
  45       push(@cfiles,$_) if(m/\.c$/);
  46       push(@hfiles,$_) if(m/\.h$/);
  47      }
  48    else
  49      {
  50       $cpp_args.=" '".$_."'";
  51      }
  52    shift;
  53   }
  54
  55 die "Error: no source files specified\n" if($#cfiles==-1);
  56 die "Error: no header files specified\n" if($#hfiles==-1);
  57
  58 #
  59 # The main program
  60 #
  61
  62 @cfiles=sort(@cfiles);
  63
  64 $longest=0;
  65 foreach $cfile (@cfiles)
  66   {
  67    $longest=length($cfile) if(length($cfile)>$longest);
  68   }
  69
  70 foreach $cfile (@cfiles)
  71   {
  72    %inc_headers=&GetFileHeaders($cfile);
  73
  74    $ofile = $cfile;
  75    $ofile =~ s/\.c/.o/;
  76
  77    printf("%-".$longest."s : %-".$longest."s",$ofile,$cfile);
  78
  79    foreach $hfile (@hfiles)
  80      {
  81       if($inc_headers{$hfile})
  82         {
  83          print " $hfile";
  84         }
  85       else
  86         {
  87          print " "." "x(length($hfile));
  88         }
  89      }
  90
  91    print "\n";
  92   }
  93
  94
  95 #
  96 # Get the included headers from an existing file.
  97 #
  98
  99 sub GetFileHeaders
 100 {
 101  local($file)=@_;
 102  local(%headers)=();
 103  local($depends,$header)=("");
 104
 105  # Parse the file
 106
 107  open(IN,"gcc -MM $file $cpp_args|") || die "Cannot run 'gcc -MM $file $cpp_args'\n";
 108
 109  while(<IN>)
 110      {
 111       $depends.=$_;
 112      }
 113
 114  close(IN);
 115
 116  $depends =~ s/\\?\n//g;
 117
 118  foreach $header (split(/ +/,$depends))
 119    {
 120     $headers{$header}=1;
 121    }
 122
 123  return(%headers);
 124 }