annotate src/sysdep.c @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents 804517e16990
children e10cdc51a200
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"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
50 #include "device-impl.h"
800
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
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
59 #include "console-tty-impl.h"
428
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
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
63 #include "console-stream-impl.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"
859
84762348c6f9 [xemacs-hg @ 2002-06-01 08:06:46 by ben]
ben
parents: 854
diff changeset
72 #include "syssignal.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
73 #include "systime.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
74 #include "systty.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
75 #include "syswait.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
76
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
77 #include <setjmp.h>
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
78
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 777
diff changeset
79
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 /* ------------------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 /* TTY definitions */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 /* ------------------------------- */
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 #ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 #include <sys/utsname.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 #if defined (TIOCGWINSZ) || defined (ISC4_0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 #ifdef NEED_SIOCTL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 #include <sys/sioctl.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 #ifdef NEED_PTEM_H
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 #include <sys/stream.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 #include <sys/ptem.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 #endif /* TIOCGWINSZ or ISC4_0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 #endif /* USG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 /* 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
98 #ifndef LPASS8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 #define LPASS8 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 #ifndef HAVE_H_ERRNO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 int h_errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 static int baud_convert[] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 #ifdef BAUD_CONVERT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 BAUD_CONVERT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 1800, 2400, 4800, 9600, 19200, 38400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 static void hft_init (struct console *c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 static void hft_reset (struct console *c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 #include <sys/termio.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
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 /* subprocess control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
131 #ifdef NEED_SYNC_PROCESS_CODE
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
132
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
133 /* 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
134 are waiting for it. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
135 volatile int synch_process_alive;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
136
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
137 /* 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
138 const char *synch_process_death;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
139
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
140 /* If synch_process_death is zero,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
141 this is exit code of synchronous subprocess. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
142 int synch_process_retcode;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
143
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
144 #endif /* NEED_SYNC_PROCESS_CODE */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
145
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 #ifdef SIGTSTP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 /* Arrange for character C to be read as the next input from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 the terminal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 stuff_char (struct console *con, int c)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* Should perhaps error if in batch mode */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 #ifdef TIOCSTI
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 ioctl (input_fd, TIOCSTI, &c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 #else /* no TIOCSTI */
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
163 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
164 #endif /* no TIOCSTI */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 }
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 #endif /* SIGTSTP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 set_exclusive_use (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 #ifdef FIOCLEX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 ioctl (fd, FIOCLEX, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 /* Ok to do nothing if this feature does not exist */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 }
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 set_descriptor_non_blocking (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 /* Stride people say it's a mystery why this is needed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 as well as the O_NDELAY, but that it fails without this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 /* For AIX: Apparently need this for non-blocking reads on sockets.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 It seems that O_NONBLOCK applies only to FIFOs? From
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 lowry@watson.ibm.com (Andy Lowry). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 /* #### Should this be conditionalized on FIONBIO? */
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
189 #if defined (STRIDE) || (defined (pfa) && defined (HAVE_PTYS)) || defined (AIX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 int one = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 ioctl (fd, FIONBIO, &one);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 #ifdef F_SETFL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 fcntl (fd, F_SETFL, O_NONBLOCK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
201 #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
202
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
203 static void
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
204 wait_for_termination (int pid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 /* #### With the new improved SIGCHLD handling stuff, there is much
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 less danger of race conditions and some of the comments below
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 don't apply. This should be updated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 #if defined (NO_SUBPROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 /* No need to be tricky like below; we can just call wait(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 /* #### should figure out how to write a wait_allowing_quit().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 Since hardly any systems don't have subprocess support,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 however, there doesn't seem to be much point. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 if (wait (0) == pid)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 #elif defined (HAVE_WAITPID)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 /* Note that, whenever any subprocess terminates (asynch. or synch.),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 the SIGCHLD handler will be called and it will call wait(). Thus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 we cannot just call wait() ourselves, and we can't block SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 and then call wait(), because then if an asynch. process dies
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 while we're waiting for our synch. process, Emacs will never
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 notice that the asynch. process died.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 So, the general approach we take is to repeatedly block until a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 signal arrives, and then check if our process died using kill
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 (pid, 0). (We could also check the value of `synch_process_alive',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 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
232 only being called on synchronous processes, but this approach is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 safer. I don't trust the proper delivery of SIGCHLD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 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
236 WNOHANG will chew up CPU time; better to use sleep(). A loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 without WNOWAIT will screw up the SIGCHLD handler (actually this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 is not true, if you duplicate the exit-status-reaping code; see
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 below). A loop with WNOWAIT will result in a race condition if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 the process terminates between the process-status check and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 call to waitpid(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 /* Formerly, immediate_quit was set around this function call, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 that could lead to problems if the QUIT happened when SIGCHLD was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 blocked -- it would remain blocked. Yet another reason why
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 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
247 resort to this because either the SIGIO or the SIGALRM will stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 the block in EMACS_WAIT_FOR_SIGNAL(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 /* Apparently there are bugs on some systems with the second method
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 used below (the EMACS_BLOCK_SIGNAL method), whereby zombie
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 processes get left around. It appears in those cases that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 SIGCHLD handler is never getting invoked. It's not clear whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 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
255 problem is observed only with XEmacs, but under Solaris 2.4 all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 sorts of different programs have problems with zombies. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 method we use here does not require a working SIGCHLD (but will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 not break if it is working), and should be safe. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 We use waitpid(), contrary to the remarks above. There is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 race condition, because the three situations when sigchld_handler
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 is invoked should be handled OK:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 - handler invoked before waitpid(): In this case, subprocess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 status will be set by sigchld_handler. waitpid() here will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 return -1 with errno set to ECHILD, which is a valid exit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 condition.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 - handler invoked during waitpid(): as above, except that errno
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 here will be set to EINTR. This will cause waitpid() to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 called again, and this time it will exit with ECHILD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 - handler invoked after waitpid(): The following code will reap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 the subprocess. In the handler, wait() will return -1 because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 there is no child to reap, and the handler will exit without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 modifying child subprocess status. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 int ret, status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 /* Because the SIGCHLD handler can potentially reap the synchronous
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 subprocess, we should take care of that. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 /* Will stay in the do loop as long as:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 1. Process is alive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 2. Ctrl-G is not pressed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 ret = waitpid (pid, &status, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 /* waitpid returns 0 if the process is still alive. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 while (ret == 0 || (ret == -1 && errno == EINTR));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 if (ret == pid) /* Success */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 /* Set synch process globals. This is can also happen
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 in sigchld_handler, and that code is duplicated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 synch_process_alive = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 if (WIFEXITED (status))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 synch_process_retcode = WEXITSTATUS (status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 else if (WIFSIGNALED (status))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 synch_process_death = signal_name (WTERMSIG (status));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 /* 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
304 the child has already been reaped, e.g. in the signal handler. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 /* Otherwise, we've had some error condition here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 Per POSIX, the only other possibilities are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 - EFAULT (bus error accessing arg 2) or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 - EINVAL (incorrect arguments),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 which are both program bugs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 Since implementations may add their own error indicators on top,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 we ignore it by default. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 #elif defined (EMACS_BLOCK_SIGNAL) && !defined (BROKEN_WAIT_FOR_SIGNAL) && defined (SIGCHLD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 static int wait_debugging = 0; /* Set nonzero to make following
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 function work under dbx (at least for bsd). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 if (wait_debugging)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 EMACS_BLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 /* Block SIGCHLD from happening during this check,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 to avoid race conditions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 if (kill (pid, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 /* WARNING: Whatever this macro does *must* not allow SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 to happen between the time that it's reenabled and when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 begin to block. Otherwise we may end up blocking for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 signal that has already arrived and isn't coming again.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 Can you say "race condition"?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 I assume that the system calls sigpause() or sigsuspend()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 to provide this atomicness. If you're getting hangs in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 sigpause()/sigsuspend(), then your OS doesn't implement
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 this properly (this applies under hpux9, for example).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 Try defining BROKEN_WAIT_FOR_SIGNAL. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 EMACS_WAIT_FOR_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
345 #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
346 /* This approach is kind of cheesy but is guaranteed(?!) to work
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 for all systems. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 if (kill (pid, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 return;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
353 stop_interrupts ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
354 sleep (1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
355 start_interrupts ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 #endif /* OS features */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
360 #endif /* NEED_SYNC_PROCESS_CODE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 #if !defined (NO_SUBPROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
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 * flush any pending output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 * (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
367 */
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 flush_pending_output (int channel)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 #ifdef HAVE_TERMIOS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 /* If we try this, we get hit with SIGTTIN, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 the child's tty belongs to the child's pgrp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 #elif defined (TCFLSH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 ioctl (channel, TCFLSH, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 #elif defined (TIOCFLUSH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 int zero = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 /* 3rd arg should be ignored
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 but some 4.2 kernels actually want the address of an int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 and nonzero means something different. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 ioctl (channel, TIOCFLUSH, &zero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
386 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 /* 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
388 we will be controlling an inferior through.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 It should not echo or do line-editing, since that is done
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 in Emacs. No padding needed for insertion into an Emacs buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 child_setup_tty (int out)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 struct emacs_tty s;
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
396 emacs_get_tty (out, &s);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 assert (isatty(out));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 s.main.c_oflag |= OPOST; /* Enable output postprocessing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 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
402
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 /* Disable all output delays. */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
405 tcflag_t delay_mask = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 #ifdef NLDLY
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
407 delay_mask |= NLDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
408 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
409 #ifdef CRDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
410 delay_mask |= CRDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
411 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
412 #ifdef TABDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
413 delay_mask |= TABDLY; /* Also disables tab expansion (Posix). */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
414 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
415 #ifdef BSDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
416 delay_mask |= BSDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
417 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
418 #ifdef VTDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
419 delay_mask |= VTDLY;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 #endif
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
421 #ifdef FFDLY
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
422 delay_mask |= FFDLY;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
423 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
424 s.main.c_oflag &= ~delay_mask;
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
425 }
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 #ifdef OXTABS
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
428 /* 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
429 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
430 BSD systems use an independent flag, OXTABS. */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
431 s.main.c_oflag &= ~OXTABS; /* Disable tab expansion */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
432 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
433
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 s.main.c_lflag &= ~ECHO; /* Disable echo */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 s.main.c_lflag |= ISIG; /* Enable signals */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 #ifdef IUCLC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 s.main.c_iflag &= ~IUCLC; /* Disable downcasing on input. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 #ifdef OLCUC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 s.main.c_oflag &= ~OLCUC; /* Disable upcasing on output. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 #endif
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
442
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 #if defined (CSIZE) && defined (CS8)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 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
445 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 #ifdef ISTRIP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 s.main.c_iflag &= ~ISTRIP; /* Don't strip 8th bit on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 /* Unnecessary as long as ICANON is set */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 s.main.c_cc[VMIN] = 1; /* minimum number of characters to accept */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 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
453 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 s.main.c_lflag |= ICANON; /* Enable erase/kill and eof processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 s.main.c_cc[VEOF] = 04; /* ensure that EOF is Control-D */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 s.main.c_cc[VERASE] = _POSIX_VDISABLE; /* disable erase processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 s.main.c_cc[VKILL] = _POSIX_VDISABLE; /* disable kill processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 #ifdef HPUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 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
462 #endif /* HPUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 #ifdef AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 #ifndef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 /* AIX enhanced edit loses NULs, so disable it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 s.main.c_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 s.main.c_iflag &= ~ASCEDIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 #endif /* IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 /* Also, PTY overloads NUL and BREAK.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 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
472 This really serves a purpose only if running in an XTERM window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 or via TELNET or the like, but does no harm elsewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 s.main.c_iflag &= ~IGNBRK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 s.main.c_iflag &= ~BRKINT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 #endif /* AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 #ifdef SIGNALS_VIA_CHARACTERS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 /* TTY `special characters' are used in process_send_signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 so set them here to something useful. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 s.main.c_cc[VQUIT] = '\\'&037; /* Control-\ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 s.main.c_cc[VINTR] = 'C' &037; /* Control-C */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 s.main.c_cc[VSUSP] = 'Z' &037; /* Control-Z */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 #else /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 /* TTY `special characters' work better as signals, so disable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 character forms */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 s.main.c_cc[VQUIT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 s.main.c_cc[VINTR] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 s.main.c_cc[VSUSP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 s.main.c_lflag &= ~ISIG;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 #endif /* no TIOCGPGRP or no TIOCGLTC or no TIOCGETC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 s.main.c_cc[VEOL] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 #if defined (CBAUD)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
493 /* <mdiers> #### This is not portable. ###
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 POSIX does not specify CBAUD, and 4.4BSD does not have it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 Instead, POSIX suggests to use cfset{i,o}speed().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 [cf. D. Lewine, POSIX Programmer's Guide, Chapter 8: Terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 I/O, O'Reilly 1991] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 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
499 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 /* <mdiers> What to do upon failure? Just ignoring rc is probably
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 not acceptable, is it? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 if (cfsetispeed (&s.main, B9600) == -1) /* ignore */;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 if (cfsetospeed (&s.main, B9600) == -1) /* ignore */;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 #endif /* defined (CBAUD) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 #else /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 s.main.sg_flags &= ~(ECHO | CRMOD | ANYP | ALLDELAY | RAW | LCASE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 | CBREAK | TANDEM);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 s.main.sg_flags |= LPASS8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 s.main.sg_erase = 0377;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 s.main.sg_kill = 0377;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 s.lmode = LLITOUT | s.lmode; /* Don't strip 8th bit */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 #endif /* not HAVE_TERMIO */
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
516 emacs_set_tty (out, &s, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 #ifdef RTU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 int zero = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 ioctl (out, FIOASYNC, &zero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 #endif /* RTU */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
525 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 #endif /* not NO_SUBPROCESSES */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528
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 #if !defined (SIGTSTP) && !defined (USG_JOBCTRL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 #define SIG_PARAM_TYPE int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 /* Record a signal code and the handler for it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 struct save_signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 int code;
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
538 RETSIGTYPE (XCDECL * handler) (SIG_PARAM_TYPE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 save_signal_handlers (struct save_signal *saved_handlers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 while (saved_handlers->code)
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 saved_handlers->handler
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
547 = (RETSIGTYPE (XCDECL *) (SIG_PARAM_TYPE)) EMACS_SIGNAL (saved_handlers->code, SIG_IGN);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 saved_handlers++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 restore_signal_handlers (struct save_signal *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 while (saved_handlers->code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 {
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
557 EMACS_SIGNAL (saved_handlers->code, saved_handlers->handler);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 /* Fork a subshell. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 sys_subshell (void)
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 Lisp_Object dir;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
568 Ibyte *str = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
569 Bytecount len;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 struct gcpro gcpro1;
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
571 Ibyte *sh = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
572 Extbyte *shext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
573
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
574 /* 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
575
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
576 /* 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
577 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
578 GC-protected. */
854
1d8fb2eee1bb [xemacs-hg @ 2002-05-28 16:06:58 by didierv]
didierv
parents: 853
diff changeset
579
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 GCPRO1 (dir);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
581
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
582 dir = current_buffer->directory;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
583 /* 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
584 results, so put the slash back. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
585 dir = Ffile_name_as_directory (dir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 dir = Funhandled_file_name_directory (dir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 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
588
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
589 str = (Ibyte *) ALLOCA (XSTRING_LENGTH (dir) + 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 len = XSTRING_LENGTH (dir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 memcpy (str, XSTRING_DATA (dir), len);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
592 if (!IS_ANY_SEP (str[len - 1]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
593 str[len++] = DIRECTORY_SEP;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 str[len] = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
595
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
596 if (sh == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
597 sh = egetenv ("SHELL");
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
598 if (sh == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
599 sh = "sh";
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 C_STRING_TO_EXTERNAL (sh, shext, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
602
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
603 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
605 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
606
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
607 if (str)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
608 qxe_chdir (str);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
609
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
610 /* Waits for process completion */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
611 if (_spawnlp (_P_WAIT, shext, shext, NULL) != 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
612 report_process_error ("Can't spawn subshell", Qunbound);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
613 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
614 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
615
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
616 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
617
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
618 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
619 int pid;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
620 struct save_signal saved_handlers[5];
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
621
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
622 saved_handlers[0].code = SIGINT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
623 saved_handlers[1].code = SIGQUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
624 saved_handlers[2].code = SIGTERM;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
625 #ifdef SIGIO
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
626 saved_handlers[3].code = SIGIO;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
627 saved_handlers[4].code = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
628 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
629 saved_handlers[3].code = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
630 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
631
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
632 pid = fork ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
633
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
634 if (pid == -1)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
635 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
636 if (pid == 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
637 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
638 if (str)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
639 qxe_chdir (str);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
640
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
641 #if !defined (NO_SUBPROCESSES)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
642 close_process_descs (); /* Close Emacs's pipes/ptys */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 #ifdef SET_EMACS_PRIORITY
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
646 if (emacs_priority != 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
647 nice (-emacs_priority); /* Give the new shell the default priority */
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
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
650 execlp (shext, shext, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
651 retry_write (1, "Can't execute subshell", 22);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
652 _exit (1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
653 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
654
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
655 save_signal_handlers (saved_handlers);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
656 synch_process_alive = 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
657 wait_for_termination (pid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
658 restore_signal_handlers (saved_handlers);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
661 #endif /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 #endif /* !defined (SIGTSTP) && !defined (USG_JOBCTRL) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666
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 /* Suspend the Emacs process; give terminal to its superior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 sys_suspend (void)
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 #if defined (SIGTSTP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 int pgrp = EMACS_GET_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 EMACS_KILLPG (pgrp, SIGTSTP);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 #elif defined (USG_JOBCTRL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 /* 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
680 ptrace (0, 0, 0, 0); /* set for ptrace - caught by csh */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 kill (getpid (), SIGQUIT);
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 #else /* No SIGTSTP or USG_JOBCTRL */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 /* On a system where suspending is not implemented,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 instead fork a subshell and let it talk directly to the terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 while we wait. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 sys_subshell ();
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 /* Suspend a process if possible; give terminal to its superior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 sys_suspend_process (int process)
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 /* I don't doubt that it is possible to suspend processes on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 * VMS machines or thost that use USG_JOBCTRL,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 * but I don't know how to do it, so...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 #if defined (SIGTSTP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 kill(process, SIGTSTP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 /* 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
708 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
709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 get_pty_max_bytes (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
713 /* 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
714 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
715 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
716 inevitable vendor off-by-one-or-two-or-three bugs. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
717 #define MAX_CANON_SLACK 10
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
718 #define SAFE_MAX_CANON (127 - MAX_CANON_SLACK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 #if defined (HAVE_FPATHCONF) && defined (_PC_MAX_CANON)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
720 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
721 int max_canon = fpathconf (fd, _PC_MAX_CANON);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
722 #ifdef __hpux__
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
723 /* HP-UX 10.20 fpathconf returns 768, but this results in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
724 truncated input lines, while 255 works. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 if (max_canon > 255) max_canon = 255;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727 return (max_canon < 0 ? SAFE_MAX_CANON :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
728 max_canon > SAFE_MAX_CANON ? max_canon - MAX_CANON_SLACK :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
729 max_canon);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
730 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
731 #elif defined (_POSIX_MAX_CANON)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
732 return (_POSIX_MAX_CANON > SAFE_MAX_CANON ?
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
733 _POSIX_MAX_CANON - MAX_CANON_SLACK :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
734 _POSIX_MAX_CANON);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
735 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
736 return SAFE_MAX_CANON;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
737 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 /* Figure out the eof character for the FD. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
742 Ibyte
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 get_eof_char (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 {
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
745 const Ibyte ctrl_d = (Ibyte) '\004';
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 if (!isatty (fd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 #ifdef HAVE_TERMIOS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 struct termios t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 tcgetattr (fd, &t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 /* 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
755 if ((int) strlen ((const char *) t.c_cc) < (VEOF + 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 else
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
758 return (Ibyte) t.c_cc[VEOF];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 #endif
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
760 return t.c_cc[VEOF] == _POSIX_VDISABLE ? ctrl_d : (Ibyte) t.c_cc[VEOF];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 #else /* ! HAVE_TERMIOS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 /* On Berkeley descendants, the following IOCTL's retrieve the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 current control characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 #if defined (TIOCGETC)
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 struct tchars c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 ioctl (fd, TIOCGETC, &c);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
769 return (Ibyte) c.t_eofc;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 #else /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 /* On SYSV descendants, the TCGETA ioctl retrieves the current control
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 #ifdef TCGETA
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 struct termio t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 ioctl (fd, TCGETA, &t);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
778 if ((int) strlen ((const char *) t.c_cc) < (VINTR + 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 else
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
781 return (Ibyte) t.c_cc[VINTR];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 #else /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 /* Rather than complain, we'll just guess ^D, which is what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 * earlier emacsen always used. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 return ctrl_d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 #endif /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 #endif /* ! defined (TIOCGETC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 #endif /* ! defined (HAVE_TERMIOS) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 /* Set the logical window size associated with descriptor FD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 to HEIGHT and WIDTH. This is used mainly with ptys. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 set_window_size (int fd, int height, int width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 #ifdef TIOCSWINSZ
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 /* BSD-style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 struct winsize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 size.ws_row = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 size.ws_col = width;
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 if (ioctl (fd, TIOCSWINSZ, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 return 0; /* error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 return 1;
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 #elif defined (TIOCSSIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 /* SunOS - style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 struct ttysize size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 size.ts_lines = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 size.ts_cols = width;
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 if (ioctl (fd, TIOCGSIZE, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 /* Set up the proper status flags for use of a pty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 setup_pty (int fd)
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 #ifdef IBMRTAIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 /* 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
833 /* 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
834 /* 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
835 /* 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
836 /* 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
837 EMACS_SIGNAL (SIGHUP, SIG_IGN);
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
838 #endif /* IBMRTAIX */
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
839
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 #ifdef TIOCPKT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 /* 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
842 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
843 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
844 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
845 removed the fix in pre2.0.14. - dkindred@cs.cmu.edu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 ioctl (fd, TIOCPKT, (char *)&off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 }
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 513
diff changeset
851 #endif /* TIOCPKT */
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 /* TTY control */
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 /* get baud rate */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 /* ------------------------------------------------------ */
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 /* 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
864 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
865 decisions. */
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 init_baud_rate (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 if (DEVICE_WIN_P (d) || DEVICE_STREAM_P (d))
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 DEVICE_BAUD_RATE (d) = 38400;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 return;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
879 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 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
881 #ifdef HAVE_TERMIOS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 struct termios sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 sg.c_cflag = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 tcgetattr (input_fd, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 DEVICE_TTY_DATA (d)->ospeed = cfgetospeed (&sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 # if defined (USE_GETOBAUD) && defined (getobaud)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 /* m88k-motorola-sysv3 needs this (ghazi@noc.rutgers.edu) 9/1/94. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 if (DEVICE_TTY_DATA (d)->ospeed == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 DEVICE_TTY_DATA (d)->ospeed = getobaud (sg.c_cflag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 #elif defined (HAVE_TERMIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 struct termio sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 sg.c_cflag = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 # ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 tcgetattr (input_fd, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 ioctl (input_fd, TCGETA, &sg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 DEVICE_TTY_DATA (d)->ospeed = sg.c_cflag & CBAUD;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 #else /* neither TERMIOS nor TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 struct sgttyb sg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 sg.sg_ospeed = B9600;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 if (ioctl (input_fd, TIOCGETP, &sg) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 DEVICE_TTY_DATA (d)->ospeed = sg.sg_ospeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 DEVICE_BAUD_RATE (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 (DEVICE_TTY_DATA (d)->ospeed < countof (baud_convert)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 ? baud_convert[DEVICE_TTY_DATA (d)->ospeed]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 : 9600);
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 if (DEVICE_BAUD_RATE (d) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 DEVICE_BAUD_RATE (d) = 1200;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 /* SIGIO control */
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
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
927 #if defined (SIGIO) && !defined (BROKEN_SIGIO)
428
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 init_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 int filedesc = DEVICE_INFD (d);
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 #if defined (FIOSSAIOOWN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 { /* HPUX stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 int owner = getpid ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 ioctl_status = ioctl (filedesc, FIOGSAIOOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 ioctl_status = ioctl (filedesc, FIOSSAIOOWN, &owner);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 else if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 ioctl_status = ioctl (filedesc, SIOCGPGRP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 ioctl_status = ioctl (filedesc, SIOCSPGRP, &owner);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 #elif defined (F_SETOWN) && !defined (F_SETOWN_BUG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 DEVICE_OLD_FCNTL_OWNER (d) = fcntl (filedesc, F_GETOWN, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 # ifdef F_SETOWN_SOCK_NEG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 /* stdin is a socket here */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 fcntl (filedesc, F_SETOWN, -getpid ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 fcntl (filedesc, F_SETOWN, getpid ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 reset_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 int filedesc = DEVICE_INFD (d);
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 #if defined (FIOSSAIOOWN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 { /* HPUX stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 if (DEVICE_TTY_P (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 ioctl_status = ioctl (filedesc, FIOSSAIOOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 else if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 ioctl_status = ioctl (filedesc, SIOCSPGRP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 &DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 #endif
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 #elif defined (F_SETOWN) && !defined (F_SETOWN_BUG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 fcntl (filedesc, F_SETOWN, DEVICE_OLD_FCNTL_OWNER (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 request_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
995 /* 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
996 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
997 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
998 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
999 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
1000
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1001 Using these mechanisms, a program can implement fully
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1002 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
1003 of the time.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1004
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1005 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
1006 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
1007 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
1008 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
1009 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
1010
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1011 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
1012 particular need to switch. --ben
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1013 */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1014
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1015 #if defined (I_SETSIG) && !defined (HPUX10) && !defined (LINUX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1017 int events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 ioctl (filedesc, I_GETSIG, &events);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 ioctl (filedesc, I_SETSIG, events | S_INPUT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1021 #elif defined (O_ASYNC)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1022 /* 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
1023 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
1024 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
1025 check it first. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1026 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) | O_ASYNC);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 #elif defined (FASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) | FASYNC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 #elif defined (FIOSSAIOSTAT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 /* DG: Changed for HP-UX. HP-UX uses different IOCTLs for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 sockets and other devices for some bizarre reason. We guess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 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
1034 use the following crud to do the appropriate thing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 int on = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 int ioctl_status; /* ####DG: check if IOCTL succeeds here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 ioctl_status = ioctl (filedesc, FIOSSAIOSTAT, &on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 else if (!DEVICE_STREAM_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, FIOASYNC, &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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 #elif defined (FIOASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 int on = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 ioctl (filedesc, FIOASYNC, &on);
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 #endif
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 #if defined (_CX_UX) /* #### Is this crap necessary? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 EMACS_UNBLOCK_SIGNAL (SIGIO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 unrequest_sigio_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 int filedesc = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1066 #if defined (I_SETSIG) && !defined (HPUX10) && !defined (LINUX)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1068 int events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 ioctl (filedesc, I_GETSIG, &events);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 ioctl (filedesc, I_SETSIG, events & ~S_INPUT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1072 #elif defined (O_ASYNC)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1073 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) & ~O_ASYNC);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 #elif defined (FASYNC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 fcntl (filedesc, F_SETFL, fcntl (filedesc, F_GETFL, 0) & ~FASYNC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 #elif defined (FIOSSAIOSTAT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 /* DG: Changed for HP-UX. HP-UX uses different IOCTLs for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 sockets and other devices for some bizarre reason. We guess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 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
1081 use the following crud to do the appropriate thing. */
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 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 int ioctl_status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 /* See comment for request_sigio_on_device */
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 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 ioctl_status = ioctl (filedesc, FIOSSAIOSTAT, &off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 ioctl_status = ioctl (filedesc, FIOASYNC, &off);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 }
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 #elif defined (FIOASYNC)
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 int off = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 ioctl (filedesc, FIOASYNC, &off);
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 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 request_sigio (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 Lisp_Object devcons, concons;
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 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 request_sigio_on_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 }
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 unrequest_sigio (void)
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 Lisp_Object devcons, concons;
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 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 unrequest_sigio_on_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 }
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 #endif /* SIGIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138
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 /* Changing Emacs's process group */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 /* Saving and restoring the process group of Emacs's terminal. */
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 /* On some systems, apparently (?!) Emacs must be in its own process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 group in order to receive SIGIO correctly. On other systems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 (e.g. Solaris), it's not required and doing it makes things
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 get fucked up. So, we only do it when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP is defined. Basically,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 this is only required for BSD 4.2 systems. (Actually, I bet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 we don't have to do this at all -- those systems also
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 required interrupt input, which we don't support.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 If Emacs was in its own process group (i.e. inherited_pgroup ==
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 getpid ()), then we know we're running under a shell with job
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 control (Emacs would never be run as part of a pipeline).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 Everything is fine.
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 not in its own process group, then we know we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 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
1161 separate itself from Emacs (like sh). Emacs must be in its own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 process group in order to receive SIGIO correctly. In this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 situation, we put ourselves in our own pgroup, forcibly set the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 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
1165 the tty's pgroup just like any other terminal setting. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 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
1167 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
1168 it goes foreground in the future, which is what should happen. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1172 static pid_t inherited_pgroup;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1173 static pid_t inherited_tty_pgroup;
428
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 munge_tty_process_group (void)
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 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 /* Only do this munging if we have a device on the controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 terminal. See the large comment below. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1189 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 int fd = open ("/dev/tty", O_RDWR, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1191 pid_t me = getpid ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 EMACS_BLOCK_SIGNAL (SIGTTOU);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 EMACS_SET_TTY_PROCESS_GROUP (fd, &me);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 EMACS_UNBLOCK_SIGNAL (SIGTTOU);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1195 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 /* Split off the foreground process group to Emacs alone.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 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
1202 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
1203 to be in our own process group to receive SIGIO properly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205 munge_process_groups (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 munge_tty_process_group ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 unmunge_tty_process_group (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
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 int fd = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 EMACS_BLOCK_SIGNAL (SIGTTOU);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 EMACS_SET_TTY_PROCESS_GROUP (fd, &inherited_tty_pgroup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 EMACS_UNBLOCK_SIGNAL (SIGTTOU);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1226 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 /* Set the tty to our original foreground group.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 Also restore the original process group (put us back into sh's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 process group), so that ^Z will suspend both us and sh. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 unmunge_process_groups (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 unmunge_tty_process_group ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 EMACS_SET_PROCESS_GROUP (inherited_pgroup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 /* 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
1248 group for SIGIO to work correctly (at least on some systems ...).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 So go ahead and put ourselves into our own process group. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 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
1251 Also record whether we were in our own process group. (In general,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 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
1253 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
1254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 If we succeeded in changing our process group, then we will no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 longer be in the foreground process group of our controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 terminal. Therefore, if we have a console open onto this terminal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 we have to change the controlling terminal's foreground process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 group (otherwise we will get stopped with a SIGTTIN signal when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 attempting to read from the terminal). It's important,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 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
1262 the terminal. It's a decidedly bad idea to do so otherwise,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 especially if XEmacs was started from the background. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 init_process_group (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 #ifdef SIGIO_REQUIRES_SEPARATE_PROCESS_GROUP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 if (! noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 int fd = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 inherited_pgroup = EMACS_GET_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 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
1274 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 disconnect_controlling_terminal (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 # ifdef HAVE_SETSID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 /* Controlling terminals are attached to a session.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 Create a new session for us; it will have no controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 terminal. This also, of course, puts us in our own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 process group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 setsid ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 /* Put us in our own process group. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 EMACS_SEPARATE_PROCESS_GROUP ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 # if defined (TIOCNOTTY)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 /* This is the older way of disconnecting the controlling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 terminal, on 4.3 BSD. We must open /dev/tty; using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 filedesc 0 is not sufficient because it could be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 something else (e.g. our stdin was redirected to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 another terminal).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 int j = open ("/dev/tty", O_RDWR, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 ioctl (j, TIOCNOTTY, 0);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1302 retry_close (j);
428
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 # endif /* TIOCNOTTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 On systems without TIOCNOTTY and without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 setsid(), we don't need to do anything more to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 disconnect our controlling terminal. Here is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 what the man page for termio(7) from a SYSV 3.2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 system says:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 "The first terminal file opened by the process group leader
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 of a terminal file not already associated with a process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 group becomes the control terminal for that process group.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 The control terminal plays a special role in handling quit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 and interrupt signals, as discussed below. The control
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 terminal is inherited by a child process during a fork(2).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 A process can break this association by changing its process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 group using setpgrp(2)."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 # endif /* not HAVE_SETSID */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324
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 /* Getting and setting emacs_tty structures */
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 /* 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
1331 them for child TTY processes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 /* 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
1333 #ifndef WIN32_NATIVE
428
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 /* Set *TC to the parameters associated with the terminal FD.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 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
1337 couldn't deal with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 emacs_get_tty (int fd, struct emacs_tty *settings)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 /* Retrieve the primary parameters - baud rate, character size, etcetera. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 #ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 /* We have those nifty POSIX tcmumbleattr functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 if (tcgetattr (fd, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 #elif defined HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 /* The SYSV-style interface? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 if (ioctl (fd, TCGETA, &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
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
1352 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 /* I give up - I hope you have the BSD ioctls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 if (ioctl (fd, TIOCGETP, &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 #endif /* HAVE_TCATTR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 /* Suivant - Do we have to get struct ltchars data? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 if (ioctl (fd, TIOCGLTC, &settings->ltchars) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 /* How about a struct tchars and a wordful of lmode bits? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 if (ioctl (fd, TIOCGETC, &settings->tchars) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367 || ioctl (fd, TIOCLGET, &settings->lmode) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1371 /* We have survived the tempest. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1372 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375 /* 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
1376 *SETTINGS. If FLUSHP is non-zero, we discard input.
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1377 Return 0 if all went well, and -1 if anything failed.
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1378 #### All current callers use FLUSHP == 0. */
428
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 emacs_set_tty (int fd, struct emacs_tty *settings, int flushp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383 /* Set the primary parameters - baud rate, character size, etcetera. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384 #ifdef HAVE_TCATTR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 /* We have those nifty POSIX tcmumbleattr functions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 William J. Smith <wjs@wiis.wang.com> writes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 "POSIX 1003.1 defines tcsetattr() to return success if it was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 able to perform any of the requested actions, even if some
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390 of the requested actions could not be performed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 We must read settings back to ensure tty setup properly.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 AIX requires this to keep tty from hanging occasionally." */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 /* This makes sure that we don't loop indefinitely in here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 for (i = 0 ; i < 10 ; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 if (tcsetattr (fd, flushp ? TCSAFLUSH : TCSADRAIN, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 if (errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 return -1;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 struct termios new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 /* 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
1407 tcgetattr (fd, &new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 /* We cannot use memcmp on the whole structure here because under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 * aix386 the termios structure has some reserved field that may
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 * not be filled in.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 if ( new.c_iflag == settings->main.c_iflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 && new.c_oflag == settings->main.c_oflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 && new.c_cflag == settings->main.c_cflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 && new.c_lflag == settings->main.c_lflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416 && memcmp(new.c_cc, settings->main.c_cc, NCCS) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 #elif defined HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 /* The SYSV-style interface? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 if (ioctl (fd, flushp ? TCSETAF : TCSETAW, &settings->main) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
1426 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 /* I give up - I hope you have the BSD ioctls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 if (ioctl (fd, (flushp) ? TIOCSETP : TIOCSETN, &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 #endif /* HAVE_TCATTR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 /* Suivant - Do we have to get struct ltchars data? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 if (ioctl (fd, TIOCSLTC, &settings->ltchars) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 /* How about a struct tchars and a wordful of lmode bits? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 if (ioctl (fd, TIOCSETC, &settings->tchars) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 || ioctl (fd, TIOCLSET, &settings->lmode) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 /* We have survived the tempest. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1449 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 /* Initializing a device */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 #ifdef HAVE_TTY
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 /* This may also be defined in stdio,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 but if so, this does no harm,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459 and using the same name avoids wasting the other one's space. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 #if ((defined(USG) || defined(DGUX)) && !defined(__STDC__))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 char _sobuf[BUFSIZ+8];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 #elif (defined(USG) && !defined(LINUX) && !defined(_SCO_DS)) || defined(IRIX5)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 extern unsigned char _sobuf[BUFSIZ+8];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 char _sobuf[BUFSIZ];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 #if defined (TIOCGLTC) && defined (HAVE_LTCHARS) /* HAVE_LTCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 static struct ltchars new_ltchars = {-1,-1,-1,-1,-1,-1};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 #ifdef TIOCGETC /* HAVE_TCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 static struct tchars new_tchars = {-1,-1,-1,-1,-1,-1};
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 tty_init_sys_modes_on_device (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 struct emacs_tty tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 int input_fd, output_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 output_fd = CONSOLE_TTY_DATA (con)->outfd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1488 emacs_get_tty (input_fd, &CONSOLE_TTY_DATA (con)->old_tty);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 tty = CONSOLE_TTY_DATA (con)->old_tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 con->tty_erase_char = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 /* after all those years... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 con->tty_erase_char = make_char (tty.main.c_cc[VERASE]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 #ifdef DGUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 /* This allows meta to be sent on 8th bit. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 tty.main.c_iflag &= ~INPCK; /* don't check input for parity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 tty.main.c_iflag |= (IGNBRK); /* Ignore break condition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 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
1502 #ifdef ISTRIP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 tty.main.c_iflag &= ~ISTRIP; /* don't strip 8th bit on input */
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_lflag &= ~ECHO; /* Disable echo */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 tty.main.c_lflag &= ~ICANON; /* Disable erase/kill processing */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 #ifdef IEXTEN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 tty.main.c_lflag &= ~IEXTEN; /* Disable other editing characters. */
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 |= ISIG; /* Enable signals */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 if (TTY_FLAGS (con).flow_control)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 tty.main.c_iflag |= IXON; /* Enable start/stop output control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 #ifdef IXANY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 tty.main.c_iflag &= ~IXANY;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 #endif /* IXANY */
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 tty.main.c_iflag &= ~IXON; /* Disable start/stop output control */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 tty.main.c_oflag &= ~ONLCR; /* Disable map of NL to CR-NL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 on output */
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1522
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1523 #if 0
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1524 /* 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
1525 #if defined (TABDLY) && defined (TAB3)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1526 if ((tty.main.c_oflag & TABDLY) == TAB3)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1527 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
1528 #elif defined (OXTABS)
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1529 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
1530 #endif
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1531 #endif /* 0 */
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
1532
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533 #ifdef CS8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 if (TTY_FLAGS (con).meta_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 tty.main.c_cflag |= CS8; /* allow 8th bit on input */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 tty.main.c_cflag &= ~PARENB;/* Don't check parity */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 if (CONSOLE_TTY_DATA (con)->controlling_terminal)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 tty.main.c_cc[VINTR] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 CONSOLE_QUIT_CHAR (con); /* C-g (usually) gives SIGINT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 /* Set up C-g for both SIGQUIT and SIGINT.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 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
1546 so which one it really gives us does not matter. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 tty.main.c_cc[VQUIT] = CONSOLE_QUIT_CHAR (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 tty.main.c_cc[VINTR] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 tty.main.c_cc[VQUIT] = _POSIX_VDISABLE;
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 tty.main.c_cc[VMIN] = 1; /* Input should wait for at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 least 1 char */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 tty.main.c_cc[VTIME] = 0; /* no matter how long that takes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557 #ifdef VSWTCH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 tty.main.c_cc[VSWTCH] = _POSIX_VDISABLE; /* Turn off shell layering use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 of C-z */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 #endif /* VSWTCH */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 /* There was some conditionalizing here on (mips or TCATTR), but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 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
1563 disabled on HP9000s700 systems, and this might fix it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 #ifdef VSUSP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 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
1566 #endif /* VSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 #ifdef V_DSUSP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 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
1569 #endif /* V_DSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 #ifdef VDSUSP /* Some systems have VDSUSP, some have V_DSUSP. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 tty.main.c_cc[VDSUSP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 #endif /* VDSUSP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 #ifdef VLNEXT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 tty.main.c_cc[VLNEXT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 #endif /* VLNEXT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576 #ifdef VREPRINT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 tty.main.c_cc[VREPRINT] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 #endif /* VREPRINT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1579 #ifdef VWERASE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 tty.main.c_cc[VWERASE] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 #endif /* VWERASE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582 #ifdef VDISCARD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 tty.main.c_cc[VDISCARD] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 #endif /* VDISCARD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 #ifdef VSTART
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1586 tty.main.c_cc[VSTART] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 #endif /* VSTART */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1588 #ifdef VSTRT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589 tty.main.c_cc[VSTRT] = _POSIX_VDISABLE; /* called VSTRT on some systems */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1590 #endif /* VSTART */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 #ifdef VSTOP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 tty.main.c_cc[VSTOP] = _POSIX_VDISABLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 #endif /* VSTOP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 #ifdef SET_LINE_DISCIPLINE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 /* Need to explicitly request TERMIODISC line discipline or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 Ultrix's termios does not work correctly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 tty.main.c_line = SET_LINE_DISCIPLINE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 #ifdef AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 #ifndef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 /* AIX enhanced edit loses NULs, so disable it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 tty.main.c_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 tty.main.c_iflag &= ~ASCEDIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 tty.main.c_cc[VSTRT] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 tty.main.c_cc[VSTOP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 tty.main.c_cc[VSUSP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 tty.main.c_cc[VDSUSP] = 255;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 #endif /* IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 /* Also, PTY overloads NUL and BREAK.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 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
1613 This really serves a purpose only if running in an XTERM window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 or via TELNET or the like, but does no harm elsewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 tty.main.c_iflag &= ~IGNBRK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 tty.main.c_iflag &= ~BRKINT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 #endif /* AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 #else /* if not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 con->tty_erase_char = make_char (tty.main.sg_erase);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 tty.main.sg_flags &= ~(ECHO | CRMOD | XTABS);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 if (TTY_FLAGS (con).meta_key)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 tty.main.sg_flags |= ANYP;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 /* #### should we be using RAW mode here? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 tty.main.sg_flags |= /* interrupt_input ? RAW : */ CBREAK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 #endif /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 /* 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
1628 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
1629 CBREAK mode, do this anyway so as to turn off local flow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 control for user coming over network on 4.2; in this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 only t_stopc and t_startc really matter. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 #ifndef HAVE_TERMIO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 #ifdef HAVE_TCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634 /* Note: if not using CBREAK mode, it makes no difference how we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 set this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 tty.tchars = new_tchars;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 tty.tchars.t_intrc = CONSOLE_QUIT_CHAR (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638 if (TTY_FLAGS (con).flow_control)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 tty.tchars.t_startc = '\021';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 tty.tchars.t_stopc = '\023';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 tty.lmode = LDECCTQ | LLITOUT | LPASS8 | LNOFLSH |
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 CONSOLE_TTY_DATA (con)->old_tty.lmode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 #if defined (ultrix) || defined (__bsdi__)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 /* Under Ultrix 4.2a, leaving this out doesn't seem to hurt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 anything, and leaving it in breaks the meta key. Go figure. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 /* Turning off ONLCR is enough under BSD/386. Leave the general
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 output post-processing flag alone since for some reason it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 doesn't get reset after XEmacs goes away. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 tty.lmode &= ~LLITOUT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 #endif /* HAVE_TCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 #endif /* not HAVE_TERMIO */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 #ifdef HAVE_LTCHARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 tty.ltchars = new_ltchars;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 #endif /* HAVE_LTCHARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1663 emacs_set_tty (input_fd, &tty, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 /* 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
1666 we have an unlocked terminal at the start. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 #ifdef TCXONC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TCXONC, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 #ifdef TIOCSTART
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 if (!TTY_FLAGS (con).flow_control) ioctl (input_fd, TIOCSTART, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 #if defined (HAVE_TERMIOS) || defined (HPUX9)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 #ifdef TCOON
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 if (!TTY_FLAGS (con).flow_control) tcflow (input_fd, TCOON);
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 hft_init (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 /* IBM's HFT device usually thinks a ^J should be LF/CR.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 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
1686 done. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 struct termio tty;
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 if (ioctl (output_fd, HFTGETID, &tty) != -1)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1690 retry_write (output_fd, "\033[20l", 5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695 #if 0 /* We do our own buffering with lstreams. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 #ifdef _IOFBF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 /* This symbol is defined on recent USG systems.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 Someone says without this call USG won't really buffer the file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 even with a call to setbuf. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
1700 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
1701 sizeof (_sobuf));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 setbuf (CONSOLE_TTY_DATA (con)->outfd, (char *) _sobuf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706 set_tty_modes (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1712 init_one_device (struct device *d)
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 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716 tty_init_sys_modes_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1717 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718 #if defined(SIGIO) && !defined(BROKEN_SIGIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 init_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 request_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 init_one_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 Lisp_Object devcons;
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 CONSOLE_DEVICE_LOOP (devcons, con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734 struct device *d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736 init_one_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 reinit_initial_console (void)
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 munge_process_groups ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746 init_one_console (XCONSOLE (Vcontrolling_terminal));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 /* Other TTY functions */
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 #ifdef HAVE_TTY
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 #if 0 /* not currently used */
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 /* Return nonzero if safe to use tabs in output.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 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
1760
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762 tabs_safe_p (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 struct emacs_tty tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1769 emacs_get_tty (DEVICE_INFD (d), &tty);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 return EMACS_TTY_TABS_OK (&tty);
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 /* Get terminal size from system.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 Store number of lines into *heightp and width into *widthp.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 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
1781
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783 get_tty_device_size (struct device *d, int *widthp, int *heightp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 int input_fd = DEVICE_INFD (d);
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 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 #ifdef TIOCGWINSZ
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 /* BSD-style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 struct winsize size;
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 if (ioctl (input_fd, TIOCGWINSZ, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 *widthp = *heightp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 *widthp = size.ws_col;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 *heightp = size.ws_row;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 #elif defined TIOCGSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 /* SunOS - style. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 struct ttysize size;
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 if (ioctl (input_fd, TIOCGSIZE, &size) == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 *widthp = *heightp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 *widthp = size.ts_cols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 *heightp = size.ts_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 #else /* system doesn't know size */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 *widthp = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818 *heightp = 0;
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 #endif /* not !TIOCGWINSZ */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823 #endif /* HAVE_TTY */
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
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 /* Is device 8 bit ? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 /* ------------------------------------------------------ */
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 #ifdef HAVE_TTY
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 eight_bit_tty (struct device *d)
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 struct emacs_tty s;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 int eight_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 assert (DEVICE_TTY_P (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 input_fd = DEVICE_INFD (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1842 emacs_get_tty (input_fd, &s);
428
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 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 eight_bit = (s.main.c_cflag & CSIZE) == CS8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 eight_bit = 0; /* I don't know how to do it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 return eight_bit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854
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 /* Resetting a device */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 /* ------------------------------------------------------ */
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 #ifdef HAVE_TTY
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 /* Prepare the terminal for exiting Emacs; move the cursor to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 bottom of the frame, turn off interrupt-driven I/O, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 tty_reset_sys_modes_on_device (struct device *d)
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 int input_fd, output_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 struct console *con = XCONSOLE (DEVICE_CONSOLE (d));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 output_fd = CONSOLE_TTY_DATA (con)->outfd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 #if defined (IBMR2AIX) && defined (AIXHFT)
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 /* 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
1875 do the LF only. Now, we need to reset it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876 struct termio tty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 if (ioctl (output_fd, HFTGETID, &tty) != -1)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1879 retry_write (output_fd, "\033[20h", 5);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 #endif
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 tty_redisplay_shutdown (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1884 /* reset_tty_modes() flushes the connection at its end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 reset_tty_modes (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1886
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887 #if defined (BSD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 /* Avoid possible loss of output when changing terminal modes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 fsync (output_fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
1892 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
1893 < 0 && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896 #ifdef SET_LINE_DISCIPLINE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1897 /* Ultrix's termios *ignores* any line discipline except TERMIODISC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898 A different old line discipline is therefore not restored, yet.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899 Restore the old line discipline by hand. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900 ioctl (input_fd, TIOCSETD, &old_tty.main.c_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 #ifdef AIXHFT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 hft_reset (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 #endif /* HAVE_TTY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912 reset_one_device (struct device *d)
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 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915 if (DEVICE_TTY_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 tty_reset_sys_modes_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 if (DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 fflush (CONSOLE_STREAM_DATA (XCONSOLE (DEVICE_CONSOLE (d)))->out);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 #if defined(SIGIO) && !defined(BROKEN_SIGIO)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 if (!DEVICE_STREAM_P (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 unrequest_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 reset_sigio_on_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1931 reset_one_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933 /* Note: this can be called during GC. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934 Lisp_Object devcons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 CONSOLE_DEVICE_LOOP (devcons, 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 struct device *d = XDEVICE (XCAR (devcons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940 reset_one_device (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 reset_all_consoles (void)
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 /* Note: this can be called during GC. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 Lisp_Object concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 CONSOLE_LOOP (concons)
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 struct console *con = XCONSOLE (XCAR (concons));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954 reset_one_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 }
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 unmunge_process_groups ();
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 reset_initial_console (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 if (CONSOLEP (Vcontrolling_terminal) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 CONSOLE_LIVE_P (XCONSOLE (Vcontrolling_terminal)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 reset_one_console (XCONSOLE (Vcontrolling_terminal));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 unmunge_process_groups ();
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 /* ------------------------------------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 /* extra TTY stuff under AIX */
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 #ifdef AIXHFT
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 /* Called from init_sys_modes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978 hft_init (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980 int junk;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 int input_fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 /* 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
1987 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
1988 call fails, we're not on an HFT. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990 if (ioctl (input_fd, HFQERROR, &junk) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 if (ioctl (input_fd, HFQEIO, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 /* On AIX the default hft keyboard mapping uses backspace rather than delete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 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
1999 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
2000 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
2001 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
2002 HFT VTD's. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 struct hfbuf buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 struct hfkeymap keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 buf.hf_bufp = (char *)&keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 buf.hf_buflen = sizeof (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 keymap.hf_nkeys = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 keymap.hfkey[0].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011 keymap.hfkey[0].hf_kstate = HFMAPCHAR | HFSHFNONE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 keymap.hfkey[0].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 keymap.hfkey[0].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 keymap.hfkey[0].hf_char = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018 keymap.hfkey[1].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2019 keymap.hfkey[1].hf_kstate = HFMAPCHAR | HFSHFSHFT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021 keymap.hfkey[1].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2022 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2023 keymap.hfkey[1].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2024 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 keymap.hfkey[1].hf_char = 127;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 hftctl (input_fd, HFSKBD, &buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 /* #### Should probably set a console TTY flag here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 /* 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
2031 at times. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 line_ins_del_ok = char_ins_del_ok = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2035
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 /* Reset the rubout key to backspace. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 hft_reset (struct console *con)
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 struct hfbuf buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 struct hfkeymap keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 int junk;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 int input_fd;
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 assert (CONSOLE_TTY_P (con));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 input_fd = CONSOLE_TTY_DATA (con)->infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 if (ioctl (input_fd, HFQERROR, &junk) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 if (ioctl (input_fd, HFQEIO, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 buf.hf_bufp = (char *)&keymap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 buf.hf_buflen = sizeof (keymap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 keymap.hf_nkeys = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 keymap.hfkey[0].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 keymap.hfkey[0].hf_kstate = HFMAPCHAR | HFSHFNONE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 keymap.hfkey[0].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 keymap.hfkey[0].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 keymap.hfkey[0].hf_char = 8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 keymap.hfkey[1].hf_kpos = 15;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 keymap.hfkey[1].hf_kstate = HFMAPCHAR | HFSHFSHFT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 #ifdef IBMR2AIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 keymap.hfkey[1].hf_keyidh = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 #else /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 keymap.hfkey[1].hf_page = '<';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 #endif /* not IBMR2AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 keymap.hfkey[1].hf_char = 8;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 hftctl (input_fd, HFSKBD, &buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 #endif /* AIXHFT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081
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 /* limits of text/data segments */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2086 /* 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
2087 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
2088 #if !defined (CANNOT_DUMP) && (!defined (PDUMP) || !defined (WIN32_NATIVE))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 #define NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2092 #if !defined (SYSTEM_MALLOC) && !defined (NEED_STARTS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2093 #define NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 #ifdef NEED_STARTS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 /* Some systems that cannot dump also cannot implement these. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 * Return the address of the start of the text segment prior to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 * doing an unexec. After unexec the return value is undefined.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 * See crt0.c for further explanation and _start.
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
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2106 #if !defined (HAVE_TEXT_START) && !defined (PDUMP)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2107
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2108 EXTERN_C int _start (void);
428
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 char *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 start_of_text (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 #ifdef TEXT_START
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2114 return (char *) TEXT_START;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2116 return (char *) _start;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 #endif /* TEXT_START */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2119 #endif /* !defined(HAVE_TEXT_START) && !defined(PDUMP) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 * Return the address of the start of the data segment prior to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 * doing an unexec. After unexec the return value is undefined.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2124 * See ecrt0.c for further information and definition of data_start.
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 * Apparently, on BSD systems this is etext at startup. On
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 * USG systems (swapping) this is highly mmu dependent and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 * is also dependent on whether or not the program is running
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 * with shared text. Generally there is a (possibly large)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 * gap between end of text and start of data with shared text.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 * On Uniplus+ systems with shared text, data starts at a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 * fixed address. Each port (from a given oem) is generally
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 * different, and the specific value of the start of data can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 * be obtained via the UniPlus+ specific "uvar" system call,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 * however the method outlined in crt0.c seems to be more portable.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 * Probably what will have to happen when a USG unexec is available,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 * 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
2140 * that text and data are contiguous. Then once loadup is complete,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 * unexec will produce a shared executable where the data can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 * at the normal shared text boundary and the startofdata variable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 * will be patched by unexec to the correct value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2147 #if defined (ORDINARY_LINK) && !defined (MINGW)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 extern char **environ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 #endif
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 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 start_of_data (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 #ifdef DATA_START
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 return ((char *) DATA_START);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 #else
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
2157 #if defined (ORDINARY_LINK) || defined(PDUMP)
428
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 * 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
2160 * data_start isn't defined. We take the address of environ, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 * 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
2162 * we don't sweat the handful of bytes that might lose.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2164 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 extern char* static_heap_base;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 if (!initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 return static_heap_base;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 #endif
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2169 return ((char *) &environ);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 extern int data_start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 return ((char *) &data_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 #endif /* ORDINARY_LINK */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 #endif /* DATA_START */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 #endif /* NEED_STARTS (not CANNOT_DUMP or not SYSTEM_MALLOC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2178 extern void *minimum_address_seen; /* from xmalloc() */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2179 extern void *maximum_address_seen; /* from xmalloc() */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2180
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2181 Bytecount
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2182 total_data_usage (void)
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2183 {
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2184 #ifdef NEED_STARTS
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2185 void *data_start = start_of_data ();
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2186 #else
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2187 void *data_start = minimum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2188 #endif
854
1d8fb2eee1bb [xemacs-hg @ 2002-05-28 16:06:58 by didierv]
didierv
parents: 853
diff changeset
2189
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2190 #if !defined (WIN32_NATIVE) && !defined (CYGWIN)
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 802
diff changeset
2191 void *data_end = sbrk (0);
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2192 #else
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2193 void *data_end = maximum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2194 #endif
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2195
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2196 /* 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
2197 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
2198 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
2199 invalidate it. */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2200 if (minimum_address_seen &&
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2201 (char *) minimum_address_seen < (char *) data_start)
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2202 data_start = minimum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2203
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2204 if (data_end < data_start) /* Huh?????????? */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2205 data_end = maximum_address_seen;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2206
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2207 /* #### 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
2208 higher than actual memory usage. How to fix??? */
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2209 return (char *) data_end - (char *) data_start;
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2210 }
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
2211
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 /* get the system name */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217 /* init_system_name sets up the string for the Lisp function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2218 system-name to return. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 extern Lisp_Object Vsystem_name;
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 init_system_name (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2225 #if defined (WIN32_NATIVE)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2226 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
2227 DWORD size = sizeof (hostname) / XETCHAR_SIZE;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2228 qxeGetComputerName (hostname, &size);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2229 Vsystem_name = build_tstr_string (hostname);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230 #elif !defined (HAVE_GETHOSTNAME)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2231 struct utsname uts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 uname (&uts);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2233 Vsystem_name = build_string (uts.nodename);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2234 #else /* HAVE_GETHOSTNAME */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 613
diff changeset
2235 int hostname_size = 256;
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2236 char *hostname = (char *) ALLOCA (hostname_size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 /* 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
2239 again. Apparently, the only indication gethostname gives of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240 whether the buffer was large enough is the presence or absence
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 of a '\0' in the string. Eech. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 gethostname (hostname, hostname_size - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 hostname[hostname_size - 1] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2247 /* 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
2248 if ((int) strlen (hostname) < (hostname_size - 1))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251 hostname_size <<= 1;
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2252 hostname = (char *) ALLOCA (hostname_size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 }
558
ed498ef2108b [xemacs-hg @ 2001-05-23 09:59:33 by ben]
ben
parents: 546
diff changeset
2254 # if defined( HAVE_SOCKETS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255 /* Turn the hostname into the official, fully-qualified hostname.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 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
2257 libraries on some machines and make the dumped emacs core dump. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 # ifndef CANNOT_DUMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2259 if (initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260 # endif /* not CANNOT_DUMP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 if (!strchr (hostname, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2263 # if !(defined(HAVE_GETADDRINFO) && defined(HAVE_GETNAMEINFO))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 struct hostent *hp = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 int count;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2266 # ifdef TRY_AGAIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 for (count = 0; count < 10; count++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 h_errno = 0;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2270 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 /* Some systems can't handle SIGALARM/SIGIO in gethostbyname(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 stop_interrupts ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 hp = gethostbyname (hostname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 start_interrupts ();
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2275 # ifdef TRY_AGAIN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 if (! (hp == 0 && h_errno == TRY_AGAIN))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 Fsleep_for (make_int (1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2280 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 if (hp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2283 const char *fqdn = (const char *) hp->h_name;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 if (!strchr (fqdn, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 /* We still don't have a fully qualified domain name.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288 Try to find one in the list of alternate names */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289 char **alias = hp->h_aliases;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 while (*alias && !strchr (*alias, '.'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 alias++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 if (*alias)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 fqdn = *alias;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 }
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2295 hostname = (char *) ALLOCA (strlen (fqdn) + 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 strcpy (hostname, fqdn);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2298 # else /* !(HAVE_GETADDRINFO && HAVE_GETNAMEINFO) */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2299 struct addrinfo hints, *res;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2300
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2301 xzero (hints);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2302 hints.ai_flags = AI_CANONNAME;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2303 #ifdef IPV6_CANONICALIZE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2304 hints.ai_family = AF_UNSPEC;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2305 #else
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2306 hints.ai_family = PF_INET;
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 665
diff changeset
2307 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2308 hints.ai_socktype = SOCK_STREAM;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2309 hints.ai_protocol = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2310 if (!getaddrinfo (hostname, NULL, &hints, &res))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2311 {
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 822
diff changeset
2312 hostname = (char *) ALLOCA (strlen (res->ai_canonname) + 1);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2313 strcpy (hostname, res->ai_canonname);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2314
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2315 freeaddrinfo (res);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2316 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2317 # endif /* !(HAVE_GETADDRINFO && HAVE_GETNAMEINFO) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319 # endif /* HAVE_SOCKETS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 Vsystem_name = build_string (hostname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 #endif /* HAVE_GETHOSTNAME */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 {
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2323 Ibyte *p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 Bytecount i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 for (i = 0, p = XSTRING_DATA (Vsystem_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 i < XSTRING_LENGTH (Vsystem_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 i++, p++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330 if (*p == ' ' || *p == '\t')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 *p = '-';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336
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 /* Emulation of select() */
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 #ifndef HAVE_SELECT
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 ERROR: XEmacs requires a working 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 #endif /* not HAVE_SELECT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346
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 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 /* Emulation of signal stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350 /************************************************************************/
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 /* 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
2353 can't imagine that anyone is actually running that OS any more.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 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
2355 Anyway, the signal stuff has all been changed. If someone wants to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 get this stuff working again, look in the FSF Emacs sources. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 /* POSIX signals support - DJB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 #ifdef HAVE_SIGPROCMASK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362 /* #### Is there any reason this is static global rather than local? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 static struct sigaction new_action, old_action;
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 signal_handler_t
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
2366 qxe_reliable_signal (int signal_number, signal_handler_t action)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 #if 0
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 /* XEmacs works better if system calls are *not* restarted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371 This allows C-g to interrupt reads and writes, on most systems.
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 #### Another possibility is to just longjmp() out of the signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374 handler. According to W.R. Stevens, this should be OK on all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375 systems. However, I don't want to deal with the potential
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 evil ramifications of this at this point. */
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 #ifdef DGUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2379 /* This gets us restartable system calls for efficiency.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380 The "else" code will work as well. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2381 return (berk_signal (signal_number, action));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 sigemptyset (&new_action.sa_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384 new_action.sa_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2385 #if defined (SA_RESTART)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2386 /* Emacs mostly works better with restartable system services. If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387 * flag exists, we probably want to turn it on here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2389 new_action.sa_flags = SA_RESTART;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 new_action.sa_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 sigaction (signal_number, &new_action, &old_action);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 return (old_action.sa_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 #endif /* DGUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397 #else /* not 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2399 sigemptyset (&new_action.sa_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 new_action.sa_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401 #if defined (SA_INTERRUPT) /* don't restart system calls, under SunOS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 new_action.sa_flags = SA_INTERRUPT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 new_action.sa_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 sigaction (signal_number, &new_action, &old_action);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 return (signal_handler_t) (old_action.sa_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 #endif /* not 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 #elif defined (HAVE_SIGBLOCK)
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 /* We use sigvec() rather than signal() if we have it, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2415 it lets us specify interruptible system calls. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 signal_handler_t
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 592
diff changeset
2417 qxe_reliable_signal (int signal_number, signal_handler_t action)
428
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 struct sigvec vec, ovec;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 vec.sv_handler = action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 vec.sv_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 #ifdef SV_INTERRUPT /* don't restart system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 vec.sv_flags = SV_INTERRUPT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 vec.sv_flags = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 sigvec (signal_number, &vec, &ovec);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 return (ovec.sv_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 }
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 #endif /* HAVE_SIGBLOCK (HAVE_SIGPROCMASK) */
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
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 /* Emulation of strerror() and errno support */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 /************************************************************************/
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 #ifndef HAVE_STRERROR
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 #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
2444 /* 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
2445 /* Irix added here by gparker@sni-usa.com for XEmacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 /* 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
2447 extern const char *sys_errlist[];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 extern int sys_nerr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 #ifdef __NetBSD__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452 extern char *sys_errlist[];
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2457 const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458 strerror (int errnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460 if (errnum >= 0 && errnum < sys_nerr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461 return sys_errlist[errnum];
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2462 return ((const char *) GETTEXT ("Unknown error"));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2463 }
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 #endif /* ! HAVE_STRERROR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467
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 /* Encapsulations of system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2472 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2473 #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
2474 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2475 #define PATHNAME_CONVERT_OUT(path, pathout) \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2476 C_STRING_TO_EXTERNAL (path, pathout, Qfile_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2477 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 /***************** low-level calls ****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2481 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2482 * On USG systems the system calls are INTERRUPTIBLE by signals
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483 * that the user program has elected to catch. Thus the system call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 * must be retried in these cases. To handle this without massive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485 * changes in the source code, we remap the standard system call names
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 * 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
2487 * with retries. Actually, for portability reasons, it is good
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488 * programming practice, as this example shows, to limit all actual
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 * system calls to a single occurrence in the source. Sure, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 * adds an extra level of function call overhead but it is almost
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 * always negligible. Fred Fish, Unisoft Systems Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 /* Ben sez: read Dick Gabriel's essay about the Worse Is Better
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 approach to programming and its connection to the silly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 interruptible-system-call business. To find it, look on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 Jamie's home page (http://www.jwz.org/worse-is-better.html). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2499 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2500
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2501 static int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2502 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
2503 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2504 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2505 return _wopen ((const wchar_t *) path, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2506 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2507 return _open (path, oflag, 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
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2510 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2511
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2512 /* Just one call with normal open() semantics. */
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 static int
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2515 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
2516 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2517 #ifdef WIN32_NATIVE
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 /* 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
2520 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
2521 non-inheritable. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2522 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
2523 mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2524 if (res >= 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2525 return res;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2526 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
2527 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2528 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2529 return open (path, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2530 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2531 }
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 /* 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
2534
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
2535 int XCDECL
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2536 retry_open (const Extbyte *path, int oflag, ...)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2537 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 int mode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 va_list ap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541 va_start (ap, oflag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2542 mode = va_arg (ap, int);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 va_end (ap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2545 #ifdef INTERRUPTIBLE_OPEN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 int rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2548 while ((rtnval = underlying_open (path, oflag, mode)) == -1
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2550 DO_NOTHING;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2553 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2554 return underlying_open (path, oflag, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2557
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2558 /* 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
2559 external encoding, interruptions, etc. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2560
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
2561 int XCDECL
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2562 qxe_open (const Ibyte *path, int oflag, ...)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2563 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2564 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2565 int mode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2566 va_list ap;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2567
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2568 va_start (ap, oflag);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2569 mode = va_arg (ap, int);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2570 va_end (ap);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2571
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2572 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2573 return retry_open (pathout, oflag, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2574 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2575
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2576 /* 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
2577 QUIT. This allows the callers of this function to be interrupted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 with C-g when, say, reading from named pipes. However, this should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579 be used with caution, as it can GC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 This function will not function as expected on systems where open()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 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
2583 the fallback to simple open(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2585 qxe_interruptible_open (const Ibyte *path, int oflag, int mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 /* This function can GC */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2588 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2589
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2590 PATHNAME_CONVERT_OUT (path, pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2592 #ifdef WIN32_NATIVE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2593 /* Make all handles non-inheritable */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2594 oflag |= _O_NOINHERIT;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2595 #endif
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2596
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2599 int rtnval = underlying_open (pathout, oflag, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600 if (!(rtnval == -1 && errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 /* open() was interrupted. Was QUIT responsible? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603 QUIT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2607 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2608 retry_close (int filedes)
428
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 #ifdef INTERRUPTIBLE_CLOSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611 int did_retry = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612 REGISTER int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2614 while ((rtnval = close (filedes)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 did_retry = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618 /* 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
2619 file descriptor. If it did the second close will fail with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 errno = EBADF. That means we have succeeded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 if (rtnval == -1 && did_retry && errno == EBADF)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626 return close (filedes);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2629
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2630 static ssize_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2631 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
2632 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633 ssize_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2635 /* No harm in looping regardless of the INTERRUPTIBLE_IO setting. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2636 while ((rtnval = read (fildes, buf, nbyte)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2637 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2639 if (allow_quit)
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2640 QUIT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2642 return rtnval;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2645 ssize_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2646 retry_read (int fildes, void *buf, size_t nbyte)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2647 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2648 return retry_read_1 (fildes, buf, nbyte, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2650
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2651 static ssize_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2652 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
2653 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 ssize_t bytes_written = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2655 const char *b = (const char *) buf;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 /* No harm in looping regardless of the INTERRUPTIBLE_IO setting. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 while (nbyte > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 ssize_t rtnval = write (fildes, b, nbyte);
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 if (allow_quit)
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2663 QUIT;
428
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 if (rtnval == -1)
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 (errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 return bytes_written ? bytes_written : -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 b += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673 nbyte -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 bytes_written += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2676 return bytes_written;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2677 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2678
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2679 ssize_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2680 retry_write (int fildes, const void *buf, size_t nbyte)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2682 return retry_write_1 (fildes, buf, nbyte, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2684
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2685 /* 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
2686 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
2687 signal handler) because that's way too losing.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2688
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2689 (#### 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
2690 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
2691
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2692 Bytecount
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2693 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
2694 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2695 QUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2696 return retry_read_1 (fildes, buf, size, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2697 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2698
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2699 Bytecount
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2700 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
2701 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2702 QUIT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2703 return retry_write_1 (fildes, buf, size, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2704 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 /**************** stdio calls ****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2709 /* There is at least some evidence that the stdio calls are interruptible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710 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
2711 case, it doesn't hurt to encapsulate them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713 /* #### Should also encapsulate fflush().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 #### Should conceivably encapsulate getchar() etc. What a pain! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 FILE *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2717 retry_fopen (const Extbyte *path, const Char_ASCII *mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2719 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2720 int fd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2721 int oflag;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2722 const Char_ASCII *mode_save = mode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2723
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2724 /* 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
2725 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
2726 prevent future file access. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2727
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2728 if (mode[0] == 'r')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2729 oflag = O_RDONLY;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2730 else if (mode[0] == 'w' || mode[0] == 'a')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2731 oflag = O_WRONLY | O_CREAT | O_TRUNC;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2732 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2733 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2734
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2735 /* Only do simplistic option parsing. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2736 while (*++mode)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2737 if (mode[0] == '+')
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2738 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2739 oflag &= ~(O_RDONLY | O_WRONLY);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2740 oflag |= O_RDWR;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2741 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2742 else if (mode[0] == 'b')
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_TEXT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2745 oflag |= O_BINARY;
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] == 't')
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_BINARY;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2750 oflag |= O_TEXT;
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 break;
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 fd = underlying_open (path, oflag, 0644);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2755 if (fd < 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2756 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2757
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2758 return _fdopen (fd, mode_save);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 #elif defined (INTERRUPTIBLE_OPEN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2760 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2761 FILE *rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2762 while (!(rtnval = fopen (path, mode)) && (errno == EINTR))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 DO_NOTHING;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 return rtnval;
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 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2767 return fopen (path, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2768 #endif /* defined (INTERRUPTIBLE_OPEN) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2770
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2771 FILE *
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2772 qxe_fopen (const Ibyte *path, const Char_ASCII *mode)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2773 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2774 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2775 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2776 return retry_fopen (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2777 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2778
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2780 retry_fclose (FILE *stream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2781 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 #ifdef INTERRUPTIBLE_CLOSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785 while ((rtnval = fclose (stream)) == EOF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2788 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 return fclose (stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2793
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 size_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2795 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
2796 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 #ifdef INTERRUPTIBLE_IO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2798 size_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 size_t items_read = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 char *b = (char *) ptr;
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 while (nitem > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 rtnval = fread (b, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 if (rtnval == 0)
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 if (ferror (stream) && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810 return items_read;
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 b += size*rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 nitem -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 items_read += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 return (items_read);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 return fread (ptr, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2821
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 size_t
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2823 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
2824 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 #ifdef INTERRUPTIBLE_IO
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 size_t rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 size_t items_written = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2828 const char *b = (const char *) ptr;
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 while (nitem > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 rtnval = fwrite (b, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833 if (rtnval == 0)
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 if (ferror (stream) && errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 return items_written;
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 b += size*rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 nitem -= rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 items_written += rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 return (items_written);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 return fwrite (ptr, size, nitem, stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 /********************* directory calls *******************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2853 qxe_chdir (const Ibyte *path)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2855 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2856 PATHNAME_CONVERT_OUT (path, pathout);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2857 #ifdef WIN32_NATIVE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2858 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2859 return _wchdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2860 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2861 return _chdir (pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2862 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2863 return chdir (pathout);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2866
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2867 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2868 qxe_mkdir (const Ibyte *path, mode_t mode)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2869 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2870 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2871 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2872 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2873 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2874 return _wmkdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2875 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2876 return _mkdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2877 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2878 return mkdir (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2879 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2880 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2881
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 DIR *
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2883 qxe_opendir (const Ibyte *filename)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2885 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2886 return mswindows_opendir (filename);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2887 #else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888 DIR *rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2889 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2890 PATHNAME_CONVERT_OUT (filename, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2891
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2892 while (!(rtnval = opendir (pathout))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895 return rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2896 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2898
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 DIRENTRY *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2900 qxe_readdir (DIR *dirp)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2902 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2903 return mswindows_readdir (dirp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2904 #else /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 DIRENTRY *rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 /* Apparently setting errno is necessary on some systems?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908 Maybe readdir() doesn't always set errno ?! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 while (!(errno = 0, rtnval = readdir (dirp))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 && (errno == EINTR))
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 #ifndef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 #else /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 if (rtnval == NULL) /* End of directory */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2918 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
2919 Bytecount external_len = strlen (rtnval->d_name);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2920 const Ibyte *internal_name;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2921 Bytecount internal_len;
513
e159a0b4bed4 [xemacs-hg @ 2001-05-07 07:49:18 by martinb]
martinb
parents: 502
diff changeset
2922
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2923 TO_INTERNAL_FORMAT (DATA, (external_name, external_len),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2924 ALLOCA, (internal_name, internal_len),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2925 Qfile_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2926
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2927 /* check for common case of ASCII filename */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2928 if (internal_len == external_len &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 460
diff changeset
2929 !memcmp (external_name, internal_name, internal_len))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2930 return rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2931
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2932 { /* Non-ASCII filename */
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2933 static Ibyte_dynarr *internal_DIRENTRY;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2934 if (!internal_DIRENTRY)
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2935 internal_DIRENTRY = Dynarr_new (Ibyte);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937 Dynarr_reset (internal_DIRENTRY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2939 Dynarr_add_many (internal_DIRENTRY, (Ibyte *) rtnval,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940 offsetof (DIRENTRY, d_name));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943 Dynarr_add_many (internal_DIRENTRY, internal_name, internal_len);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2944 Dynarr_add (internal_DIRENTRY, '\0'); /* NUL-terminate */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 return (DIRENTRY *) Dynarr_atp (internal_DIRENTRY, 0);
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 #endif /* MULE */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2949 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2951
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2953 qxe_closedir (DIR *dirp)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2955 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2956 return mswindows_closedir (dirp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2957 #else /* not WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2958 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 while ((rtnval = closedir (dirp)) == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 && (errno == EINTR))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 return rtnval;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2964 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2966
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2968 qxe_rmdir (const Ibyte *path)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2969 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2970 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2971 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2972 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2973 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2974 return _wrmdir ((const wchar_t *) pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2975 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2976 return _rmdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2977 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2978 return rmdir (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2979 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2980 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2981
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
2982 Ibyte *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2983 qxe_allocating_getcwd (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2985 #ifdef HAVE_GETCWD
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2986 Bytecount cwdsize = 1024;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2987 Extbyte *cwd = xnew_array (Extbyte, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2988
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2989 /* 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
2990 of data, but this is non-standard. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2991 while (1)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2992 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2993 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2994 Extbyte *ret;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2995
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2996 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2997 ret = (Extbyte *) _wgetcwd ((wchar_t *) cwd,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2998 cwdsize / sizeof (wchar_t));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2999 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3000 ret = _getcwd (cwd, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3001
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3002 if (ret)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3003 {
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3004 Ibyte *retin;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3005 TSTR_TO_C_STRING_MALLOC (ret, retin);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3006 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3007 return retin;
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 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3010 Extbyte *ret = getcwd (cwd, cwdsize);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3011 if (ret)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3012 {
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3013 Ibyte *retin;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3014 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
3015 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3016 return retin;
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 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3019
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3020 if (errno == ERANGE)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3021 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3022 cwdsize *= 2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3023 XREALLOC_ARRAY (cwd, Extbyte, cwdsize);
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 else
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 xfree (cwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3028 return NULL;
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 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3031 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3032 Extbyte chingame_limitos_arbitrarios[PATH_MAX];
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3033 Ibyte *ret2;
771
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 if (!getwd (chingame_limitos_arbitrarios))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3036 return 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3037 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
3038 return ret2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3039 #endif /* HAVE_GETCWD */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3042 /***************** file-information calls ******************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3045 qxe_access (const Ibyte *path, int mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3047 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3048 return mswindows_access (path, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3049 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3050 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3051 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3052 return access (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3053 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3055
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3056 #if defined (HAVE_EACCESS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3058 qxe_eaccess (const Ibyte *path, int mode)
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 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3061 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3062 return eaccess (pathout, mode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3064 #endif /* defined (HAVE_EACCESS) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3065
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3067 qxe_lstat (const Ibyte *path, struct stat *buf)
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 /* 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
3070 In that case, use ordinary stat instead. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3071 #ifndef S_IFLNK
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3072 return qxe_stat (path, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3073 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3074 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3075 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3076 return lstat (pathout, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3077 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3079
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3080 #if defined (HAVE_READLINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3081 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3082 qxe_readlink (const Ibyte *path, Ibyte *buf, size_t bufsiz)
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 int retval;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3085 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3086
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3087 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3088 retval = readlink (pathout, (char *) buf, bufsiz);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3089 if (retval < 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3090 return retval;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3091 {
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3092 Ibyte *intbuf;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3093 Bytecount tamanho;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3094
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3095 TO_INTERNAL_FORMAT (DATA, (buf, retval),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3096 ALLOCA, (intbuf, tamanho), Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3097 /* 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
3098 if (tamanho >= (Bytecount) bufsiz)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3099 tamanho = bufsiz;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3100 memcpy (buf, intbuf, tamanho);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3101 return tamanho;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3102 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3104 #endif /* defined (HAVE_READLINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3105
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3106 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3107 qxe_fstat (int fd, struct stat *buf)
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3108 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3109 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3110 return mswindows_fstat (fd, buf);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3111 #else
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3112 return fstat (fd, buf);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3113 #endif /* WIN32_NATIVE */
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3114 }
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
3115
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3116 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3117 qxe_stat (const Ibyte *path, struct stat *buf)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3118 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3119 #ifdef WIN32_NATIVE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3120 return mswindows_stat (path, buf);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3121 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3122 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3123 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3124 return stat (pathout, buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3125 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3128
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 /****************** file-manipulation calls *****************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3132 qxe_chmod (const Ibyte *path, mode_t mode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3134 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3135 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3136 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3137 if (XEUNICODE_P)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3138 return _wchmod ((const wchar_t *) pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3139 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3140 return _chmod (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3141 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3142 return chmod (pathout, mode);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3143 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3144 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3145
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3146 #if defined (HAVE_LINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3147 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3148 qxe_link (const Ibyte *existing, const Ibyte *new)
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 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3151 return mswindows_link (existing, new);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3152 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3153 Extbyte *existingout, *newout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3154 PATHNAME_CONVERT_OUT (existing, existingout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3155 PATHNAME_CONVERT_OUT (new, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3156 return link (existingout, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3157 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3158 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3159 #endif /* defined (HAVE_LINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3160
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3161 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3162 qxe_rename (const Ibyte *old, const Ibyte *new)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3164 #ifdef WIN32_NATIVE
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
3165 return mswindows_rename (old, new);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3166 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3167 Extbyte *oldout, *newout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3168 PATHNAME_CONVERT_OUT (old, oldout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3169 PATHNAME_CONVERT_OUT (new, newout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3170 return rename (oldout, newout);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3171 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3172 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3173
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3174 #if defined (HAVE_SYMLINK)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3175 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3176 qxe_symlink (const Ibyte *name1, const Ibyte *name2)
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 Extbyte *name1out, *name2out;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3179 PATHNAME_CONVERT_OUT (name1, name1out);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3180 PATHNAME_CONVERT_OUT (name2, name2out);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3181 return symlink (name1out, name2out);
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 #endif /* defined (HAVE_SYMLINK) */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3184
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3185 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3186 qxe_unlink (const Ibyte *path)
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 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3189 return mswindows_unlink (path);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3190 #else /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3191 Extbyte *pathout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3192 PATHNAME_CONVERT_OUT (path, pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3193 return unlink (pathout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3194 #endif /* WIN32_NATIVE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3195 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3196
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3197
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3198 /****************** process calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3199
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3200 int
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3201 qxe_execve (const Ibyte *filename, Ibyte * const argv[],
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3202 Ibyte * const envp[])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3203 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3204 int i, argc, envc;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3205 Extbyte *pathext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3206 Extbyte **new_argv;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3207 Extbyte **new_envp;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3208
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3209 PATHNAME_CONVERT_OUT (filename, pathext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3210
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211 for (argc = 0; argv[argc]; argc++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 ;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3213 new_argv = alloca_array (Extbyte *, argc + 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 for (i = 0; i < argc; i++)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3215 C_STRING_TO_EXTERNAL (argv[i], new_argv[i], Qnative);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216 new_argv[argc] = NULL;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3217
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3218 for (envc = 0; envp[envc]; envc++)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3219 ;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3220 new_envp = alloca_array (Extbyte *, envc + 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3221 for (i = 0; i < envc; i++)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3222 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
3223 new_envp[envc] = NULL;
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 return execve (pathext, new_argv, new_envp);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3226 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3227
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3228 pid_t
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3229 qxe_getpid (void)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3230 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3231 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3232 return abs (getpid ());
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3233 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3234 return getpid ();
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3235 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3237
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3238
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3239 /****************** passwd calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3240
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3241 struct passwd cached_pwd;
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 static struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3244 copy_in_passwd (struct passwd *pwd)
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 if (!pwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3247 return NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3248
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3249 if (cached_pwd.pw_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3250 xfree (cached_pwd.pw_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3251 if (cached_pwd.pw_passwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3252 xfree (cached_pwd.pw_passwd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3253 if (cached_pwd.pw_gecos)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3254 xfree (cached_pwd.pw_gecos);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3255 if (cached_pwd.pw_dir)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3256 xfree (cached_pwd.pw_dir);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3257 if (cached_pwd.pw_shell)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3258 xfree (cached_pwd.pw_shell);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3259
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3260 cached_pwd = *pwd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3261 if (cached_pwd.pw_name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3262 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
3263 C_STRING_MALLOC, cached_pwd.pw_name, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3264 if (cached_pwd.pw_passwd)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3265 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
3266 C_STRING_MALLOC, cached_pwd.pw_passwd, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3267 if (cached_pwd.pw_gecos)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3268 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
3269 C_STRING_MALLOC, cached_pwd.pw_gecos, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3270 if (cached_pwd.pw_dir)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3271 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
3272 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
3273 if (cached_pwd.pw_shell)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3274 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
3275 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
3276 return &cached_pwd;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3277 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3278
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3279 struct passwd *
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3280 qxe_getpwnam (const Ibyte *name)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3281 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3282 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3283 /* 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
3284 return getpwnam (name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3285 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3286 Extbyte *nameext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3287 C_STRING_TO_EXTERNAL (name, nameext, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3288
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3289 return copy_in_passwd (getpwnam (nameext));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3290 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3291 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3292
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3293 struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3294 qxe_getpwuid (uid_t uid)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3295 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3296 #ifdef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3297 /* 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
3298 return getpwuid (uid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3299 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3300 return copy_in_passwd (getpwuid (uid));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3301 #endif /* WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3302 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3303
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3304 #ifndef WIN32_NATIVE
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3305
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3306 struct passwd *
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3307 qxe_getpwent (void)
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 /* No WIN32_NATIVE version of this. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3310 return copy_in_passwd (getpwent ());
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3311 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3312
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3313 #endif /* not WIN32_NATIVE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3314
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3315 /****************** time calls *****************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3316
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3317 static Ibyte *ctime_static;
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3318
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3319 Ibyte *
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3320 qxe_ctime (const time_t *t)
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 Extbyte *str = (Extbyte *) ctime (t);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3323 if (!str) /* can happen on MS Windows */
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
3324 return (Ibyte *) "Sun Jan 01 00:00:00 1970";
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3325 if (ctime_static)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3326 xfree (ctime_static);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3327 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
3328 return ctime_static;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3329 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3332 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3333 /* Emulations of missing system calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3334 /************************************************************************/
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 /***** (these are primarily required for USG, it seems) *****/
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3339 * Emulate rename using unlink/link. Note that this is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340 * only partially correct. Also, doesn't enforce restriction
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 * that files be of same type (regular->regular, dir->dir, etc).
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 #ifndef HAVE_RENAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 int
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3346 rename (const Extbyte *from, const Extbyte *to)
428
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 if (access (from, 0) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 unlink (to);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351 if (link (from, to) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 if (unlink (from) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 return (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 return (-1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 #endif /* HAVE_RENAME */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 #ifdef HPUX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 #ifndef HAVE_PERROR
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 /* HPUX curses library references perror, but as far as we know
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 it won't be called. Anyway this definition will do for now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 perror (void)
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 #endif /* not HAVE_PERROR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 #endif /* HPUX */
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 #ifndef HAVE_DUP2
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 * Emulate BSD dup2. First close newd if it already exists.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376 * Then, attempt to dup oldd. If not successful, call dup2 recursively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 * until we are, then close the unsuccessful ones.
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 dup2 (int oldd, int newd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 int fd, ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3385 retry_close (newd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 #ifdef F_DUPFD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 fd = fcntl (oldd, F_DUPFD, newd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389 if (fd != newd)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
3390 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
3391 "can't dup2 (%i, %i)", oldd, newd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 fd = dup (old);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 if (fd == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3396 if (fd == new)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 return new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398 ret = dup2 (old, new);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3399 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 return ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 #endif /* F_DUPFD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 #endif /* not HAVE_DUP2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 * Gettimeofday. Simulate as much as possible. Only accurate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 * 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
3409 */
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 #if !defined (HAVE_GETTIMEOFDAY)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 gettimeofday (struct timeval *tp, struct timezone *tzp)
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 extern long time ();
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 tp->tv_sec = time ((long *)0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419 tp->tv_usec = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 if (tzp != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 tzp->tz_minuteswest = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 return (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 #endif /* !HAVE_GETTIMEOFDAY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 /* No need to encapsulate utime and utimes explicitly because all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 access to those functions goes through the following. */
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 int
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3431 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
3432 {
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3433 #if defined (WIN32_NATIVE)
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3434 struct utimbuf utb;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3435 utb.actime = EMACS_SECS (atime);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3436 utb.modtime = EMACS_SECS (mtime);
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3437 return mswindows_utime (path, &utb);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3438 #elif defined (HAVE_UTIME)
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3439 struct utimbuf utb;
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3440 Extbyte *filename;
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3441 utb.actime = EMACS_SECS (atime);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3442 utb.modtime = EMACS_SECS (mtime);
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3443 LISP_STRING_TO_EXTERNAL (path, filename, Qfile_name);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3444 return utime (filename, &utb);
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3445 #elif defined (HAVE_UTIMES)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 struct timeval tv[2];
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3447 Extbyte *filename;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3448 tv[0] = atime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 tv[1] = mtime;
592
4f6ba8f1fb3d [xemacs-hg @ 2001-05-31 12:03:37 by adrian]
adrian
parents: 563
diff changeset
3450 LISP_STRING_TO_EXTERNAL (path, filename, Qfile_name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 return utimes (filename, tv);
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3452 #else
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3453 /* No file times setting function available. */
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3454 return -1;
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
3455 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3457
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 /* */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3460 static long ticks_per_second;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 static long orig_user_ticks, orig_system_ticks;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 EMACS_TIME orig_real_time;
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 static int process_times_available;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 /* Return the relative user and system tick count. We try to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 maintain calculations in terms of integers as long as possible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468 for increased accuracy. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 get_process_times_1 (long *user_ticks, long *system_ticks)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3473 #if defined (_SC_CLK_TCK) || defined (CLK_TCK) && !defined(WIN32_NATIVE)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 /* We have the POSIX times() function available. */
777
e65d9cf16707 [xemacs-hg @ 2002-03-15 11:00:28 by ben]
ben
parents: 771
diff changeset
3475 /* #### Perhaps we should just use a configure test for times()? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 struct tms tttt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 times (&tttt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478 *user_ticks = (long) tttt.tms_utime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479 *system_ticks = (long) tttt.tms_stime;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3480 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481 #elif defined (CLOCKS_PER_SEC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 *user_ticks = (long) clock ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483 *system_ticks = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491 init_process_times_very_early (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 #if defined (_SC_CLK_TCK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494 ticks_per_second = sysconf (_SC_CLK_TCK);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495 #elif defined (CLK_TCK)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 ticks_per_second = CLK_TCK;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 #elif defined (CLOCKS_PER_SEC)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498 ticks_per_second = CLOCKS_PER_SEC;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 process_times_available = get_process_times_1 (&orig_user_ticks,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 &orig_system_ticks);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503 EMACS_GET_TIME (orig_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 }
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 /* 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
3507 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3508 get_process_times (double *user_time, double *system_time, double *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 EMACS_TIME curr_real_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511 EMACS_TIME elapsed_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 long curr_user_ticks, curr_system_ticks;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 EMACS_GET_TIME (curr_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 EMACS_SUB_TIME (elapsed_time, curr_real_time, orig_real_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516 *real_time = (EMACS_SECS (elapsed_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3517 + ((double) EMACS_USECS (elapsed_time)) / 1000000);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3518 if (get_process_times_1 (&curr_user_ticks, &curr_system_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3519 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 *user_time = (((double) (curr_user_ticks - orig_user_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521 / ticks_per_second);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522 *system_time = (((double) (curr_system_ticks - orig_system_ticks))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523 / ticks_per_second);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 /* A lame OS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3528 *user_time = *real_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3529 *system_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3533 #ifndef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 #ifdef random
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535 #define HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 /* Figure out how many bits the system's random number generator uses.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540 `random' and `lrand48' are assumed to return 31 usable bits.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 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
3542 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
3543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 #ifndef RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545 # ifdef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 # define RAND_BITS 31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3547 # else /* !HAVE_RANDOM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548 # ifdef HAVE_LRAND48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 # define RAND_BITS 31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550 # define random lrand48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551 # else /* !HAVE_LRAND48 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 # define RAND_BITS 15
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553 # if RAND_MAX == 32767
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3554 # define random rand
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 # else /* RAND_MAX != 32767 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 # if RAND_MAX == 2147483647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557 # define random() (rand () >> 16)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558 # else /* RAND_MAX != 2147483647 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 # ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560 # define random rand
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 # else
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 # endif /* !BSD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 # endif /* RAND_MAX != 2147483647 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 # endif /* RAND_MAX != 32767 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 # endif /* !HAVE_LRAND48 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567 # endif /* !HAVE_RANDOM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568 #endif /* !RAND_BITS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571 seed_random (long arg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 #ifdef HAVE_RANDOM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574 srandom ((unsigned int)arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 # ifdef HAVE_LRAND48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577 srand48 (arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 srand ((unsigned int)arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 * Build a full Emacs-sized word out of whatever we've got.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 * 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
3587 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588 long
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 get_random (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 long val = random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 #if VALBITS > RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594 #if VALBITS > 2*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 #if VALBITS > 3*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 #if VALBITS > 4*RAND_BITS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 val = (val << RAND_BITS) ^ random ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 #endif /* need at least 5 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 #endif /* need at least 4 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 #endif /* need at least 3 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 #endif /* need at least 2 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 return val & ((1L << VALBITS) - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 /* Strings corresponding to defined signals */
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 #if !defined (SYS_SIGLIST_DECLARED) && !defined (HAVE_SYS_SIGLIST)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3614 #if defined(WIN32_NATIVE) || defined(CYGWIN)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3615 const char *sys_siglist[] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3617 /* $$####begin-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 "bum signal!!",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 "hangup",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 "interrupt",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 "quit",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 "illegal instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623 "trace trap",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624 "iot instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 "emt instruction",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 "floating point exception",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627 "kill",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 "bus error",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 "segmentation violation",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630 "bad argument to system call",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 "write on a pipe with no one to read it",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 "alarm clock",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 "software termination signal from kill",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 "status signal",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635 "sendable stop signal not from tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 "stop signal from tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 "continue a stopped process",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 "child status has changed",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 "background read attempted from control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640 "background write attempted from control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 "input record available at control tty",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 "exceeded CPU time limit",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643 "exceeded file size limit"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3644 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648 #ifdef USG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3649 #ifdef AIX
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3650 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 /* AIX has changed the signals a bit */
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3653 DEFER_GETTEXT ("bogus signal"), /* 0 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3654 DEFER_GETTEXT ("hangup"), /* 1 SIGHUP */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3655 DEFER_GETTEXT ("interrupt"), /* 2 SIGINT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3656 DEFER_GETTEXT ("quit"), /* 3 SIGQUIT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3657 DEFER_GETTEXT ("illegal instruction"), /* 4 SIGILL */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3658 DEFER_GETTEXT ("trace trap"), /* 5 SIGTRAP */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3659 DEFER_GETTEXT ("IOT instruction"), /* 6 SIGIOT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3660 DEFER_GETTEXT ("crash likely"), /* 7 SIGDANGER */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3661 DEFER_GETTEXT ("floating point exception"), /* 8 SIGFPE */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3662 DEFER_GETTEXT ("kill"), /* 9 SIGKILL */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3663 DEFER_GETTEXT ("bus error"), /* 10 SIGBUS */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3664 DEFER_GETTEXT ("segmentation violation"), /* 11 SIGSEGV */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3665 DEFER_GETTEXT ("bad argument to system call"), /* 12 SIGSYS */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3666 DEFER_GETTEXT ("write on a pipe with no one to read it"), /* 13 SIGPIPE */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3667 DEFER_GETTEXT ("alarm clock"), /* 14 SIGALRM */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3668 DEFER_GETTEXT ("software termination signal"), /* 15 SIGTERM */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3669 DEFER_GETTEXT ("user defined signal 1"), /* 16 SIGUSR1 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3670 DEFER_GETTEXT ("user defined signal 2"), /* 17 SIGUSR2 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3671 DEFER_GETTEXT ("death of a child"), /* 18 SIGCLD */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3672 DEFER_GETTEXT ("power-fail restart"), /* 19 SIGPWR */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3673 DEFER_GETTEXT ("bogus signal"), /* 20 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3674 DEFER_GETTEXT ("bogus signal"), /* 21 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3675 DEFER_GETTEXT ("bogus signal"), /* 22 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3676 DEFER_GETTEXT ("bogus signal"), /* 23 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3677 DEFER_GETTEXT ("bogus signal"), /* 24 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3678 DEFER_GETTEXT ("LAN I/O interrupt"), /* 25 SIGAIO */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3679 DEFER_GETTEXT ("PTY I/O interrupt"), /* 26 SIGPTY */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3680 DEFER_GETTEXT ("I/O intervention required"), /* 27 SIGIOINT */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681 #ifdef AIXHFT
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3682 "HFT grant", /* 28 SIGGRANT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3683 "HFT retract", /* 29 SIGRETRACT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3684 "HFT sound done", /* 30 SIGSOUND */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3685 "HFT input ready", /* 31 SIGMSG */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3686 #endif
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3687 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3688 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3689 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 #else /* USG, not AIX */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3691 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3692 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3693 DEFER_GETTEXT ("bogus signal"), /* 0 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3694 DEFER_GETTEXT ("hangup"), /* 1 SIGHUP */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3695 DEFER_GETTEXT ("interrupt"), /* 2 SIGINT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3696 DEFER_GETTEXT ("quit"), /* 3 SIGQUIT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3697 DEFER_GETTEXT ("illegal instruction"), /* 4 SIGILL */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3698 DEFER_GETTEXT ("trace trap"), /* 5 SIGTRAP */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3699 DEFER_GETTEXT ("IOT instruction"), /* 6 SIGIOT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3700 DEFER_GETTEXT ("EMT instruction"), /* 7 SIGEMT */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3701 DEFER_GETTEXT ("floating point exception"), /* 8 SIGFPE */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3702 DEFER_GETTEXT ("kill"), /* 9 SIGKILL */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3703 DEFER_GETTEXT ("bus error"), /* 10 SIGBUS */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3704 DEFER_GETTEXT ("segmentation violation"), /* 11 SIGSEGV */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3705 DEFER_GETTEXT ("bad argument to system call"), /* 12 SIGSYS */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3706 DEFER_GETTEXT ("write on a pipe with no one to read it"), /* 13 SIGPIPE */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3707 DEFER_GETTEXT ("alarm clock"), /* 14 SIGALRM */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3708 DEFER_GETTEXT ("software termination signal"), /* 15 SIGTERM */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3709 DEFER_GETTEXT ("user defined signal 1"), /* 16 SIGUSR1 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3710 DEFER_GETTEXT ("user defined signal 2"), /* 17 SIGUSR2 */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3711 DEFER_GETTEXT ("death of a child"), /* 18 SIGCLD */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 859
diff changeset
3712 DEFER_GETTEXT ("power-fail restart"), /* 19 SIGPWR */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3713 #ifdef sun
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3714 "window size changed", /* 20 SIGWINCH */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3715 "urgent socket condition", /* 21 SIGURG */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3716 "pollable event occurred", /* 22 SIGPOLL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3717 "stop (cannot be caught or ignored)", /* 23 SIGSTOP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3718 "user stop requested from tty", /* 24 SIGTSTP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3719 "stopped process has been continued", /* 25 SIGCONT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3720 "background tty read attempted", /* 26 SIGTTIN */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3721 "background tty write attempted", /* 27 SIGTTOU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3722 "virtual timer expired", /* 28 SIGVTALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3723 "profiling timer expired", /* 29 SIGPROF */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3724 "exceeded cpu limit", /* 30 SIGXCPU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3725 "exceeded file size limit", /* 31 SIGXFSZ */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3726 "process's lwps are blocked", /* 32 SIGWAITING */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3727 "special signal used by thread library", /* 33 SIGLWP */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3728 #ifdef SIGFREEZE
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3729 "special signal used by CPR", /* 34 SIGFREEZE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3730 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3731 #ifdef SIGTHAW
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3732 "special signal used by CPR", /* 35 SIGTHAW */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3733 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3734 #endif /* sun */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3735 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3736 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3738 #endif /* not AIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3739 #endif /* USG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3740 #ifdef DGUX
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3741 const char *sys_siglist[NSIG + 1] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3742 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3743 /* $$####begin-snarf */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3744 "null signal", /* 0 SIGNULL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3745 "hangup", /* 1 SIGHUP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3746 "interrupt", /* 2 SIGINT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3747 "quit", /* 3 SIGQUIT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3748 "illegal instruction", /* 4 SIGILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3749 "trace trap", /* 5 SIGTRAP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3750 "abort termination", /* 6 SIGABRT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3751 "SIGEMT", /* 7 SIGEMT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3752 "floating point exception", /* 8 SIGFPE */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3753 "kill", /* 9 SIGKILL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3754 "bus error", /* 10 SIGBUS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3755 "segmentation violation", /* 11 SIGSEGV */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3756 "bad argument to system call", /* 12 SIGSYS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3757 "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
3758 "alarm clock", /* 14 SIGALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3759 "software termination signal", /* 15 SIGTERM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3760 "user defined signal 1", /* 16 SIGUSR1 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3761 "user defined signal 2", /* 17 SIGUSR2 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3762 "child stopped or terminated", /* 18 SIGCLD */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3763 "power-fail restart", /* 19 SIGPWR */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3764 "window size changed", /* 20 SIGWINCH */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3765 "undefined", /* 21 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3766 "pollable event occurred", /* 22 SIGPOLL */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3767 "sendable stop signal not from tty", /* 23 SIGSTOP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3768 "stop signal from tty", /* 24 SIGSTP */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3769 "continue a stopped process", /* 25 SIGCONT */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3770 "attempted background tty read", /* 26 SIGTTIN */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3771 "attempted background tty write", /* 27 SIGTTOU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3772 "undefined", /* 28 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3773 "undefined", /* 29 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3774 "undefined", /* 30 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3775 "undefined", /* 31 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3776 "undefined", /* 32 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3777 "socket (TCP/IP) urgent data arrival", /* 33 SIGURG */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3778 "I/O is possible", /* 34 SIGIO */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3779 "exceeded cpu time limit", /* 35 SIGXCPU */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3780 "exceeded file size limit", /* 36 SIGXFSZ */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3781 "virtual time alarm", /* 37 SIGVTALRM */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3782 "profiling time alarm", /* 38 SIGPROF */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3783 "undefined", /* 39 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3784 "file record locks revoked", /* 40 SIGLOST */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3785 "undefined", /* 41 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3786 "undefined", /* 42 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3787 "undefined", /* 43 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3788 "undefined", /* 44 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3789 "undefined", /* 45 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3790 "undefined", /* 46 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3791 "undefined", /* 47 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3792 "undefined", /* 48 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3793 "undefined", /* 49 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3794 "undefined", /* 50 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3795 "undefined", /* 51 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3796 "undefined", /* 52 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3797 "undefined", /* 53 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3798 "undefined", /* 54 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3799 "undefined", /* 55 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3800 "undefined", /* 56 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3801 "undefined", /* 57 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3802 "undefined", /* 58 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3803 "undefined", /* 59 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3804 "undefined", /* 60 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3805 "undefined", /* 61 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3806 "undefined", /* 62 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3807 "undefined", /* 63 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3808 "notification message in mess. queue", /* 64 SIGDGNOTIFY */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3809 /* $$####end-snarf */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3810 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3811 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3812 #endif /* DGUX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3813
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3814 #endif /* ! SYS_SIGLIST_DECLARED && ! HAVE_SYS_SIGLIST */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3815
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3818 /* Directory routines for systems that don't have them */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3819 /************************************************************************/
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 #ifdef SYSV_SYSTEM_DIR
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 #include <dirent.h>
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 #if defined(BROKEN_CLOSEDIR) || !defined(HAVE_CLOSEDIR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3826 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3827 closedir (DIR *dirp) /* stream from opendir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3828 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3829 int rtnval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3830
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3831 rtnval = retry_close (dirp->dd_fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3832
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3833 /* Some systems (like Solaris) allocate the buffer and the DIR all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3834 in one block. Why in the world are we freeing this ourselves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835 anyway? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836 #if ! (defined (sun) && defined (USG5_4))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 xfree ((char *) dirp->dd_buf); /* directory block defined in <dirent.h> */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3838 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839 xfree ((char *) dirp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 return (rtnval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3841 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3842 #endif /* BROKEN_CLOSEDIR or not HAVE_CLOSEDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3843 #endif /* SYSV_SYSTEM_DIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3845 #ifdef NONSYSTEM_DIR_LIBRARY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 DIR *
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3848 opendir (const char *filename) /* name of directory */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3849 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3850 DIR *dirp; /* -> malloc'ed storage */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3851 int fd; /* file descriptor for read */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3852 struct stat sbuf; /* result of fstat */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3853
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3854 fd = open (filename, O_RDONLY);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3855 if (fd < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3856 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3858 if (fstat (fd, &sbuf) < 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3859 || (sbuf.st_mode & S_IFMT) != S_IFDIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860 || (dirp = (DIR *) malloc (sizeof (DIR))) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3861 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3862 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3863 return 0; /* bad luck today */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3866 dirp->dd_fd = fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867 dirp->dd_loc = dirp->dd_size = 0; /* refill needed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3869 return dirp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 }
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873 closedir (DIR *dirp) /* stream from opendir */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3875 retry_close (dirp->dd_fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3876 xfree (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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3880 #define DIRSIZ 14
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3881 struct olddir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3882 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3883 ino_t od_ino; /* inode */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 char od_name[DIRSIZ]; /* filename */
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 static struct direct dir_static; /* simulated directory contents */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3889 /* ARGUSED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3890 struct direct *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3891 readdir (DIR *dirp) /* stream from opendir */
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 struct olddir *dp; /* -> directory data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895 for (; ;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897 if (dirp->dd_loc >= dirp->dd_size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3898 dirp->dd_loc = dirp->dd_size = 0;
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 if (dirp->dd_size == 0 /* refill buffer */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3901 && (dirp->dd_size =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
3902 retry_read (dirp->dd_fd, dirp->dd_buf, DIRBLKSIZ)) <= 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3904
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905 dp = (struct olddir *) &dirp->dd_buf[dirp->dd_loc];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906 dirp->dd_loc += sizeof (struct olddir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3908 if (dp->od_ino != 0) /* not deleted entry */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3909 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3910 dir_static.d_ino = dp->od_ino;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3911 strncpy (dir_static.d_name, dp->od_name, DIRSIZ);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3912 dir_static.d_name[DIRSIZ] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3913 dir_static.d_namlen = strlen (dir_static.d_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3914 dir_static.d_reclen = sizeof (struct direct)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3915 - MAXNAMLEN + 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3916 + dir_static.d_namlen - dir_static.d_namlen % 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 return &dir_static; /* -> simulated structure */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3920 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3923 #endif /* NONSYSTEM_DIR_LIBRARY */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3924
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 /* mkdir and rmdir functions, for systems which don't have them. */
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 #ifndef HAVE_MKDIR
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 * Written by Robert Rother, Mariah Corporation, August 1985.
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 * 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
3933 * 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
3934 * a copy.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 * sdcsvax!rmr or rmr@uscd
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 * Severely hacked over by John Gilmore to make a 4.2BSD compatible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 * subroutine. 11Mar86; hoptoad!gnu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3939 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 * 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
3941 * subroutine didn't return EEXIST. It does now.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3942 */
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 * Make a directory.
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 #ifdef MKDIR_PROTOTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 MKDIR_PROTOTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3949 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3950 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3951 mkdir (const char *dpath, int dmode)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3952 #endif
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 int cpid, status, fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3955 struct stat statbuf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3957 if (stat (dpath, &statbuf) == 0) /* we do want stat() here */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3958 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 errno = EEXIST; /* Stat worked, so it already exists */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963 /* If stat fails for a reason other than non-existence, return error */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3964 if (errno != ENOENT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967 synch_process_alive = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3968 switch (cpid = fork ())
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 case -1: /* Error in fork() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972 return -1; /* Errno is set already */
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 case 0: /* Child process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 {
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 * Cheap hack to set mode of new directory. Since this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 * child process is going away anyway, we zap its umask.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979 * ####, this won't suffice to set SUID, SGID, etc. on this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980 * directory. Does anybody care?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982 status = umask (0); /* Get current umask */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 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
3984 fd = open ("/dev/null", O_RDWR);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 if (fd >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987 if (fd != STDIN_FILENO) dup2 (fd, STDIN_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988 if (fd != STDOUT_FILENO) dup2 (fd, STDOUT_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 if (fd != STDERR_FILENO) dup2 (fd, STDERR_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 execl ("/bin/mkdir", "mkdir", dpath, (char *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 _exit (-1); /* Can't exec /bin/mkdir */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 default: /* Parent process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 wait_for_termination (cpid);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 if (synch_process_death != 0 || synch_process_retcode != 0)
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 errno = EIO; /* We don't know why, but */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 return -1; /* /bin/mkdir failed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 }
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 #endif /* not HAVE_MKDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 #ifndef HAVE_RMDIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4011 rmdir (const char *dpath)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013 int cpid, status, fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 struct stat statbuf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4016 if (stat (dpath, &statbuf) != 0) /* we do want stat() here */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018 /* Stat just set errno. We don't have to */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4020 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022 synch_process_alive = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4023 switch (cpid = fork ())
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4026 case -1: /* Error in fork() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027 return (-1); /* Errno is set already */
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 case 0: /* Child process */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
4030 fd = open ("/dev/null", O_RDWR);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031 if (fd >= 0)
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 if (fd != STDIN_FILENO) dup2 (fd, STDIN_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 if (fd != STDOUT_FILENO) dup2 (fd, STDOUT_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 if (fd != STDERR_FILENO) dup2 (fd, STDERR_FILENO);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 _exit (-1); /* Can't exec /bin/mkdir */
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 default: /* Parent process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4041 wait_for_termination (cpid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4042 }
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 if (synch_process_death != 0 ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045 synch_process_retcode != 0)
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 errno = EIO; /* We don't know why, but */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4048 return -1; /* /bin/rmdir failed */
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4053 #endif /* !HAVE_RMDIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055
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 /* Misc. SunOS crap */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4058 /************************************************************************/
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 #ifdef USE_DL_STUBS
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 /* 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
4063 X11 libraries may refer to these functions but (we hope) do not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 actually call them. */
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 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 dlopen (void)
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072 void *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4073 dlsym (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4074 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 }
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079 dlclose (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 }
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 #endif /* USE_DL_STUBS */