tools/cxref/contrib/cxref_includes.pl

   1 #!/bin/sh
   2 # -*- cperl -*-
   3 #
   4 # C Cross Referencing & Documentation tool. Version 1.5b.
   5 #
   6 # A Perl script to determine the headers to process from the cxref.include file.
   7 #
   8 # Written by Andrew M. Bishop
   9 #
  10 # This file Copyright 1999 Andrew M. Bishop
  11 # It may be distributed under the GNU Public License, version 2, or
  12 # any higher version.  See section COPYING of the GNU Public license
  13 # for conditions under which this file may be redistributed.
  14 #
  15
  16 if [ ! -f "$1" ]; then
  17    echo "Usage: $0 cxref.include"
  18    exit 1
  19 fi
  20
  21 exec perl -x $0 $1
  22
  23 exit 1
  24
  25 #!perl
  26
  27 $|=1;
  28
  29 open(INCLUDE,"<$ARGV[0]") || die "Cannot open $ARGV[0]\n";
  30
  31 @files=();
  32
  33 while(<INCLUDE>)
  34   {
  35    ($cfile,@hfiles)=split(/[ \n]+/);
  36
  37    foreach $hfile (@hfiles)
  38        {
  39         push(@files,substr($hfile,1)) if ($hfile =~ m/^%/);
  40        }
  41   }
  42
  43 close(INCLUDE);
  44
  45 $lastfile='';
  46 @files=sort(@files);
  47
  48 foreach $file (@files)
  49   {
  50    if($file ne $lastfile)
  51        {
  52         print "cxref $file\n";
  53         `cxref $file`;
  54        }
  55    $lastfile=$file;
  56   }