Mercurial > hg > xemacs-beta

comparison src/lstream.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents b7f26b2f78bd
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
148 148
149 const struct sized_memory_description lstream_empty_extra_description = { 149 const struct sized_memory_description lstream_empty_extra_description = {
150 0, lstream_empty_extra_description_1 150 0, lstream_empty_extra_description_1
151 }; 151 };
152 152
153 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream, 153 DEFINE_NONDUMPABLE_SIZABLE_LISP_OBJECT ("stream", lstream,
154 0, /*dumpable-flag*/ 154 mark_lstream, print_lstream,
155 mark_lstream, print_lstream, 155 finalize_lstream, 0, 0,
156 finalize_lstream, 0, 0, 156 lstream_description,
157 lstream_description, 157 sizeof_lstream, Lstream);
158 sizeof_lstream, Lstream);
159 158
160 159
161 /* Change the buffering of a stream. See lstream.h. By default the 160 /* Change the buffering of a stream. See lstream.h. By default the
162 buffering is STREAM_BLOCK_BUFFERED. */ 161 buffering is STREAM_BLOCK_BUFFERED. */
163 162
195 Lstream * 194 Lstream *
196 Lstream_new (const Lstream_implementation *imp, const char *mode) 195 Lstream_new (const Lstream_implementation *imp, const char *mode)
197 { 196 {
198 Lstream *p; 197 Lstream *p;
199 #ifdef MC_ALLOC 198 #ifdef MC_ALLOC
200 p = XLSTREAM (wrap_pointer_1 199 p = XLSTREAM (alloc_sized_lrecord (aligned_sizeof_lstream (imp->size),
201 (alloc_lrecord (aligned_sizeof_lstream (imp->size), 200 &lrecord_lstream));
202 &lrecord_lstream)));
203 #else /* not MC_ALLOC */ 201 #else /* not MC_ALLOC */
204 int i; 202 int i;
205 203
206 for (i = 0; i < lstream_type_count; i++) 204 for (i = 0; i < lstream_type_count; i++)
207 { 205 {
1880 #endif /* not MC_ALLOC */ 1878 #endif /* not MC_ALLOC */
1881 1879
1882 void 1880 void
1883 vars_of_lstream (void) 1881 vars_of_lstream (void)
1884 { 1882 {
1885 INIT_LRECORD_IMPLEMENTATION (lstream); 1883 INIT_LISP_OBJECT (lstream);
1886 } 1884 }