1 typedef long unsigned int size_t;
2 typedef unsigned char Bufbyte
;
5 typedef struct lstream Lstream
;
6 typedef int Lisp_Object
;
7 extern Lisp_Object Qnil
;
9 TRUE_LIST_P (Lisp_Object object
)
11 return (( object
) == ( Qnil
)) ;
18 typedef enum lstream_buffering
20 LSTREAM_LINE_BUFFERED
,
24 Lstream_buffering buffering
;
25 unsigned char *out_buffer
;
26 size_t out_buffer_size
;
27 size_t out_buffer_ind
;
32 typedef struct printf_spec printf_spec
;
36 typedef union printf_arg printf_arg
;
48 doprnt_1 (Lisp_Object stream
, const Bufbyte
*string
, Bytecount len
,
49 Charcount minlen
, Charcount maxlen
, int minus_flag
, int zero_flag
)
53 Lstream
*lstr
= (( struct lstream
*) ((void *)(((( stream
) & ((1UL << ((4 * 8 ) - 4 ) ) - 1UL) ) ) | 0x40000000 )) ) ;
59 if (minlen
> cclen
&& !minus_flag
)
62 int to_add
= minlen
- cclen
;
65 (( lstr
)->out_buffer_ind
>= ( lstr
)->out_buffer_size
? Lstream_fputc ( lstr
, pad
) : (( lstr
)->out_buffer
[( lstr
)->out_buffer_ind
++] = (unsigned char) ( pad
), ( lstr
)->byte_count
++, ( lstr
)->buffering
== LSTREAM_LINE_BUFFERED
&& ( lstr
)->out_buffer
[( lstr
)->out_buffer_ind
- 1] == '\n' ? Lstream_flush_out ( lstr
) : 0)) ;
70 len
= ( ((( maxlen
) <= ( cclen
)) ? ( maxlen
) : ( cclen
)) ) ;
71 Lstream_write (lstr
, string
, len
);
72 if (minlen
> cclen
&& minus_flag
)
74 int to_add
= minlen
- cclen
;
77 (( lstr
)->out_buffer_ind
>= ( lstr
)->out_buffer_size
? Lstream_fputc ( lstr
, pad
) : (( lstr
)->out_buffer
[( lstr
)->out_buffer_ind
++] = (unsigned char) ( pad
), ( lstr
)->byte_count
++, ( lstr
)->buffering
== LSTREAM_LINE_BUFFERED
&& ( lstr
)->out_buffer
[( lstr
)->out_buffer_ind
- 1] == '\n' ? Lstream_flush_out ( lstr
) : 0)) ;
83 emacs_doprnt_1 (Lisp_Object stream
, const Bufbyte
*format_nonreloc
,
84 Lisp_Object format_reloc
, Bytecount format_length
,
86 const Lisp_Object
*largs
)
89 printf_spec_dynarr
*specs
= 0;
90 format_nonreloc
= (( (( struct Lisp_String
*) ((void *)(((( format_reloc
) & ((1UL << ((4 * 8 ) - 4 ) ) - 1UL) ) ) | 0x40000000 )) ) )->_data
+ 0) ;
91 format_length
= (( (( struct Lisp_String
*) ((void *)(((( format_reloc
) & ((1UL << ((4 * 8 ) - 4 ) ) - 1UL) ) ) | 0x40000000 )) ) )->_size
) ;
92 specs
= parse_doprnt_spec (format_nonreloc
, format_length
);
93 for (i
= 0; i
< (( specs
)->cur
) ; i
++)
96 doprnt_1 (stream
, (Bufbyte
*) &ch
, 1, 0, -1, 0, 0);