Mercurial > hg > xemacs-beta
annotate src/strcmp.c @ 613:023b83f4e54b
[xemacs-hg @ 2001-06-10 10:42:16 by ben]
------ signal-code changes ------
data.c, device-tty.c, emacs.c, floatfns.c, linuxplay.c, nas.c,
process-unix.c, signal.c, sunplay.c, sysdep.c, syssignal.h:
use EMACS_SIGNAL everywhere instead of playing preprocessing
games with signal().
s\windowsnt.h, s\mingw32.h, syssignal.h:
Remove mswindows signal code from s+m headers and move to
syssignal.h as one of the five ways of signal handling,
instead of playing preprocessing games.
fileio.c, sysdep.c:
Rename sys_do_signal to qxe_reliable_signal.
signal.c, process-unix.c, profile.c:
Create set_timeout_signal(); use instead of just EMACS_SIGNAL
to establish a signal handler on a timeout signal; this does
special things under Cygwin.
nt.c:
Eliminate term_ntproc(), which is blank; used as a SIGABRT
handler, which was wrong anyway.
nt.c, win32.c:
Move signal code from nt.c to win32.c, since Cygwin needs it
too when dealing with timeout signals.
s\cygwin32.h:
Define CYGWIN_BROKEN_SIGNALS.
------ other changes ------
s\mingw32.h:
Fix problems with NOT_C_CODE being in the wrong place and
excluding defines needed when building Makefile.in.in.
filelock.c, mule-canna.c, mule-ccl.c, mule-ccl.h, ralloc.c,
unexalpha.c, unexapollo.c, unexcw.c, unexelfsgi.c, unexnt.c,
unexsni.c, s\aix3-1.h, s\bsd4-1.h, s\bsd4-2.h, s\bsd4-3.h, s\cxux.h,
s\cygwin32.h, s\dgux.h, s\dgux5-4r2.h, s\dgux5-4r3.h, s\dgux5-4r4.h,
s\ewsux5r4.h, s\gnu.h, s\hpux.h, s\iris3-5.h, s\iris3-6.h,
s\irix3-3.h, s\linux.h, s\mingw32.h, s\newsos5.h, s\nextstep.h,
s\ptx.h, s\riscix1-1.h, s\riscix1-2.h, s\rtu.h, s\sco4.h, s\sco5.h,
s\template.h, s\ultrix.h, s\umax.h, s\umips.h, s\unipl5-0.h,
s\unipl5-2.h, s\usg5-0.h, s\usg5-2-2.h, s\usg5-2.h, s\usg5-3.h,
s\usg5-4.h, s\windowsnt.h, s\xenix.h:
Rename 'GNU Emacs' to XEmacs in the copyright and comments.
nas.c:
Stylistic cleanup. Avoid preprocessing games with names such
as play_sound_file.
------ signal-code changes ------
data.c, device-tty.c, emacs.c, floatfns.c, linuxplay.c, nas.c,
process-unix.c, signal.c, sunplay.c, sysdep.c, syssignal.h:
use EMACS_SIGNAL everywhere instead of playing preprocessing
games with signal().
s\windowsnt.h, s\mingw32.h, syssignal.h:
Remove mswindows signal code from s+m headers and move to
syssignal.h as one of the five ways of signal handling,
instead of playing preprocessing games.
fileio.c, sysdep.c:
Rename sys_do_signal to qxe_reliable_signal.
signal.c, process-unix.c, profile.c:
Create set_timeout_signal(); use instead of just EMACS_SIGNAL
to establish a signal handler on a timeout signal; this does
special things under Cygwin.
nt.c:
Eliminate term_ntproc(), which is blank; used as a SIGABRT
handler, which was wrong anyway.
nt.c, win32.c:
Move signal code from nt.c to win32.c, since Cygwin needs it
too when dealing with timeout signals.
s\cygwin32.h:
Define CYGWIN_BROKEN_SIGNALS.
------ other changes ------
s\mingw32.h:
Fix problems with NOT_C_CODE being in the wrong place and
excluding defines needed when building Makefile.in.in.
filelock.c, mule-canna.c, mule-ccl.c, mule-ccl.h, ralloc.c,
unexalpha.c, unexapollo.c, unexcw.c, unexelfsgi.c, unexnt.c,
unexsni.c, s\aix3-1.h, s\bsd4-1.h, s\bsd4-2.h, s\bsd4-3.h, s\cxux.h,
s\cygwin32.h, s\dgux.h, s\dgux5-4r2.h, s\dgux5-4r3.h, s\dgux5-4r4.h,
s\ewsux5r4.h, s\gnu.h, s\hpux.h, s\iris3-5.h, s\iris3-6.h,
s\irix3-3.h, s\linux.h, s\mingw32.h, s\newsos5.h, s\nextstep.h,
s\ptx.h, s\riscix1-1.h, s\riscix1-2.h, s\rtu.h, s\sco4.h, s\sco5.h,
s\template.h, s\ultrix.h, s\umax.h, s\umips.h, s\unipl5-0.h,
s\unipl5-2.h, s\usg5-0.h, s\usg5-2-2.h, s\usg5-2.h, s\usg5-3.h,
s\usg5-4.h, s\windowsnt.h, s\xenix.h:
Rename 'GNU Emacs' to XEmacs in the copyright and comments.
nas.c:
Stylistic cleanup. Avoid preprocessing games with names such
as play_sound_file.
xemacs-faq.texi:
Update sections on Windows and MacOS availability.
alist.el, apropos.el, autoload.el, bytecomp.el, cl-compat.el, cl-extra.el, cl-macs.el, cl-seq.el, cl.el, cmdloop.el, cus-edit.el, derived.el, gpm.el, itimer.el, lisp-mode.el, shadow.el, version.el, wid-browse.el:
Rename 'GNU Emacs' to XEmacs in the copyright. Fix other
references to GNU Emacs that should be XEmacs or just Emacs.
files.el:
Fix warning.
simple.el:
transpose-line-up/down will now move the region up or down by
a line if active.
cvtmail.c, fakemail.c, gnuserv.c, gnuserv.h, gnuslib.c, make-msgfile.c, make-path.c, pop.c, pop.h, profile.c, tcp.c:
Rename 'GNU Emacs' to XEmacs in the copyright.
Fix comments in similar ways.
digest-doc.c, sorted-doc.c:
Fix program and author name to reflect XEmacs.
| author | ben |
|---|---|
| date | Sun, 10 Jun 2001 10:42:39 +0000 |
| parents | abe6d1db359e |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* This file is part of XEmacs. |
| 2 | |
| 3 XEmacs is free software; you can redistribute it and/or modify it | |
| 4 under the terms of the GNU General Public License as published by the | |
| 5 Free Software Foundation; either version 2, or (at your option) any | |
| 6 later version. | |
| 7 | |
| 8 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 9 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 10 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 11 for more details. | |
| 12 | |
| 13 You should have received a copy of the GNU General Public License | |
| 14 along with XEmacs; see the file COPYING. If not, write to | |
| 15 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 16 Boston, MA 02111-1307, USA. */ | |
| 17 | |
| 18 /* Synched up with: Not in FSF. */ | |
| 19 | |
| 20 /* In SunOS 4.1.1 the strcmp and strncmp functions reference memory | |
| 21 past the last byte of the string! This will core dump if the memory | |
| 22 following the last byte is not mapped. | |
| 23 | |
| 24 Here are correct versions by hbs@lucid.com. | |
| 25 */ | |
| 26 | |
| 27 # include <config.h> | |
| 28 # ifndef REGISTER /* Strictly enforced in 20.3 */ | |
| 29 # define REGISTER | |
| 30 # endif | |
| 31 | |
| 32 #include <string.h> | |
| 33 #define ALIGNED(x) (!(((unsigned long) (x)) & (sizeof (unsigned long) - 1))) | |
| 34 | |
| 35 #define MAGIC 0x7efefeff | |
| 36 #define HIGH_BIT_P(c) ((c) & hi_bit) | |
| 37 #define HAS_ZERO(c) (((((c) + magic) ^ (c)) & not_magic) != not_magic) | |
| 38 | |
| 39 int | |
| 40 strcmp (const char *x, const char *y) | |
| 41 { | |
| 42 if (x == y) | |
| 43 return 0; | |
| 44 else if (ALIGNED (x) && ALIGNED (y)) | |
| 45 { | |
| 442 | 46 const unsigned long *x1 = (const unsigned long *) x; |
| 47 const unsigned long *y1 = (const unsigned long *) y; | |
| 428 | 48 unsigned long c; |
| 49 unsigned long magic = MAGIC; | |
| 50 unsigned long not_magic = ~magic; | |
| 51 unsigned long hi_bit = 0x80000000; | |
| 52 | |
| 53 while ((c = *x1) == *y1) | |
| 54 { | |
| 55 if (HAS_ZERO(c)) | |
| 56 { | |
| 57 if (!HIGH_BIT_P (c)) | |
| 58 return 0; | |
| 59 else | |
| 60 { | |
| 442 | 61 x = (const char *) x1; |
| 62 y = (const char *) y1; | |
| 428 | 63 goto slow_loop; |
| 64 } | |
| 65 } | |
| 66 | |
| 67 x1++; | |
| 68 y1++; | |
| 69 } | |
| 70 | |
| 442 | 71 x = (const char *) x1; |
| 72 y = (const char *) y1; | |
| 428 | 73 goto slow_loop; |
| 74 } | |
| 75 else | |
| 76 { | |
| 77 char c; | |
| 78 | |
| 79 slow_loop: | |
| 80 | |
| 81 while ((c = *x) == *y) | |
| 82 { | |
| 83 if (c == (char) 0) return 0; | |
| 84 x++; | |
| 85 y++; | |
| 86 } | |
| 87 return (*x - *y); | |
| 88 } | |
| 89 } | |
| 90 | |
| 91 | |
| 92 int | |
| 442 | 93 strncmp (const char *x, const char *y, size_t n) |
| 428 | 94 { |
| 95 if ((x == y) || (n <= 0)) | |
| 96 return 0; | |
| 97 else if (ALIGNED (x) && ALIGNED (y)) | |
| 98 { | |
| 442 | 99 const unsigned long *x1 = (const unsigned long *) x; |
| 100 const unsigned long *y1 = (const unsigned long *) y; | |
| 428 | 101 unsigned long c; |
| 102 unsigned long magic = MAGIC; | |
| 103 unsigned long not_magic = ~magic; | |
| 104 unsigned long hi_bit = 0x80000000; | |
| 105 | |
| 106 while ((c = *x1) == *y1) | |
| 107 { | |
| 108 n -= sizeof (unsigned long); | |
| 109 if (n <= 0) | |
| 110 return 0; | |
| 111 | |
| 112 if (HAS_ZERO(c)) | |
| 113 { | |
| 114 if (!HIGH_BIT_P (c)) | |
| 115 return 0; | |
| 116 else | |
| 117 { | |
| 442 | 118 x = (const char *) x1; |
| 119 y = (const char *) y1; | |
| 428 | 120 goto slow_loop; |
| 121 } | |
| 122 } | |
| 123 | |
| 124 x1++; | |
| 125 y1++; | |
| 126 } | |
| 127 | |
| 442 | 128 x = (const char *) x1; |
| 129 y = (const char *) y1; | |
| 428 | 130 goto slow_loop; |
| 131 } | |
| 132 else | |
| 133 { | |
| 134 char c; | |
| 135 | |
| 136 slow_loop: | |
| 137 | |
| 138 while ((c = *x) == *y) | |
| 139 { | |
| 140 n--; | |
| 141 if (n <= 0) | |
| 142 return 0; | |
| 143 if (c == (char) 0) | |
| 144 return 0; | |
| 145 x++; | |
| 146 y++; | |
| 147 } | |
| 148 return (*x - *y); | |
| 149 } | |
| 150 } |
