Mercurial > hg > xemacs-beta

comparison src/process.h @ 863:42375619fa45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-04 06:03:59 by andyp] merge 21.4 windows changes, minimally tested
author andyp
date Tue, 04 Jun 2002 06:05:53 +0000
parents 2b6fa2618f76
children 79c6ff3eef26
comparison
equal deleted inserted replaced
862:278c743f1578 863:42375619fa45
42 DECLARE_LRECORD (process, Lisp_Process); 42 DECLARE_LRECORD (process, Lisp_Process);
43 #define XPROCESS(x) XRECORD (x, process, Lisp_Process) 43 #define XPROCESS(x) XRECORD (x, process, Lisp_Process)
44 #define wrap_process(p) wrap_record (p, process) 44 #define wrap_process(p) wrap_record (p, process)
45 #define PROCESSP(x) RECORDP (x, process) 45 #define PROCESSP(x) RECORDP (x, process)
46 #define CHECK_PROCESS(x) CHECK_RECORD (x, process) 46 #define CHECK_PROCESS(x) CHECK_RECORD (x, process)
47 #define PROCESS_LIVE_P(x) (!NILP ((x)->pipe_instream)) 47 #define PROCESS_LIVE_P(x) (EQ ((x)->status_symbol, Qrun))
48 #define PROCESS_READABLE_P(x) (!NILP ((x)->pipe_instream))
48 49
49 #define CHECK_LIVE_PROCESS(x) do { \ 50 #define CHECK_LIVE_PROCESS(x) do { \
50 CHECK_PROCESS (x); \ 51 CHECK_PROCESS (x); \
51 if (! PROCESS_LIVE_P (XPROCESS (x))) \ 52 if (! PROCESS_LIVE_P (XPROCESS (x))) \
52 dead_wrong_type_argument (Qprocess_live_p, (x)); \ 53 dead_wrong_type_argument (Qprocess_live_p, (x)); \
54 } while (0)
55
56 #define CHECK_READABLE_PROCESS(x) do { \
57 CHECK_PROCESS (x); \
58 if (! PROCESS_READABLE_P (XPROCESS (x))) \
59 dead_wrong_type_argument (Qprocess_readable_p, (x)); \
53 } while (0) 60 } while (0)
54 61
55 EXFUN (Fprocess_kill_without_query, 2); 62 EXFUN (Fprocess_kill_without_query, 2);
56 EXFUN (Fprocess_id, 1); 63 EXFUN (Fprocess_id, 1);
57 64