Mercurial > emacs
view src/w32.h @ 18016:22cbed2e6098
(hs-special-modes-alist): Include also the
comment regexp in the alist. This is needed for modes like c++
where the comment beginning regexp is not easy to determine
from the syntax table.
Include ADJUST-BLOCK-BEGINNING in the alist.
(hs-hide-comments-when-hiding-all): Add autoload cookie.
(hs-show-hidden-short-form):
(hs-adjust-block-beginning): New variables.
Comment out `hs-menu-bar' as XEmacs support was removed.
(hs-c-end-regexp): Remove variable, obsoleted by the rewrite of
`hs-inside-comment-p'.
(hs-discard-overlays): No need to test if we are inside the
overlay, we surely are since we got the overlay using `overlays-at'.
(hs-hide-block-at-point): Rewritten to use the new variables.
Use only one parameter to specify the comment.
(hs-show-block-at-point): No need for the COMMENT-REG parameter.
(hs-safety-is-job-n): Correct typo.
(hs-hide-initial-comment-block): Add ^L to the chars to skip.
Take into account `hs-show-hidden-short-form' when testing.
(hs-inside-single-line-comment-p): Function deleted, obsoleted by
the rewrite of `hs-inside-comment-p'.
(hs-inside-comment-p): Rewritten from scratch. Semantics changed
when returning non-nil. We can be inside a comment, but that
comment might not be hidable (the car of the return value should
be non-nil to be hidable).
(hs-grok-mode-type): Rewrite to be more understandable.
`hs-c-end-regexp' does not exist any more.
Initialize `hs-c-start-regexp' from the alist if specified there.
Initialize `hs-adjust-block-beginning'.
(hs-find-block-beginning): Rewritten to be able to deal with the
situation when a block beginning spans multiple lines and the
point is on one of those lines.
(hs-already-hidden-p): Look first if we are inside a comment or a
block, go to their end and look there for the overlays.
(java-hs-adjust-block-beginning): New function.
(hs-hide-all): Hide a comment block only if `hs-inside-comment-p'
says is hidable.
(hs-hide-block): Simplify.
Handle properly the result of `hs-inside-comment-p'.
(hs-show-block): Likewise.
(hs-minor-mode): Doc string fixes.
Make `hs-adjust-block-beginning' buffer local.
Delete making `hs-c-end-regexp' buffer local as it was deleted.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 29 May 1997 05:23:39 +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_ */