Mercurial > hg > xemacs-beta

comparison src/console-stream-impl.h @ 5140:e5380fdaf8f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sat, 13 Mar 2010 05:38:34 -0600
parents a9c41067dd88
children 308d34e9f07d
comparison
equal deleted inserted replaced
5139:a48ef26d87ee 5140:e5380fdaf8f1
33 DECLARE_CONSOLE_TYPE (stream); 33 DECLARE_CONSOLE_TYPE (stream);
34 34
35 struct stream_console 35 struct stream_console
36 { 36 {
37 #ifdef NEW_GC 37 #ifdef NEW_GC
38 struct lrecord_header header; 38 NORMAL_LISP_OBJECT_HEADER header;
39 #endif /* NEW_GC */ 39 #endif /* NEW_GC */
40 FILE *in; 40 FILE *in;
41 FILE *out; 41 FILE *out;
42 FILE *err; 42 FILE *err;
43 int needs_newline; 43 int needs_newline;
45 }; 45 };
46 46
47 #ifdef NEW_GC 47 #ifdef NEW_GC
48 typedef struct stream_console Lisp_Stream_Console; 48 typedef struct stream_console Lisp_Stream_Console;
49 49
50 DECLARE_LRECORD (stream_console, Lisp_Stream_Console); 50 DECLARE_LISP_OBJECT (stream_console, Lisp_Stream_Console);
51 51
52 #define XSTREAM_CONSOLE(x) \ 52 #define XSTREAM_CONSOLE(x) \
53 XRECORD (x, stream_console, Lisp_Stream_Console) 53 XRECORD (x, stream_console, Lisp_Stream_Console)
54 #define wrap_stream_console(p) wrap_record (p, stream_console) 54 #define wrap_stream_console(p) wrap_record (p, stream_console)
55 #define STREAM_CONSOLE_P(x) RECORDP (x, stream_console) 55 #define STREAM_CONSOLE_P(x) RECORDP (x, stream_console)