annotate lib-src/gnudepend.pl @ 558:ed498ef2108b

[xemacs-hg @ 2001-05-23 09:59:33 by ben] xemacs.mak: call `ver' to get the exact os version and put it in the installation; suggestion from adrian. behavior-defs.el: Add scroll-in-place, jka-compr, efs, fix up some things. pop.c: Remove BROKEN_CYGWIN. etc\sample.init.el: Rewrite to be much more careful about loading features -- now it decays gracefully even in the complete absence of packages. Also avoid doing obnoxious things when loading efs. configure.in: add some support for eventually turning on file coding by default. Fix numerous places where AC_MSG_WARN had quotes around its arg, which is bad. Replace with []. Same for AC_MSG_ERROR. s\cygwin32.h, s\mingw32.h: remove support for way old beta versions of cygwin. don't put -Wno-sign-compare in the system switches; this isn't a system issue. define BROKEN_SIGIO for cygwin to get C-g support. device-msw.c: signal an error rather than crash with an unavailable network printer (from Mike Alexander). event-msw.c: cleanup headers. fix (hopefully) an error with data corruption when sending to a network connection. fileio.c: Fix evil code that attempts to handle the ~user prefix by (a) always assuming we're referencing ourselves and not even verifying the user -- hence any file with a tilde as its first char is invalid! (b) if there wasn't a slash following the filename, the pointer was set *past* the end of file and we started reading from uninitialized memory. Now we simply treat these as files, always. optionally for 21.4 (doc fix): lread.c: cambia de pas_de_lache_ici -- al minimo usa la palabra certa. frame.c: fix warnings. emacs.c, nt.c, ntproc.c, process-nt.c, realpath.c, unexnt.c: rename MAX_PATH to standard PATH_MAX. process-nt.c, realpath.c: cleanup headers. process-unix.c, sysdep.c, systime.h, syswindows.h: kill BROKEN_CYGWIN and support for way old beta versions of cygwin. sysfile.h: use _MAX_PATH (Windows) preferentially for PATH_MAX if defined. include io.h on Cygwin (we need get_osfhandle()). include sys/fcntl.h always, since we were including it in various header files anyway. unexcw.c: fix up style to conform to standard. remove duplicate definition of PERROR. buffer.c: comment change. database.c, debug.h, device-tty.c, dired-msw.c, glyphs-msw.c: header cleanups (remove places that directly include a system header file, because we have our own layer to do this more cleanly and portably); indentation fixes.
author ben
date Wed, 23 May 2001 09:59:48 +0000
parents 3ecd8885ac67
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 #!/usr/bin/perl
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 while (<>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 if (/\\$/)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 chop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 $foo .= $_;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 @foo = split (/[ \\:]+/, $foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 $filename = $foo[0];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 if (($filename =~ /^unex/) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ($filename =~ /^sgiplay/) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ($filename =~ /^Extern/) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ($filename =~ /^extw/))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 $foo = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 @foo = grep (!/\.c$/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 @foo = grep (!/lisp\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 @foo = grep (!/lisp\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 @foo = grep (!/lisp-union\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 @foo = grep (!/lisp-disunion\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 @foo = grep (!/lrecord\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 @foo = grep (!/emacsfns\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 @foo = grep (!/symeval\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 @foo = grep (!/symsinit\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 @foo = grep (!/syssignal\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 @foo = grep (!/intl\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 @foo = grep (!/tt_c\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 @foo = grep (!/descrip\.h/, @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 shift @foo;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 foreach $i (0 .. $#foo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 $foo[$i] = $filename . ": " . $foo[$i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 print $filename . ": config.h\n";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 print join ("\n", @foo);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 print "\n";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 $foo = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 }