Mercurial > hg > xemacs-beta
annotate src/syswait.h @ 5772:cd4f5f1f1f4c
Add #'write-sequence, on the model of #'write-char, API from Common Lisp.
src/ChangeLog addition:
2013-12-17 Aidan Kehoe <kehoea@parhasard.net>
* lisp.h:
* lisp.h (PARSE_KEYWORDS_8):
Correct this in cases where we can have noticeably fewer arguments
than KEYWORDS_OFFSET, check whether nargs > pk_offset.
Declare check_sequence_range in this header.
* print.c:
* print.c (Fwrite_sequence) New:
Write a sequence to a stream, in the same way #'write-char and
#'terpri do. API from Common Lisp, not GNU, so while there is some
char-int confoundance, it's more limited than usual with GNU APIs.
* print.c (syms_of_print):
Make it available.
* sequence.c (check_sequence_range):
Export this to other files.
lisp/ChangeLog addition:
2013-12-17 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el:
* cl-extra.el (write-string): New.
* cl-extra.el (write-line): New.
Add these here, implemented in terms of #'write-sequence in print.c.
tests/ChangeLog addition:
2013-12-17 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Up max-lisp-eval-depth when compiling this file, some of what
we're doing in testing #'write-sequence is demanding.
* automated/lisp-tests.el (make-circular-list):
New argument VALUE, the car of the conses to create.
* automated/lisp-tests.el:
Test #'write-sequence, #'write-string, #'write-line with function,
buffer and marker STREAMs; test argument types, keyword argument
ranges and values.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 17 Dec 2013 19:29:10 +0200 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* Define wait system call interface for Emacs. |
| 2 Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. | |
| 3 Copyright (C) 1995 Sun Microsystems, Inc. | |
| 4 | |
| 5 This file is part of XEmacs. | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2286
diff
changeset
|
7 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 8 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2286
diff
changeset
|
9 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2286
diff
changeset
|
10 option) any later version. |
| 428 | 11 |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
2286
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 19 |
| 440 | 20 #ifndef INCLUDED_syswait_h_ |
| 21 #define INCLUDED_syswait_h_ | |
| 428 | 22 |
| 23 #include <sys/types.h> | |
| 24 | |
| 25 #ifdef HAVE_SYS_WAIT_H | |
| 26 #include <sys/wait.h> | |
| 27 #endif | |
| 28 | |
| 2286 | 29 #ifdef UNO |
| 30 /* On glibc-based systems, these macros expand to forms containing | |
| 31 __extension__, which Uno cannot understand. */ | |
| 32 #undef WEXITSTATUS | |
| 33 #undef WIFEXITED | |
| 34 #undef WIFSTOPPED | |
| 35 #undef WIFSIGNALED | |
| 36 #undef WCOREDUMP | |
| 37 #undef WTERMSIG | |
| 38 #undef WSTOPSIG | |
| 39 #undef WRETCODE | |
| 40 #endif | |
| 41 | |
| 428 | 42 #ifndef WEXITSTATUS |
| 43 #define WEXITSTATUS(s) ((s) >> 8) | |
| 44 #endif | |
| 45 #ifndef WIFEXITED | |
| 46 #define WIFEXITED(s) (((s) & 0xff) == 0) | |
| 47 #endif | |
| 48 #ifndef WIFSTOPPED | |
| 49 #define WIFSTOPPED(s) (((s) & 0xff) == 0x7f) | |
| 50 #endif | |
| 51 #ifndef WIFSIGNALED | |
| 52 #define WIFSIGNALED(s) (((unsigned int)((s)-1) & 0xffff) < 0xff) | |
| 53 #endif | |
| 54 #ifndef WCOREDUMP | |
| 55 #define WCOREDUMP(s) ((s) & 0200) | |
| 56 #endif | |
| 57 #ifndef WTERMSIG | |
| 58 #define WTERMSIG(s) ((s) & 0x7f) | |
| 59 #endif | |
| 60 #ifndef WSTOPSIG | |
| 61 #define WSTOPSIG(s) ((s) >> 8) | |
| 62 #endif | |
| 63 #ifndef WRETCODE | |
| 64 #define WRETCODE(s) ((s) >> 8) | |
| 65 #endif | |
| 66 | |
| 440 | 67 #endif /* INCLUDED_syswait_h_ */ |
