Mercurial > hg > xemacs-beta
annotate lib-src/gnudepend.pl @ 1298:1b4bc72f433e
[xemacs-hg @ 2003-02-14 12:05:06 by ben]
speedups to build process
autoload.el: Factor out common code in generate-{c-,}file-autoloads-1 into new
function generate-autoload-ish-1. \(I was originally going to use
this for custom as well but ended up thinking better of it.)
cus-dep.el: Cache the old computed values in custom-load.el and reuse them as
necessary, to speed up running cus-dep (which would take 25-30
seconds to do all files in lisp/*, lisp/*/* on my Pentium III
700). Use `message' not `princ' to get correct newline behavior.
Output messages showing each file we do actually process.
update-elc-2.el: Rewrite algorithm to be much faster -- cache calls to
directory-files and don't make needless calls to file-exists-p,
file-directory-p because they're way way slow.
Autoload early and only when update-elc has told us to.
update-elc.el: If no files need byte compilation, signal to update-elc-2 to do
any necessary autoload updating (using the file REBUILD_AUTOLOADS)
rather than doing it ourselves, which would be way slow. Ignore
updates to custom-load.el and auto-autoloads.el when checking to
see whether autoloads need updating. Optimize out many
unnecessary calls to file-exists-p to speed it up somewhat. (####
The remaining time is 50% or more in locate-file; this is
presumably because, even though it has a cache, it's still
statting each file to determine it's actually there. By calling
directory-files ourselves, building a tree, and then looking in
that tree, we could drastically shorten the time needed to do the
locate operation.)
author | ben |
---|---|
date | Fri, 14 Feb 2003 12:05:07 +0000 |
parents | 3ecd8885ac67 |
children |
rev | line source |
---|---|
428 | 1 #!/usr/bin/perl |
2 | |
3 while (<>) | |
4 { | |
5 if (/\\$/) | |
6 { | |
7 chop; | |
8 $foo .= $_; | |
9 } | |
10 else | |
11 { | |
12 @foo = split (/[ \\:]+/, $foo); | |
13 $filename = $foo[0]; | |
14 if (($filename =~ /^unex/) || | |
15 ($filename =~ /^sgiplay/) || | |
16 ($filename =~ /^Extern/) || | |
17 ($filename =~ /^extw/)) | |
18 { | |
19 $foo = ""; | |
20 next; | |
21 } | |
22 @foo = grep (!/\.c$/, @foo); | |
23 @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo); | |
24 @foo = grep (!/lisp\.h/, @foo); | |
25 @foo = grep (!/lisp\.h/, @foo); | |
26 @foo = grep (!/lisp-union\.h/, @foo); | |
27 @foo = grep (!/lisp-disunion\.h/, @foo); | |
28 @foo = grep (!/lrecord\.h/, @foo); | |
29 @foo = grep (!/emacsfns\.h/, @foo); | |
30 @foo = grep (!/symeval\.h/, @foo); | |
31 @foo = grep (!/symsinit\.h/, @foo); | |
32 @foo = grep (!/syssignal\.h/, @foo); | |
33 @foo = grep (!/intl\.h/, @foo); | |
34 @foo = grep (!/tt_c\.h/, @foo); | |
35 @foo = grep (!/descrip\.h/, @foo); | |
36 shift @foo; | |
37 foreach $i (0 .. $#foo) | |
38 { | |
39 $foo[$i] = $filename . ": " . $foo[$i]; | |
40 } | |
41 print $filename . ": config.h\n"; | |
42 print join ("\n", @foo); | |
43 print "\n"; | |
44 $foo = ""; | |
45 } | |
46 } |