koreth%panarthea.ebay@sun.com (Steven Grimm) (08/09/89)
Submitted-by: uunet.UU.NET!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 69
Archive-name: emacs.diff/part02
[Append this to part 1, and edit the result so that there's an uninterrupted
column of Xs along the left of the file. -sg]
X for (; !NULL (maps); maps = Fcdr (maps))
X {
X! register this = Fcar (Fcar (maps)); /* Key sequence to reach map */
X! register map = Fcdr (Fcar (maps)); /* The map that it reaches */
X register int i = 0;
X
X if (CONSP (map))
X--- 778,787 ----
X
X for (; !NULL (maps); maps = Fcdr (maps))
X {
X! register Lisp_Object this = Fcar (Fcar (maps));
X! /* Key sequence to reach map */
X! register Lisp_Object map = Fcdr (Fcar (maps));
X! /* The map that it reaches */
X register int i = 0;
X
X if (CONSP (map))
X***************
X*** 1099,1105 ****
X {
X Lisp_Object tem;
X if (NULL (kludge)) kludge = build_string ("x");
X! XSTRING (kludge)->data[0] = XINT (i);
X tem = Flookup_key (shadow, kludge);
X if (!NULL (tem)) continue;
X }
X--- 1101,1107 ----
X {
X Lisp_Object tem;
X if (NULL (kludge)) kludge = build_string ("x");
X! XSTRING (kludge)->data[0] = i;
X tem = Flookup_key (shadow, kludge);
X if (!NULL (tem)) continue;
X }
X***************
X*** 1167,1172 ****
X--- 1169,1176 ----
X if (!NULL (tem))
X apropos_accumulate = Fcons (symbol, apropos_accumulate);
X }
X+
X+ static insert_first_line ();
X
X static Lisp_Object
X apropos1 (list)
Xdiff -c original/lisp.h ./lisp.h
X*** original/lisp.h Mon Jul 17 20:52:47 1989
X--- ./lisp.h Sat Jul 8 16:46:49 1989
X***************
X*** 875,880 ****
X--- 875,881 ----
X
X extern Lisp_Object Fmarker_position (), Fmarker_buffer ();
X extern Lisp_Object Fcopy_marker ();
X+ extern Lisp_Object Fset_marker ();
X
X /* Defined in fileio.c */
X
X***************
X*** 883,888 ****
X--- 884,891 ----
X extern Lisp_Object Fexpand_file_name (), Ffile_name_nondirectory ();
X extern Lisp_Object Fsubstitute_in_file_name ();
X extern Lisp_Object Ffile_symlink_p ();
X+ extern Lisp_Object Fdirectory_file_name ();
X+ extern Lisp_Object Fverify_visited_file_modtime (), Ffile_exists_p ();
X
X /* Defined in abbrev.c */
X
X***************
X*** 926,932 ****
X extern Lisp_Object Fkey_description (), Fsingle_key_description ();
X extern Lisp_Object Fwhere_is_internal ();
X extern Lisp_Object access_keymap (), store_in_keymap ();
X! extern Lisp_Object get_keyelt (), get_keymap();
X
X /* defined in indent.c */
X extern Lisp_Object Fvertical_motion (), Findent_to (), Fcurrent_column ();
X--- 929,935 ----
X extern Lisp_Object Fkey_description (), Fsingle_key_description ();
X extern Lisp_Object Fwhere_is_internal ();
X extern Lisp_Object access_keymap (), store_in_keymap ();
X! extern Lisp_Object get_keyelt (), get_keymap(), get_keymap_1();
X
X /* defined in indent.c */
X extern Lisp_Object Fvertical_motion (), Findent_to (), Fcurrent_column ();
X***************
X*** 969,974 ****
X--- 972,980 ----
X
X /* defined in macros.c */
X extern Lisp_Object Fexecute_kbd_macro ();
X+
X+ /* defined somewhere (but i don't have the nerve to find it */
X+ extern Lisp_Object Fcopy_alist ();
X
X /* Nonzero means Emacs has already been initialized.
X Used during startup to detect startup of dumped Emacs. */
Xdiff -c original/lread.c ./lread.c
X*** original/lread.c Mon Jul 17 20:52:48 1989
X--- ./lread.c Sat Jul 8 16:46:49 1989
X***************
X*** 562,567 ****
X--- 565,572 ----
X
X static int read_buffer_size;
X static char *read_buffer;
X+
X+ static int read_escape ();
X
X static Lisp_Object
X read1 (readcharfun)
Xdiff -c original/paths.h ./paths.h
X*** original/paths.h Mon Jul 17 20:53:06 1989
X--- ./paths.h Sat Jul 8 16:46:52 1989
X***************
X*** 1,19 ****
X /* The default search path for Lisp function "load".
X This sets load-path. */
X! #define PATH_LOADSEARCH "/usr/public/emacs/lisp"
X
X /* the extra search path for programs to invoke.
X This is appended to whatever the PATH environment variable says
X to set the Lisp variable exec-path and the first file namein it
X sets the Lisp variable exec-directory. */
X! #define PATH_EXEC "/usr/public/emacs/etc"
X
X /* the name of the directory that contains lock files
X with which we record what files are being modified in Emacs.
X This directory should be writable by everyone.
X THE STRING MUST END WITH A SLASH!!! */
X! #define PATH_LOCK "/usr/tmp/"
X
X /* the name of the file !!!SuperLock!!! in the directory
X specified by PATH_LOCK. Yes, this is redundant. */
X! #define PATH_SUPERLOCK "/usr/tmp/!!!SuperLock!!!"
X--- 1,19 ----
X /* The default search path for Lisp function "load".
X This sets load-path. */
X! #define PATH_LOADSEARCH "/usr/lib/GNUemacs/lisp"
X
X /* the extra search path for programs to invoke.
X This is appended to whatever the PATH environment variable says
X to set the Lisp variable exec-path and the first file namein it
X sets the Lisp variable exec-directory. */
X! #define PATH_EXEC "/usr/lib/GNUemacs/etc"
X
X /* the name of the directory that contains lock files
X with which we record what files are being modified in Emacs.
X This directory should be writable by everyone.
X THE STRING MUST END WITH A SLASH!!! */
X! #define PATH_LOCK "/tmp/"
X
X /* the name of the file !!!SuperLock!!! in the directory
X specified by PATH_LOCK. Yes, this is redundant. */
X! #define PATH_SUPERLOCK "/tmp/GNUemacs.LCK"
Xdiff -c original/regex.c ./regex.c
X*** original/regex.c Mon Jul 17 20:53:11 1989
X--- ./regex.c Sat Jul 8 16:46:53 1989
X***************
X*** 967,972 ****
X--- 967,974 ----
X
X int re_max_failures = 2000;
X
X+ static int bcmp_translate ();
X+
X /* Match the pattern described by PBUFP
X against data which is the virtual concatenation of STRING1 and STRING2.
X SIZE1 and SIZE2 are the sizes of the two data strings.
Xdiff -c original/search.c ./search.c
X*** original/search.c Mon Jul 17 20:53:21 1989
X--- ./search.c Sat Jul 8 16:46:55 1989
X***************
X*** 945,950 ****
X--- 945,952 ----
X return search_command (string, bound, noerror, count, 1, 1);
X }
X
X+ static place ();
X+
X DEFUN ("replace-match", Freplace_match, Sreplace_match, 1, 3, 0,
X "Replace text matched by last search with NEWTEXT.\n\
X If second arg FIXEDCASE is non-nil, do not alter case of replacement text.\n\
Xdiff -c original/syntax.c ./syntax.c
X*** original/syntax.c Mon Jul 17 20:53:23 1989
X--- ./syntax.c Sat Jul 8 16:46:55 1989
X***************
X*** 146,153 ****
X (ch)
X Lisp_Object ch;
X {
X CHECK_NUMBER (ch, 0);
X! return make_number (syntax_code_spec[(int) SYNTAX (0xFF & XINT (ch))]);
X }
X
X /* This comment supplies the doc string for modify-syntax-entry,
X--- 149,159 ----
X (ch)
X Lisp_Object ch;
X {
X+ int dummy_for_stupid_gcc;
X+
X CHECK_NUMBER (ch, 0);
X! dummy_for_stupid_gcc = (int) SYNTAX (0xFF & XINT (ch));
X! return make_number (syntax_code_spec[dummy_for_stupid_gcc]);
X }
X
X /* This comment supplies the doc string for modify-syntax-entry,
X***************
X*** 1029,1039 ****
X--- 1043,1054 ----
X
X */
X
X DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 5, 0,
X 0 /* See immediately above */)
X (from, to, targetdepth, stopbefore, oldstate)
X Lisp_Object from, to, targetdepth, stopbefore, oldstate;
X {
X+ Lisp_Object dummy_for_stupid_gcc;
X struct lisp_parse_state state;
X int target;
X
X***************
X*** 1050,1063 ****
X target, !NULL (stopbefore), oldstate);
X
X SetPoint (state.location);
X!
X return Fcons (make_number (state.depth),
X Fcons (state.prevlevelstart < 0 ? Qnil : make_number (state.prevlevelstart),
X Fcons (state.thislevelstart < 0 ? Qnil : make_number (state.thislevelstart),
X! Fcons (state.instring >= 0 ? make_number (state.instring) : Qnil,
X! Fcons (state.incomment ? Qt : Qnil,
X! Fcons (state.quoted ? Qt : Qnil,
X! Fcons (make_number (state.mindepth), Qnil)))))));
X }
X
X init_syntax_once ()
X--- 1067,1080 ----
X target, !NULL (stopbefore), oldstate);
X
X SetPoint (state.location);
X! dummy_for_stupid_gcc = Fcons (state.instring >= 0 ? make_number (state.instring) : Qnil,
X! Fcons (state.incomment ? Qt : Qnil,
X! Fcons (state.quoted ? Qt : Qnil,
X! Fcons (make_number (state.mindepth), Qnil))));
X return Fcons (make_number (state.depth),
X Fcons (state.prevlevelstart < 0 ? Qnil : make_number (state.prevlevelstart),
X Fcons (state.thislevelstart < 0 ? Qnil : make_number (state.thislevelstart),
X! dummy_for_stupid_gcc)));
X }
X
X init_syntax_once ()
Xdiff -c original/sysdep.c ./sysdep.c
X*** original/sysdep.c Mon Jul 17 20:53:25 1989
X--- ./sysdep.c Mon Jul 17 20:47:48 1989
X***************
X*** 73,78 ****
X--- 73,81 ----
X #ifdef USG
X #include <fcntl.h>
X #endif
X+ #ifdef atarist
X+ #include <fcntl.h>
X+ #endif
X #endif /* not 4.1 bsd */
X
X #ifdef BSD
X***************
X*** 119,124 ****
X--- 122,135 ----
X #define TCSETAW TIOCSETN
X #endif /* not VMS */
X #endif /* not HAVE_TERMIO */
X+ #ifdef atarist
X+ #define kByte * 1024
X+ extern long _stksize = 64 kByte;
X+ #include <osbind.h>
X+ #define gethostname(a,b) strncpy(a,"Atari ST",b)
X+ #undef ANYP
X+ #define ANYP META
X+ #endif
X
X #ifdef USG
X #include <sys/utsname.h>
X***************
X*** 351,359 ****
X--- 362,374 ----
X #endif /* not BSD */
X #else /* not subprocesses */
X #ifndef BSD4_1
X+ #ifdef atarist
X+ break;
X+ #else
X if (0 > kill (pid, 0))
X break;
X wait (0);
X+ #endif
X #else /* BSD4_1 */
X int status;
X status = wait (0);
X***************
X*** 453,458 ****
X--- 468,482 ----
X
X sys_suspend ()
X {
X+ #ifdef atarist
X+ extern int raise();
X+ struct sgttyb oldtty;
X+
X+ ioctl(0, TIOCGETP, &oldtty);
X+ raise(SIGTSTP);
X+ /* on Atari ST this is only needed for enabling META-Mode */
X+ ioctl(0, TIOCSETN, &oldtty);
X+ #else
X #ifdef VMS
X unsigned long parent_id;
X
X***************
X*** 536,543 ****
X--- 560,573 ----
X #endif /* no USG_JOBCTRL */
X #endif /* no SIGTSTP */
X #endif /* not VMS */
X+ #endif /* not atarist */
X }
X
X+ #ifdef atarist
X+
X+ int old_fcntl_flags;
X+
X+ #else
X #ifdef F_SETFL
X
X int old_fcntl_flags;
X***************
X*** 603,609 ****
X--- 633,658 ----
X #endif /* STRIDE */
X #endif /* FASYNC */
X #endif /* F_SETFL */
X+ #endif /* not atarist */
X
X+ #ifdef atarist
X+ croak (badfunc)
X+ char *badfunc;
X+ {
X+ printf ("%s not yet implemented\r\n", badfunc);
X+ }
X+
X+ request_sigio ()
X+ {
X+ croak ("request_sigio");
X+ }
X+
X+ unrequest_sigio ()
X+ {
X+ croak ("unrequest_sigio");
X+ }
X+ #endif
X+
X TERMINAL old_gtty; /* The initial tty mode bits */
X
X int term_initted; /* 1 if outer tty status has been recorded */
X***************
X*** 765,771 ****
X--- 814,822 ----
X #endif /* TIOCGLTC */
X #ifdef TIOCGETC
X ioctl (0, TIOCGETC, &old_tchars);
X+ #ifndef atarist
X ioctl (0, TIOCLGET, &old_lmode);
X+ #endif
X
X /* Note: if not using CBREAK mode, it makes no difference how we set this */
X tchars = new_tchars;
X***************
X*** 784,793 ****
X--- 835,848 ----
X #define LNOFLSH 0100000
X #endif
X
X+ #ifndef atarist
X lmode = LDECCTQ | LLITOUT | LPASS8 | LNOFLSH | old_lmode;
X+ #endif
X
X ioctl (0, TIOCSETC, &tchars);
X+ #ifndef atarist
X ioctl (0, TIOCLSET, &lmode);
X+ #endif
X #endif /* TIOCGETC */
X #ifdef TIOCGLTC
X ioctl (0, TIOCSLTC, &new_ltchars);
X***************
X*** 845,850 ****
X--- 900,922 ----
X Store number of lines into *heightp and width into *widthp.
X If zero or a negative number is stored, the value is not valid. */
X
X+ #ifdef atarist
X+ short *lineA_start;
X+
X+ static long
X+ linea0()
X+ {
X+ asm("movl a0, sp@-");
X+ asm("movl a1, sp@-");
X+ asm("movl a2, sp@-");
X+ asm(".word 0xA000");
X+ asm("movl a0, _lineA_start");
X+ asm("movl sp@+, a2");
X+ asm("movl sp@+, a1");
X+ asm("movl sp@+, a0");
X+ }
X+ #endif
X+
X get_screen_size (widthp, heightp)
X int *widthp, *heightp;
X {
X***************
X*** 879,886 ****
X--- 951,964 ----
X *widthp = sg.scr_wid;
X *heightp = sg.scr_len;
X #else /* system doesn't know size */
X+ #ifdef atarist
X+ linea0();
X+ *widthp = lineA_start[-22] + 1;
X+ *heightp = lineA_start[-21] + 1;
X+ #else
X *widthp = 0;
X *heightp = 0;
X+ #endif
X #endif /* system does not know size */
X #endif /* not TIOCGWINSZ */
X }
X***************
X*** 915,921 ****
X--- 993,1001 ----
X #endif /* TIOCGLTC */
X #ifdef TIOCGETC
X ioctl (0, TIOCSETC, &old_tchars);
X+ #ifndef atarist
X ioctl (0, TIOCLSET, &old_lmode);
X+ #endif
X #endif /* TIOCGETC */
X #ifdef F_SETFL
X #ifdef F_SETOWN /* F_SETFL does not imply existance of F_SETOWN */
X***************
X*** 935,941 ****
X--- 1015,1023 ----
X SYS$QIOW (0, input_chan, IO$_SETMODE, &input_iosb, 0, 0,
X &old_gtty.class, 12, 0, 0, 0, 0);
X #else /* not VMS */
X+ #ifndef atarist
X while (ioctl (0, TCSETAW, &old_gtty) < 0 && errno == EINTR);
X+ #endif
X #endif /* not VMS */
X }
X
X***************
X*** 1342,1348 ****
X--- 1424,1432 ----
X {
X int ravail = 0, orfds = 0, old_alarm;
X extern int kbd_count;
X+ #ifndef atarist
X extern int proc_buffered_char[];
X+ #endif
X #ifndef subprocesses
X int child_changed = 0;
X #else
X***************
X*** 1394,1399 ****
X--- 1478,1484 ----
X #ifdef FIONREAD
X status = ioctl (fd, FIONREAD, &avail);
X #else /* no FIONREAD */
X+ #ifndef atarist
X /* Hoping it will return -1 if nothing available
X or 0 if all 0 chars requested are read. */
X if (proc_buffered_char[fd] >= 0)
X***************
X*** 1404,1409 ****
X--- 1489,1495 ----
X if (avail > 0)
X proc_buffered_char[fd] = buf;
X }
X+ #endif
X #endif /* no FIONREAD */
X }
X if (status >= 0 && avail > 0)
X***************
X*** 1428,1436 ****
X--- 1514,1531 ----
X That makes instant wakeup for terminal input at least. */
X if (orfds & 1)
X {
X+ #ifdef atarist
X+ /* since read cannot be interrupted (it's a trap in supervisor
X+ mode) on the ST, we get a possible timeout this way without
X+ loosing any input chars */
X+ old_fcntl_flags = fcntl (fileno(stdin), F_SETFL, O_NDELAY);
X+ #endif /* atarist*/
X read_input_waiting ();
X if (kbd_count)
X select_alarmed = 1;
X+ #ifdef atarist
X+ fcntl (fileno(stdin), F_SETFL, old_fcntl_flags);
X+ #endif /* atarist*/
X }
X else
X pause();
Xdiff -c original/termcap.c ./termcap.c
X*** original/termcap.c Mon Jul 17 20:53:26 1989
X--- ./termcap.c Mon Jul 17 20:47:47 1989
X***************
X*** 436,442 ****
X--- 436,447 ----
X it is the entry itself, but only if
X the name the caller requested matches the TERM variable. */
X
X+ #ifdef atarist
X+ /* the '?:' construct requires GNU C */
X+ if (tem && !filep && !strcmp (name, (char *) getenv ("TERM") ? : "atari"))
X+ #else
X if (tem && !filep && !strcmp (name, getenv ("TERM")))
X+ #endif /* atarist */
X {
X indirect = tgetst1 (find_capability (tem, "tc"), 0);
X if (!indirect)
Xdiff -c original/window.c ./window.c
X*** original/window.c Mon Jul 17 20:53:34 1989
X--- ./window.c Sat Jul 8 16:47:00 1989
X***************
X*** 217,228 ****
X (window)
X Lisp_Object window;
X {
X! register int w = decode_window (window)->width;
X /* If this window does not end at the right margin,
X must deduct one column for the border */
X! if (w + decode_window (window)->left == screen_width)
X return w;
X! return w - 1;
X }
X
X DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0,
X--- 217,229 ----
X (window)
X Lisp_Object window;
X {
X! register Lisp_Object w = decode_window (window)->width;
X /* If this window does not end at the right margin,
X must deduct one column for the border */
X! if (XINT (w) + XINT(decode_window (window)->left) == screen_width)
X return w;
X! XSETINT (w, XINT(w) - 1);
X! return w;
X }
X
X DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0,
X***************
X*** 246,252 ****
X if (XFASTINT (ncol) >= (1 << (SHORTBITS - 1)))
X args_out_of_range (ncol, Qnil);
X w = decode_window (window);
X! if (w->hscroll != ncol)
X clip_changed = 1; /* Prevent redisplay shortcuts */
X w->hscroll = ncol;
X return ncol;
X--- 247,253 ----
X if (XFASTINT (ncol) >= (1 << (SHORTBITS - 1)))
X args_out_of_range (ncol, Qnil);
X w = decode_window (window);
X! if (XINT(w->hscroll) != XINT(ncol))
X clip_changed = 1; /* Prevent redisplay shortcuts */
X w->hscroll = ncol;
X return ncol;
X***************
X*** 334,339 ****
X--- 335,342 ----
X return pos;
X }
X
X+ static replace_window (), unshow_buffer ();
X+
X DEFUN ("delete-window", Fdelete_window, Sdelete_window, 0, 1, "",
X "Remove WINDOW from the display. Default is selected window.")
X (window)
X***************
X*** 1753,1758 ****
X--- 1804,1811 ----
X count += count_windows (XWINDOW (window->hchild));
X return count;
X }
X+
X+ static int save_window_save ();
X
X DEFUN ("current-window-configuration",
X Fcurrent_window_configuration, Scurrent_window_configuration, 0, 0, 0,
Xdiff -c original/xdisp.c ./xdisp.c
X*** original/xdisp.c Mon Jul 17 20:53:38 1989
X--- ./xdisp.c Sat Jul 8 16:47:01 1989
X***************
X*** 1882,1888 ****
X }
X while ((p1 - start + hscroll - (hscroll > 0)) % tab_width);
X }
X! else if (c < 0200 && buffer_defaults.ctl_arrow)
X {
X if (p1 >= start)
X *p1 = '^';
X--- 1882,1888 ----
X }
X while ((p1 - start + hscroll - (hscroll > 0)) % tab_width);
X }
X! else if (c < 0200 && XINT(buffer_defaults.ctl_arrow))
X {
X if (p1 >= start)
X *p1 = '^';
END_OF_FILE
if test 45058 -ne `wc -c <'cdiff-18.52-atari'`; then
echo shar: \"'cdiff-18.52-atari'\" unpacked with wrong size!
fi
# end of 'cdiff-18.52-atari'
fi
if test -f 's-tos.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'s-tos.h'\"
else
echo shar: Extracting \"'s-tos.h'\" \(4787 characters\)
sed "s/^X//" >'s-tos.h' <<'END_OF_FILE'
X/* Template for s- header files.
X This file describes the parameters that s- files should define or not.
X Copyright (C) 1985 Richard M. Stallman.
X
XThis file is part of GNU Emacs.
X
XGNU Emacs is distributed in the hope that it will be useful,
Xbut WITHOUT ANY WARRANTY. No author or distributor
Xaccepts responsibility to anyone for the consequences of using it
Xor for whether it serves any particular purpose or works at all,
Xunless he says so in writing. Refer to the GNU Emacs General Public
XLicense for full details.
X
XEveryone is granted permission to copy, modify and redistribute
XGNU Emacs, but only under the conditions described in the
XGNU Emacs General Public License. A copy of this license is
Xsupposed to have been given to you along with GNU Emacs so you
Xcan know your rights and responsibilities. It should be in a
Xfile named COPYING. Among other things, the copyright notice
Xand this notice must be preserved on all copies. */
X
X
X/*
X * Define symbols to identify the version of Unix this is.
X * Define all the symbols that apply correctly.
X */
X
X/* #define UNIPLUS */
X/* #define USG5 */
X/* #define USG */
X/* #define HPUX */
X/* #define UMAX */
X/* #define BSD4_1 */
X/* #define BSD4_2 */
X/* #define BSD4_3 */
X/* #define BSD */
X/* #define VMS */
X
X/* SYSTEM_TYPE should indicate the kind of system you are using.
X It sets the Lisp variable system-type. */
X
X#define SYSTEM_TYPE "Atari-ST TOS"
X
X/* NOMULTIPLEJOBS should be defined if your system's shell
X does not have "job control" (the ability to stop a program,
X run some other program, then continue the first one). */
X
X#define NOMULTIPLEJOBS
X
X/* Emacs can read input using SIGIO and buffering characters itself,
X or using CBREAK mode and making C-g cause SIGINT.
X The choice is controlled by the variable interrupt_input.
X Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
X
X SIGIO can be used only on systems that implement it (4.2 and 4.3).
X CBREAK mode has two disadvatages
X 1) At least in 4.2, it is impossible to handle the Meta key properly.
X I hear that in system V this problem does not exist.
X 2) Control-G causes output to be discarded.
X I do not know whether this can be fixed in system V.
X
X Another method of doing input is planned but not implemented.
X It would have Emacs fork off a separate process
X to read the input and send it to the true Emacs process
X through a pipe.
X*/
X
X/* #define INTERRUPT_INPUT */
X
X/* Letter to use in finding device name of first pty,
X if system supports pty's. 'a' means it is /dev/ptya0 */
X
X#define FIRST_PTY_LETTER 'a'
X
X/*
X * Define HAVE_TIMEVAL if the system supports the BSD style clock values.
X * Look in <sys/time.h> for a timeval structure.
X */
X
X/* #define HAVE_TIMEVAL */
X
X/*
X * Define HAVE_SELECT if the system supports the `select' system call.
X */
X
X/* #define HAVE_SELECT */
X
X/*
X * Define HAVE_PTYS if the system supports pty devices.
X */
X
X/* #define HAVE_PTYS */
X
X/*
X * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
X * The 4.2 opendir, etc., library functions.
X */
X
X/* #define NONSYSTEM_DIR_LIBRARY */
X
X/* Define this symbol if your system has the functions bcopy, etc. */
X
X#define BSTRING
X
X/* subprocesses should be defined if you want to
X have code for asynchronous subprocesses
X (as used in M-x compile and M-x shell).
X This is generally OS dependent, and not supported
X under most USG systems. */
X
X/* #define subprocesses */
X
X/* If your system uses COFF (Common Object File Format) then define the
X preprocessor symbol "COFF". */
X
X/* #define COFF */
X
X/* define MAIL_USE_FLOCK if the mailer uses flock
X to interlock access to /usr/spool/mail/$USER.
X The alternative is that a lock file named
X /usr/spool/mail/$USER.lock. */
X
X/* #define MAIL_USE_FLOCK */
X
X/* Define CLASH_DETECTION if you want lock files to be written
X so that Emacs can tell instantly when you try to modify
X a file that someone else has modified in his Emacs. */
X
X/* #define CLASH_DETECTION */
X
X/* Here, on a separate page, add any special hacks needed
X to make Emacs work on this system. For example,
X you might define certain system call names that don't
X exist on your system, or that do different things on
X your system and must be used only through an encapsulation
X (Which you should place, by convention, in sysdep.c). */
X
X/* Some compilers tend to put everything declared static
X into the initialized data area, which becomes pure after dumping Emacs.
X On these systems, you must #define static as nothing to foil this.
X Note that emacs carefully avoids static vars inside functions. */
X
X/* #define static */
X
X#define sigsetmask(n)
X#define PENDING_OUTPUT_COUNT(FILE) (((struct file *)FILE)->buf_max - ((struct file *)FILE)->buf_index)
X
X#define MAINTAIN_ENVIRONMENT
END_OF_FILE
if test 4787 -ne `wc -c <'s-tos.h'`; then
echo shar: \"'s-tos.h'\" unpacked with wrong size!
fi
# end of 's-tos.h'
fi
if test -f 'm-atari.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'m-atari.h'\"
else
echo shar: Extracting \"'m-atari.h'\" \(4104 characters\)
sed "s/^X//" >'m-atari.h' <<'END_OF_FILE'
X/* m- file template.
X Copyright (C) 1985 Richard M. Stallman.
X
XThis file is part of GNU Emacs.
X
XGNU Emacs is distributed in the hope that it will be useful,
Xbut WITHOUT ANY WARRANTY. No author or distributor
Xaccepts responsibility to anyone for the consequences of using it
Xor for whether it serves any particular purpose or works at all,
Xunless he says so in writing. Refer to the GNU Emacs General Public
XLicense for full details.
X
XEveryone is granted permission to copy, modify and redistribute
XGNU Emacs, but only under the conditions described in the
XGNU Emacs General Public License. A copy of this license is
Xsupposed to have been given to you along with GNU Emacs so you
Xcan know your rights and responsibilities. It should be in a
Xfile named COPYING. Among other things, the copyright notice
Xand this notice must be preserved on all copies. */
X
X
X/* The following three symbols give information on
X the size of various data types. */
X
X#define SHORTBITS 16 /* Number of bits in a short */
X
X#define INTBITS 32 /* Number of bits in an int */
X
X#define LONGBITS 32 /* Number of bits in a long */
X
X/* Define BIG_ENDIAN iff lowest-numbered byte in a word
X is the most significant byte. */
X
X#define BIG_ENDIAN
X
X/* Define NO_ARG_ARRAY if you cannot take the address of the first of a
X * group of arguments and treat it as an array of the arguments. */
X
X/* #define NO_ARG_ARRAY */
X
X/* Define WORD_MACHINE if addresses and such have
X * to be corrected before they can be used as byte counts. */
X
X/* #define WORD_MACHINE */
X
X/* Define how to take a char and sign-extend into an int.
X On machines where char is signed, this is a no-op. */
X
X#define SIGN_EXTEND_CHAR(c) (c)
X
X/* Now define a symbol for the cpu type, if your compiler
X does not define it automatically:
X vax, m68000, ns16000, pyramid, orion, tahoe and APOLLO
X are the ones defined so far. */
X
X/* Use type int rather than a union, to represent Lisp_Object */
X/* This is desirable for most machines. */
X
X#define NO_UNION_TYPE
X
X/* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
X the 24-bit bit field into an int. In other words, if bit fields
X are always unsigned.
X
X If you use NO_UNION_TYPE, this flag does not matter. */
X
X#define EXPLICIT_SIGN_EXTEND
X
X/* Data type of load average, as read out of kmem. */
X
X/* #define LOAD_AVE_TYPE long */
X
X/* Convert that into an integer that is 100 for a load average of 1.0 */
X
X/* #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / 100.0) */
X
X/* Define CANNOT_DUMP on machines where unexec does not work.
X Then the function dump-emacs will not be defined
X and temacs will do (load "loadup") automatically unless told otherwise. */
X
X#define CANNOT_DUMP
X#ifdef CANNOT_DUMP
X#define PURESIZE 16384
X#endif
X
X/* Define VIRT_ADDR_VARIES if the virtual addresses of
X pure and impure space as loaded can vary, and even their
X relative order cannot be relied on.
X
X Otherwise Emacs assumes that text space precedes data space,
X numerically. */
X
X/* #define VIRT_ADDR_VARIES */
X
X/* Define C_ALLOCA if this machine does not support a true alloca
X and the one written in C should be used instead.
X Define HAVE_ALLOCA to say that the system provides a properly
X working alloca function and it should be used.
X Define neither one if an assembler-language alloca
X in the file alloca.s should be used. */
X
X/* #define C_ALLOCA */
X#define HAVE_ALLOCA
X#define alloca __builtin_alloca
X
X/* Define NO_REMAP if memory segmentation makes it not work well
X to change the boundary between the text section and data section
X when Emacs is dumped. If you define this, the preloaded Lisp
X code will not be sharable; but that's better than failing completely. */
X
X#define NO_REMAP
X
X/* These values are needed by some files (alloc.c, data.c) even if
X NO_UNION_TYPE is undefined */
X
X#ifndef NO_UNION_TYPE
X#define VALBITS 24
X#define GCTYPEBITS 7
X#define VALMASK ((1<<VALBITS) - 1)
X#define GCTYPEMASK ((1<<GCTYPEBITS) - 1)
X#define MARKBIT (1 << (VALBITS + GCTYPEBITS))
X#endif
X
X#define SWITCH_ENUM_BUG
X#define abort() _abort_internal(__LINE__,__FILE__)
END_OF_FILE
if test 4104 -ne `wc -c <'m-atari.h'`; then
echo shar: \"'m-atari.h'\" unpacked with wrong size!
fi
# end of 'm-atari.h'
fi
echo shar: End of shell archive.
exit 0