Mercurial > hg > xemacs-beta
annotate tests/sigpipe.c @ 5562:855b667dea13
Drop cl-macro-environment in favour of byte-compile-macro-environment.
lisp/ChangeLog addition:
2011-09-04 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp-runtime.el:
* bytecomp-runtime.el (byte-compile-macro-environment): Moved from
bytecomp.el.
* bytecomp.el:
* bytecomp.el (byte-compile-initial-macro-environment):
Add implementations for #'load-time-value, #'labels here, now
cl-macs respects byte-compile-macro-environment.
* bytecomp.el (byte-compile-function-environment):
* bytecomp.el (byte-compile-macro-environment): Removed.
* bytecomp.el (symbol-value):
* bytecomp.el (byte-compile-symbol-value): Removed.
* cl-extra.el (cl-macroexpand-all):
* cl-macs.el:
* cl-macs.el (bind-block):
* cl-macs.el (cl-macro-environment): Removed.
* cl-macs.el (cl-transform-lambda):
* cl-macs.el (load-time-value):
* cl-macs.el (block):
* cl-macs.el (flet):
* cl-macs.el (labels):
* cl-macs.el (macrolet):
* cl-macs.el (symbol-macrolet):
* cl-macs.el (lexical-let):
* cl-macs.el (apply):
* cl-macs.el (nthcdr):
* cl-macs.el (getf):
* cl-macs.el (substring):
* cl-macs.el (values):
* cl-macs.el (get-setf-method):
* cl-macs.el (cl-setf-do-modify):
* cl.el:
* cl.el (cl-macro-environment): Removed.
* cl.el (cl-macroexpand):
* obsolete.el (cl-macro-environment): Moved here.
Drop cl-macro-environment, in favour of
byte-compile-macro-environment; make the latter available in
bytecomp-runtime.el. This makes byte-compile-macro-environment far
less useless, since previously code that used cl-macs would ignore
it when calling #'cl-macroexpand-all.
Add byte-compiler-specific implementations for #'load-time-value,
#'labels. The latter is very nice indeed; it avoids the run-time
consing of the current implementation, is fully lexical and avoids
the run-time shadowing of symbol function slots that flet uses. It
would now be reasonable to move most core uses of flet to use
labels instead. Non-core code can't rely on print-circle for
mutually recursive functions, though, so it's less of an evident
win.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 04 Sep 2011 20:37:55 +0100 |
parents | 308d34e9f07d |
children |
rev | line source |
---|---|
1231 | 1 /* code is all from loser.c and loser.el by Mly |
2 | |
3 Copyright (C) 2002 Richard Mlynarik <mly@pobox.com> | |
4 | |
4739
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
5 This file is part of XEmacs. |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
6 |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4739
diff
changeset
|
7 XEmacs is free software: you can redistribute it and/or modify it |
4739
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
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:
4739
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:
4739
diff
changeset
|
10 option) any later version. |
4739
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
11 |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
15 for more details. |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
16 |
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
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:
4739
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
4739
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
1231
diff
changeset
|
19 Commentary: |
1231 | 20 |
21 Compile this file. Run it in the background giving it a command line | |
22 argument PORT which is a positive integer 1024 < PORT < 32768 (avoid the | |
23 numbers assigned in /etc/services). | |
24 | |
25 Then start up a fresh (you're going to crash) XEmacs. Execute the following | |
26 | |
27 (defun lose (port) | |
28 (interactive "nUrk: ") | |
29 (require 'comint) | |
30 (while t | |
31 (condition-case e | |
32 (let* ((name "*lose*") | |
33 (b (get-buffer-create name))) | |
34 (switch-to-buffer b) | |
35 (comint-mode) | |
36 (comint-exec b name (cons "127.0.0.1" port) nil '()) | |
37 (process-send-string (get-buffer-process b) "\377\373\001") | |
38 (process-send-string (get-buffer-process b) "\377\373\001")) | |
39 (error (message "URK: %s" e)) (sit-for 1)))) | |
40 | |
41 Then M-x lose RET PORT RET and you lose big (in XEmacs 21.1, anyway). | |
42 Note: the error messages are proper functioning. What should eventually | |
43 happen after a number of SIGPIPEs is that you get a SIGSEGV and life is | |
44 bad and XEmacs is dead. | |
45 */ | |
46 | |
47 #include <arpa/inet.h> | |
48 | |
49 int | |
50 main (int argc, char **argv) | |
51 { | |
52 struct sockaddr_in junk; | |
53 int s; | |
54 | |
55 memset (&junk, 0, sizeof (junk)); | |
56 | |
57 junk.sin_family = AF_INET; | |
58 junk.sin_addr.s_addr = htonl (INADDR_ANY); /* un*x sucks */ | |
59 junk.sin_port = htons (atoi (argv[1])); /* un*x blows */ | |
60 | |
61 s = socket (PF_INET, SOCK_STREAM, 0); | |
62 | |
63 bind (s, (struct sockaddr *)&junk, sizeof (junk)); | |
64 | |
65 listen (s, 1); | |
66 | |
67 for (;;) | |
68 { | |
69 int loser = accept (s, NULL, 0); | |
70 close (loser); | |
71 } | |
72 } | |
73 |