Mercurial > emacs
view src/syswait.h @ 43882:e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Add fortran-comment-line-start-skip to comment-start-skip.
(fortran-comment-indent): Keep whole-line comments in column 0.
(fortran-find-comment-start-skip): New arg `all'.
If ALL is nil, make sure we only match comment-start-skip if we
can't match fortran-comment-line-start-skip.
Fix bug that made it return t but without moving point when
matching '!'! (a false-comment followed by a real comment).
(fortran-indent-comment): Use new `all' argument above.
Be careful not to add an incorrect comment-starter like "C"
in comment-column.
(fortran-split-line): When splitting a comment, reuse the comment
starter from the current line rather than fortran-comment-line-start.
(fortran-indent-line, fortran-auto-fill): Simplify thanks to the
cleaner behavior of fortran-find-comment-start-skip.
(fortran-fill): Don't be confused by ! inside a comment.
(fortran-break-line): Minor cleanup and simplification.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 13 Mar 2002 16:33:56 +0000 |
parents | d12c8d3334f4 |
children | 971ae7795f13 |
line wrap: on
line source
/* Define wait system call interface for Emacs. Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Define the structure that the wait system call stores. On many systems, there is a structure defined for this. But on vanilla-ish USG systems there is not. */ #ifndef EMACS_SYSWAIT_H #define EMACS_SYSWAIT_H #ifndef VMS /* Try the approach recommended by autoconf. If this doesn't cause trouble anywhere, remove the original code, which is #if'd out below. */ #if 1 #include <sys/types.h> #ifdef HAVE_SYS_WAIT_H /* We have sys/wait.h with POSIXoid definitions. */ #include <sys/wait.h> #ifndef WCOREDUMP /* not POSIX */ #define WCOREDUMP(status) ((status) & 0x80) #endif #else /* !HAVE_SYS_WAIT_H */ /* Note that sys/wait.h may still be included by stdlib.h or something according to XPG. */ #undef WEXITSTATUS #define WEXITSTATUS(status) (((status) & 0xff00) >> 8) #undef WIFEXITED #define WIFEXITED(status) (WTERMSIG(status) == 0) #undef WIFSTOPPED #define WIFSTOPPED(status) (((status) & 0xff) == 0x7f) #undef WIFSIGNALED #define WIFSIGNALED(status) (!WIFSTOPPED(status) && !WIFEXITED(status)) #undef WSTOPSIG #define WSTOPSIG(status) WEXITSTATUS(status) #undef WTERMSIG #define WTERMSIG(status) ((status) & 0x7f) #undef WCOREDUMP #define WCOREDUMP(status) ((status) & 0x80) #endif /* HAVE_SYS_WAIT_H */ #undef WAITTYPE #define WAITTYPE int #undef WRETCODE #define WRETCODE(status) WEXITSTATUS (status) #else /* !1 */ #ifndef WAITTYPE #ifdef WAIT_USE_INT /* Some systems have union wait in their header, but we should use int regardless of that. */ #include <sys/wait.h> #define WAITTYPE int #define WRETCODE(w) WEXITSTATUS (w) #else /* not WAIT_USE_INT */ #if (!defined (BSD_SYSTEM) && !defined (UNIPLUS) && !defined (STRIDE) && !(defined (HPUX) && !defined (NOMULTIPLEJOBS)) && !defined (HAVE_WAIT_HEADER)) #define WAITTYPE int #define WIFSTOPPED(w) ((w&0377) == 0177) #define WIFSIGNALED(w) ((w&0377) != 0177 && (w&~0377) == 0) #define WIFEXITED(w) ((w&0377) == 0) #define WRETCODE(w) (w >> 8) #define WSTOPSIG(w) (w >> 8) #define WTERMSIG(w) (w & 0177) #ifndef WCOREDUMP #define WCOREDUMP(w) ((w&0200) != 0) #endif #else #ifdef BSD4_1 #include <wait.h> #else #include <sys/wait.h> #endif /* not BSD 4.1 */ #define WAITTYPE union wait #define WRETCODE(w) w.w_retcode #undef WCOREDUMP /* Later BSDs define this name differently. */ #define WCOREDUMP(w) w.w_coredump #if defined (HPUX) || defined (convex) /* HPUX version 7 has broken definitions of these. */ /* pvogel@convex.com says the convex does too. */ #undef WTERMSIG #undef WSTOPSIG #undef WIFSTOPPED #undef WIFSIGNALED #undef WIFEXITED #endif /* HPUX | convex */ #ifndef WTERMSIG #define WTERMSIG(w) w.w_termsig #endif #ifndef WSTOPSIG #define WSTOPSIG(w) w.w_stopsig #endif #ifndef WIFSTOPPED #define WIFSTOPPED(w) (WTERMSIG (w) == 0177) #endif #ifndef WIFSIGNALED #define WIFSIGNALED(w) (WTERMSIG (w) != 0177 && (WSTOPSIG (w)) == 0) #endif #ifndef WIFEXITED #define WIFEXITED(w) (WTERMSIG (w) == 0) #endif #endif /* BSD_SYSTEM || UNIPLUS || STRIDE || HPUX */ #endif /* not WAIT_USE_INT */ #endif /* no WAITTYPE */ #endif /* 1 */ #else /* VMS */ #define WAITTYPE int #define WIFSTOPPED(w) 0 #define WIFSIGNALED(w) 0 #define WIFEXITED(w) ((w) != -1) #define WRETCODE(w) (w) #define WSTOPSIG(w) (w) #define WCOREDUMP(w) 0 #define WTERMSIG(w) (w) #include <ssdef.h> #include <iodef.h> #include <clidef.h> #include "vmsproc.h" #endif /* VMS */ #endif /* EMACS_SYSWAIT_H */