annotate src/sysdep.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents e7ee5f8bde58
children 1d8fb2eee1bb
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 /* Interfaces to system-dependent kernel and library entries.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1985-1988, 1992-1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1995 Tinker Systems.
777
e65d9cf16707 [xemacs-hg @ 2002-03-15 11:00:28 by ben]
ben
parents: 771
diff changeset
4 Copyright (C) 2000, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
23
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 /* Synched up with: FSF 19.30 except for some Windows-NT crap. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
26 /* Authorship:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
27
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
28 Current primary author: Various
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
29
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
30 Originally from FSF. Major changes at various times.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
31 Substantially cleaned up by Ben Wing, Dec. 1994 / Jan. 1995.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
32 SIGIO stuff ripped apart and redone by Ben Wing. (during 19.14 devel?)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
33 Signal stuff totally redone by Ben Wing. (during 19.14 devel? that would
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
34 be Dec 1995 - Apr 1996.)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
35 Controlling terminal stuff redone by Ben Wing for 19.13.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
36 System call encapsulation stuff written by Ben Wing for 19.12. (1995)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
37 Ripped up and redone avoiding preprocessor tricks Aug - Sep 2001 during
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
38 Mule-on-Windows development.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
39 */
428
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 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 /* ------------------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 /* basic includes */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 /* ------------------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
48
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
49 #include "buffer.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
50 #include "device.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
51 #include "events.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
52 #include "frame.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
53 #include "process.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
54 #include "redisplay.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
55 #include "sysdep.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
56 #include "window.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
57
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #include "console-tty.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 #include "console-stream.h"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
64 #ifdef WIN32_NATIVE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
65 #include "syswindows.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
68 #include "sysdir.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
69 #include "sysfile.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
70 #include "sysproc.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
71 #include "syspwd.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
72 #include "syssignal.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
73 #include "syssignal.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
74 #include "systime.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
75 #include "systty.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
76 #include "syswait.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
77
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
78 #include <setjmp.h>
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
79
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
80
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 /* ------------------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 /* TTY definitions */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 /* ------------------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 #ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 #include <sys/utsname.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 #if defined (TIOCGWINSZ) || defined (ISC4_0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 #ifdef NEED_SIOCTL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 #include <sys/sioctl.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 #ifdef NEED_PTEM_H
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 #include <sys/stream.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 #include <sys/ptem.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 #endif /* TIOCGWINSZ or ISC4_0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 #endif /* USG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 /* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 #ifndef LPASS8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 #define LPASS8 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 #ifndef HAVE_H_ERRNO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 int h_errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 static int baud_convert[] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 #ifdef BAUD_CONVERT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 BAUD_CONVERT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 1800, 2400, 4800, 9600, 19200, 38400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 static void hft_init (struct console *c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 static void hft_reset (struct console *c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 #include <sys/termio.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 /* subprocess control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
132 #ifdef NEED_SYNC_PROCESS_CODE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
133
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
134 /* True iff we are about to fork off a synchronous process or if we
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
135 are waiting for it. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
136 volatile int synch_process_alive;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
137
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
138 /* Nonzero => this is a string explaining death of synchronous subprocess. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
139 const char *synch_process_death;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
140
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
141 /* If synch_process_death is zero,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
142 this is exit code of synchronous subprocess. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
143 int synch_process_retcode;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
144
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
145 #endif /* NEED_SYNC_PROCESS_CODE */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
146
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 #ifdef SIGTSTP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 /* Arrange for character C to be read as the next input from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 the terminal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 stuff_char (struct console *con, int c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 /* Should perhaps error if in batch mode */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 #ifdef TIOCSTI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 ioctl (input_fd, TIOCSTI, &c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 #else /* no TIOCSTI */
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
164 invalid_operation ("Cannot stuff terminal input characters in this version of Unix.", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 #endif /* no TIOCSTI */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 #endif /* SIGTSTP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 set_exclusive_use (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 #ifdef FIOCLEX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 ioctl (fd, FIOCLEX, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 /* Ok to do nothing if this feature does not exist */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 set_descriptor_non_blocking (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 /* Stride people say it's a mystery why this is needed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 as well as the O_NDELAY, but that it fails without this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 /* For AIX: Apparently need this for non-blocking reads on sockets.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 It seems that O_NONBLOCK applies only to FIFOs? From
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 lowry@watson.ibm.com (Andy Lowry). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 /* #### Should this be conditionalized on FIONBIO? */
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
190 #if defined (STRIDE) || defined (pfa) || defined (AIX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 int one = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 ioctl (fd, FIONBIO, &one);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 #ifdef F_SETFL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 fcntl (fd, F_SETFL, O_NONBLOCK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
202 #ifdef NEED_SYNC_PROCESS_CODE /* #### Used only on super-ancient systems */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
203
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
204 static void
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
205 wait_for_termination (int pid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 /* #### With the new improved SIGCHLD handling stuff, there is much
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 less danger of race conditions and some of the comments below
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 don't apply. This should be updated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 #if defined (NO_SUBPROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 /* No need to be tricky like below; we can just call wait(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 /* #### should figure out how to write a wait_allowing_quit().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 Since hardly any systems don't have subprocess support,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 however, there doesn't seem to be much point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 if (wait (0) == pid)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 #elif defined (HAVE_WAITPID)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 /* Note that, whenever any subprocess terminates (asynch. or synch.),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 the SIGCHLD handler will be called and it will call wait(). Thus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 we cannot just call wait() ourselves, and we can't block SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 and then call wait(), because then if an asynch. process dies
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 while we're waiting for our synch. process, Emacs will never
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 notice that the asynch. process died.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 So, the general approach we take is to repeatedly block until a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 signal arrives, and then check if our process died using kill
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 (pid, 0). (We could also check the value of `synch_process_alive',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 since the SIGCHLD handler will reset that and we know that we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 only being called on synchronous processes, but this approach is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 safer. I don't trust the proper delivery of SIGCHLD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 Note also that we cannot use any form of waitpid(). A loop with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 WNOHANG will chew up CPU time; better to use sleep(). A loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 without WNOWAIT will screw up the SIGCHLD handler (actually this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 is not true, if you duplicate the exit-status-reaping code; see
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 below). A loop with WNOWAIT will result in a race condition if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 the process terminates between the process-status check and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 call to waitpid(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 /* Formerly, immediate_quit was set around this function call, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 that could lead to problems if the QUIT happened when SIGCHLD was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 blocked -- it would remain blocked. Yet another reason why
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 immediate_quit is a bad idea. In any case, there is no reason to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 resort to this because either the SIGIO or the SIGALRM will stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 the block in EMACS_WAIT_FOR_SIGNAL(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 /* Apparently there are bugs on some systems with the second method
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 used below (the EMACS_BLOCK_SIGNAL method), whereby zombie
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 processes get left around. It appears in those cases that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 SIGCHLD handler is never getting invoked. It's not clear whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 this is an Emacs bug or a kernel bug or both: on HPUX this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 problem is observed only with XEmacs, but under Solaris 2.4 all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 sorts of different programs have problems with zombies. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 method we use here does not require a working SIGCHLD (but will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 not break if it is working), and should be safe. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 We use waitpid(), contrary to the remarks above. There is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 race condition, because the three situations when sigchld_handler
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 is invoked should be handled OK:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 - handler invoked before waitpid(): In this case, subprocess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 status will be set by sigchld_handler. waitpid() here will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 return -1 with errno set to ECHILD, which is a valid exit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 condition.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 - handler invoked during waitpid(): as above, except that errno
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 here will be set to EINTR. This will cause waitpid() to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 called again, and this time it will exit with ECHILD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 - handler invoked after waitpid(): The following code will reap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 the subprocess. In the handler, wait() will return -1 because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 there is no child to reap, and the handler will exit without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 modifying child subprocess status. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 int ret, status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 /* Because the SIGCHLD handler can potentially reap the synchronous
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 subprocess, we should take care of that. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 /* Will stay in the do loop as long as:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 1. Process is alive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 2. Ctrl-G is not pressed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 ret = waitpid (pid, &status, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 /* waitpid returns 0 if the process is still alive. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 while (ret == 0 || (ret == -1 && errno == EINTR));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 if (ret == pid) /* Success */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 /* Set synch process globals. This is can also happen
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 in sigchld_handler, and that code is duplicated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 synch_process_alive = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 if (WIFEXITED (status))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 synch_process_retcode = WEXITSTATUS (status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 else if (WIFSIGNALED (status))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 synch_process_death = signal_name (WTERMSIG (status));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 /* On exiting the loop, ret will be -1, with errno set to ECHILD if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 the child has already been reaped, e.g. in the signal handler. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 /* Otherwise, we've had some error condition here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 Per POSIX, the only other possibilities are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 - EFAULT (bus error accessing arg 2) or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 - EINVAL (incorrect arguments),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 which are both program bugs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 Since implementations may add their own error indicators on top,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 we ignore it by default. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 #elif defined (EMACS_BLOCK_SIGNAL) && !defined (BROKEN_WAIT_FOR_SIGNAL) && defined (SIGCHLD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 static int wait_debugging = 0; /* Set nonzero to make following
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 function work under dbx (at least for bsd). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 if (wait_debugging)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 EMACS_BLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 /* Block SIGCHLD from happening during this check,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 to avoid race conditions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 if (kill (pid, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 /* WARNING: Whatever this macro does *must* not allow SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 to happen between the time that it's reenabled and when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 begin to block. Otherwise we may end up blocking for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 signal that has already arrived and isn't coming again.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 Can you say "race condition"?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 I assume that the system calls sigpause() or sigsuspend()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 to provide this atomicness. If you're getting hangs in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 sigpause()/sigsuspend(), then your OS doesn't implement
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 this properly (this applies under hpux9, for example).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 Try defining BROKEN_WAIT_FOR_SIGNAL. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 EMACS_WAIT_FOR_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
346 #else /* not HAVE_WAITPID and (not EMACS_BLOCK_SIGNAL or BROKEN_WAIT_FOR_SIGNAL) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 /* This approach is kind of cheesy but is guaranteed(?!) to work
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 for all systems. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 if (kill (pid, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 return;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
354 stop_interrupts ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
355 sleep (1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
356 start_interrupts ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 #endif /* OS features */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
361 #endif /* NEED_SYNC_PROCESS_CODE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 #if !defined (NO_SUBPROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 * flush any pending output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 * (may flush input as well; it does not matter the way we use it)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 flush_pending_output (int channel)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 #ifdef HAVE_TERMIOS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 /* If we try this, we get hit with SIGTTIN, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 the child's tty belongs to the child's pgrp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 #elif defined (TCFLSH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 ioctl (channel, TCFLSH, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 #elif defined (TIOCFLUSH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 int zero = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 /* 3rd arg should be ignored
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 but some 4.2 kernels actually want the address of an int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 and nonzero means something different. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 ioctl (channel, TIOCFLUSH, &zero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
387 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 /* Set up the terminal at the other end of a pseudo-terminal that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 we will be controlling an inferior through.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 It should not echo or do line-editing, since that is done
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 in Emacs. No padding needed for insertion into an Emacs buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 child_setup_tty (int out)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 struct emacs_tty s;
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
397 emacs_get_tty (out, &s);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 assert (isatty(out));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 s.main.c_oflag |= OPOST; /* Enable output postprocessing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 s.main.c_oflag &= ~ONLCR; /* Disable map of NL to CR-NL on output */
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
403
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
404 {
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
405 /* Disable all output delays. */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
406 tcflag_t delay_mask = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 #ifdef NLDLY
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
408 delay_mask |= NLDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
409 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
410 #ifdef CRDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
411 delay_mask |= CRDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
412 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
413 #ifdef TABDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
414 delay_mask |= TABDLY; /* Also disables tab expansion (Posix). */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
415 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
416 #ifdef BSDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
417 delay_mask |= BSDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
418 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
419 #ifdef VTDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
420 delay_mask |= VTDLY;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 #endif
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
422 #ifdef FFDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
423 delay_mask |= FFDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
424 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
425 s.main.c_oflag &= ~delay_mask;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
426 }
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
427
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
428 #ifdef OXTABS
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
429 /* Posix defines the TAB3 value for TABDLY to mean: expand tabs to spaces.
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
430 On those systems tab expansion would be disabled by the above code.
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
431 BSD systems use an independent flag, OXTABS. */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
432 s.main.c_oflag &= ~OXTABS; /* Disable tab expansion */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
433 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
434
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 s.main.c_lflag &= ~ECHO; /* Disable echo */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 s.main.c_lflag |= ISIG; /* Enable signals */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 #ifdef IUCLC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 s.main.c_iflag &= ~IUCLC; /* Disable downcasing on input. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 #ifdef OLCUC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 s.main.c_oflag &= ~OLCUC; /* Disable upcasing on output. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 #endif
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
443
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 #if defined (CSIZE) && defined (CS8)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 s.main.c_cflag = (s.main.c_cflag & ~CSIZE) | CS8; /* Don't strip 8th bit */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 #ifdef ISTRIP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 s.main.c_iflag &= ~ISTRIP; /* Don't strip 8th bit on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 /* Unnecessary as long as ICANON is set */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 s.main.c_cc[VMIN] = 1; /* minimum number of characters to accept */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 s.main.c_cc[VTIME] = 0; /* wait forever for at least 1 character */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 s.main.c_lflag |= ICANON; /* Enable erase/kill and eof processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 s.main.c_cc[VEOF] = 04; /* ensure that EOF is Control-D */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 s.main.c_cc[VERASE] = _POSIX_VDISABLE; /* disable erase processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 s.main.c_cc[VKILL] = _POSIX_VDISABLE; /* disable kill processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 #ifdef HPUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 s.main.c_cflag = (s.main.c_cflag & ~CBAUD) | B9600; /* baud rate sanity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 #endif /* HPUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 #ifdef AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 #ifndef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 /* AIX enhanced edit loses NULs, so disable it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 s.main.c_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 s.main.c_iflag &= ~ASCEDIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 #endif /* IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 /* Also, PTY overloads NUL and BREAK.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 don't ignore break, but don't signal either, so it looks like NUL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 This really serves a purpose only if running in an XTERM window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 or via TELNET or the like, but does no harm elsewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 s.main.c_iflag &= ~IGNBRK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 s.main.c_iflag &= ~BRKINT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 #endif /* AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 #ifdef SIGNALS_VIA_CHARACTERS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 /* TTY `special characters' are used in process_send_signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 so set them here to something useful. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 s.main.c_cc[VQUIT] = '\\'&037; /* Control-\ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 s.main.c_cc[VINTR] = 'C' &037; /* Control-C */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 s.main.c_cc[VSUSP] = 'Z' &037; /* Control-Z */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 #else /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 /* TTY `special characters' work better as signals, so disable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 character forms */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 s.main.c_cc[VQUIT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 s.main.c_cc[VINTR] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 s.main.c_cc[VSUSP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 s.main.c_lflag &= ~ISIG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 #endif /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 s.main.c_cc[VEOL] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 #if defined (CBAUD)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
494 /* <mdiers> #### This is not portable. ###
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 POSIX does not specify CBAUD, and 4.4BSD does not have it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 Instead, POSIX suggests to use cfset{i,o}speed().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 [cf. D. Lewine, POSIX Programmer's Guide, Chapter 8: Terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 I/O, O'Reilly 1991] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 s.main.c_cflag = (s.main.c_cflag & ~CBAUD) | B9600; /* baud rate sanity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 /* <mdiers> What to do upon failure? Just ignoring rc is probably
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 not acceptable, is it? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 if (cfsetispeed (&s.main, B9600) == -1) /* ignore */;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 if (cfsetospeed (&s.main, B9600) == -1) /* ignore */;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 #endif /* defined (CBAUD) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 #else /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 s.main.sg_flags &= ~(ECHO | CRMOD | ANYP | ALLDELAY | RAW | LCASE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 | CBREAK | TANDEM);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 s.main.sg_flags |= LPASS8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 s.main.sg_erase = 0377;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 s.main.sg_kill = 0377;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 s.lmode = LLITOUT | s.lmode; /* Don't strip 8th bit */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 #endif /* not HAVE_TERMIO */
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
517 emacs_set_tty (out, &s, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 #ifdef RTU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 int zero = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 ioctl (out, FIOASYNC, &zero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 #endif /* RTU */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
526 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 #endif /* not NO_SUBPROCESSES */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 #if !defined (SIGTSTP) && !defined (USG_JOBCTRL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 #if defined(__STDC__) || defined(_MSC_VER)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 #define SIG_PARAM_TYPE int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 #define SIG_PARAM_TYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 /* Record a signal code and the handler for it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 struct save_signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 int code;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 SIGTYPE (*handler) (SIG_PARAM_TYPE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 save_signal_handlers (struct save_signal *saved_handlers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 while (saved_handlers->code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 saved_handlers->handler
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
552 = (SIGTYPE (*) (SIG_PARAM_TYPE)) EMACS_SIGNAL (saved_handlers->code, SIG_IGN);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 saved_handlers++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 restore_signal_handlers (struct save_signal *saved_handlers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 while (saved_handlers->code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 {
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
562 EMACS_SIGNAL (saved_handlers->code, saved_handlers->handler);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 saved_handlers++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 /* Fork a subshell. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 sys_subshell (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 Lisp_Object dir;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
573 Intbyte *str = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
574 Bytecount len;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 struct gcpro gcpro1;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
576 Intbyte *sh = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
577 Extbyte *shext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
578
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
579 /* Use our buffer's default directory for the subshell. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
580
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
581 /* Note: These calls are spread out to insure that the return values
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
582 of the calls (which may be newly-created strings) are properly
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
583 GC-protected. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
584
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 GCPRO1 (dir);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
586
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
587 dir = current_buffer->directory;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
588 /* If the current dir has no terminating slash, we'll get undesirable
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
589 results, so put the slash back. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
590 dir = Ffile_name_as_directory (dir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 dir = Funhandled_file_name_directory (dir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 dir = expand_and_dir_to_file (dir, Qnil);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
593
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
594 str = (Intbyte *) ALLOCA (XSTRING_LENGTH (dir) + 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 len = XSTRING_LENGTH (dir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 memcpy (str, XSTRING_DATA (dir), len);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
597 if (!IS_ANY_SEP (str[len - 1]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
598 str[len++] = DIRECTORY_SEP;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 str[len] = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
600
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
601 if (sh == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
602 sh = egetenv ("SHELL");
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
603 if (sh == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
604 sh = "sh";
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
605
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
606 C_STRING_TO_EXTERNAL (sh, shext, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
607
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
608 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
610 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
611
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
612 if (str)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
613 qxe_chdir (str);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
614
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
615 /* Waits for process completion */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
616 if (_spawnlp (_P_WAIT, shext, shext, NULL) != 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
617 report_process_error ("Can't spawn subshell", Qunbound);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
618 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
619 return; /* we're done, no need to wait for termination */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
620
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
621 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
622
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
623 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
624 int pid;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
625 struct save_signal saved_handlers[5];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
626
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
627 saved_handlers[0].code = SIGINT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
628 saved_handlers[1].code = SIGQUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
629 saved_handlers[2].code = SIGTERM;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
630 #ifdef SIGIO
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
631 saved_handlers[3].code = SIGIO;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
632 saved_handlers[4].code = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
633 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
634 saved_handlers[3].code = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
635 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
636
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
637 pid = fork ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
638
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
639 if (pid == -1)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
640 report_process_error ("Can't spawn subshell", Qunbound);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
641 if (pid == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
642 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
643 if (str)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
644 qxe_chdir (str);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
645
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
646 #if !defined (NO_SUBPROCESSES)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
647 close_process_descs (); /* Close Emacs's pipes/ptys */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 #ifdef SET_EMACS_PRIORITY
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
651 if (emacs_priority != 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
652 nice (-emacs_priority); /* Give the new shell the default priority */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
655 execlp (shext, shext, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
656 retry_write (1, "Can't execute subshell", 22);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
657 _exit (1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
658 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
659
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
660 save_signal_handlers (saved_handlers);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
661 synch_process_alive = 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
662 wait_for_termination (pid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
663 restore_signal_handlers (saved_handlers);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
666 #endif /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 #endif /* !defined (SIGTSTP) && !defined (USG_JOBCTRL) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 /* Suspend the Emacs process; give terminal to its superior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 sys_suspend (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 #if defined (SIGTSTP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 int pgrp = EMACS_GET_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 EMACS_KILLPG (pgrp, SIGTSTP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 #elif defined (USG_JOBCTRL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 /* If you don't know what this is don't mess with it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 ptrace (0, 0, 0, 0); /* set for ptrace - caught by csh */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 kill (getpid (), SIGQUIT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 #else /* No SIGTSTP or USG_JOBCTRL */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 /* On a system where suspending is not implemented,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 instead fork a subshell and let it talk directly to the terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 while we wait. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 sys_subshell ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 /* Suspend a process if possible; give terminal to its superior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 sys_suspend_process (int process)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 /* I don't doubt that it is possible to suspend processes on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 * VMS machines or thost that use USG_JOBCTRL,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 * but I don't know how to do it, so...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 #if defined (SIGTSTP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 kill(process, SIGTSTP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 /* Given FD, obtain pty buffer size. When no luck, a good guess is made,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
713 so that the function works even when fd is not a pty. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 get_pty_max_bytes (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
718 /* DEC OSF 4.0 fpathconf returns 255, but xemacs hangs on long shell
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
719 input lines if we return 253. 252 is OK!. So let's leave a bit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
720 of slack for the newline that xemacs will insert, and for those
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
721 inevitable vendor off-by-one-or-two-or-three bugs. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
722 #define MAX_CANON_SLACK 10
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
723 #define SAFE_MAX_CANON (127 - MAX_CANON_SLACK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 #if defined (HAVE_FPATHCONF) && defined (_PC_MAX_CANON)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
726 int max_canon = fpathconf (fd, _PC_MAX_CANON);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727 #ifdef __hpux__
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
728 /* HP-UX 10.20 fpathconf returns 768, but this results in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
729 truncated input lines, while 255 works. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
730 if (max_canon > 255) max_canon = 255;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
732 return (max_canon < 0 ? SAFE_MAX_CANON :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
733 max_canon > SAFE_MAX_CANON ? max_canon - MAX_CANON_SLACK :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
734 max_canon);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
735 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
736 #elif defined (_POSIX_MAX_CANON)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
737 return (_POSIX_MAX_CANON > SAFE_MAX_CANON ?
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
738 _POSIX_MAX_CANON - MAX_CANON_SLACK :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
739 _POSIX_MAX_CANON);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
740 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
741 return SAFE_MAX_CANON;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
742 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 /* Figure out the eof character for the FD. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
747 Intbyte
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 get_eof_char (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
750 const Intbyte ctrl_d = (Intbyte) '\004';
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 if (!isatty (fd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 #ifdef HAVE_TERMIOS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 struct termios t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 tcgetattr (fd, &t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 /* What is the following line designed to do??? -mrb */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
760 if ((int) strlen ((const char *) t.c_cc) < (VEOF + 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 else
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
763 return (Intbyte) t.c_cc[VEOF];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 #endif
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
765 return t.c_cc[VEOF] == _POSIX_VDISABLE ? ctrl_d : (Intbyte) t.c_cc[VEOF];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 #else /* ! HAVE_TERMIOS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 /* On Berkeley descendants, the following IOCTL's retrieve the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 current control characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 #if defined (TIOCGETC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 struct tchars c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 ioctl (fd, TIOCGETC, &c);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
774 return (Intbyte) c.t_eofc;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 #else /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 /* On SYSV descendants, the TCGETA ioctl retrieves the current control
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 #ifdef TCGETA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 struct termio t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 ioctl (fd, TCGETA, &t);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
783 if ((int) strlen ((const char *) t.c_cc) < (VINTR + 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 else
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
786 return (Intbyte) t.c_cc[VINTR];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 #else /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 /* Rather than complain, we'll just guess ^D, which is what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 * earlier emacsen always used. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 #endif /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 #endif /* ! defined (TIOCGETC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 #endif /* ! defined (HAVE_TERMIOS) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 /* Set the logical window size associated with descriptor FD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 to HEIGHT and WIDTH. This is used mainly with ptys. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 set_window_size (int fd, int height, int width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 #ifdef TIOCSWINSZ
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 /* BSD-style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 struct winsize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 size.ws_row = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 size.ws_col = width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 if (ioctl (fd, TIOCSWINSZ, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 return 0; /* error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 #elif defined (TIOCSSIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 /* SunOS - style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 struct ttysize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 size.ts_lines = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 size.ts_cols = width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 if (ioctl (fd, TIOCGSIZE, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 /* Set up the proper status flags for use of a pty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 setup_pty (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 #ifdef IBMRTAIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 /* On AIX, the parent gets SIGHUP when a pty attached child dies. So, we */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 /* ignore SIGHUP once we've started a child on a pty. Note that this may */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 /* cause EMACS not to die when it should, i.e., when its own controlling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 /* tty goes away. I've complained to the AIX developers, and they may */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 /* change this behavior, but I'm not going to hold my breath. */
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
842 EMACS_SIGNAL (SIGHUP, SIG_IGN);
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
843 #endif /* IBMRTAIX */
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
844
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 #ifdef TIOCPKT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 /* In some systems (Linux through 2.0.0, at least), packet mode doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 get cleared when a pty is closed, so we need to clear it here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 Linux pre2.0.13 contained an attempted fix for this (from Ted Ts'o,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 tytso@mit.edu), but apparently it messed up rlogind and telnetd, so he
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 removed the fix in pre2.0.14. - dkindred@cs.cmu.edu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 ioctl (fd, TIOCPKT, (char *)&off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 }
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
856 #endif /* TIOCPKT */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 /* TTY control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 /* get baud rate */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 /* It really makes more sense for the baud-rate to be console-specific
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 and not device-specific, but it's (at least potentially) used for output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 decisions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 init_baud_rate (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 if (DEVICE_WIN_P (d) || DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 DEVICE_BAUD_RATE (d) = 38400;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
884 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 int input_fd = CONSOLE_TTY_DATA (con)->infd;
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
886 #ifdef HAVE_TERMIOS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 struct termios sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 sg.c_cflag = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 tcgetattr (input_fd, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 DEVICE_TTY_DATA (d)->ospeed = cfgetospeed (&sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 # if defined (USE_GETOBAUD) && defined (getobaud)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 /* m88k-motorola-sysv3 needs this (ghazi@noc.rutgers.edu) 9/1/94. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 if (DEVICE_TTY_DATA (d)->ospeed == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 DEVICE_TTY_DATA (d)->ospeed = getobaud (sg.c_cflag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 #elif defined (HAVE_TERMIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 struct termio sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 sg.c_cflag = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 # ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 tcgetattr (input_fd, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 ioctl (input_fd, TCGETA, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 DEVICE_TTY_DATA (d)->ospeed = sg.c_cflag & CBAUD;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 #else /* neither TERMIOS nor TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 struct sgttyb sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 sg.sg_ospeed = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 if (ioctl (input_fd, TIOCGETP, &sg) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 DEVICE_TTY_DATA (d)->ospeed = sg.sg_ospeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 DEVICE_BAUD_RATE (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 (DEVICE_TTY_DATA (d)->ospeed < countof (baud_convert)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 ? baud_convert[DEVICE_TTY_DATA (d)->ospeed]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 : 9600);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 if (DEVICE_BAUD_RATE (d) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 DEVICE_BAUD_RATE (d) = 1200;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 /* SIGIO control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
932 #if defined (SIGIO) && !defined (BROKEN_SIGIO)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 init_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 #if defined (FIOSSAIOOWN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 { /* HPUX stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 int owner = getpid ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 ioctl_status = ioctl (filedesc, FIOGSAIOOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 ioctl_status = ioctl (filedesc, FIOSSAIOOWN, &owner);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 else if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 ioctl_status = ioctl (filedesc, SIOCGPGRP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 ioctl_status = ioctl (filedesc, SIOCSPGRP, &owner);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 #elif defined (F_SETOWN) && !defined (F_SETOWN_BUG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 DEVICE_OLD_FCNTL_OWNER (d) = fcntl (filedesc, F_GETOWN, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 # ifdef F_SETOWN_SOCK_NEG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 /* stdin is a socket here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 fcntl (filedesc, F_SETOWN, -getpid ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 fcntl (filedesc, F_SETOWN, getpid ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 reset_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 #if defined (FIOSSAIOOWN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 { /* HPUX stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 ioctl_status = ioctl (filedesc, FIOSSAIOOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 else if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 ioctl_status = ioctl (filedesc, SIOCSPGRP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 #elif defined (F_SETOWN) && !defined (F_SETOWN_BUG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 fcntl (filedesc, F_SETOWN, DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 request_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1000 /* NOTE: It appears that Linux has its own mechanism for requesting
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1001 SIGIO, using the F_GETSIG and F_SETSIG commands to fcntl().
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1002 These let you pick which signal you want sent (not just SIGIO),
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1003 and if you do this, you get additional info which tells you which
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1004 file descriptor has input ready on it. The man page says:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1005
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1006 Using these mechanisms, a program can implement fully
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1007 asynchronous I/O without using select(2) or poll(2) most
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1008 of the time.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1009
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1010 The use of O_ASYNC, F_GETOWN, F_SETOWN is specific to BSD
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1011 and Linux. F_GETSIG and F_SETSIG are Linux-specific.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1012 POSIX has asynchronous I/O and the aio_sigevent structure
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1013 to achieve similar things; these are also available in
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1014 Linux as part of the GNU C Library (Glibc).
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1015
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1016 But it appears that Linux also supports O_ASYNC, so I see no
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1017 particular need to switch. --ben
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1018 */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1019
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1020 #if defined (I_SETSIG) && !defined (HPUX10) && !defined (LINUX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1022 int events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 ioctl (filedesc, I_GETSIG, &events);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 ioctl (filedesc, I_SETSIG, events | S_INPUT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1026 #elif defined (O_ASYNC)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1027 /* Generally FASYNC and O_ASYNC are both defined, and both equal;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1028 but let's not depend on that. O_ASYNC appears to be more
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1029 standard (at least the Linux include files think so), so
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1030 check it first. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1031 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) | O_ASYNC);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 #elif defined (FASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) | FASYNC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 #elif defined (FIOSSAIOSTAT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 /* DG: Changed for HP-UX. HP-UX uses different IOCTLs for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 sockets and other devices for some bizarre reason. We guess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 that an X device is a socket, and tty devices aren't. We then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 use the following crud to do the appropriate thing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 int on = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 int ioctl_status; /* ####DG: check if IOCTL succeeds here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 ioctl_status = ioctl (filedesc, FIOSSAIOSTAT, &on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 else if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 ioctl_status = ioctl (filedesc, FIOASYNC, &on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 #elif defined (FIOASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 int on = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 ioctl (filedesc, FIOASYNC, &on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 #if defined (_CX_UX) /* #### Is this crap necessary? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 EMACS_UNBLOCK_SIGNAL (SIGIO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 unrequest_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1071 #if defined (I_SETSIG) && !defined (HPUX10) && !defined (LINUX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1073 int events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 ioctl (filedesc, I_GETSIG, &events);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 ioctl (filedesc, I_SETSIG, events & ~S_INPUT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1077 #elif defined (O_ASYNC)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1078 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) & ~O_ASYNC);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 #elif defined (FASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) & ~FASYNC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 #elif defined (FIOSSAIOSTAT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 /* DG: Changed for HP-UX. HP-UX uses different IOCTLs for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 sockets and other devices for some bizarre reason. We guess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 that an X device is a socket, and tty devices aren't. We then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 use the following crud to do the appropriate thing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 /* See comment for request_sigio_on_device */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 ioctl_status = ioctl (filedesc, FIOSSAIOSTAT, &off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 ioctl_status = ioctl (filedesc, FIOASYNC, &off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 #elif defined (FIOASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 ioctl (filedesc, FIOASYNC, &off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 request_sigio (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 request_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 unrequest_sigio (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 unrequest_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 #endif /* SIGIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 /* Changing Emacs's process group */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 /* Saving and restoring the process group of Emacs's terminal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 /* On some systems, apparently (?!) Emacs must be in its own process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 group in order to receive SIGIO correctly. On other systems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 (e.g. Solaris), it's not required and doing it makes things
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 get fucked up. So, we only do it when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP is defined. Basically,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 this is only required for BSD 4.2 systems. (Actually, I bet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 we don't have to do this at all -- those systems also
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 required interrupt input, which we don't support.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 If Emacs was in its own process group (i.e. inherited_pgroup ==
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 getpid ()), then we know we're running under a shell with job
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 control (Emacs would never be run as part of a pipeline).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 Everything is fine.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 If Emacs was not in its own process group, then we know we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 running under a shell (or a caller) that doesn't know how to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 separate itself from Emacs (like sh). Emacs must be in its own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 process group in order to receive SIGIO correctly. In this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 situation, we put ourselves in our own pgroup, forcibly set the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 tty's pgroup to our pgroup, and make sure to restore and reinstate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 the tty's pgroup just like any other terminal setting. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 inherited_group was not the tty's pgroup, then we'll get a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 SIGTTmumble when we try to change the tty's pgroup, and a CONT if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 it goes foreground in the future, which is what should happen. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1177 static pid_t inherited_pgroup;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1178 static pid_t inherited_tty_pgroup;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 munge_tty_process_group (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1189 /* Only do this munging if we have a device on the controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 terminal. See the large comment below. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 int fd = open ("/dev/tty", O_RDWR, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1196 pid_t me = getpid ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 EMACS_BLOCK_SIGNAL (SIGTTOU);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 EMACS_SET_TTY_PROCESS_GROUP (fd, &me);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 EMACS_UNBLOCK_SIGNAL (SIGTTOU);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1200 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 /* Split off the foreground process group to Emacs alone.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 When we are in the foreground, but not started in our own process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 group, redirect the TTY to point to our own process group. We need
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 to be in our own process group to receive SIGIO properly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 munge_process_groups (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 munge_tty_process_group ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 unmunge_tty_process_group (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 int fd = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 EMACS_BLOCK_SIGNAL (SIGTTOU);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 EMACS_SET_TTY_PROCESS_GROUP (fd, &inherited_tty_pgroup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 EMACS_UNBLOCK_SIGNAL (SIGTTOU);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1231 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 /* Set the tty to our original foreground group.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 Also restore the original process group (put us back into sh's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 process group), so that ^Z will suspend both us and sh. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 unmunge_process_groups (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 unmunge_tty_process_group ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 EMACS_SET_PROCESS_GROUP (inherited_pgroup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 /* According to some old wisdom, we need to be in a separate process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 group for SIGIO to work correctly (at least on some systems ...).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 So go ahead and put ourselves into our own process group. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 will fail if we're already in our own process group, but who cares.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 Also record whether we were in our own process group. (In general,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 we will already be in our own process group if we were started from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 a job-control shell like csh, but not if we were started from sh).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 If we succeeded in changing our process group, then we will no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 longer be in the foreground process group of our controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 terminal. Therefore, if we have a console open onto this terminal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 we have to change the controlling terminal's foreground process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 group (otherwise we will get stopped with a SIGTTIN signal when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 attempting to read from the terminal). It's important,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 however, that we do this *only* when we have a console open onto
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 the terminal. It's a decidedly bad idea to do so otherwise,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 especially if XEmacs was started from the background. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 init_process_group (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 if (! noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 int fd = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 inherited_pgroup = EMACS_GET_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 EMACS_GET_TTY_PROCESS_GROUP (fd, &inherited_tty_pgroup);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1279 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 disconnect_controlling_terminal (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 # ifdef HAVE_SETSID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 /* Controlling terminals are attached to a session.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 Create a new session for us; it will have no controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 terminal. This also, of course, puts us in our own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 process group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 setsid ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 /* Put us in our own process group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 # if defined (TIOCNOTTY)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 /* This is the older way of disconnecting the controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 terminal, on 4.3 BSD. We must open /dev/tty; using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 filedesc 0 is not sufficient because it could be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 something else (e.g. our stdin was redirected to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 another terminal).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 int j = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 ioctl (j, TIOCNOTTY, 0);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1307 retry_close (j);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 # endif /* TIOCNOTTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 On systems without TIOCNOTTY and without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 setsid(), we don't need to do anything more to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 disconnect our controlling terminal. Here is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 what the man page for termio(7) from a SYSV 3.2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 system says:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 "The first terminal file opened by the process group leader
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 of a terminal file not already associated with a process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 group becomes the control terminal for that process group.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 The control terminal plays a special role in handling quit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 and interrupt signals, as discussed below. The control
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 terminal is inherited by a child process during a fork(2).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 A process can break this association by changing its process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324 group using setpgrp(2)."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 # endif /* not HAVE_SETSID */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 /* Getting and setting emacs_tty structures */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 /* It's wrong to encase these into #ifdef HAVE_TTY because we need
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 them for child TTY processes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 /* However, this does break NT support while we don't do child TTY processes */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1338 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 /* Set *TC to the parameters associated with the terminal FD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 Return zero if all's well, or -1 if we ran into an error we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 couldn't deal with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 emacs_get_tty (int fd, struct emacs_tty *settings)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 #ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 /* We have those nifty POSIX tcmumbleattr functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 if (tcgetattr (fd, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 #elif defined HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 /* The SYSV-style interface? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 if (ioctl (fd, TCGETA, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
1357 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 /* I give up - I hope you have the BSD ioctls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 if (ioctl (fd, TIOCGETP, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 #endif /* HAVE_TCATTR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363 /* Suivant - Do we have to get struct ltchars data? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 if (ioctl (fd, TIOCGLTC, &settings->ltchars) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 /* How about a struct tchars and a wordful of lmode bits? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1371 if (ioctl (fd, TIOCGETC, &settings->tchars) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1372 || ioctl (fd, TIOCLGET, &settings->lmode) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 /* We have survived the tempest. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 /* Set the parameters of the tty on FD according to the contents of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 *SETTINGS. If FLUSHP is non-zero, we discard input.
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1382 Return 0 if all went well, and -1 if anything failed.
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1383 #### All current callers use FLUSHP == 0. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 emacs_set_tty (int fd, struct emacs_tty *settings, int flushp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 /* Set the primary parameters - baud rate, character size, etcetera. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 #ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 /* We have those nifty POSIX tcmumbleattr functions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 William J. Smith <wjs@wiis.wang.com> writes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 "POSIX 1003.1 defines tcsetattr() to return success if it was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 able to perform any of the requested actions, even if some
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 of the requested actions could not be performed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 We must read settings back to ensure tty setup properly.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 AIX requires this to keep tty from hanging occasionally." */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 /* This makes sure that we don't loop indefinitely in here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 for (i = 0 ; i < 10 ; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 if (tcsetattr (fd, flushp ? TCSAFLUSH : TCSADRAIN, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 if (errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 struct termios new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 /* Get the current settings, and see if they're what we asked for. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 tcgetattr (fd, &new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 /* We cannot use memcmp on the whole structure here because under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 * aix386 the termios structure has some reserved field that may
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 * not be filled in.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 if ( new.c_iflag == settings->main.c_iflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 && new.c_oflag == settings->main.c_oflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 && new.c_cflag == settings->main.c_cflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 && new.c_lflag == settings->main.c_lflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 && memcmp(new.c_cc, settings->main.c_cc, NCCS) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 #elif defined HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 /* The SYSV-style interface? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 if (ioctl (fd, flushp ? TCSETAF : TCSETAW, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
1431 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 /* I give up - I hope you have the BSD ioctls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 if (ioctl (fd, (flushp) ? TIOCSETP : TIOCSETN, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 #endif /* HAVE_TCATTR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 /* Suivant - Do we have to get struct ltchars data? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 if (ioctl (fd, TIOCSLTC, &settings->ltchars) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 /* How about a struct tchars and a wordful of lmode bits? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 if (ioctl (fd, TIOCSETC, &settings->tchars) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 || ioctl (fd, TIOCLSET, &settings->lmode) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 /* We have survived the tempest. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1454 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 /* Initializing a device */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 /* This may also be defined in stdio,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 but if so, this does no harm,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 and using the same name avoids wasting the other one's space. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 #if ((defined(USG) || defined(DGUX)) && !defined(__STDC__))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 char _sobuf[BUFSIZ+8];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 #elif (defined(USG) && !defined(LINUX) && !defined(_SCO_DS)) || defined(IRIX5)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 extern unsigned char _sobuf[BUFSIZ+8];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 char _sobuf[BUFSIZ];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 #if defined (TIOCGLTC) && defined (HAVE_LTCHARS) /* HAVE_LTCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 static struct ltchars new_ltchars = {-1,-1,-1,-1,-1,-1};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 #ifdef TIOCGETC /* HAVE_TCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 static struct tchars new_tchars = {-1,-1,-1,-1,-1,-1};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 tty_init_sys_modes_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 struct emacs_tty tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 int input_fd, output_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 output_fd = CONSOLE_TTY_DATA (con)->outfd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1493 emacs_get_tty (input_fd, &CONSOLE_TTY_DATA (con)->old_tty);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 tty = CONSOLE_TTY_DATA (con)->old_tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 con->tty_erase_char = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 /* after all those years... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 con->tty_erase_char = make_char (tty.main.c_cc[VERASE]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 #ifdef DGUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 /* This allows meta to be sent on 8th bit. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 tty.main.c_iflag &= ~INPCK; /* don't check input for parity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 tty.main.c_iflag |= (IGNBRK); /* Ignore break condition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 tty.main.c_iflag &= ~ICRNL; /* Disable map of CR to NL on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 #ifdef ISTRIP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 tty.main.c_iflag &= ~ISTRIP; /* don't strip 8th bit on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 tty.main.c_lflag &= ~ECHO; /* Disable echo */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 tty.main.c_lflag &= ~ICANON; /* Disable erase/kill processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 #ifdef IEXTEN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 tty.main.c_lflag &= ~IEXTEN; /* Disable other editing characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 tty.main.c_lflag |= ISIG; /* Enable signals */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 if (TTY_FLAGS (con).flow_control)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518 tty.main.c_iflag |= IXON; /* Enable start/stop output control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 #ifdef IXANY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 tty.main.c_iflag &= ~IXANY;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 #endif /* IXANY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 tty.main.c_iflag &= ~IXON; /* Disable start/stop output control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 tty.main.c_oflag &= ~ONLCR; /* Disable map of NL to CR-NL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 on output */
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1527
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1528 #if 0
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1529 /* We used to disable tab expansion here, but this is the user's decision. */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1530 #if defined (TABDLY) && defined (TAB3)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1531 if ((tty.main.c_oflag & TABDLY) == TAB3)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1532 tty.main.c_oflag &= ~TABDLY; /* Disable tab expansion (Posix). */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1533 #elif defined (OXTABS)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1534 tty.main.c_oflag &= ~OXTABS; /* Disable tab expansion (BSD). */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1535 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1536 #endif /* 0 */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1537
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 #ifdef CS8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 if (TTY_FLAGS (con).meta_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 tty.main.c_cflag |= CS8; /* allow 8th bit on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 tty.main.c_cflag &= ~PARENB;/* Don't check parity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 if (CONSOLE_TTY_DATA (con)->controlling_terminal)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1546 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 tty.main.c_cc[VINTR] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 CONSOLE_QUIT_CHAR (con); /* C-g (usually) gives SIGINT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 /* Set up C-g for both SIGQUIT and SIGINT.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 We don't know which we will get, but we handle both alike
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 so which one it really gives us does not matter. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 tty.main.c_cc[VQUIT] = CONSOLE_QUIT_CHAR (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 tty.main.c_cc[VINTR] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557 tty.main.c_cc[VQUIT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 tty.main.c_cc[VMIN] = 1; /* Input should wait for at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 least 1 char */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 tty.main.c_cc[VTIME] = 0; /* no matter how long that takes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 #ifdef VSWTCH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 tty.main.c_cc[VSWTCH] = _POSIX_VDISABLE; /* Turn off shell layering use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 of C-z */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 #endif /* VSWTCH */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1566 /* There was some conditionalizing here on (mips or TCATTR), but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 I think that's wrong. There was one report of C-y (DSUSP) not being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 disabled on HP9000s700 systems, and this might fix it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 #ifdef VSUSP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 tty.main.c_cc[VSUSP] = _POSIX_VDISABLE; /* Turn off mips handling of C-z. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 #endif /* VSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 #ifdef V_DSUSP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 tty.main.c_cc[V_DSUSP] = _POSIX_VDISABLE; /* Turn off mips handling of C-y. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 #endif /* V_DSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576 tty.main.c_cc[VDSUSP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 #endif /* VDSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 #ifdef VLNEXT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1579 tty.main.c_cc[VLNEXT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 #endif /* VLNEXT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 #ifdef VREPRINT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582 tty.main.c_cc[VREPRINT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 #endif /* VREPRINT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 #ifdef VWERASE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 tty.main.c_cc[VWERASE] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1586 #endif /* VWERASE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 #ifdef VDISCARD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1588 tty.main.c_cc[VDISCARD] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589 #endif /* VDISCARD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1590 #ifdef VSTART
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 tty.main.c_cc[VSTART] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 #endif /* VSTART */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 #ifdef VSTRT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 tty.main.c_cc[VSTRT] = _POSIX_VDISABLE; /* called VSTRT on some systems */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 #endif /* VSTART */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 #ifdef VSTOP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 tty.main.c_cc[VSTOP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 #endif /* VSTOP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 #ifdef SET_LINE_DISCIPLINE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 /* Need to explicitly request TERMIODISC line discipline or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 Ultrix's termios does not work correctly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 tty.main.c_line = SET_LINE_DISCIPLINE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 #ifdef AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 #ifndef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 /* AIX enhanced edit loses NULs, so disable it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 tty.main.c_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 tty.main.c_iflag &= ~ASCEDIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 tty.main.c_cc[VSTRT] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 tty.main.c_cc[VSTOP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613 tty.main.c_cc[VSUSP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 tty.main.c_cc[VDSUSP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 #endif /* IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 /* Also, PTY overloads NUL and BREAK.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 don't ignore break, but don't signal either, so it looks like NUL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 This really serves a purpose only if running in an XTERM window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 or via TELNET or the like, but does no harm elsewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 tty.main.c_iflag &= ~IGNBRK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 tty.main.c_iflag &= ~BRKINT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 #endif /* AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 #else /* if not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 con->tty_erase_char = make_char (tty.main.sg_erase);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 tty.main.sg_flags &= ~(ECHO | CRMOD | XTABS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 if (TTY_FLAGS (con).meta_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 tty.main.sg_flags |= ANYP;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 /* #### should we be using RAW mode here? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629 tty.main.sg_flags |= /* interrupt_input ? RAW : */ CBREAK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 #endif /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 /* If going to use CBREAK mode, we must request C-g to interrupt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 and turn off start and stop chars, etc. If not going to use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634 CBREAK mode, do this anyway so as to turn off local flow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 control for user coming over network on 4.2; in this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 only t_stopc and t_startc really matter. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 #ifndef HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 /* Note: if not using CBREAK mode, it makes no difference how we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 set this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 tty.tchars = new_tchars;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 tty.tchars.t_intrc = CONSOLE_QUIT_CHAR (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643 if (TTY_FLAGS (con).flow_control)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 tty.tchars.t_startc = '\021';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1646 tty.tchars.t_stopc = '\023';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 tty.lmode = LDECCTQ | LLITOUT | LPASS8 | LNOFLSH |
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 CONSOLE_TTY_DATA (con)->old_tty.lmode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 #if defined (ultrix) || defined (__bsdi__)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 /* Under Ultrix 4.2a, leaving this out doesn't seem to hurt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 anything, and leaving it in breaks the meta key. Go figure. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 /* Turning off ONLCR is enough under BSD/386. Leave the general
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 output post-processing flag alone since for some reason it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 doesn't get reset after XEmacs goes away. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 tty.lmode &= ~LLITOUT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 #endif /* HAVE_TCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 #endif /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 tty.ltchars = new_ltchars;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 #endif /* HAVE_LTCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1668 emacs_set_tty (input_fd, &tty, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 /* This code added to insure that, if flow-control is not to be used,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 we have an unlocked terminal at the start. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 #ifdef TCXONC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TCXONC, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 #ifdef TIOCSTART
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TIOCSTART, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 #if defined (HAVE_TERMIOS) || defined (HPUX9)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 #ifdef TCOON
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 if (!TTY_FLAGS (con).flow_control) tcflow (input_fd, TCOON);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 hft_init (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 /* IBM's HFT device usually thinks a ^J should be LF/CR.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690 We need it to be only LF. This is the way that is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 done. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 struct termio tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 if (ioctl (output_fd, HFTGETID, &tty) != -1)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1695 retry_write (output_fd, "\033[20l", 5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700 #if 0 /* We do our own buffering with lstreams. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 #ifdef _IOFBF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 /* This symbol is defined on recent USG systems.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 Someone says without this call USG won't really buffer the file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 even with a call to setbuf. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
1705 setvbuf (CONSOLE_TTY_DATA (con)->outfd, (char *) _sobuf, _IOFBF,
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
1706 sizeof (_sobuf));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 setbuf (CONSOLE_TTY_DATA (con)->outfd, (char *) _sobuf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 set_tty_modes (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1712 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1714 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1717 init_one_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 tty_init_sys_modes_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 #if defined(SIGIO) && !defined(BROKEN_SIGIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726 init_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727 request_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 init_one_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735 Lisp_Object devcons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 CONSOLE_DEVICE_LOOP (devcons, con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 struct device *d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 init_one_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746 reinit_initial_console (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 munge_process_groups ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 init_one_console (XCONSOLE (Vcontrolling_terminal));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756 /* Other TTY functions */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1757 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 /* Return nonzero if safe to use tabs in output.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764 At the time this is called, init_sys_modes has not been done yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 tabs_safe_p (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772 struct emacs_tty tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1774 emacs_get_tty (DEVICE_INFD (d), &tty);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775 return EMACS_TTY_TABS_OK (&tty);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783 /* Get terminal size from system.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 Store number of lines into *heightp and width into *widthp.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 If zero or a negative number is stored, the value is not valid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 get_tty_device_size (struct device *d, int *widthp, int *heightp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 int input_fd = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794 #ifdef TIOCGWINSZ
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 /* BSD-style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 struct winsize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 if (ioctl (input_fd, TIOCGWINSZ, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 *widthp = *heightp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 *widthp = size.ws_col;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 *heightp = size.ws_row;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 #elif defined TIOCGSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 /* SunOS - style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 struct ttysize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 if (ioctl (input_fd, TIOCGSIZE, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 *widthp = *heightp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 *widthp = size.ts_cols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 *heightp = size.ts_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 #else /* system doesn't know size */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822 *widthp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823 *heightp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 #endif /* not !TIOCGWINSZ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 /* Is device 8 bit ? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 eight_bit_tty (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 struct emacs_tty s;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 int eight_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 input_fd = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1847 emacs_get_tty (input_fd, &s);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 eight_bit = (s.main.c_cflag & CSIZE) == CS8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 eight_bit = 0; /* I don't know how to do it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 return eight_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 /* Resetting a device */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 /* Prepare the terminal for exiting Emacs; move the cursor to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 bottom of the frame, turn off interrupt-driven I/O, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 tty_reset_sys_modes_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 int input_fd, output_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 output_fd = CONSOLE_TTY_DATA (con)->outfd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 #if defined (IBMR2AIX) && defined (AIXHFT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 /* HFT consoles normally use ^J as a LF/CR. We forced it to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 do the LF only. Now, we need to reset it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 struct termio tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883 if (ioctl (output_fd, HFTGETID, &tty) != -1)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1884 retry_write (output_fd, "\033[20h", 5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1886 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 tty_redisplay_shutdown (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 /* reset_tty_modes() flushes the connection at its end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 reset_tty_modes (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892 #if defined (BSD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893 /* Avoid possible loss of output when changing terminal modes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 fsync (output_fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1897 while (emacs_set_tty (input_fd, &CONSOLE_TTY_DATA (con)->old_tty, 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898 < 0 && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 #ifdef SET_LINE_DISCIPLINE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 /* Ultrix's termios *ignores* any line discipline except TERMIODISC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 A different old line discipline is therefore not restored, yet.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 Restore the old line discipline by hand. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905 ioctl (input_fd, TIOCSETD, &old_tty.main.c_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1907
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1908 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 hft_reset (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917 reset_one_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 tty_reset_sys_modes_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 if (DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 fflush (CONSOLE_STREAM_DATA (XCONSOLE (DEVICE_CONSOLE (d)))->out);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 #if defined(SIGIO) && !defined(BROKEN_SIGIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1929 unrequest_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930 reset_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1931 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 reset_one_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938 /* Note: this can be called during GC. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 Lisp_Object devcons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941 CONSOLE_DEVICE_LOOP (devcons, con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 struct device *d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 reset_one_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 reset_all_consoles (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 /* Note: this can be called during GC. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 Lisp_Object concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 CONSOLE_LOOP (concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1956 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 struct console *con = XCONSOLE (XCAR (concons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959 reset_one_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962 unmunge_process_groups ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 reset_initial_console (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1968 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 reset_one_console (XCONSOLE (Vcontrolling_terminal));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 unmunge_process_groups ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1976 /* extra TTY stuff under AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 /* Called from init_sys_modes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 hft_init (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1985 int junk;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 /* If we're not on an HFT we shouldn't do any of this. We determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 if we are on an HFT by trying to get an HFT error code. If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 call fails, we're not on an HFT. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 if (ioctl (input_fd, HFQERROR, &junk) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 if (ioctl (input_fd, HFQEIO, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2001
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 /* On AIX the default hft keyboard mapping uses backspace rather than delete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003 as the rubout key's ASCII code. Here this is changed. The bug is that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 there's no way to determine the old mapping, so in reset_one_console
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 we need to assume that the normal map had been present. Of course, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 code also doesn't help if on a terminal emulator which doesn't understand
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 HFT VTD's. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 struct hfbuf buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 struct hfkeymap keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012 buf.hf_bufp = (char *)&keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 buf.hf_buflen = sizeof (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 keymap.hf_nkeys = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 keymap.hfkey[0].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 keymap.hfkey[0].hf_kstate = HFMAPCHAR | HFSHFNONE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018 keymap.hfkey[0].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2019 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 keymap.hfkey[0].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2022 keymap.hfkey[0].hf_char = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2023 keymap.hfkey[1].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2024 keymap.hfkey[1].hf_kstate = HFMAPCHAR | HFSHFSHFT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 keymap.hfkey[1].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 keymap.hfkey[1].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 keymap.hfkey[1].hf_char = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031 hftctl (input_fd, HFSKBD, &buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 /* #### Should probably set a console TTY flag here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2035 /* The HFT system on AIX doesn't optimize for scrolling, so it's really ugly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 at times. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037 line_ins_del_ok = char_ins_del_ok = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 /* Reset the rubout key to backspace. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 hft_reset (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 struct hfbuf buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 struct hfkeymap keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 int junk;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 if (ioctl (input_fd, HFQERROR, &junk) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 if (ioctl (input_fd, HFQEIO, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 buf.hf_bufp = (char *)&keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 buf.hf_buflen = sizeof (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 keymap.hf_nkeys = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 keymap.hfkey[0].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 keymap.hfkey[0].hf_kstate = HFMAPCHAR | HFSHFNONE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 keymap.hfkey[0].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 keymap.hfkey[0].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 keymap.hfkey[0].hf_char = 8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 keymap.hfkey[1].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 keymap.hfkey[1].hf_kstate = HFMAPCHAR | HFSHFSHFT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 keymap.hfkey[1].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 keymap.hfkey[1].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 keymap.hfkey[1].hf_char = 8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 hftctl (input_fd, HFSKBD, &buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 #endif /* AIXHFT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 /* limits of text/data segments */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2091 /* Need start_of_data() as much as possible now, for total_data_usage();
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2092 but with PDUMP and WIN32_NATIVE, can't currently do it. */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2093 #if !defined (CANNOT_DUMP) && (!defined (PDUMP) || !defined (WIN32_NATIVE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094 #define NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2097 #if !defined (SYSTEM_MALLOC) && !defined (NEED_STARTS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 #define NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 #ifdef NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 /* Some systems that cannot dump also cannot implement these. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 * Return the address of the start of the text segment prior to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2106 * doing an unexec. After unexec the return value is undefined.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107 * See crt0.c for further explanation and _start.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2111 #if !defined (HAVE_TEXT_START) && !defined (PDUMP)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2112
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2113 EXTERN_C int _start (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 char *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 start_of_text (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 #ifdef TEXT_START
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2119 return (char *) TEXT_START;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2121 return (char *) _start;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 #endif /* TEXT_START */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2124 #endif /* !defined(HAVE_TEXT_START) && !defined(PDUMP) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 * Return the address of the start of the data segment prior to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 * doing an unexec. After unexec the return value is undefined.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2129 * See ecrt0.c for further information and definition of data_start.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 * Apparently, on BSD systems this is etext at startup. On
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 * USG systems (swapping) this is highly mmu dependent and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 * is also dependent on whether or not the program is running
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 * with shared text. Generally there is a (possibly large)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 * gap between end of text and start of data with shared text.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 * On Uniplus+ systems with shared text, data starts at a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 * fixed address. Each port (from a given oem) is generally
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 * different, and the specific value of the start of data can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 * be obtained via the UniPlus+ specific "uvar" system call,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 * however the method outlined in crt0.c seems to be more portable.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 * Probably what will have to happen when a USG unexec is available,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 * at least on UniPlus, is temacs will have to be made unshared so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 * that text and data are contiguous. Then once loadup is complete,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 * unexec will produce a shared executable where the data can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 * at the normal shared text boundary and the startofdata variable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 * will be patched by unexec to the correct value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2152 #if defined (ORDINARY_LINK) && !defined (MINGW)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 extern char **environ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 start_of_data (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 #ifdef DATA_START
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 return ((char *) DATA_START);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 #else
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
2162 #if defined (ORDINARY_LINK) || defined(PDUMP)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 * This is a hack. Since we're not linking crt0.c or pre_crt0.c,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 * data_start isn't defined. We take the address of environ, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 * is known to live at or near the start of the system crt0.c, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 * we don't sweat the handful of bytes that might lose.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2169 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 extern char* static_heap_base;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 if (!initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 return static_heap_base;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 #endif
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2174 return ((char *) &environ);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 extern int data_start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 return ((char *) &data_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 #endif /* ORDINARY_LINK */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 #endif /* DATA_START */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2180 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 #endif /* NEED_STARTS (not CANNOT_DUMP or not SYSTEM_MALLOC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2183 extern void *minimum_address_seen; /* from xmalloc() */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2184 extern void *maximum_address_seen; /* from xmalloc() */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2185
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2186 Bytecount
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2187 total_data_usage (void)
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2188 {
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2189 #ifdef NEED_STARTS
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2190 void *data_start = start_of_data ();
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2191 #else
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2192 void *data_start = minimum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2193 #endif
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2194
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2195 #if !defined (WIN32_NATIVE) && !defined (CYGWIN)
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
2196 void *data_end = sbrk (0);
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2197 #else
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2198 void *data_end = maximum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2199 #endif
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2200
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2201 /* Sanity checking -- the min determined by malloc() should always be
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2202 greater than data start determined by other means. We could do the
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2203 same check on the max, except that things like rel-alloc might
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2204 invalidate it. */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2205 if (minimum_address_seen &&
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2206 (char *) minimum_address_seen < (char *) data_start)
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2207 data_start = minimum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2208
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2209 if (data_end < data_start) /* Huh?????????? */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2210 data_end = maximum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2211
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2212 /* #### Doesn't seem to give good results on Windows; values are much
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2213 higher than actual memory usage. How to fix??? */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2214 return (char *) data_end - (char *) data_start;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2215 }
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2216
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2218 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 /* get the system name */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 /* init_system_name sets up the string for the Lisp function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 system-name to return. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225 extern Lisp_Object Vsystem_name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2228 init_system_name (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2230 #if defined (WIN32_NATIVE)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2231 Extbyte hostname[MAX_XETCHAR_SIZE * (MAX_COMPUTERNAME_LENGTH + 1)];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2232 DWORD size = sizeof (hostname) / XETCHAR_SIZE;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2233 qxeGetComputerName (hostname, &size);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2234 Vsystem_name = build_tstr_string (hostname);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 #elif !defined (HAVE_GETHOSTNAME)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2236 struct utsname uts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237 uname (&uts);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 Vsystem_name = build_string (uts.nodename);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2239 #else /* HAVE_GETHOSTNAME */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
2240 int hostname_size = 256;
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2241 char *hostname = (char *) ALLOCA (hostname_size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 /* Try to get the host name; if the buffer is too short, try
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 again. Apparently, the only indication gethostname gives of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 whether the buffer was large enough is the presence or absence
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 of a '\0' in the string. Eech. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2247 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2248 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 gethostname (hostname, hostname_size - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250 hostname[hostname_size - 1] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 /* Was the buffer large enough for the '\0'? */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
2253 if ((int) strlen (hostname) < (hostname_size - 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 hostname_size <<= 1;
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2257 hostname = (char *) ALLOCA (hostname_size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 }
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
2259 # if defined( HAVE_SOCKETS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260 /* Turn the hostname into the official, fully-qualified hostname.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 Don't do this if we're going to dump; this can confuse system
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 libraries on some machines and make the dumped emacs core dump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 # ifndef CANNOT_DUMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 if (initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 # endif /* not CANNOT_DUMP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 if (!strchr (hostname, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2268 # if !(defined(HAVE_GETADDRINFO) && defined(HAVE_GETNAMEINFO))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 struct hostent *hp = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 int count;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2271 # ifdef TRY_AGAIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 for (count = 0; count < 10; count++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 h_errno = 0;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2275 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 /* Some systems can't handle SIGALARM/SIGIO in gethostbyname(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 stop_interrupts ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 hp = gethostbyname (hostname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 start_interrupts ();
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2280 # ifdef TRY_AGAIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 if (! (hp == 0 && h_errno == TRY_AGAIN))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283 Fsleep_for (make_int (1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2285 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 if (hp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2288 const char *fqdn = (const char *) hp->h_name;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 if (!strchr (fqdn, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 /* We still don't have a fully qualified domain name.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 Try to find one in the list of alternate names */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 char **alias = hp->h_aliases;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 while (*alias && !strchr (*alias, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 alias++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297 if (*alias)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298 fqdn = *alias;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 }
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2300 hostname = (char *) ALLOCA (strlen (fqdn) + 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2301 strcpy (hostname, fqdn);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2302 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2303 # else /* !(HAVE_GETADDRINFO && HAVE_GETNAMEINFO) */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2304 struct addrinfo hints, *res;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2305
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2306 xzero (hints);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2307 hints.ai_flags = AI_CANONNAME;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2308 #ifdef IPV6_CANONICALIZE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2309 hints.ai_family = AF_UNSPEC;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2310 #else
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2311 hints.ai_family = PF_INET;
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2312 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2313 hints.ai_socktype = SOCK_STREAM;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2314 hints.ai_protocol = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2315 if (!getaddrinfo (hostname, NULL, &hints, &res))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2316 {
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2317 hostname = (char *) ALLOCA (strlen (res->ai_canonname) + 1);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2318 strcpy (hostname, res->ai_canonname);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2319
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2320 freeaddrinfo (res);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2321 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2322 # endif /* !(HAVE_GETADDRINFO && HAVE_GETNAMEINFO) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 # endif /* HAVE_SOCKETS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 Vsystem_name = build_string (hostname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 #endif /* HAVE_GETHOSTNAME */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2328 Intbyte *p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 Bytecount i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 for (i = 0, p = XSTRING_DATA (Vsystem_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 i < XSTRING_LENGTH (Vsystem_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 i++, p++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 if (*p == ' ' || *p == '\t')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 *p = '-';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 /* Emulation of select() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 #ifndef HAVE_SELECT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 ERROR: XEmacs requires a working select().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350 #endif /* not HAVE_SELECT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 /* Emulation of signal stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 /* BSD 4.1 crap deleted. 4.2 was released in 1983, for God's sake! I
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 can't imagine that anyone is actually running that OS any more.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359 You can't use X under it (I think) because there's no select().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 Anyway, the signal stuff has all been changed. If someone wants to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 get this stuff working again, look in the FSF Emacs sources. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 /* POSIX signals support - DJB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 #ifdef HAVE_SIGPROCMASK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 /* #### Is there any reason this is static global rather than local? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 static struct sigaction new_action, old_action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2370 signal_handler_t
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
2371 qxe_reliable_signal (int signal_number, signal_handler_t action)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2373 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375 /* XEmacs works better if system calls are *not* restarted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 This allows C-g to interrupt reads and writes, on most systems.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2377
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2378 #### Another possibility is to just longjmp() out of the signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2379 handler. According to W.R. Stevens, this should be OK on all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380 systems. However, I don't want to deal with the potential
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2381 evil ramifications of this at this point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 #ifdef DGUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384 /* This gets us restartable system calls for efficiency.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2385 The "else" code will work as well. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2386 return (berk_signal (signal_number, action));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 sigemptyset (&new_action.sa_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2389 new_action.sa_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390 #if defined (SA_RESTART)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 /* Emacs mostly works better with restartable system services. If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392 * flag exists, we probably want to turn it on here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 new_action.sa_flags = SA_RESTART;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 new_action.sa_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398 sigaction (signal_number, &new_action, &old_action);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2399 return (old_action.sa_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 #endif /* DGUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 #else /* not 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 sigemptyset (&new_action.sa_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 new_action.sa_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 #if defined (SA_INTERRUPT) /* don't restart system calls, under SunOS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 new_action.sa_flags = SA_INTERRUPT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 new_action.sa_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 sigaction (signal_number, &new_action, &old_action);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 return (signal_handler_t) (old_action.sa_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2414 #endif /* not 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2415 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 #elif defined (HAVE_SIGBLOCK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 /* We use sigvec() rather than signal() if we have it, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 it lets us specify interruptible system calls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 signal_handler_t
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
2422 qxe_reliable_signal (int signal_number, signal_handler_t action)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 struct sigvec vec, ovec;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 vec.sv_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 vec.sv_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 #ifdef SV_INTERRUPT /* don't restart system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 vec.sv_flags = SV_INTERRUPT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 vec.sv_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434 sigvec (signal_number, &vec, &ovec);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436 return (ovec.sv_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 #endif /* HAVE_SIGBLOCK (HAVE_SIGPROCMASK) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2441
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2442 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2443 /* Emulation of strerror() and errno support */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2444 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 #ifndef HAVE_STRERROR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 #if !defined(NeXT) && !defined(__alpha) && !defined(MACH) && !defined(LINUX) && !defined(IRIX) && !defined(__NetBSD__)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 /* Linux added here by Raymond L. Toy <toy@alydar.crd.ge.com> for XEmacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450 /* Irix added here by gparker@sni-usa.com for XEmacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 /* NetBSD added here by James R Grinter <jrg@doc.ic.ac.uk> for XEmacs */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2452 extern const char *sys_errlist[];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453 extern int sys_nerr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2454 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2456 #ifdef __NetBSD__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2457 extern char *sys_errlist[];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458 extern int sys_nerr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2462 const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2463 strerror (int errnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 if (errnum >= 0 && errnum < sys_nerr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466 return sys_errlist[errnum];
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2467 return ((const char *) GETTEXT ("Unknown error"));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 #endif /* ! HAVE_STRERROR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2473 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 /* Encapsulations of system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2477 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2478 #define PATHNAME_CONVERT_OUT(path, pathout) C_STRING_TO_TSTR (path, pathout)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2479 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2480 #define PATHNAME_CONVERT_OUT(path, pathout) \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2481 C_STRING_TO_EXTERNAL (path, pathout, Qfile_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2482 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 /***************** low-level calls ****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 * On USG systems the system calls are INTERRUPTIBLE by signals
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488 * that the user program has elected to catch. Thus the system call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 * must be retried in these cases. To handle this without massive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 * changes in the source code, we remap the standard system call names
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 * to names for our own functions in sysdep.c that do the system call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492 * with retries. Actually, for portability reasons, it is good
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493 * programming practice, as this example shows, to limit all actual
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 * system calls to a single occurrence in the source. Sure, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 * adds an extra level of function call overhead but it is almost
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 * always negligible. Fred Fish, Unisoft Systems Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2499 /* Ben sez: read Dick Gabriel's essay about the Worse Is Better
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 approach to programming and its connection to the silly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 interruptible-system-call business. To find it, look on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502 Jamie's home page (http://www.jwz.org/worse-is-better.html). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2504 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2505
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2506 static int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2507 underlying_open_1 (const Extbyte *path, int oflag, int mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2508 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2509 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2510 return _wopen ((const wchar_t *) path, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2511 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2512 return _open (path, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2513 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2514
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2515 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2516
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2517 /* Just one call with normal open() semantics. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2518
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2519 static int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2520 underlying_open (const Extbyte *path, int oflag, int mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2521 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2522 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2523 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2524 /* Try to open file without _O_CREAT, to be able to write to hidden
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2525 and system files. Force all file handles to be
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2526 non-inheritable. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2527 int res = underlying_open_1 (path, (oflag & ~_O_CREAT) | _O_NOINHERIT,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2528 mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2529 if (res >= 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2530 return res;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2531 return underlying_open_1 (path, oflag | _O_NOINHERIT, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2532 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2533 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2534 return open (path, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2535 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2536 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2537
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2538 /* Like qxe_open() below but operates on externally-encoded filenames. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2539
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2541 retry_open (const Extbyte *path, int oflag, ...)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2542 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 int mode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 va_list ap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 va_start (ap, oflag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 mode = va_arg (ap, int);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2548 va_end (ap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2550 #ifdef INTERRUPTIBLE_OPEN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 int rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2553 while ((rtnval = underlying_open (path, oflag, mode)) == -1
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 DO_NOTHING;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2559 return underlying_open (path, oflag, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2560 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2562
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2563 /* The basic external entry point to open(). Handles conversion to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2564 external encoding, interruptions, etc. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2565
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2566 int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2567 qxe_open (const Intbyte *path, int oflag, ...)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2568 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2569 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2570 int mode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2571 va_list ap;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2572
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2573 va_start (ap, oflag);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2574 mode = va_arg (ap, int);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2575 va_end (ap);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2576
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2577 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2578 return retry_open (pathout, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2579 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2580
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2581 /* Like qxe_open, only when open() is interrupted by EINTR, check for
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 QUIT. This allows the callers of this function to be interrupted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583 with C-g when, say, reading from named pipes. However, this should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 be used with caution, as it can GC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 This function will not function as expected on systems where open()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 is not interrupted by C-g. However, the worst that can happen is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588 the fallback to simple open(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2589 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2590 qxe_interruptible_open (const Intbyte *path, int oflag, int mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592 /* This function can GC */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2593 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2594
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2595 PATHNAME_CONVERT_OUT (path, pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2597 #ifdef WIN32_NATIVE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2598 /* Make all handles non-inheritable */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2599 oflag |= _O_NOINHERIT;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2600 #endif
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2601
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2604 int rtnval = underlying_open (pathout, oflag, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 if (!(rtnval == -1 && errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2606 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2607 /* open() was interrupted. Was QUIT responsible? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2608 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2613 retry_close (int filedes)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2614 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 #ifdef INTERRUPTIBLE_CLOSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 int did_retry = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617 REGISTER int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 while ((rtnval = close (filedes)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 did_retry = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 /* If close is interrupted SunOS 4.1 may or may not have closed the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624 file descriptor. If it did the second close will fail with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 errno = EBADF. That means we have succeeded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626 if (rtnval == -1 && did_retry && errno == EBADF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2629 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2630 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631 return close (filedes);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2634
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2635 static ssize_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2636 retry_read_1 (int fildes, void *buf, size_t nbyte, int allow_quit)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2637 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638 ssize_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2639
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2640 /* No harm in looping regardless of the INTERRUPTIBLE_IO setting. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641 while ((rtnval = read (fildes, buf, nbyte)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2642 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2643 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2644 if (allow_quit)
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2645 QUIT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2646 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2647 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2650 ssize_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2651 retry_read (int fildes, void *buf, size_t nbyte)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2652 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2653 return retry_read_1 (fildes, buf, nbyte, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2655
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2656 static ssize_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2657 retry_write_1 (int fildes, const void *buf, size_t nbyte, int allow_quit)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 ssize_t bytes_written = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2660 const char *b = (const char *) buf;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662 /* No harm in looping regardless of the INTERRUPTIBLE_IO setting. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 while (nbyte > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2664 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2665 ssize_t rtnval = write (fildes, b, nbyte);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 if (allow_quit)
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2668 QUIT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 if (rtnval == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2672 if (errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 return bytes_written ? bytes_written : -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2676 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2677 b += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2678 nbyte -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2679 bytes_written += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 return bytes_written;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2682 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684 ssize_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2685 retry_write (int fildes, const void *buf, size_t nbyte)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2686 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2687 return retry_write_1 (fildes, buf, nbyte, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2689
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2690 /* Versions of read() and write() that allow quitting out of the actual
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2691 I/O. We don't use immediate_quit (i.e. direct longjmp() out of the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2692 signal handler) because that's way too losing.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2693
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2694 (#### Actually, longjmp()ing out of the signal handler may not be
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2695 as losing as I thought. See qxe_reliable_signal() in sysdep.c.) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2696
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2697 Bytecount
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2698 read_allowing_quit (int fildes, void *buf, Bytecount size)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2699 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2700 QUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2701 return retry_read_1 (fildes, buf, size, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2702 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2703
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2704 Bytecount
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2705 write_allowing_quit (int fildes, const void *buf, Bytecount size)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2706 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2707 QUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2708 return retry_write_1 (fildes, buf, size, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2709 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712 /**************** stdio calls ****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 /* There is at least some evidence that the stdio calls are interruptible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 just like the normal system calls, at least on some systems. In any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 case, it doesn't hurt to encapsulate them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718 /* #### Should also encapsulate fflush().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2719 #### Should conceivably encapsulate getchar() etc. What a pain! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721 FILE *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2722 retry_fopen (const Extbyte *path, const Char_ASCII *mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2724 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2725 int fd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2726 int oflag;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2727 const Char_ASCII *mode_save = mode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2728
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2729 /* Force all file handles to be non-inheritable. This is necessary to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2730 ensure child processes don't unwittingly inherit handles that might
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2731 prevent future file access. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2732
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2733 if (mode[0] == 'r')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2734 oflag = O_RDONLY;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2735 else if (mode[0] == 'w' || mode[0] == 'a')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2736 oflag = O_WRONLY | O_CREAT | O_TRUNC;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2737 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2738 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2739
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2740 /* Only do simplistic option parsing. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2741 while (*++mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2742 if (mode[0] == '+')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2743 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2744 oflag &= ~(O_RDONLY | O_WRONLY);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2745 oflag |= O_RDWR;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2746 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2747 else if (mode[0] == 'b')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2748 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2749 oflag &= ~O_TEXT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2750 oflag |= O_BINARY;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2751 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2752 else if (mode[0] == 't')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2753 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2754 oflag &= ~O_BINARY;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2755 oflag |= O_TEXT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2756 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2757 else break;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2758
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2759 fd = underlying_open (path, oflag, 0644);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2760 if (fd < 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2761 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2762
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2763 return _fdopen (fd, mode_save);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 #elif defined (INTERRUPTIBLE_OPEN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766 FILE *rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2767 while (!(rtnval = fopen (path, mode)) && (errno == EINTR))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 DO_NOTHING;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2772 return fopen (path, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2773 #endif /* defined (INTERRUPTIBLE_OPEN) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2775
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2776 FILE *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2777 qxe_fopen (const Intbyte *path, const Char_ASCII *mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2778 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2779 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2780 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2781 return retry_fopen (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2782 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2783
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2785 retry_fclose (FILE *stream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 #ifdef INTERRUPTIBLE_CLOSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2788 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 while ((rtnval = fclose (stream)) == EOF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2793 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 return fclose (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2798
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 size_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2800 retry_fread (void *ptr, size_t size, size_t nitem, FILE *stream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802 #ifdef INTERRUPTIBLE_IO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 size_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 size_t items_read = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 char *b = (char *) ptr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 while (nitem > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 rtnval = fread (b, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810 if (rtnval == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 if (ferror (stream) && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 return items_read;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 b += size*rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 nitem -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 items_read += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 return (items_read);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 return fread (ptr, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2826
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 size_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2828 retry_fwrite (const void *ptr, size_t size, size_t nitem, FILE *stream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830 #ifdef INTERRUPTIBLE_IO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 size_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 size_t items_written = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2833 const char *b = (const char *) ptr;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 while (nitem > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837 rtnval = fwrite (b, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 if (rtnval == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 if (ferror (stream) && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 return items_written;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 b += size*rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 nitem -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 items_written += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 return (items_written);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851 return fwrite (ptr, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 /********************* directory calls *******************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2858 qxe_chdir (const Intbyte *path)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2860 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2861 PATHNAME_CONVERT_OUT (path, pathout);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2862 #ifdef WIN32_NATIVE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2863 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2864 return _wchdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2865 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2866 return _chdir (pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2868 return chdir (pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2871
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2872 int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2873 qxe_mkdir (const Intbyte *path, mode_t mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2874 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2875 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2876 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2877 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2878 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2879 return _wmkdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2880 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2881 return _mkdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2882 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2883 return mkdir (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2884 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2885 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2886
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 DIR *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2888 qxe_opendir (const Intbyte *filename)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2890 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2891 return mswindows_opendir (filename);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2892 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 DIR *rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2894 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2895 PATHNAME_CONVERT_OUT (filename, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2896
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2897 while (!(rtnval = opendir (pathout))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2900 return rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2901 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2903
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 DIRENTRY *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2905 qxe_readdir (DIR *dirp)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2907 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2908 return mswindows_readdir (dirp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2909 #else /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 DIRENTRY *rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912 /* Apparently setting errno is necessary on some systems?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 Maybe readdir() doesn't always set errno ?! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 while (!(errno = 0, rtnval = readdir (dirp))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 #ifndef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 #else /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2920 if (rtnval == NULL) /* End of directory */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2921 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2923 const Extbyte * const external_name = (const Extbyte *) rtnval->d_name;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2924 Bytecount external_len = strlen (rtnval->d_name);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2925 const Intbyte *internal_name;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2926 Bytecount internal_len;
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
2927
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2928 TO_INTERNAL_FORMAT (DATA, (external_name, external_len),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2929 ALLOCA, (internal_name, internal_len),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2930 Qfile_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2931
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2932 /* check for common case of ASCII filename */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2933 if (internal_len == external_len &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2934 !memcmp (external_name, internal_name, internal_len))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2935 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937 { /* Non-ASCII filename */
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2938 static Intbyte_dynarr *internal_DIRENTRY;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2939 if (!internal_DIRENTRY)
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2940 internal_DIRENTRY = Dynarr_new (Intbyte);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942 Dynarr_reset (internal_DIRENTRY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
2944 Dynarr_add_many (internal_DIRENTRY, (Intbyte *) rtnval,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 offsetof (DIRENTRY, d_name));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2948 Dynarr_add_many (internal_DIRENTRY, internal_name, internal_len);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2949 Dynarr_add (internal_DIRENTRY, '\0'); /* NUL-terminate */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 return (DIRENTRY *) Dynarr_atp (internal_DIRENTRY, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2953 #endif /* MULE */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2954 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2955 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2956
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2957 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2958 qxe_closedir (DIR *dirp)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2960 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2961 return mswindows_closedir (dirp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2962 #else /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 while ((rtnval = closedir (dirp)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2966 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 return rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2969 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2970 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2971
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2973 qxe_rmdir (const Intbyte *path)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2974 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2975 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2976 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2977 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2978 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2979 return _wrmdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2980 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2981 return _rmdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2982 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2983 return rmdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2984 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2985 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2986
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2987 Intbyte *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2988 qxe_allocating_getcwd (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2989 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2990 #ifdef HAVE_GETCWD
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2991 Bytecount cwdsize = 1024;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2992 Extbyte *cwd = xnew_array (Extbyte, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2993
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2994 /* Many getcwd()'s can take a NULL argument and malloc() the right amount
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2995 of data, but this is non-standard. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2996 while (1)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2997 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2998 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2999 Extbyte *ret;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3000
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3001 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3002 ret = (Extbyte *) _wgetcwd ((wchar_t *) cwd,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3003 cwdsize / sizeof (wchar_t));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3004 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3005 ret = _getcwd (cwd, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3006
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3007 if (ret)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3008 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3009 Intbyte *retin;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3010 TSTR_TO_C_STRING_MALLOC (ret, retin);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3011 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3012 return retin;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3013 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3014 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3015 Extbyte *ret = getcwd (cwd, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3016 if (ret)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3017 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3018 Intbyte *retin;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3019 EXTERNAL_TO_C_STRING_MALLOC (ret, retin, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3020 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3021 return retin;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3022 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3023 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3024
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3025 if (errno == ERANGE)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3026 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3027 cwdsize *= 2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3028 XREALLOC_ARRAY (cwd, Extbyte, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3029 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3030 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3031 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3032 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3033 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3034 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3035 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3036 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3037 Extbyte chingame_limitos_arbitrarios[PATH_MAX];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3038 Intbyte *ret2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3039
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3040 if (!getwd (chingame_limitos_arbitrarios))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3041 return 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3042 EXTERNAL_TO_C_STRING_MALLOC (chingame_limitos_arbitrarios, ret2, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3043 return ret2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3044 #endif /* HAVE_GETCWD */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047 /***************** file-information calls ******************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3050 qxe_access (const Intbyte *path, int mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3052 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3053 return mswindows_access (path, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3054 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3055 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3056 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3057 return access (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3058 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3060
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3061 #if defined (HAVE_EACCESS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3063 qxe_eaccess (const Intbyte *path, int mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3065 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3066 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3067 return eaccess (pathout, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3069 #endif /* defined (HAVE_EACCESS) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3070
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3072 qxe_lstat (const Intbyte *path, struct stat *buf)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3074 /* if system does not have symbolic links, it does not have lstat.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3075 In that case, use ordinary stat instead. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3076 #ifndef S_IFLNK
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3077 return qxe_stat (path, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3078 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3079 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3080 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3081 return lstat (pathout, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3082 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3083 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3084
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3085 #if defined (HAVE_READLINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3086 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3087 qxe_readlink (const Intbyte *path, Intbyte *buf, size_t bufsiz)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3088 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3089 int retval;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3090 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3091
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3092 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3093 retval = readlink (pathout, (char *) buf, bufsiz);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3094 if (retval < 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3095 return retval;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3096 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3097 Intbyte *intbuf;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3098 Bytecount tamanho;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3099
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3100 TO_INTERNAL_FORMAT (DATA, (buf, retval),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3101 ALLOCA, (intbuf, tamanho), Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3102 /* the man page says this function does not null-terminate */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3103 if (tamanho >= (Bytecount) bufsiz)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3104 tamanho = bufsiz;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3105 memcpy (buf, intbuf, tamanho);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3106 return tamanho;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3107 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3109 #endif /* defined (HAVE_READLINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3110
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3111 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3112 qxe_fstat (int fd, struct stat *buf)
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3113 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3114 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3115 return mswindows_fstat (fd, buf);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3116 #else
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3117 return fstat (fd, buf);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3118 #endif /* WIN32_NATIVE */
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3119 }
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3120
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3121 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3122 qxe_stat (const Intbyte *path, struct stat *buf)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3123 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3124 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3125 return mswindows_stat (path, buf);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3126 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3127 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3128 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3129 return stat (pathout, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3130 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3133
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134 /****************** file-manipulation calls *****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3136 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3137 qxe_chmod (const Intbyte *path, mode_t mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3139 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3140 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3141 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3142 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3143 return _wchmod ((const wchar_t *) pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3144 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3145 return _chmod (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3146 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3147 return chmod (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3148 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3149 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3150
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3151 #if defined (HAVE_LINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3152 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3153 qxe_link (const Intbyte *existing, const Intbyte *new)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3155 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3156 return mswindows_link (existing, new);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3157 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3158 Extbyte *existingout, *newout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3159 PATHNAME_CONVERT_OUT (existing, existingout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3160 PATHNAME_CONVERT_OUT (new, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3161 return link (existingout, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3162 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3164 #endif /* defined (HAVE_LINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3165
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3167 qxe_rename (const Intbyte *old, const Intbyte *new)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3169 #ifdef WIN32_NATIVE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3170 return mswindows_rename (old, new);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3171 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3172 Extbyte *oldout, *newout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3173 PATHNAME_CONVERT_OUT (old, oldout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3174 PATHNAME_CONVERT_OUT (new, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3175 return rename (oldout, newout);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3176 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3177 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3178
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3179 #if defined (HAVE_SYMLINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3180 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3181 qxe_symlink (const Intbyte *name1, const Intbyte *name2)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3182 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3183 Extbyte *name1out, *name2out;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3184 PATHNAME_CONVERT_OUT (name1, name1out);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3185 PATHNAME_CONVERT_OUT (name2, name2out);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3186 return symlink (name1out, name2out);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3187 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3188 #endif /* defined (HAVE_SYMLINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3189
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3190 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3191 qxe_unlink (const Intbyte *path)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3192 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3193 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3194 return mswindows_unlink (path);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3195 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3196 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3197 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3198 return unlink (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3199 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3201
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3202
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3203 /****************** process calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3204
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3205 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3206 qxe_execve (const Intbyte *filename, Intbyte * const argv[],
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3207 Intbyte * const envp[])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3208 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3209 int i, argc, envc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3210 Extbyte *pathext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3211 Extbyte **new_argv;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3212 Extbyte **new_envp;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3213
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3214 PATHNAME_CONVERT_OUT (filename, pathext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3215
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 for (argc = 0; argv[argc]; argc++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 ;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3218 new_argv = alloca_array (Extbyte *, argc + 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219 for (i = 0; i < argc; i++)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3220 C_STRING_TO_EXTERNAL (argv[i], new_argv[i], Qnative);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 new_argv[argc] = NULL;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3222
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3223 for (envc = 0; envp[envc]; envc++)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3224 ;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3225 new_envp = alloca_array (Extbyte *, envc + 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3226 for (i = 0; i < envc; i++)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3227 C_STRING_TO_EXTERNAL (envp[i], new_envp[i], Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3228 new_envp[envc] = NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3229
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3230 return execve (pathext, new_argv, new_envp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3231 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3232
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3233 pid_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3234 qxe_getpid (void)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3235 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3236 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3237 return abs (getpid ());
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3238 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3239 return getpid ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3240 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3241 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3242
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3243
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3244 /****************** passwd calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3245
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3246 struct passwd cached_pwd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3247
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3248 static struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3249 copy_in_passwd (struct passwd *pwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3250 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3251 if (!pwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3252 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3253
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3254 if (cached_pwd.pw_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3255 xfree (cached_pwd.pw_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3256 if (cached_pwd.pw_passwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3257 xfree (cached_pwd.pw_passwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3258 if (cached_pwd.pw_gecos)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3259 xfree (cached_pwd.pw_gecos);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3260 if (cached_pwd.pw_dir)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3261 xfree (cached_pwd.pw_dir);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3262 if (cached_pwd.pw_shell)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3263 xfree (cached_pwd.pw_shell);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3264
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3265 cached_pwd = *pwd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3266 if (cached_pwd.pw_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3267 TO_INTERNAL_FORMAT (C_STRING, cached_pwd.pw_name,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3268 C_STRING_MALLOC, cached_pwd.pw_name, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3269 if (cached_pwd.pw_passwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3270 TO_INTERNAL_FORMAT (C_STRING, cached_pwd.pw_passwd,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3271 C_STRING_MALLOC, cached_pwd.pw_passwd, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3272 if (cached_pwd.pw_gecos)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3273 TO_INTERNAL_FORMAT (C_STRING, cached_pwd.pw_gecos,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3274 C_STRING_MALLOC, cached_pwd.pw_gecos, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3275 if (cached_pwd.pw_dir)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3276 TO_INTERNAL_FORMAT (C_STRING, cached_pwd.pw_dir,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3277 C_STRING_MALLOC, cached_pwd.pw_dir, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3278 if (cached_pwd.pw_shell)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3279 TO_INTERNAL_FORMAT (C_STRING, cached_pwd.pw_shell,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3280 C_STRING_MALLOC, cached_pwd.pw_shell, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3281 return &cached_pwd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3282 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3283
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3284 struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3285 qxe_getpwnam (const Intbyte *name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3286 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3287 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3288 /* Synthetic versions are defined in nt.c and already do conversion. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3289 return getpwnam (name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3290 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3291 Extbyte *nameext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3292 C_STRING_TO_EXTERNAL (name, nameext, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3293
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3294 return copy_in_passwd (getpwnam (nameext));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3295 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3296 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3297
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3298 struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3299 qxe_getpwuid (uid_t uid)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3300 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3301 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3302 /* Synthetic versions are defined in nt.c and already do conversion. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3303 return getpwuid (uid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3304 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3305 return copy_in_passwd (getpwuid (uid));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3306 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3307 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3308
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3309 #ifndef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3310
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3311 struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3312 qxe_getpwent (void)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3313 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3314 /* No WIN32_NATIVE version of this. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3315 return copy_in_passwd (getpwent ());
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3316 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3317
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3318 #endif /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3319
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3320 /****************** time calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3321
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3322 static Intbyte *ctime_static;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3323
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3324 Intbyte *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3325 qxe_ctime (const time_t *t)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3326 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3327 Extbyte *str = (Extbyte *) ctime (t);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3328 if (!str) /* can happen on MS Windows */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3329 return (Intbyte *) "Sun Jan 01 00:00:00 1970";
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3330 if (ctime_static)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3331 xfree (ctime_static);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3332 EXTERNAL_TO_C_STRING_MALLOC (str, ctime_static, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3333 return ctime_static;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3334 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3335
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3338 /* Emulations of missing system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3339 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 /***** (these are primarily required for USG, it seems) *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 * Emulate rename using unlink/link. Note that this is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 * only partially correct. Also, doesn't enforce restriction
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 * that files be of same type (regular->regular, dir->dir, etc).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 #ifndef HAVE_RENAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3351 rename (const Extbyte *from, const Extbyte *to)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 if (access (from, 0) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3355 unlink (to);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 if (link (from, to) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 if (unlink (from) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 return (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 return (-1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362 #endif /* HAVE_RENAME */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 #ifdef HPUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 #ifndef HAVE_PERROR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 /* HPUX curses library references perror, but as far as we know
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 it won't be called. Anyway this definition will do for now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 perror (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3372 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 #endif /* not HAVE_PERROR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 #endif /* HPUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 #ifndef HAVE_DUP2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3378
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3379 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 * Emulate BSD dup2. First close newd if it already exists.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 * Then, attempt to dup oldd. If not successful, call dup2 recursively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 * until we are, then close the unsuccessful ones.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386 dup2 (int oldd, int newd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 int fd, ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3390 retry_close (newd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 #ifdef F_DUPFD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 fd = fcntl (oldd, F_DUPFD, newd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 if (fd != newd)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
3395 signal_ferror_with_frob (Qfile_error, lisp_strerror (errno),
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
3396 "can't dup2 (%i, %i)", oldd, newd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398 fd = dup (old);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399 if (fd == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 if (fd == new)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 return new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 ret = dup2 (old, new);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3404 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 return ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 #endif /* F_DUPFD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 #endif /* not HAVE_DUP2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412 * Gettimeofday. Simulate as much as possible. Only accurate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 * to nearest second. Emacs doesn't use tzp so ignore it for now.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 #if !defined (HAVE_GETTIMEOFDAY)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419 gettimeofday (struct timeval *tp, struct timezone *tzp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 extern long time ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 tp->tv_sec = time ((long *)0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 tp->tv_usec = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 if (tzp != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426 tzp->tz_minuteswest = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 return (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 #endif /* !HAVE_GETTIMEOFDAY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432 /* No need to encapsulate utime and utimes explicitly because all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 access to those functions goes through the following. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 int
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3436 set_file_times (Lisp_Object path, EMACS_TIME atime, EMACS_TIME mtime)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 {
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3438 #if defined (WIN32_NATIVE)
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3439 struct utimbuf utb;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3440 utb.actime = EMACS_SECS (atime);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3441 utb.modtime = EMACS_SECS (mtime);
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3442 return mswindows_utime (path, &utb);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3443 #elif defined (HAVE_UTIME)
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3444 struct utimbuf utb;
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3445 Extbyte *filename;
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3446 utb.actime = EMACS_SECS (atime);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3447 utb.modtime = EMACS_SECS (mtime);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3448 LISP_STRING_TO_EXTERNAL (path, filename, Qfile_name);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3449 return utime (filename, &utb);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3450 #elif defined (HAVE_UTIMES)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 struct timeval tv[2];
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3452 Extbyte *filename;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453 tv[0] = atime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454 tv[1] = mtime;
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3455 LISP_STRING_TO_EXTERNAL (path, filename, Qfile_name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456 return utimes (filename, tv);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3457 #else
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3458 /* No file times setting function available. */
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3459 return -1;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3460 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 /* */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465 static long ticks_per_second;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 static long orig_user_ticks, orig_system_ticks;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 EMACS_TIME orig_real_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 static int process_times_available;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 /* Return the relative user and system tick count. We try to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 maintain calculations in terms of integers as long as possible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 for increased accuracy. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 get_process_times_1 (long *user_ticks, long *system_ticks)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3478 #if defined (_SC_CLK_TCK) || defined (CLK_TCK) && !defined(WIN32_NATIVE)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479 /* We have the POSIX times() function available. */
777
e65d9cf16707 [xemacs-hg @ 2002-03-15 11:00:28 by ben]
ben
parents: 771
diff changeset
3480 /* #### Perhaps we should just use a configure test for times()? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481 struct tms tttt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 times (&tttt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483 *user_ticks = (long) tttt.tms_utime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 *system_ticks = (long) tttt.tms_stime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 #elif defined (CLOCKS_PER_SEC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 *user_ticks = (long) clock ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 *system_ticks = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 init_process_times_very_early (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498 #if defined (_SC_CLK_TCK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 ticks_per_second = sysconf (_SC_CLK_TCK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500 #elif defined (CLK_TCK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 ticks_per_second = CLK_TCK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 #elif defined (CLOCKS_PER_SEC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503 ticks_per_second = CLOCKS_PER_SEC;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506 process_times_available = get_process_times_1 (&orig_user_ticks,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3507 &orig_system_ticks);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3508 EMACS_GET_TIME (orig_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3509 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3510
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511 /* Return the user and system times used up by this process so far. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513 get_process_times (double *user_time, double *system_time, double *real_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 EMACS_TIME curr_real_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516 EMACS_TIME elapsed_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3517 long curr_user_ticks, curr_system_ticks;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3519 EMACS_GET_TIME (curr_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 EMACS_SUB_TIME (elapsed_time, curr_real_time, orig_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521 *real_time = (EMACS_SECS (elapsed_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522 + ((double) EMACS_USECS (elapsed_time)) / 1000000);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523 if (get_process_times_1 (&curr_user_ticks, &curr_system_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3524 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3525 *user_time = (((double) (curr_user_ticks - orig_user_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 / ticks_per_second);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 *system_time = (((double) (curr_system_ticks - orig_system_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3528 / ticks_per_second);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3529 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532 /* A lame OS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3533 *user_time = *real_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 *system_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538 #ifndef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 #ifdef random
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540 #define HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 /* Figure out how many bits the system's random number generator uses.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545 `random' and `lrand48' are assumed to return 31 usable bits.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 BSD `rand' returns a 31 bit value but the low order bits are unusable;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3547 so we'll shift it and treat it like the 15-bit USG `rand'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 #ifndef RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550 # ifdef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551 # define RAND_BITS 31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 # else /* !HAVE_RANDOM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553 # ifdef HAVE_LRAND48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3554 # define RAND_BITS 31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 # define random lrand48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 # else /* !HAVE_LRAND48 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557 # define RAND_BITS 15
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558 # if RAND_MAX == 32767
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 # define random rand
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560 # else /* RAND_MAX != 32767 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 # if RAND_MAX == 2147483647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3562 # define random() (rand () >> 16)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3563 # else /* RAND_MAX != 2147483647 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 # ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 # define random rand
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567 # define random() (rand () >> 16)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568 # endif /* !BSD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569 # endif /* RAND_MAX != 2147483647 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570 # endif /* RAND_MAX != 32767 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571 # endif /* !HAVE_LRAND48 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572 # endif /* !HAVE_RANDOM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 #endif /* !RAND_BITS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 seed_random (long arg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 #ifdef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 srandom ((unsigned int)arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581 # ifdef HAVE_LRAND48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 srand48 (arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 srand ((unsigned int)arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3587 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 * Build a full Emacs-sized word out of whatever we've got.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 * This suffices even for a 64-bit architecture with a 15-bit rand.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593 long
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594 get_random (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 long val = random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 #if VALBITS > RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 #if VALBITS > 2*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 #if VALBITS > 3*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 #if VALBITS > 4*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 #endif /* need at least 5 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 #endif /* need at least 4 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 #endif /* need at least 3 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608 #endif /* need at least 2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 return val & ((1L << VALBITS) - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3611
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3614 /* Strings corresponding to defined signals */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 #if !defined (SYS_SIGLIST_DECLARED) && !defined (HAVE_SYS_SIGLIST)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3619 #if defined(WIN32_NATIVE) || defined(CYGWIN)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3620 const char *sys_siglist[] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3622 /* $$####begin-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623 "bum signal!!",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624 "hangup",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 "interrupt",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 "quit",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627 "illegal instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 "trace trap",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 "iot instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630 "emt instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 "floating point exception",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 "kill",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 "bus error",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 "segmentation violation",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635 "bad argument to system call",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 "write on a pipe with no one to read it",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 "alarm clock",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 "software termination signal from kill",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 "status signal",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640 "sendable stop signal not from tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 "stop signal from tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 "continue a stopped process",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643 "child status has changed",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3644 "background read attempted from control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645 "background write attempted from control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646 "input record available at control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3647 "exceeded CPU time limit",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648 "exceeded file size limit"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3649 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3650 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653 #ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 #ifdef AIX
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3655 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657 /* AIX has changed the signals a bit */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3658 /* $$####begin-snarf */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3659 "bogus signal", /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3660 "hangup", /* 1 SIGHUP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3661 "interrupt", /* 2 SIGINT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3662 "quit", /* 3 SIGQUIT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3663 "illegal instruction", /* 4 SIGILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3664 "trace trap", /* 5 SIGTRAP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3665 "IOT instruction", /* 6 SIGIOT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3666 "crash likely", /* 7 SIGDANGER */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3667 "floating point exception", /* 8 SIGFPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3668 "kill", /* 9 SIGKILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3669 "bus error", /* 10 SIGBUS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3670 "segmentation violation", /* 11 SIGSEGV */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3671 "bad argument to system call", /* 12 SIGSYS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3672 "write on a pipe with no one to read it", /* 13 SIGPIPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3673 "alarm clock", /* 14 SIGALRM */
822
39d30f8fadfd [xemacs-hg @ 2002-04-30 15:19:58 by stephent]
stephent
parents: 814
diff changeset
3674 "software termination signal", /* 15 SIGTERM */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3675 "user defined signal 1", /* 16 SIGUSR1 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3676 "user defined signal 2", /* 17 SIGUSR2 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3677 "death of a child", /* 18 SIGCLD */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3678 "power-fail restart", /* 19 SIGPWR */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3679 "bogus signal", /* 20 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3680 "bogus signal", /* 21 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3681 "bogus signal", /* 22 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3682 "bogus signal", /* 23 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3683 "bogus signal", /* 24 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3684 "LAN I/O interrupt", /* 25 SIGAIO */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3685 "PTY I/O interrupt", /* 26 SIGPTY */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3686 "I/O intervention required", /* 27 SIGIOINT */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3687 #ifdef AIXHFT
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3688 "HFT grant", /* 28 SIGGRANT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3689 "HFT retract", /* 29 SIGRETRACT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3690 "HFT sound done", /* 30 SIGSOUND */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3691 "HFT input ready", /* 31 SIGMSG */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3692 #endif
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3693 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3694 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3695 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3696 #else /* USG, not AIX */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3697 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3698 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3699 /* $$####begin-snarf */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3700 "bogus signal", /* 0 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3701 "hangup", /* 1 SIGHUP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3702 "interrupt", /* 2 SIGINT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3703 "quit", /* 3 SIGQUIT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3704 "illegal instruction", /* 4 SIGILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3705 "trace trap", /* 5 SIGTRAP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3706 "IOT instruction", /* 6 SIGIOT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3707 "EMT instruction", /* 7 SIGEMT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3708 "floating point exception", /* 8 SIGFPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3709 "kill", /* 9 SIGKILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3710 "bus error", /* 10 SIGBUS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3711 "segmentation violation", /* 11 SIGSEGV */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3712 "bad argument to system call", /* 12 SIGSYS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3713 "write on a pipe with no one to read it", /* 13 SIGPIPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3714 "alarm clock", /* 14 SIGALRM */
822
39d30f8fadfd [xemacs-hg @ 2002-04-30 15:19:58 by stephent]
stephent
parents: 814
diff changeset
3715 "software termination signal", /* 15 SIGTERM */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3716 "user defined signal 1", /* 16 SIGUSR1 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3717 "user defined signal 2", /* 17 SIGUSR2 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3718 "death of a child", /* 18 SIGCLD */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3719 "power-fail restart", /* 19 SIGPWR */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720 #ifdef sun
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3721 "window size changed", /* 20 SIGWINCH */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3722 "urgent socket condition", /* 21 SIGURG */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3723 "pollable event occurred", /* 22 SIGPOLL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3724 "stop (cannot be caught or ignored)", /* 23 SIGSTOP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3725 "user stop requested from tty", /* 24 SIGTSTP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3726 "stopped process has been continued", /* 25 SIGCONT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3727 "background tty read attempted", /* 26 SIGTTIN */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3728 "background tty write attempted", /* 27 SIGTTOU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3729 "virtual timer expired", /* 28 SIGVTALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3730 "profiling timer expired", /* 29 SIGPROF */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3731 "exceeded cpu limit", /* 30 SIGXCPU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3732 "exceeded file size limit", /* 31 SIGXFSZ */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3733 "process's lwps are blocked", /* 32 SIGWAITING */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3734 "special signal used by thread library", /* 33 SIGLWP */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3735 #ifdef SIGFREEZE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3736 "special signal used by CPR", /* 34 SIGFREEZE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3738 #ifdef SIGTHAW
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3739 "special signal used by CPR", /* 35 SIGTHAW */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3740 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3741 #endif /* sun */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3742 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3743 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3744 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3745 #endif /* not AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3746 #endif /* USG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3747 #ifdef DGUX
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3748 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3749 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3750 /* $$####begin-snarf */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3751 "null signal", /* 0 SIGNULL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3752 "hangup", /* 1 SIGHUP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3753 "interrupt", /* 2 SIGINT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3754 "quit", /* 3 SIGQUIT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3755 "illegal instruction", /* 4 SIGILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3756 "trace trap", /* 5 SIGTRAP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3757 "abort termination", /* 6 SIGABRT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3758 "SIGEMT", /* 7 SIGEMT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3759 "floating point exception", /* 8 SIGFPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3760 "kill", /* 9 SIGKILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3761 "bus error", /* 10 SIGBUS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3762 "segmentation violation", /* 11 SIGSEGV */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3763 "bad argument to system call", /* 12 SIGSYS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3764 "write on a pipe with no reader", /* 13 SIGPIPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3765 "alarm clock", /* 14 SIGALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3766 "software termination signal", /* 15 SIGTERM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3767 "user defined signal 1", /* 16 SIGUSR1 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3768 "user defined signal 2", /* 17 SIGUSR2 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3769 "child stopped or terminated", /* 18 SIGCLD */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3770 "power-fail restart", /* 19 SIGPWR */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3771 "window size changed", /* 20 SIGWINCH */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3772 "undefined", /* 21 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3773 "pollable event occurred", /* 22 SIGPOLL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3774 "sendable stop signal not from tty", /* 23 SIGSTOP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3775 "stop signal from tty", /* 24 SIGSTP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3776 "continue a stopped process", /* 25 SIGCONT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3777 "attempted background tty read", /* 26 SIGTTIN */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3778 "attempted background tty write", /* 27 SIGTTOU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3779 "undefined", /* 28 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3780 "undefined", /* 29 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3781 "undefined", /* 30 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3782 "undefined", /* 31 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3783 "undefined", /* 32 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3784 "socket (TCP/IP) urgent data arrival", /* 33 SIGURG */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3785 "I/O is possible", /* 34 SIGIO */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3786 "exceeded cpu time limit", /* 35 SIGXCPU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3787 "exceeded file size limit", /* 36 SIGXFSZ */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3788 "virtual time alarm", /* 37 SIGVTALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3789 "profiling time alarm", /* 38 SIGPROF */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3790 "undefined", /* 39 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3791 "file record locks revoked", /* 40 SIGLOST */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3792 "undefined", /* 41 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3793 "undefined", /* 42 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3794 "undefined", /* 43 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3795 "undefined", /* 44 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3796 "undefined", /* 45 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3797 "undefined", /* 46 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3798 "undefined", /* 47 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3799 "undefined", /* 48 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3800 "undefined", /* 49 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3801 "undefined", /* 50 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3802 "undefined", /* 51 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3803 "undefined", /* 52 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3804 "undefined", /* 53 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3805 "undefined", /* 54 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3806 "undefined", /* 55 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3807 "undefined", /* 56 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3808 "undefined", /* 57 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3809 "undefined", /* 58 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3810 "undefined", /* 59 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3811 "undefined", /* 60 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3812 "undefined", /* 61 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3813 "undefined", /* 62 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3814 "undefined", /* 63 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3815 "notification message in mess. queue", /* 64 SIGDGNOTIFY */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3816 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3818 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3819 #endif /* DGUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3821 #endif /* ! SYS_SIGLIST_DECLARED && ! HAVE_SYS_SIGLIST */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3822
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3824 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3825 /* Directory routines for systems that don't have them */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3826 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3828 #ifdef SYSV_SYSTEM_DIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3830 #include <dirent.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3831
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3832 #if defined(BROKEN_CLOSEDIR) || !defined(HAVE_CLOSEDIR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3833 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3834 closedir (DIR *dirp) /* stream from opendir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3838 rtnval = retry_close (dirp->dd_fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 /* Some systems (like Solaris) allocate the buffer and the DIR all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3841 in one block. Why in the world are we freeing this ourselves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3842 anyway? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3843 #if ! (defined (sun) && defined (USG5_4))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3844 xfree ((char *) dirp->dd_buf); /* directory block defined in <dirent.h> */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3845 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3846 xfree ((char *) dirp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 return (rtnval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3848 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3849 #endif /* BROKEN_CLOSEDIR or not HAVE_CLOSEDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3850 #endif /* SYSV_SYSTEM_DIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3852 #ifdef NONSYSTEM_DIR_LIBRARY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3854 DIR *
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3855 opendir (const char *filename) /* name of directory */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3856 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3857 DIR *dirp; /* -> malloc'ed storage */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3858 int fd; /* file descriptor for read */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3859 struct stat sbuf; /* result of fstat */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3861 fd = open (filename, O_RDONLY);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3862 if (fd < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3863 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3865 if (fstat (fd, &sbuf) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3866 || (sbuf.st_mode & S_IFMT) != S_IFDIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867 || (dirp = (DIR *) malloc (sizeof (DIR))) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3869 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 return 0; /* bad luck today */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3871 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3872
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873 dirp->dd_fd = fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 dirp->dd_loc = dirp->dd_size = 0; /* refill needed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3875
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3876 return dirp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3877 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3878
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3879 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3880 closedir (DIR *dirp) /* stream from opendir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3881 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3882 retry_close (dirp->dd_fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3883 xfree (dirp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3886
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3887 #define DIRSIZ 14
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888 struct olddir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3889 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3890 ino_t od_ino; /* inode */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3891 char od_name[DIRSIZ]; /* filename */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3892 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3893
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894 static struct direct dir_static; /* simulated directory contents */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 /* ARGUSED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897 struct direct *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3898 readdir (DIR *dirp) /* stream from opendir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3899 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3900 struct olddir *dp; /* -> directory data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3901
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3902 for (; ;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3904 if (dirp->dd_loc >= dirp->dd_size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905 dirp->dd_loc = dirp->dd_size = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907 if (dirp->dd_size == 0 /* refill buffer */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3908 && (dirp->dd_size =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3909 retry_read (dirp->dd_fd, dirp->dd_buf, DIRBLKSIZ)) <= 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3910 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3912 dp = (struct olddir *) &dirp->dd_buf[dirp->dd_loc];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3913 dirp->dd_loc += sizeof (struct olddir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3914
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3915 if (dp->od_ino != 0) /* not deleted entry */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3916 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 dir_static.d_ino = dp->od_ino;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918 strncpy (dir_static.d_name, dp->od_name, DIRSIZ);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 dir_static.d_name[DIRSIZ] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3920 dir_static.d_namlen = strlen (dir_static.d_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921 dir_static.d_reclen = sizeof (struct direct)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922 - MAXNAMLEN + 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3923 + dir_static.d_namlen - dir_static.d_namlen % 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3924 return &dir_static; /* -> simulated structure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3925 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3926 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3927 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3928
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3930 #endif /* NONSYSTEM_DIR_LIBRARY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3931
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3933 /* mkdir and rmdir functions, for systems which don't have them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3934
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 #ifndef HAVE_MKDIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3936 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3937 * Written by Robert Rother, Mariah Corporation, August 1985.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3939 * If you want it, it's yours. All I ask in return is that if you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 * figure out how to do this in a Bourne Shell script you send me
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3941 * a copy.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3942 * sdcsvax!rmr or rmr@uscd
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3943 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3944 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 * subroutine. 11Mar86; hoptoad!gnu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3946 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3947 * Modified by rmtodd@uokmax 6-28-87 -- when making an already existing dir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 * subroutine didn't return EEXIST. It does now.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3949 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3950
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3951 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3952 * Make a directory.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3953 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3954 #ifdef MKDIR_PROTOTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3955 MKDIR_PROTOTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3957 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3958 mkdir (const char *dpath, int dmode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 int cpid, status, fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962 struct stat statbuf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3964 if (stat (dpath, &statbuf) == 0) /* we do want stat() here */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966 errno = EEXIST; /* Stat worked, so it already exists */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3968 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3970 /* If stat fails for a reason other than non-existence, return error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 if (errno != ENOENT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3974 synch_process_alive = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 switch (cpid = fork ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 case -1: /* Error in fork() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979 return -1; /* Errno is set already */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981 case 0: /* Child process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3984 * Cheap hack to set mode of new directory. Since this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 * child process is going away anyway, we zap its umask.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 * ####, this won't suffice to set SUID, SGID, etc. on this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987 * directory. Does anybody care?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 status = umask (0); /* Get current umask */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 status = umask (status | (0777 & ~dmode)); /* Set for mkdir */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3991 fd = open ("/dev/null", O_RDWR);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 if (fd >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994 if (fd != STDIN_FILENO) dup2 (fd, STDIN_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 if (fd != STDOUT_FILENO) dup2 (fd, STDOUT_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 if (fd != STDERR_FILENO) dup2 (fd, STDERR_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3997 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998 execl ("/bin/mkdir", "mkdir", dpath, (char *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 _exit (-1); /* Can't exec /bin/mkdir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 default: /* Parent process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 wait_for_termination (cpid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4004 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 if (synch_process_death != 0 || synch_process_retcode != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008 errno = EIO; /* We don't know why, but */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 return -1; /* /bin/mkdir failed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 #endif /* not HAVE_MKDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 #ifndef HAVE_RMDIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4018 rmdir (const char *dpath)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4020 int cpid, status, fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021 struct stat statbuf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4023 if (stat (dpath, &statbuf) != 0) /* we do want stat() here */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4025 /* Stat just set errno. We don't have to */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4026 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4028
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4029 synch_process_alive = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4030 switch (cpid = fork ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4032
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4033 case -1: /* Error in fork() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 return (-1); /* Errno is set already */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 case 0: /* Child process */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
4037 fd = open ("/dev/null", O_RDWR);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 if (fd >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4039 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4040 if (fd != STDIN_FILENO) dup2 (fd, STDIN_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4041 if (fd != STDOUT_FILENO) dup2 (fd, STDOUT_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4042 if (fd != STDERR_FILENO) dup2 (fd, STDERR_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4043 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4044 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045 _exit (-1); /* Can't exec /bin/mkdir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4046
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4047 default: /* Parent process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4048 wait_for_termination (cpid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4049 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4050
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4051 if (synch_process_death != 0 ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 synch_process_retcode != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4053 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4054 errno = EIO; /* We don't know why, but */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055 return -1; /* /bin/rmdir failed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4056 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4057
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4058 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4059 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4060 #endif /* !HAVE_RMDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4063 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 /* Misc. SunOS crap */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 #ifdef USE_DL_STUBS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 /* These are included on Sunos 4.1 when we do not use shared libraries.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 X11 libraries may refer to these functions but (we hope) do not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 actually call them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4073 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4074 dlopen (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4077 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 dlsym (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4085 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086 dlclose (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4087 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4088 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4089 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4091 #endif /* USE_DL_STUBS */