Mercurial > emacs
view src/w32.h @ 17914:e5e2ef0dd5ab
(ada-krunch-args): Use gnatkr instead of gnatk8.
(ada-make-filename-from-adaname): Ditto.
(ada-adjust-case-region): Use format functionality of message.
(ada-indent-region): Ditto.
(ada-check-matching-start): Ditto.
(ada-check-defun-name): Ditto.
(ada-font-lock-keywords): Default to subdued. Doc fix.
(ada-font-lock-syntactic-keywords): New variable.
(ada-mode): Use it to set font-lock-defaults.
(ada-font-lock-keywords-2): Single "raise" will be
highlighted. "in out" parameters get type face (depends on order
in regexp).
(ada-mode): Remove explicit setting of user option
`blink-matching-paren', font-lock treats `.' as word char.
(ada-in-string-or-comment-p): Call `parse-partial-sexp' only once.
(ada-untabify-buffer): Force returning `nil'.
(ada-font-lock-keywords-1): Move "task" before "task (body|type)" to
correct highlighting (regexp depends on order).
(ada-in-char-const-p): Renamed from `ada-after-char-p'.
Also test following character.
(ada-adjust-case): Use better function `ada-in-char-const-p'
(ada-in-string-or-comment-p): Test for being in a char constant.
(ada-clean-buffer-before-saving): Changed default to t.
(ada-mode): Set `font-lock-defaults' for Emacs only, use properties
for XEmacs.
(ada-indent-newline-indent): Simplified by just calling
`ada-indent-current'.
(ada-end-stmt-re): Added word delimiters in regexp.
Removed `interactive' statements which were needed only for debugging.
Put format commands back in for emacs 19.30/19.29 compatibility.
(ada-get-indent-label): A named block can begin
without a declare part.
(ada-check-defun-name): First of all, check for correct name in a
named block without `declare' part.
(ada-goto-matching-start): Change regexp as there may be no
semicolon between `end' and keyword.
(ada-get-current-indent): Remove warning as `begin' can introduce
a block without a `declare'.
(ada-goto-matching-decl-start): When searching backward, skip
generic default proc/func ("is <>").
(ada-named-block-re): New regexp for the name of a named block or loop.
(ada-get-current-indent): Handle loop names at the stmt start.
(ada-get-indent-end): Handle loop names at the stmt start.
(ada-get-indent-noindent): Handle loop names at the stmt start.
(ada-get-indent-loop): Handle loop names at the stmt start.
(ada-search-prev-end-stmt): Generic instances are not `stmt-ends'.
(ada-goto-previous-word): Use new function `ada-goto-next-word'.
(ada-goto-next-word): Generalized old `ada-goto-previous-word' for
both directions.
(ada-indent-function): Removed unnecessary `package' case.
(ada-get-indent-case): Before testing for `=>', be sure there is an `is'.
(ada-search-prev-end-stmt): Test for `separate' keyword on the
same line, which is not an `end-stmt'.
(ada-font-lock-keywords-2):
Correct regexp for hilit of unfollowed `end'.
(ada-in-open-paren-p): Start parsing definitely outside of strings.
(ada-gnat-style): New function.
Doc fixes.
(ada-mode): Support new font-lock-mode.
(ada-format-paramlist): Changed all `accept' to `access'.
(ada-insert-paramlist): Changed all `accept' to `access'.
(ada-in-comment-p): Use standard emacs way `parse-partial-sexp'.
(ada-font-lock-keywords-1): Regexps in not byte-compiled code bahave
different than byte-compiled regexps.
Change order of some ored entries.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 22 May 1997 01:58:55 +0000 |
parents | 481b7874a1e9 |
children | 8f868d8be49a |
line wrap: on
line source
#ifndef _NT_H_ #define _NT_H_ /* Support routines for the NT version of Emacs. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* #define FULL_DEBUG */ #define EMACSDEBUG #ifdef EMACSDEBUG #define DebPrint(stuff) _DebPrint stuff #else #define DebPrint(stuff) #endif /* File descriptor set emulation. */ /* MSVC runtime library has limit of 64 descriptors by default */ #define FD_SETSIZE 64 typedef struct { unsigned int bits[FD_SETSIZE / 32]; } fd_set; /* standard access macros */ #define FD_SET(n, p) \ do { \ if ((n) < FD_SETSIZE) { \ (p)->bits[(n)/32] |= (1 << (n)%32); \ } \ } while (0) #define FD_CLR(n, p) \ do { \ if ((n) < FD_SETSIZE) { \ (p)->bits[(n)/32] &= ~(1 << (n)%32); \ } \ } while (0) #define FD_ISSET(n, p) ((n) < FD_SETSIZE ? ((p)->bits[(n)/32] & (1 << (n)%32)) : 0) #define FD_ZERO(p) memset((p), 0, sizeof(fd_set)) #define SELECT_TYPE fd_set /* ------------------------------------------------------------------------- */ /* child_process.status values */ enum { STATUS_READ_ERROR = -1, STATUS_READ_READY, STATUS_READ_IN_PROGRESS, STATUS_READ_FAILED, STATUS_READ_SUCCEEDED, STATUS_READ_ACKNOWLEDGED }; /* This structure is used for both pipes and sockets; for a socket, the process handle in pi is NULL. */ typedef struct _child_process { int fd; int pid; int is_dos_process; HANDLE char_avail; HANDLE char_consumed; HANDLE thrd; PROCESS_INFORMATION procinfo; volatile int status; char chr; } child_process; #define MAXDESC FD_SETSIZE #define MAX_CHILDREN MAXDESC/2 #define CHILD_ACTIVE(cp) ((cp)->char_avail != NULL) /* parallel array of private info on file handles */ typedef struct { unsigned flags; HANDLE hnd; child_process * cp; } filedesc; extern filedesc fd_info [ MAXDESC ]; /* fd_info flag definitions */ #define FILE_READ 0x0001 #define FILE_WRITE 0x0002 #define FILE_BINARY 0x0010 #define FILE_PIPE 0x0100 #define FILE_SOCKET 0x0200 extern child_process * new_child (void); extern void delete_child (child_process *cp); /* ------------------------------------------------------------------------- */ /* Prepare our standard handles for proper inheritance by child processes. */ extern void prepare_standard_handles (int in, int out, int err, HANDLE handles[4]); /* Reset our standard handles to their original state. */ extern void reset_standard_handles (int in, int out, int err, HANDLE handles[4]); /* Return the string resource associated with KEY of type TYPE. */ extern LPBYTE w32_get_resource (char * key, LPDWORD type); extern void init_ntproc (); extern void term_ntproc (); #endif /* _NT_H_ */