Mercurial > hg > xemacs-beta

comparison src/make-src-depend @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
50 undef $/; $_ = <FILE>; 50 undef $/; $_ = <FILE>;
51 RemoveComments ($_); 51 RemoveComments ($_);
52 s/[ \t]+//g; 52 s/[ \t]+//g;
53 # Find include dependencies 53 # Find include dependencies
54 for (/^\#include([^\n]+)/gm) { 54 for (/^\#include([^\n]+)/gm) {
55 if (m@^\"([A-Za-z0-9_-]+\.h)\"@) { 55 if (m@^\"([A-Za-z0-9._-]+\.h)\"@) {
56 $uses{$file}{$1} = 1 if exists $exists{$1}; 56 $uses{$file}{$1} = 1 if exists $exists{$1};
57 } elsif (m@<([A-Za-z0-9_-]+\.h)>@) { 57 } elsif (m@<([A-Za-z0-9._-]+\.h)>@) {
58 $uses{$file}{$1} = 1 if exists $generated_header{$1}; 58 $uses{$file}{$1} = 1 if exists $generated_header{$1};
59 } elsif (m@\"../lwlib/([A-Za-z0-9_-]+\.h)\"@) { 59 } elsif (m@\"../lwlib/([A-Za-z0-9._-]+\.h)\"@) {
60 $uses{$file}{"\$(LWLIB_SRCDIR)/lwlib.h"} = 1; 60 $uses{$file}{"\$(LWLIB_SRCDIR)/lwlib.h"} = 1;
61 } 61 }
62 } 62 }
63 } 63 }
64 64