home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3098 / makedeps
Encoding:
Text File  |  1991-03-21  |  3.1 KB  |  156 lines
  1. eval 'exec /bin/perl -wS $0 ${1+"$@"}'
  2.     if 0;
  3.  
  4. # $Id: makedeps,v 1.6 1991/03/08 22:27:10 chip Exp $
  5. #
  6. # Make a list of dependencies for the given file(s).
  7. #
  8. # $Log: makedeps,v $
  9. # Revision 1.6  1991/03/08  22:27:10  chip
  10. # Add "-o" and "-u" options.
  11. #
  12. # Revision 1.5  1990/11/29  13:39:37  chip
  13. # Fix typo.
  14. #
  15. # Revision 1.4  90/09/28  11:01:51  chip
  16. # Handle C++.
  17. # 
  18. # Revision 1.3  90/05/03  16:49:30  chip
  19. # checked in with -k by chip at 90.08.17.15.17.16.
  20. # 
  21. # Revision 1.3  90/05/03  16:49:30  chip
  22. # Remove temp files each time around the loop.
  23. # Never mention temp files in output.
  24. # 
  25. # Revision 1.2  90/05/02  16:43:07  chip
  26. # Oops.  Write deps for the object file.
  27. # 
  28. # Revision 1.1  90/05/02  16:24:39  chip
  29. # Initial revision
  30. # 
  31.  
  32. ($ME = $0) =~ s#^.*/##;
  33.  
  34. ################################################################
  35. ## Configuration.
  36. ################################################################
  37.  
  38. $INF = "/usr/informix" unless $INF = $ENV{'INFORMIXDIR'};
  39. chop($HOME = `pwd`) unless $HOME = $ENV{'HOME'};
  40.  
  41. @COPY = ("cp");
  42. @CPP = ("cc", "-E");
  43. @CPLUSPP = ("g++", "-E");
  44. @ESQLC = ("$INF/lib/esqlc", "-e");
  45.  
  46. $T = "dep_$$";
  47.  
  48. ################################################################
  49. ## Options.
  50. ################################################################
  51.  
  52. undef $OPT_OUTPUT;
  53. $OPT_USER = 0;
  54. @CPPOPTS = ();
  55. while (@ARGV) {
  56.     $_ = $ARGV[0];
  57.     last unless /^-/;
  58.     if (/^-o(.*)$/) {
  59.         shift;
  60.         die "$ME: -o needs argument"
  61.             unless defined($OPT_OUTPUT = length($1) ? $1 : shift);
  62.     }
  63.     elsif (/^-u$/) {
  64.         shift;
  65.         $OPT_USER = 1;
  66.     }
  67.     else {
  68.         push(@CPPOPTS, shift);
  69.     }
  70. }
  71.  
  72. # Avoid warnings
  73. @CPP, @CPLUSPP;
  74.  
  75. &DEP("## These dependences were generated by the \"$ME\" program.\n");
  76. &DEP("## Any changes made by hand will be lost!\n");
  77.  
  78. foreach $file (@ARGV) {
  79.     unless (-f $file) {
  80.         print STDERR "$ME: $file: no such file\n";
  81.         next;
  82.     }
  83.  
  84.     if (($basename) = ($file =~ /^(\S+)\.c$/)) {
  85.         open(CPP, "@CPP @CPPOPTS $file |");
  86.     }
  87.     elsif (($basename) = ($file =~ /^(\S+)\.(C|cc|cxx|cpp)$/)) {
  88.         open(CPP, "@CPLUSPP @CPPOPTS $file |");
  89.     }
  90.     elsif (($basename) = ($file =~ /^(\S+)\.ec$/)) {
  91.         if (system(@COPY, $file, "$T.ec")
  92.          || system(@ESQLC, "$T.ec")) {
  93.             print STDERR "$ME: can't compile $file\n";
  94.             next;
  95.         }
  96.         open(CPP, "@CPP @CPPOPTS $T.c |");
  97.     }
  98.     else {
  99.         print STDERR "$ME: $file: not C, C++ or ESQL/C\n";
  100.         next;
  101.     }
  102.  
  103.     undef %D;
  104.     while (<CPP>) {
  105.         next unless @F = /^#\s*(line\s*)?(\d+)\s+"(.+)"/;
  106.         $i = @F[2];
  107.  
  108.         # Perform transformations on include filename here.
  109.         $i =~ s#//*#/#g;
  110.         $i =~ s#^\./##;
  111.  
  112.         $D{$i} = 1 unless grep($i eq $_, $file, "$T.c", "$T.ec");
  113.     }
  114.     close(CPP);
  115.  
  116.     &DEP("\n");
  117.     &DEP("# $file\n");
  118.     foreach (sort BYPATH keys(%D)) {
  119.         next if $OPT_USER && m#^/usr/include/#;
  120.         &DEP("$basename.o: $_\n");
  121.     }
  122.  
  123.     unlink("$T.ec", "$T.c");
  124. }
  125.  
  126. &DEPDONE;
  127. exit(0);
  128.  
  129. sub BYPATH {
  130.     $_ = 0;
  131.     --$_ if $a =~ m#^/#;
  132.     ++$_ if $b =~ m#^/#;
  133.     return $_ if $_;
  134.     return -1 if $a lt $b;
  135.     return 1 if $a gt $b;
  136.     return 0;
  137. }
  138.  
  139. sub DEP {
  140.     $DEP = "" unless defined($DEP);
  141.     for $x (@_) { $DEP .= $x; }
  142. }
  143.  
  144. sub DEPDONE {
  145.     if (defined($OPT_OUTPUT)) {
  146.         die "$ME: can't create $OUT: $!\n"
  147.             unless open(OUT, "> $OPT_OUTPUT");
  148.         print OUT $DEP;
  149.         close(OUT);
  150.     }
  151.     else {
  152.         print $DEP;
  153.     }
  154.     $DEP = "";
  155. }
  156.