Mercurial > hg > xemacs-beta
view lib-src/gnudepend.pl @ 1378:69a674f5861f
[xemacs-hg @ 2003-03-24 16:30:55 by youngs]
2003-03-25 Steve Youngs <youngs@xemacs.org>
* package-admin.el: (package-admin-delete-binary-package): Only
delete the lisp directory if it exists.
(package-admin-find-top-directory): New.
(package-admin-get-install-dir): Use it.
* package-get.el (package-get-install-to-user-init-directory):
New. If non-nil install packages under `user-init-directory'.
(package-get): `package-admin-get-install-dir' only takes 2 args.
* package-ui.el (pui-install-selected-packages): The 2nd arg to
`package-admin-get-install-dir' is optional, no need to specify nil.
author | youngs |
---|---|
date | Mon, 24 Mar 2003 16:30:56 +0000 (2003-03-24) |
parents | 3ecd8885ac67 |
children |
line wrap: on
line source
#!/usr/bin/perl while (<>) { if (/\\$/) { chop; $foo .= $_; } else { @foo = split (/[ \\:]+/, $foo); $filename = $foo[0]; if (($filename =~ /^unex/) || ($filename =~ /^sgiplay/) || ($filename =~ /^Extern/) || ($filename =~ /^extw/)) { $foo = ""; next; } @foo = grep (!/\.c$/, @foo); @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo); @foo = grep (!/lisp\.h/, @foo); @foo = grep (!/lisp\.h/, @foo); @foo = grep (!/lisp-union\.h/, @foo); @foo = grep (!/lisp-disunion\.h/, @foo); @foo = grep (!/lrecord\.h/, @foo); @foo = grep (!/emacsfns\.h/, @foo); @foo = grep (!/symeval\.h/, @foo); @foo = grep (!/symsinit\.h/, @foo); @foo = grep (!/syssignal\.h/, @foo); @foo = grep (!/intl\.h/, @foo); @foo = grep (!/tt_c\.h/, @foo); @foo = grep (!/descrip\.h/, @foo); shift @foo; foreach $i (0 .. $#foo) { $foo[$i] = $filename . ": " . $foo[$i]; } print $filename . ": config.h\n"; print join ("\n", @foo); print "\n"; $foo = ""; } }