tools/cxref/contrib/includes2cxref.pl

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