Mercurial > hg > xemacs-beta

comparison src/lstream.h @ 5133:444a448b2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents a9c41067dd88
children 308d34e9f07d
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
28 28
29 /************************************************************************/ 29 /************************************************************************/
30 /* definition of Lstream object */ 30 /* definition of Lstream object */
31 /************************************************************************/ 31 /************************************************************************/
32 32
33 DECLARE_LRECORD (lstream, struct lstream); 33 DECLARE_LISP_OBJECT (lstream, struct lstream);
34 #define XLSTREAM(x) XRECORD (x, lstream, struct lstream) 34 #define XLSTREAM(x) XRECORD (x, lstream, struct lstream)
35 #define wrap_lstream(p) wrap_record (p, lstream) 35 #define wrap_lstream(p) wrap_record (p, lstream)
36 #define LSTREAMP(x) RECORDP (x, lstream) 36 #define LSTREAMP(x) RECORDP (x, lstream)
37 /* #define CHECK_LSTREAM(x) CHECK_RECORD (x, lstream) 37 /* #define CHECK_LSTREAM(x) CHECK_RECORD (x, lstream)
38 Lstream pointers should never escape to the Lisp level, so 38 Lstream pointers should never escape to the Lisp level, so
228 #define LSTREAM_FL_NO_PARTIAL_CHARS 8 228 #define LSTREAM_FL_NO_PARTIAL_CHARS 8
229 #define LSTREAM_FL_CLOSE_AT_DISKSAVE 16 229 #define LSTREAM_FL_CLOSE_AT_DISKSAVE 16
230 230
231 struct lstream 231 struct lstream
232 { 232 {
233 struct LCRECORD_HEADER header; 233 NORMAL_LISP_OBJECT_HEADER header;
234 const Lstream_implementation *imp; /* methods for this stream */ 234 const Lstream_implementation *imp; /* methods for this stream */
235 Lstream_buffering buffering; /* type of buffering in use */ 235 Lstream_buffering buffering; /* type of buffering in use */
236 Bytecount buffering_size; /* number of bytes buffered */ 236 Bytecount buffering_size; /* number of bytes buffered */
237 237
238 unsigned char *in_buffer; /* holds characters read from stream end */ 238 unsigned char *in_buffer; /* holds characters read from stream end */