static void
doprnt_1 (Lisp_Object stream, const Bufbyte *string, Bytecount len,
Charcount minlen, Charcount maxlen, int minus_flag, int zero_flag)
{
Charcount cclen;
Bufbyte pad;
Lstream *lstr = (( struct lstream *) ((void *)(((( stream ) & ((1UL << ((4 * 8 ) - 4 ) ) - 1UL) ) ) | 0x40000000 )) ) ;
cclen = ( len ) ;
if (zero_flag)
pad = '0';
pad = ' ';
#if 0
if (minlen > cclen && !minus_flag)
#endif
{
int to_add = minlen - cclen;
while (to_add > 0)
{
(( 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)) ;
to_add--;
}
}
if (maxlen >= 0)
len = ( ((( maxlen ) <= ( cclen )) ? ( maxlen ) : ( cclen )) ) ;
Lstream_write (lstr, string, len);
if (minlen > cclen && minus_flag)
{
int to_add = minlen - cclen;
while (to_add > 0)
{
(( 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)) ;
to_add--;
}
}
}
static void
doprnt_1 (Lisp_Object stream, const Bufbyte *string, Bytecount len,
Charcount minlen, Charcount maxlen, int minus_flag, int zero_flag)
{
Lstream *lstr = XLSTREAM (stream);
Charcount cclen = bytecount_to_charcount (string, len);
int to_add = minlen - cclen;
/* Padding at beginning to right-justify ... */
if (!minus_flag)
while (to_add-- > 0)
Lstream_putc (lstr, zero_flag ? '0' : ' ');
if (0 <= maxlen && maxlen < cclen)
len = charcount_to_bytecount (string, maxlen);
Lstream_write (lstr, string, len);
/* Padding at end to left-justify ... */
if (minus_flag)
while (to_add-- > 0)
Lstream_putc (lstr, zero_flag ? '0' : ' ');
}
