Mercurial > hg > xemacs-beta

comparison src/make-src-depend @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents 3d3049ae1304
children f99d3d25df86
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
54 undef $/; $_ = <FILE>; 54 undef $/; $_ = <FILE>;
55 RemoveComments ($_); 55 RemoveComments ($_);
56 s/[ \t]+//g; 56 s/[ \t]+//g;
57 # Find include dependencies 57 # Find include dependencies
58 for (/^\#include([^\n]+)/gm) { 58 for (/^\#include([^\n]+)/gm) {
59 if (m@^\"([A-Za-z0-9._-]+\.h)\"@) { 59 if (m@^\"([A-Za-z0-9._-]+\.[ch])\"@) {
60 $uses{$file}{$1} = 1 if exists $exists{$1}; 60 $uses{$file}{$1} = 1 if exists $exists{$1};
61 } elsif (m@<([A-Za-z0-9._-]+\.h)>@) { 61 } elsif (m@<([A-Za-z0-9._-]+\.h)>@) {
62 $uses{$file}{$1} = 1 if exists $generated_header{$1}; 62 $uses{$file}{$1} = 1 if exists $generated_header{$1};
63 } elsif (m@\"../lwlib/([A-Za-z0-9._-]+\.h)\"@) { 63 } elsif (m@\"../lwlib/([A-Za-z0-9._-]+\.h)\"@) {
64 $uses{$file}{"\$(LWLIB_SRCDIR)/lwlib.h"} = 1; 64 $uses{$file}{"\$(LWLIB_SRCDIR)/lwlib.h"} = 1;
117 } 117 }
118 118
119 PrintPatternDeps ('-msw\\.', "HAVE_MS_WINDOWS"); 119 PrintPatternDeps ('-msw\\.', "HAVE_MS_WINDOWS");
120 PrintPatternDeps ('-x\\.', "HAVE_X_WINDOWS"); 120 PrintPatternDeps ('-x\\.', "HAVE_X_WINDOWS");
121 PrintPatternDeps ('-tty\\.', "HAVE_TTY"); 121 PrintPatternDeps ('-tty\\.', "HAVE_TTY");
122 PrintPatternDeps ('-gtk\\.', "HAVE_GTK");
122 PrintPatternDeps ('^database', "HAVE_DATABASE"); 123 PrintPatternDeps ('^database', "HAVE_DATABASE");
123 PrintPatternDeps ('^mule', "MULE"); 124 PrintPatternDeps ('^mule', "MULE");
124 PrintPatternDeps ('^(?:External|extw-)', "EXTERNAL_WIDGET"); 125 PrintPatternDeps ('^(?:External|extw-)', "EXTERNAL_WIDGET");
125 126
126 for my $file (sort grep (/\.c$/, keys %uses)) { PrintDeps($file); } 127 for my $file (sort grep (/\.c$/, keys %uses)) { PrintDeps($file); }