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' : ' '); }