tools/cxref/contrib/daVinvi_include.pl

   1 #!/bin/sh
   2 #
   3 # Converts the cxref output files into a format that can be read into
   4 # the DaVinci graph drawing program.
   5 #
   6 # (c) 1999 Andrew M. Bishop
   7 #
   8
   9 exec perl -x $0 $*
  10
  11 #!perl
  12
  13 die "Usage: $0 cxref.include\n" if($#ARGV==-1);
  14
  15 open(INCLUDE,"<$ARGV[0]") || die "Cannot open $ARGV[0]\n";
  16
  17 %sysinclude=();
  18
  19 print "[\n";
  20
  21 while(<INCLUDE>)
  22   {
  23    chop;
  24    ($file,@includes)=split(/ /);
  25
  26    if($file =~ /\.c$/)
  27        {
  28         print "l(\"$file\",n(\"\",[a(\"OBJECT\",\"$file\"),a(\"_GO\",\"ellipse\")],\n";
  29        }
  30    else
  31        {
  32         print "l(\"$file\",n(\"\",[a(\"OBJECT\",\"$file\")],\n";
  33        }
  34
  35    print "\t[\n";
  36    foreach $include (@includes)
  37        {
  38         if($include =~ /^%(.+)$/)
  39             {
  40              print "\te(\"\",[],r(\"$1\")),\n";
  41             }
  42         else
  43             {
  44              $sysincludes{$include}=1;
  45              print "\te(\"\",[a(\"EDGEPATTERN\",\"dotted\")],r(\"<$include>\")),\n";
  46             }
  47        }
  48    print "\t]))\n,\n";
  49   }
  50
  51 foreach $include (keys(%sysincludes))
  52   {
  53    print "l(\"<$include>\",n(\"\",[a(\"OBJECT\",\"$include\"),a(\"COLOR\",\"#808080\")],[]))\n,\n";
  54   }
  55
  56 print "]\n";
  57
  58 close(INCLUDE);