Mercurial > hg > xemacs-beta

comparison src/lstream.h @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 376386a54a3c
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
250 250
251 /************************************************************************/ 251 /************************************************************************/
252 /* working with an Lstream as a stream of Emchars */ 252 /* working with an Lstream as a stream of Emchars */
253 /************************************************************************/ 253 /************************************************************************/
254 254
255 #ifdef MULE
256
257 MAC_DECLARE_EXTERN (Emchar, MTlstream_emchar)
258 MAC_DECLARE_EXTERN (int, MTlstream_emcint)
259 /* In mule-charset.c */
260 Emchar Lstream_get_emchar_1 (Lstream *lstr, int first_char);
261 int Lstream_fput_emchar (Lstream *lstr, Emchar ch);
262 void Lstream_funget_emchar (Lstream *lstr, Emchar ch);
263
264 # define Lstream_get_emchar(stream) \
265 MAC_BEGIN \
266 MAC_DECLARE (int, MTlstream_emcint, Lstream_getc (stream)) \
267 BYTE_ASCII_P (MTlstream_emcint) ? (Emchar) MTlstream_emcint : \
268 Lstream_get_emchar_1 (stream, MTlstream_emcint) \
269 MAC_END
270 # define Lstream_put_emchar(stream, ch) \
271 MAC_BEGIN \
272 MAC_DECLARE (Emchar, MTlstream_emchar, ch) \
273 CHAR_ASCII_P (MTlstream_emchar) ? \
274 Lstream_putc (stream, MTlstream_emchar) : \
275 Lstream_fput_emchar (stream, MTlstream_emchar) \
276 MAC_END
277 # define Lstream_unget_emchar(stream, ch) \
278 MAC_BEGIN \
279 MAC_DECLARE (Emchar, MTlstream_emchar, ch) \
280 CHAR_ASCII_P (MTlstream_emchar) ? \
281 Lstream_ungetc (stream, MTlstream_emchar) : \
282 Lstream_funget_emchar (stream, MTlstream_emchar) \
283 MAC_END
284
285 #else /* not MULE */
286
255 # define Lstream_get_emchar(stream) Lstream_getc (stream) 287 # define Lstream_get_emchar(stream) Lstream_getc (stream)
256 # define Lstream_put_emchar(stream, ch) Lstream_putc (stream, ch) 288 # define Lstream_put_emchar(stream, ch) Lstream_putc (stream, ch)
257 # define Lstream_unget_emchar(stream, ch) Lstream_ungetc (stream, ch) 289 # define Lstream_unget_emchar(stream, ch) Lstream_ungetc (stream, ch)
290
291 #endif /* not MULE */
258 292
259 293
260 294
261 /************************************************************************/ 295 /************************************************************************/
262 /* Lstream implementations */ 296 /* Lstream implementations */