Subversion Repositories HelenOS

Rev

Rev 2570 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2570 Rev 2782
1
/*
1
/*
2
 * Copyright (c) 2001-2004 Jakub Jermar
2
 * Copyright (c) 2001-2004 Jakub Jermar
3
 * Copyright (c) 2006 Josef Cejka
3
 * Copyright (c) 2006 Josef Cejka
4
 * All rights reserved.
4
 * All rights reserved.
5
 *
5
 *
6
 * Redistribution and use in source and binary forms, with or without
6
 * Redistribution and use in source and binary forms, with or without
7
 * modification, are permitted provided that the following conditions
7
 * modification, are permitted provided that the following conditions
8
 * are met:
8
 * are met:
9
 *
9
 *
10
 * - Redistributions of source code must retain the above copyright
10
 * - Redistributions of source code must retain the above copyright
11
 *   notice, this list of conditions and the following disclaimer.
11
 *   notice, this list of conditions and the following disclaimer.
12
 * - Redistributions in binary form must reproduce the above copyright
12
 * - Redistributions in binary form must reproduce the above copyright
13
 *   notice, this list of conditions and the following disclaimer in the
13
 *   notice, this list of conditions and the following disclaimer in the
14
 *   documentation and/or other materials provided with the distribution.
14
 *   documentation and/or other materials provided with the distribution.
15
 * - The name of the author may not be used to endorse or promote products
15
 * - The name of the author may not be used to endorse or promote products
16
 *   derived from this software without specific prior written permission.
16
 *   derived from this software without specific prior written permission.
17
 *
17
 *
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
 */
28
 */
29
 
29
 
30
/** @addtogroup libc
30
/** @addtogroup libc
31
 * @{
31
 * @{
32
 */
32
 */
33
/**
33
/**
34
 * @file
34
 * @file
35
 * @brief   Printing functions.
35
 * @brief   Printing functions.
36
 */
36
 */
37
 
37
 
38
#include <unistd.h>
38
#include <unistd.h>
39
#include <stdio.h>
39
#include <stdio.h>
40
#include <io/printf_core.h>
40
#include <io/printf_core.h>
41
#include <ctype.h>
41
#include <ctype.h>
42
#include <string.h>
42
#include <string.h>
43
 
43
 
44
#define __PRINTF_FLAG_PREFIX        0x00000001  /**< show prefixes 0x or 0*/
44
#define __PRINTF_FLAG_PREFIX        0x00000001  /**< show prefixes 0x or 0*/
45
#define __PRINTF_FLAG_SIGNED        0x00000002  /**< signed / unsigned number */
45
#define __PRINTF_FLAG_SIGNED        0x00000002  /**< signed / unsigned number */
46
#define __PRINTF_FLAG_ZEROPADDED    0x00000004  /**< print leading zeroes */
46
#define __PRINTF_FLAG_ZEROPADDED    0x00000004  /**< print leading zeroes */
47
#define __PRINTF_FLAG_LEFTALIGNED   0x00000010  /**< align to left */
47
#define __PRINTF_FLAG_LEFTALIGNED   0x00000010  /**< align to left */
48
#define __PRINTF_FLAG_SHOWPLUS      0x00000020  /**< always show + sign */
48
#define __PRINTF_FLAG_SHOWPLUS      0x00000020  /**< always show + sign */
49
#define __PRINTF_FLAG_SPACESIGN     0x00000040  /**< print space instead of plus */
49
#define __PRINTF_FLAG_SPACESIGN     0x00000040  /**< print space instead of plus */
50
#define __PRINTF_FLAG_BIGCHARS      0x00000080  /**< show big characters */
50
#define __PRINTF_FLAG_BIGCHARS      0x00000080  /**< show big characters */
51
#define __PRINTF_FLAG_NEGATIVE      0x00000100  /**< number has - sign */
51
#define __PRINTF_FLAG_NEGATIVE      0x00000100  /**< number has - sign */
52
 
52
 
53
#define PRINT_NUMBER_BUFFER_SIZE    (64+5)      /**< Buffer big enought for 64 bit number
53
#define PRINT_NUMBER_BUFFER_SIZE    (64+5)      /**< Buffer big enought for 64 bit number
54
                             * printed in base 2, sign, prefix and
54
                             * printed in base 2, sign, prefix and
55
                             * 0 to terminate string.. (last one is only for better testing
55
                             * 0 to terminate string.. (last one is only for better testing
56
                             * end of buffer by zero-filling subroutine)
56
                             * end of buffer by zero-filling subroutine)
57
                             */
57
                             */
58
/** Enumeration of possible arguments types.
58
/** Enumeration of possible arguments types.
59
 */
59
 */
60
typedef enum {
60
typedef enum {
61
    PrintfQualifierByte = 0,
61
    PrintfQualifierByte = 0,
62
    PrintfQualifierShort,
62
    PrintfQualifierShort,
63
    PrintfQualifierInt,
63
    PrintfQualifierInt,
64
    PrintfQualifierLong,
64
    PrintfQualifierLong,
65
    PrintfQualifierLongLong,
65
    PrintfQualifierLongLong,
66
    PrintfQualifierSizeT,
66
    PrintfQualifierSizeT,
67
    PrintfQualifierPointer
67
    PrintfQualifierPointer
68
} qualifier_t;
68
} qualifier_t;
69
 
69
 
70
static char digits_small[] = "0123456789abcdef";    /**< Small hexadecimal characters */
70
static char digits_small[] = "0123456789abcdef";    /**< Small hexadecimal characters */
71
static char digits_big[] = "0123456789ABCDEF";      /**< Big hexadecimal characters */
71
static char digits_big[] = "0123456789ABCDEF";      /**< Big hexadecimal characters */
72
 
72
 
73
/** Print count chars from buffer without adding newline
73
/** Print count chars from buffer without adding newline
74
 * @param buf Buffer with size at least count bytes - NULL pointer NOT allowed!
74
 * @param buf Buffer with size at least count bytes - NULL pointer NOT allowed!
75
 * @param count
75
 * @param count
76
 * @param ps output method and its data
76
 * @param ps output method and its data
77
 * @return number of printed characters
77
 * @return number of printed characters
78
 */
78
 */
79
static int printf_putnchars(const char * buf, size_t count,
79
static int printf_putnchars(const char * buf, size_t count,
80
    struct printf_spec *ps)
80
    struct printf_spec *ps)
81
{
81
{
82
    return ps->write((void *)buf, count, ps->data);
82
    return ps->write((void *)buf, count, ps->data);
83
}
83
}
84
 
84
 
85
/** Print string without added newline
85
/** Print string without added newline
86
 * @param str string to print
86
 * @param str string to print
87
 * @param ps write function specification and support data
87
 * @param ps write function specification and support data
88
 * @return number of printed characters
88
 * @return number of printed characters
89
 */
89
 */
90
static int printf_putstr(const char * str, struct printf_spec *ps)
90
static int printf_putstr(const char * str, struct printf_spec *ps)
91
{
91
{
92
    size_t count;
92
    size_t count;
93
   
93
   
94
    if (str == NULL)
94
    if (str == NULL)
95
        return printf_putnchars("(NULL)", 6, ps);
95
        return printf_putnchars("(NULL)", 6, ps);
96
 
96
 
97
    for (count = 0; str[count] != 0; count++);
97
    for (count = 0; str[count] != 0; count++);
98
 
98
 
99
    if (ps->write((void *) str, count, ps->data) == count)
99
    if (ps->write((void *) str, count, ps->data) == count)
100
        return 0;
100
        return 0;
101
   
101
   
102
    return EOF;
102
    return EOF;
103
}
103
}
104
 
104
 
105
/** Print one character to output
105
/** Print one character to output
106
 * @param c one character
106
 * @param c one character
107
 * @param ps output method
107
 * @param ps output method
108
 * @return number of printed characters
108
 * @return number of printed characters
109
 */
109
 */
110
static int printf_putchar(int c, struct printf_spec *ps)
110
static int printf_putchar(int c, struct printf_spec *ps)
111
{
111
{
112
    unsigned char ch = c;
112
    unsigned char ch = c;
113
   
113
   
114
    return ps->write((void *) &ch, 1, ps->data);
114
    return ps->write((void *) &ch, 1, ps->data);
115
}
115
}
116
 
116
 
117
/** Print one formatted character
117
/** Print one formatted character
118
 * @param c character to print
118
 * @param c character to print
119
 * @param width
119
 * @param width
120
 * @param flags
120
 * @param flags
121
 * @return number of printed characters
121
 * @return number of printed characters
122
 */
122
 */
123
static int print_char(char c, int width, uint64_t flags, struct printf_spec *ps)
123
static int print_char(char c, int width, uint64_t flags, struct printf_spec *ps)
124
{
124
{
125
    int counter = 0;
125
    int counter = 0;
126
   
126
   
127
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
127
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
128
        /*
128
        /*
129
         * One space is consumed by the character itself, hence the
129
         * One space is consumed by the character itself, hence the
130
         * predecrement.
130
         * predecrement.
131
         */
131
         */
132
        while (--width > 0) {
132
        while (--width > 0) {
133
            if (printf_putchar(' ', ps) > 0)   
133
            if (printf_putchar(' ', ps) > 0)   
134
                ++counter;
134
                ++counter;
135
        }
135
        }
136
    }
136
    }
137
   
137
   
138
    if (printf_putchar(c, ps) > 0)
138
    if (printf_putchar(c, ps) > 0)
139
        counter++;
139
        counter++;
140
    /*
140
    /*
141
     * One space is consumed by the character itself, hence the
141
     * One space is consumed by the character itself, hence the
142
     * predecrement.
142
     * predecrement.
143
     */
143
     */
144
    while (--width > 0) {
144
    while (--width > 0) {
145
        if (printf_putchar(' ', ps) > 0)
145
        if (printf_putchar(' ', ps) > 0)
146
            ++counter;
146
            ++counter;
147
    }
147
    }
148
   
148
   
149
    return ++counter;
149
    return ++counter;
150
}
150
}
151
 
151
 
152
/** Print one string
152
/** Print one string
153
 * @param s string
153
 * @param s string
154
 * @param width
154
 * @param width
155
 * @param precision
155
 * @param precision
156
 * @param flags
156
 * @param flags
157
 * @return number of printed characters
157
 * @return number of printed characters
158
 */
158
 */
159
static int print_string(char *s, int width, int precision, uint64_t flags,
159
static int print_string(char *s, int width, int precision, uint64_t flags,
160
    struct printf_spec *ps)
160
    struct printf_spec *ps)
161
{
161
{
162
    int counter = 0;
162
    int counter = 0;
163
    size_t size;
163
    size_t size;
164
    int retval;
164
    int retval;
165
 
165
 
166
    if (s == NULL) {
166
    if (s == NULL) {
167
        return printf_putstr("(NULL)", ps);
167
        return printf_putstr("(NULL)", ps);
168
    }
168
    }
169
   
169
   
170
    size = strlen(s);
170
    size = strlen(s);
171
 
171
 
172
    /* print leading spaces */
172
    /* print leading spaces */
173
 
173
 
174
    if (precision == 0)
174
    if (precision == 0)
175
        precision = size;
175
        precision = size;
176
 
176
 
177
    width -= precision;
177
    width -= precision;
178
   
178
   
179
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
179
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
180
        while (width-- > 0) {  
180
        while (width-- > 0) {  
181
            if (printf_putchar(' ', ps) == 1)  
181
            if (printf_putchar(' ', ps) == 1)  
182
                counter++;
182
                counter++;
183
        }
183
        }
184
    }
184
    }
185
 
185
 
186
    if ((retval = printf_putnchars(s, size < precision ? size : precision,
186
    if ((retval = printf_putnchars(s, size < precision ? size : precision,
187
        ps)) < 0) {
187
        ps)) < 0) {
188
        return -counter;
188
        return -counter;
189
    }
189
    }
190
 
190
 
191
    counter += retval; 
191
    counter += retval; 
192
 
192
 
193
    while (width-- > 0) {
193
    while (width-- > 0) {
194
        if (printf_putchar(' ', ps) == 1)  
194
        if (printf_putchar(' ', ps) == 1)  
195
            ++counter;
195
            ++counter;
196
    }
196
    }
197
   
197
   
198
    return counter;
198
    return counter;
199
}
199
}
200
 
200
 
201
 
201
 
202
/** Print number in given base
202
/** Print number in given base
203
 *
203
 *
204
 * Print significant digits of a number in given
204
 * Print significant digits of a number in given
205
 * base.
205
 * base.
206
 *
206
 *
207
 * @param num  Number to print.
207
 * @param num  Number to print.
208
 * @param width
208
 * @param width
209
 * @param precision
209
 * @param precision
210
 * @param base Base to print the number in (should
210
 * @param base Base to print the number in (should
211
 *             be in range 2 .. 16).
211
 *             be in range 2 .. 16).
212
 * @param flags output modifiers
212
 * @param flags output modifiers
213
 * @return number of printed characters
213
 * @return number of printed characters
214
 *
214
 *
215
 */
215
 */
216
static int print_number(uint64_t num, int width, int precision, int base,
216
static int print_number(uint64_t num, int width, int precision, int base,
217
    uint64_t flags, struct printf_spec *ps)
217
    uint64_t flags, struct printf_spec *ps)
218
{
218
{
219
    char *digits = digits_small;
219
    char *digits = digits_small;
220
    char d[PRINT_NUMBER_BUFFER_SIZE];   /* this is good enough even for
220
    char d[PRINT_NUMBER_BUFFER_SIZE];   /* this is good enough even for
221
                         * base == 2, prefix and sign */
221
                         * base == 2, prefix and sign */
222
    char *ptr = &d[PRINT_NUMBER_BUFFER_SIZE - 1];
222
    char *ptr = &d[PRINT_NUMBER_BUFFER_SIZE - 1];
223
    int size = 0; /* size of number with all prefixes and signs */
223
    int size = 0; /* size of number with all prefixes and signs */
224
    int number_size; /* size of plain number */
224
    int number_size; /* size of plain number */
225
    char sgn;
225
    char sgn;
226
    int retval;
226
    int retval;
227
    int counter = 0;
227
    int counter = 0;
228
   
228
   
229
    if (flags & __PRINTF_FLAG_BIGCHARS)
229
    if (flags & __PRINTF_FLAG_BIGCHARS)
230
        digits = digits_big;   
230
        digits = digits_big;   
231
   
231
   
232
    *ptr-- = 0; /* Put zero at end of string */
232
    *ptr-- = 0; /* Put zero at end of string */
233
 
233
 
234
    if (num == 0) {
234
    if (num == 0) {
235
        *ptr-- = '0';
235
        *ptr-- = '0';
236
        size++;
236
        size++;
237
    } else {
237
    } else {
238
        do {
238
        do {
239
            *ptr-- = digits[num % base];
239
            *ptr-- = digits[num % base];
240
            size++;
240
            size++;
241
        } while (num /= base);
241
        } while (num /= base);
242
    }
242
    }
243
   
243
   
244
    number_size = size;
244
    number_size = size;
245
 
245
 
246
    /*
246
    /*
247
     * Collect sum of all prefixes/signs/... to calculate padding and
247
     * Collect sum of all prefixes/signs/... to calculate padding and
248
     * leading zeroes
248
     * leading zeroes
249
     */
249
     */
250
    if (flags & __PRINTF_FLAG_PREFIX) {
250
    if (flags & __PRINTF_FLAG_PREFIX) {
251
        switch(base) {
251
        switch(base) {
252
        case 2: /* Binary formating is not standard, but usefull */
252
        case 2: /* Binary formating is not standard, but usefull */
253
            size += 2;
253
            size += 2;
254
            break;
254
            break;
255
        case 8:
255
        case 8:
256
            size++;
256
            size++;
257
            break;
257
            break;
258
        case 16:
258
        case 16:
259
            size += 2;
259
            size += 2;
260
            break;
260
            break;
261
        }
261
        }
262
    }
262
    }
263
 
263
 
264
    sgn = 0;
264
    sgn = 0;
265
    if (flags & __PRINTF_FLAG_SIGNED) {
265
    if (flags & __PRINTF_FLAG_SIGNED) {
266
        if (flags & __PRINTF_FLAG_NEGATIVE) {
266
        if (flags & __PRINTF_FLAG_NEGATIVE) {
267
            sgn = '-';
267
            sgn = '-';
268
            size++;
268
            size++;
269
        } else if (flags & __PRINTF_FLAG_SHOWPLUS) {
269
        } else if (flags & __PRINTF_FLAG_SHOWPLUS) {
270
            sgn = '+';
270
            sgn = '+';
271
            size++;
271
            size++;
272
        } else if (flags & __PRINTF_FLAG_SPACESIGN) {
272
        } else if (flags & __PRINTF_FLAG_SPACESIGN) {
273
            sgn = ' ';
273
            sgn = ' ';
274
            size++;
274
            size++;
275
        }
275
        }
276
    }
276
    }
277
 
277
 
278
    if (flags & __PRINTF_FLAG_LEFTALIGNED) {
278
    if (flags & __PRINTF_FLAG_LEFTALIGNED) {
279
        flags &= ~__PRINTF_FLAG_ZEROPADDED;
279
        flags &= ~__PRINTF_FLAG_ZEROPADDED;
280
    }
280
    }
281
 
281
 
282
    /*
282
    /*
283
     * If number is leftaligned or precision is specified then zeropadding
283
     * If number is leftaligned or precision is specified then zeropadding
284
     * is ignored.
284
     * is ignored.
285
     */
285
     */
286
    if (flags & __PRINTF_FLAG_ZEROPADDED) {
286
    if (flags & __PRINTF_FLAG_ZEROPADDED) {
287
        if ((precision == 0) && (width > size)) {
287
        if ((precision == 0) && (width > size)) {
288
            precision = width - size + number_size;
288
            precision = width - size + number_size;
289
        }
289
        }
290
    }
290
    }
291
 
291
 
292
    /* print leading spaces */
292
    /* print leading spaces */
293
 
293
 
294
    /* We must print whole number not only a part. */
294
    /* We must print whole number not only a part. */
295
    if (number_size > precision)
295
    if (number_size > precision)
296
        precision = number_size;
296
        precision = number_size;
297
 
297
 
298
    width -= precision + size - number_size;
298
    width -= precision + size - number_size;
299
   
299
   
300
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
300
    if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
301
        while (width-- > 0) {  
301
        while (width-- > 0) {  
302
            if (printf_putchar(' ', ps) == 1)  
302
            if (printf_putchar(' ', ps) == 1)  
303
                counter++;
303
                counter++;
304
        }
304
        }
305
    }
305
    }
306
   
306
   
307
    /* print sign */
307
    /* print sign */
308
    if (sgn) {
308
    if (sgn) {
309
        if (printf_putchar(sgn, ps) == 1)
309
        if (printf_putchar(sgn, ps) == 1)
310
            counter++;
310
            counter++;
311
    }
311
    }
312
   
312
   
313
    /* print prefix */
313
    /* print prefix */
314
   
314
   
315
    if (flags & __PRINTF_FLAG_PREFIX) {
315
    if (flags & __PRINTF_FLAG_PREFIX) {
316
        switch(base) {
316
        switch(base) {
317
        case 2: /* Binary formating is not standard, but usefull */
317
        case 2: /* Binary formating is not standard, but usefull */
318
            if (printf_putchar('0', ps) == 1)
318
            if (printf_putchar('0', ps) == 1)
319
                counter++;
319
                counter++;
320
            if (flags & __PRINTF_FLAG_BIGCHARS) {
320
            if (flags & __PRINTF_FLAG_BIGCHARS) {
321
                if (printf_putchar('B', ps) == 1)
321
                if (printf_putchar('B', ps) == 1)
322
                    counter++;
322
                    counter++;
323
            } else {
323
            } else {
324
                if (printf_putchar('b', ps) == 1)
324
                if (printf_putchar('b', ps) == 1)
325
                    counter++;
325
                    counter++;
326
            }
326
            }
327
            break;
327
            break;
328
        case 8:
328
        case 8:
329
            if (printf_putchar('o', ps) == 1)
329
            if (printf_putchar('o', ps) == 1)
330
                counter++;
330
                counter++;
331
            break;
331
            break;
332
        case 16:
332
        case 16:
333
            if (printf_putchar('0', ps) == 1)
333
            if (printf_putchar('0', ps) == 1)
334
                counter++;
334
                counter++;
335
            if (flags & __PRINTF_FLAG_BIGCHARS) {
335
            if (flags & __PRINTF_FLAG_BIGCHARS) {
336
                if (printf_putchar('X', ps) == 1)
336
                if (printf_putchar('X', ps) == 1)
337
                    counter++;
337
                    counter++;
338
            } else {
338
            } else {
339
                if (printf_putchar('x', ps) == 1)
339
                if (printf_putchar('x', ps) == 1)
340
                    counter++;
340
                    counter++;
341
            }
341
            }
342
            break;
342
            break;
343
        }
343
        }
344
    }
344
    }
345
 
345
 
346
    /* print leading zeroes */
346
    /* print leading zeroes */
347
    precision -= number_size;
347
    precision -= number_size;
348
    while (precision-- > 0) {  
348
    while (precision-- > 0) {  
349
        if (printf_putchar('0', ps) == 1)
349
        if (printf_putchar('0', ps) == 1)
350
            counter++;
350
            counter++;
351
    }
351
    }
352
 
352
 
353
   
353
   
354
    /* print number itself */
354
    /* print number itself */
355
 
355
 
356
    if ((retval = printf_putstr(++ptr, ps)) > 0) {
356
    if ((retval = printf_putstr(++ptr, ps)) > 0) {
357
        counter += retval;
357
        counter += retval;
358
    }
358
    }
359
   
359
   
360
    /* print ending spaces */
360
    /* print ending spaces */
361
   
361
   
362
    while (width-- > 0) {  
362
    while (width-- > 0) {  
363
        if (printf_putchar(' ', ps) == 1)  
363
        if (printf_putchar(' ', ps) == 1)  
364
            counter++;
364
            counter++;
365
    }
365
    }
366
 
366
 
367
    return counter;
367
    return counter;
368
}
368
}
369
 
369
 
370
 
370
 
371
/** Print formatted string.
371
/** Print formatted string.
372
 *
372
 *
373
 * Print string formatted according to the fmt parameter and variadic arguments.
373
 * Print string formatted according to the fmt parameter and variadic arguments.
374
 * Each formatting directive must have the following form:
374
 * Each formatting directive must have the following form:
375
 *
375
 *
376
 *  \% [ FLAGS ] [ WIDTH ] [ .PRECISION ] [ TYPE ] CONVERSION
376
 *  \% [ FLAGS ] [ WIDTH ] [ .PRECISION ] [ TYPE ] CONVERSION
377
 *
377
 *
378
 * FLAGS:@n
378
 * FLAGS:@n
379
 *  - "#" Force to print prefix.
379
 *  - "#" Force to print prefix.
380
 *  For conversion \%o the prefix is 0, for %x and \%X prefixes are 0x and
380
 *  For conversion \%o the prefix is 0, for %x and \%X prefixes are 0x and
381
 *  0X and for conversion \%b the prefix is 0b.
381
 *  0X and for conversion \%b the prefix is 0b.
382
 *
382
 *
383
 *  - "-"   Align to left.
383
 *  - "-"   Align to left.
384
 *
384
 *
385
 *  - "+"   Print positive sign just as negative.
385
 *  - "+"   Print positive sign just as negative.
386
 *
386
 *
387
 *  - " "   If the printed number is positive and "+" flag is not set,
387
 *  - " "   If the printed number is positive and "+" flag is not set,
388
 *      print space in place of sign.
388
 *      print space in place of sign.
389
 *
389
 *
390
 *  - "0"   Print 0 as padding instead of spaces. Zeroes are placed between
390
 *  - "0"   Print 0 as padding instead of spaces. Zeroes are placed between
391
 *      sign and the rest of the number. This flag is ignored if "-"
391
 *      sign and the rest of the number. This flag is ignored if "-"
392
 *      flag is specified.
392
 *      flag is specified.
393
 *
393
 *
394
 * WIDTH:@n
394
 * WIDTH:@n
395
 *  - Specify minimal width of printed argument. If it is bigger, width is
395
 *  - Specify minimal width of printed argument. If it is bigger, width is
396
 *    ignored. If width is specified with a "*" character instead of number,
396
 *    ignored. If width is specified with a "*" character instead of number,
397
 *    width is taken from parameter list. And integer parameter is expected
397
 *    width is taken from parameter list. And integer parameter is expected
398
 *    before parameter for processed conversion specification. If this value
398
 *    before parameter for processed conversion specification. If this value
399
 *    is negative its absolute value is taken and the "-" flag is set.
399
 *    is negative its absolute value is taken and the "-" flag is set.
400
 *
400
 *
401
 * PRECISION:@n
401
 * PRECISION:@n
402
 *  - Value precision. For numbers it specifies minimum valid numbers.
402
 *  - Value precision. For numbers it specifies minimum valid numbers.
403
 *    Smaller numbers are printed with leading zeroes. Bigger numbers are
403
 *    Smaller numbers are printed with leading zeroes. Bigger numbers are
404
 *    not affected. Strings with more than precision characters are cut off.
404
 *    not affected. Strings with more than precision characters are cut off.
405
 *    Just as with width, an "*" can be used used instead of a number. An
405
 *    Just as with width, an "*" can be used used instead of a number. An
406
 *    integer value is then expected in parameters. When both width and
406
 *    integer value is then expected in parameters. When both width and
407
 *    precision are specified using "*", the first parameter is used for
407
 *    precision are specified using "*", the first parameter is used for
408
 *    width and the second one for precision.
408
 *    width and the second one for precision.
409
 *
409
 *
410
 * TYPE:@n
410
 * TYPE:@n
411
 *  - "hh"  Signed or unsigned char.@n
411
 *  - "hh"  Signed or unsigned char.@n
412
 *  - "h"   Signed or usigned short.@n
412
 *  - "h"   Signed or usigned short.@n
413
 *  - ""    Signed or usigned int (default value).@n
413
 *  - ""    Signed or usigned int (default value).@n
414
 *  - "l"   Signed or usigned long int.@n
414
 *  - "l"   Signed or usigned long int.@n
415
 *  - "ll"  Signed or usigned long long int.@n
415
 *  - "ll"  Signed or usigned long long int.@n
416
 *  - "z"   Type size_t.@n
416
 *  - "z"   Type size_t.@n
417
 *
417
 *
418
 *
418
 *
419
 * CONVERSION:@n
419
 * CONVERSION:@n
420
 *  - % Print percentile character itself.
420
 *  - % Print percentile character itself.
421
 *
421
 *
422
 *  - c Print single character.
422
 *  - c Print single character.
423
 *
423
 *
424
 *  - s Print zero terminated string. If a NULL value is passed as
424
 *  - s Print zero terminated string. If a NULL value is passed as
425
 *      value, "(NULL)" is printed instead.
425
 *      value, "(NULL)" is printed instead.
426
 *
426
 *
427
 *  - P, p  Print value of a pointer. Void * value is expected and it is
427
 *  - P, p  Print value of a pointer. Void * value is expected and it is
428
 *      printed in hexadecimal notation with prefix (as with '\%#X' or
428
 *      printed in hexadecimal notation with prefix (as with '\%#X' or
429
 *      '\%#x' for 32bit or '\%#X' or '\%#x' for 64bit long pointers).
429
 *      '\%#x' for 32bit or '\%#X' or '\%#x' for 64bit long pointers).
430
 *
430
 *
431
 *  - b Print value as unsigned binary number. Prefix is not printed by
431
 *  - b Print value as unsigned binary number. Prefix is not printed by
432
 *      default. (Nonstandard extension.)
432
 *      default. (Nonstandard extension.)
433
 *
433
 *
434
 *  - o Print value as unsigned octal number. Prefix is not printed by
434
 *  - o Print value as unsigned octal number. Prefix is not printed by
435
 *      default.
435
 *      default.
436
 *
436
 *
437
 *  - d, i  Print signed decimal number. There is no difference between d
437
 *  - d, i  Print signed decimal number. There is no difference between d
438
 *      and i conversion.
438
 *      and i conversion.
439
 *
439
 *
440
 *  - u Print unsigned decimal number.
440
 *  - u Print unsigned decimal number.
441
 *
441
 *
442
 *  - X, x  Print hexadecimal number with upper- or lower-case. Prefix is
442
 *  - X, x  Print hexadecimal number with upper- or lower-case. Prefix is
443
 *      not printed by default.
443
 *      not printed by default.
444
 *
444
 *
445
 * All other characters from fmt except the formatting directives are printed in
445
 * All other characters from fmt except the formatting directives are printed in
446
 * verbatim.
446
 * verbatim.
447
 *
447
 *
448
 * @param fmt Formatting NULL terminated string.
448
 * @param fmt Formatting NULL terminated string.
449
 * @return Number of printed characters or negative value on failure.
449
 * @return Number of printed characters or negative value on failure.
450
 */
450
 */
451
int printf_core(const char *fmt, struct printf_spec *ps, va_list ap)
451
int printf_core(const char *fmt, struct printf_spec *ps, va_list ap)
452
{
452
{
453
    /* i is the index of the currently processed char from fmt */
453
    /* i is the index of the currently processed char from fmt */
454
    int i = 0;
454
    int i = 0;
455
    /* j is the index to the first not printed nonformating character */
455
    /* j is the index to the first not printed nonformating character */
456
    int j = 0;
456
    int j = 0;
457
 
457
 
458
    int end;
458
    int end;
459
    int counter;    /* counter of printed characters */
459
    int counter;    /* counter of printed characters */
460
    int retval; /* used to store return values from called functions */
460
    int retval; /* used to store return values from called functions */
461
    char c;
461
    char c;
462
    qualifier_t qualifier;  /* type of argument */
462
    qualifier_t qualifier;  /* type of argument */
463
    int base;   /* base in which will be a numeric parameter printed */
463
    int base;   /* base in which will be a numeric parameter printed */
464
    uint64_t number; /* argument value */
464
    uint64_t number; /* argument value */
465
    size_t  size;   /* byte size of integer parameter */
465
    size_t  size;   /* byte size of integer parameter */
466
    int width, precision;
466
    int width, precision;
467
    uint64_t flags;
467
    uint64_t flags;
468
   
468
   
469
    counter = 0;
469
    counter = 0;
470
   
470
   
471
    while ((c = fmt[i])) {
471
    while ((c = fmt[i])) {
472
        /* control character */
472
        /* control character */
473
        if (c == '%' ) {
473
        if (c == '%' ) {
474
            /* print common characters if any processed */ 
474
            /* print common characters if any processed */ 
475
            if (i > j) {
475
            if (i > j) {
476
                if ((retval = printf_putnchars(&fmt[j],
476
                if ((retval = printf_putnchars(&fmt[j],
477
                    (size_t)(i - j), ps)) < 0) { /* error */
477
                    (size_t)(i - j), ps)) < 0) { /* error */
478
                    goto minus_out;
478
                    goto minus_out;
479
                }
479
                }
480
                counter += retval;
480
                counter += retval;
481
            }
481
            }
482
       
482
       
483
            j = i;
483
            j = i;
484
            /* parse modifiers */
484
            /* parse modifiers */
485
            flags = 0;
485
            flags = 0;
486
            end = 0;
486
            end = 0;
487
           
487
           
488
            do {
488
            do {
489
                ++i;
489
                ++i;
490
                switch (c = fmt[i]) {
490
                switch (c = fmt[i]) {
491
                case '#':
491
                case '#':
492
                    flags |= __PRINTF_FLAG_PREFIX;
492
                    flags |= __PRINTF_FLAG_PREFIX;
493
                    break;
493
                    break;
494
                case '-':
494
                case '-':
495
                    flags |= __PRINTF_FLAG_LEFTALIGNED;
495
                    flags |= __PRINTF_FLAG_LEFTALIGNED;
496
                    break;
496
                    break;
497
                case '+':
497
                case '+':
498
                    flags |= __PRINTF_FLAG_SHOWPLUS;
498
                    flags |= __PRINTF_FLAG_SHOWPLUS;
499
                    break;
499
                    break;
500
                case ' ':
500
                case ' ':
501
                    flags |= __PRINTF_FLAG_SPACESIGN;
501
                    flags |= __PRINTF_FLAG_SPACESIGN;
502
                    break;
502
                    break;
503
                case '0':
503
                case '0':
504
                    flags |= __PRINTF_FLAG_ZEROPADDED;
504
                    flags |= __PRINTF_FLAG_ZEROPADDED;
505
                    break;
505
                    break;
506
                default:
506
                default:
507
                    end = 1;
507
                    end = 1;
508
                }; 
508
                }; 
509
               
509
               
510
            } while (end == 0);
510
            } while (end == 0);
511
           
511
           
512
            /* width & '*' operator */
512
            /* width & '*' operator */
513
            width = 0;
513
            width = 0;
514
            if (isdigit(fmt[i])) {
514
            if (isdigit(fmt[i])) {
515
                while (isdigit(fmt[i])) {
515
                while (isdigit(fmt[i])) {
516
                    width *= 10;
516
                    width *= 10;
517
                    width += fmt[i++] - '0';
517
                    width += fmt[i++] - '0';
518
                }
518
                }
519
            } else if (fmt[i] == '*') {
519
            } else if (fmt[i] == '*') {
520
                /* get width value from argument list*/
520
                /* get width value from argument list*/
521
                i++;
521
                i++;
522
                width = (int)va_arg(ap, int);
522
                width = (int)va_arg(ap, int);
523
                if (width < 0) {
523
                if (width < 0) {
524
                    /* negative width sets '-' flag */
524
                    /* negative width sets '-' flag */
525
                    width *= -1;
525
                    width *= -1;
526
                    flags |= __PRINTF_FLAG_LEFTALIGNED;
526
                    flags |= __PRINTF_FLAG_LEFTALIGNED;
527
                }
527
                }
528
            }
528
            }
529
           
529
           
530
            /* precision and '*' operator */   
530
            /* precision and '*' operator */   
531
            precision = 0;
531
            precision = 0;
532
            if (fmt[i] == '.') {
532
            if (fmt[i] == '.') {
533
                ++i;
533
                ++i;
534
                if (isdigit(fmt[i])) {
534
                if (isdigit(fmt[i])) {
535
                    while (isdigit(fmt[i])) {
535
                    while (isdigit(fmt[i])) {
536
                        precision *= 10;
536
                        precision *= 10;
537
                        precision += fmt[i++] - '0';
537
                        precision += fmt[i++] - '0';
538
                    }
538
                    }
539
                } else if (fmt[i] == '*') {
539
                } else if (fmt[i] == '*') {
540
                    /* get precision value from argument */
540
                    /* get precision value from argument */
541
                    i++;
541
                    i++;
542
                    precision = (int)va_arg(ap, int);
542
                    precision = (int)va_arg(ap, int);
543
                    if (precision < 0) {
543
                    if (precision < 0) {
544
                        /* negative precision ignored */
544
                        /* negative precision ignored */
545
                        precision = 0;
545
                        precision = 0;
546
                    }
546
                    }
547
                }
547
                }
548
            }
548
            }
549
 
549
 
550
            switch (fmt[i++]) {
550
            switch (fmt[i++]) {
551
            /** @todo unimplemented qualifiers:
551
            /** @todo unimplemented qualifiers:
552
             * t ptrdiff_t - ISO C 99
552
             * t ptrdiff_t - ISO C 99
553
             */
553
             */
554
            case 'h':   /* char or short */
554
            case 'h':   /* char or short */
555
                qualifier = PrintfQualifierShort;
555
                qualifier = PrintfQualifierShort;
556
                if (fmt[i] == 'h') {
556
                if (fmt[i] == 'h') {
557
                    i++;
557
                    i++;
558
                    qualifier = PrintfQualifierByte;
558
                    qualifier = PrintfQualifierByte;
559
                }
559
                }
560
                break;
560
                break;
561
            case 'l':   /* long or long long*/
561
            case 'l':   /* long or long long*/
562
                qualifier = PrintfQualifierLong;
562
                qualifier = PrintfQualifierLong;
563
                if (fmt[i] == 'l') {
563
                if (fmt[i] == 'l') {
564
                    i++;
564
                    i++;
565
                    qualifier = PrintfQualifierLongLong;
565
                    qualifier = PrintfQualifierLongLong;
566
                }
566
                }
567
                break;
567
                break;
568
            case 'z':   /* size_t */
568
            case 'z':   /* size_t */
569
                qualifier = PrintfQualifierSizeT;
569
                qualifier = PrintfQualifierSizeT;
570
                break;
570
                break;
571
            default:
571
            default:
572
                /* set default type */
572
                /* set default type */
573
                qualifier = PrintfQualifierInt;
573
                qualifier = PrintfQualifierInt;
574
                --i;
574
                --i;
575
            }  
575
            }  
576
           
576
           
577
            base = 10;
577
            base = 10;
578
 
578
 
579
            switch (c = fmt[i]) {
579
            switch (c = fmt[i]) {
580
 
580
 
581
            /*
581
            /*
582
             * String and character conversions.
582
             * String and character conversions.
583
             */
583
             */
584
            case 's':
584
            case 's':
585
                if ((retval = print_string(va_arg(ap, char*),
585
                if ((retval = print_string(va_arg(ap, char*),
586
                    width, precision, flags, ps)) < 0) {
586
                    width, precision, flags, ps)) < 0) {
587
                    goto minus_out;
587
                    goto minus_out;
588
                }
588
                }
589
                   
589
                   
590
                counter += retval;
590
                counter += retval;
591
                j = i + 1;
591
                j = i + 1;
592
                goto next_char;
592
                goto next_char;
593
            case 'c':
593
            case 'c':
594
                c = va_arg(ap, unsigned int);
594
                c = va_arg(ap, unsigned int);
595
                retval = print_char(c, width, flags, ps);
595
                retval = print_char(c, width, flags, ps);
596
                if (retval < 0) {
596
                if (retval < 0) {
597
                    goto minus_out;
597
                    goto minus_out;
598
                }
598
                }
599
 
599
 
600
                counter += retval;
600
                counter += retval;
601
                j = i + 1;
601
                j = i + 1;
602
                goto next_char;
602
                goto next_char;
603
 
603
 
604
            /*
604
            /*
605
             * Integer values
605
             * Integer values
606
             */
606
             */
607
            case 'P': /* pointer */
607
            case 'P': /* pointer */
608
                    flags |= __PRINTF_FLAG_BIGCHARS;
608
                    flags |= __PRINTF_FLAG_BIGCHARS;
609
            case 'p':
609
            case 'p':
610
                flags |= __PRINTF_FLAG_PREFIX;
610
                flags |= __PRINTF_FLAG_PREFIX;
611
                base = 16;
611
                base = 16;
612
                qualifier = PrintfQualifierPointer;
612
                qualifier = PrintfQualifierPointer;
613
                break; 
613
                break; 
614
            case 'b':
614
            case 'b':
615
                base = 2;
615
                base = 2;
616
                break;
616
                break;
617
            case 'o':
617
            case 'o':
618
                base = 8;
618
                base = 8;
619
                break;
619
                break;
620
            case 'd':
620
            case 'd':
621
            case 'i':
621
            case 'i':
622
                flags |= __PRINTF_FLAG_SIGNED;  
622
                flags |= __PRINTF_FLAG_SIGNED;  
623
            case 'u':
623
            case 'u':
624
                break;
624
                break;
625
            case 'X':
625
            case 'X':
626
                flags |= __PRINTF_FLAG_BIGCHARS;
626
                flags |= __PRINTF_FLAG_BIGCHARS;
627
            case 'x':
627
            case 'x':
628
                base = 16;
628
                base = 16;
629
                break;
629
                break;
630
            /* percentile itself */
630
            /* percentile itself */
631
            case '%':
631
            case '%':
632
                j = i;
632
                j = i;
633
                goto next_char;
633
                goto next_char;
634
            /*
634
            /*
635
             * Bad formatting.
635
             * Bad formatting.
636
             */
636
             */
637
            default:
637
            default:
638
                /*
638
                /*
639
                 * Unknown format. Now, j is the index of '%',
639
                 * Unknown format. Now, j is the index of '%',
640
                 * so we will print the whole bad format
640
                 * so we will print the whole bad format
641
                 * sequence.
641
                 * sequence.
642
                 */
642
                 */
643
                goto next_char;    
643
                goto next_char;    
644
            }
644
            }
645
       
645
       
646
       
646
       
647
            /* Print integers */
647
            /* Print integers */
648
            switch (qualifier) {
648
            switch (qualifier) {
649
            case PrintfQualifierByte:
649
            case PrintfQualifierByte:
650
                size = sizeof(unsigned char);
650
                size = sizeof(unsigned char);
651
                number = (uint64_t)va_arg(ap, unsigned int);
651
                number = (uint64_t)va_arg(ap, unsigned int);
652
                break;
652
                break;
653
            case PrintfQualifierShort:
653
            case PrintfQualifierShort:
654
                size = sizeof(unsigned short);
654
                size = sizeof(unsigned short);
655
                number = (uint64_t)va_arg(ap, unsigned int);
655
                number = (uint64_t)va_arg(ap, unsigned int);
656
                break;
656
                break;
657
            case PrintfQualifierInt:
657
            case PrintfQualifierInt:
658
                size = sizeof(unsigned int);
658
                size = sizeof(unsigned int);
659
                number = (uint64_t)va_arg(ap, unsigned int);
659
                number = (uint64_t)va_arg(ap, unsigned int);
660
                break;
660
                break;
661
            case PrintfQualifierLong:
661
            case PrintfQualifierLong:
662
                size = sizeof(unsigned long);
662
                size = sizeof(unsigned long);
663
                number = (uint64_t)va_arg(ap, unsigned long);
663
                number = (uint64_t)va_arg(ap, unsigned long);
664
                break;
664
                break;
665
            case PrintfQualifierLongLong:
665
            case PrintfQualifierLongLong:
666
                size = sizeof(unsigned long long);
666
                size = sizeof(unsigned long long);
667
                number = (uint64_t)va_arg(ap,
667
                number = (uint64_t)va_arg(ap,
668
                    unsigned long long);
668
                    unsigned long long);
669
                break;
669
                break;
670
            case PrintfQualifierPointer:
670
            case PrintfQualifierPointer:
671
                size = sizeof(void *);
671
                size = sizeof(void *);
672
                number = (uint64_t)(unsigned long)va_arg(ap,
672
                number = (uint64_t)(unsigned long)va_arg(ap,
673
                    void *);
673
                    void *);
674
                break;
674
                break;
675
            case PrintfQualifierSizeT:
675
            case PrintfQualifierSizeT:
676
                size = sizeof(size_t);
676
                size = sizeof(size_t);
677
                number = (uint64_t)va_arg(ap, size_t);
677
                number = (uint64_t)va_arg(ap, size_t);
678
                break;
678
                break;
679
            default: /* Unknown qualifier */
679
            default: /* Unknown qualifier */
680
                goto minus_out;
680
                goto minus_out;
681
                   
681
                   
682
            }
682
            }
683
           
683
           
684
            if (flags & __PRINTF_FLAG_SIGNED) {
684
            if (flags & __PRINTF_FLAG_SIGNED) {
685
                if (number & (0x1 << (size * 8 - 1))) {
685
                if (number & (0x1 << (size * 8 - 1))) {
686
                    flags |= __PRINTF_FLAG_NEGATIVE;
686
                    flags |= __PRINTF_FLAG_NEGATIVE;
687
               
687
               
688
                    if (size == sizeof(uint64_t)) {
688
                    if (size == sizeof(uint64_t)) {
689
                        number = -((int64_t)number);
689
                        number = -((int64_t)number);
690
                    } else {
690
                    } else {
691
                        number = ~number;
691
                        number = ~number;
692
                        number &=
692
                        number &=
693
                            ~(0xFFFFFFFFFFFFFFFFll <<
693
                            ~(0xFFFFFFFFFFFFFFFFll <<
694
                            (size * 8));
694
                            (size * 8));
695
                        number++;
695
                        number++;
696
                    }
696
                    }
697
                }
697
                }
698
            }
698
            }
699
 
699
 
700
            if ((retval = print_number(number, width, precision,
700
            if ((retval = print_number(number, width, precision,
701
                base, flags, ps)) < 0 ) {
701
                base, flags, ps)) < 0 ) {
702
                goto minus_out;
702
                goto minus_out;
703
            }
703
            }
704
 
704
 
705
            counter += retval;
705
            counter += retval;
706
            j = i + 1;
706
            j = i + 1;
707
        }  
707
        }  
708
next_char:
708
next_char:
709
           
709
           
710
        ++i;
710
        ++i;
711
    }
711
    }
712
   
712
   
713
    if (i > j) {
713
    if (i > j) {
714
        retval = printf_putnchars(&fmt[j], (size_t)(i - j), ps);
714
        retval = printf_putnchars(&fmt[j], (size_t)(i - j), ps);
715
        if (retval < 0) { /* error */
715
        if (retval < 0) { /* error */
716
            goto minus_out;
716
            goto minus_out;
717
        }
717
        }
718
        counter += retval;
718
        counter += retval;
719
    }
719
    }
720
   
720
   
721
    return counter;
721
    return counter;
722
minus_out:
722
minus_out:
723
    return -counter;
723
    return -counter;
724
}
724
}
725
 
725
 
726
/** @}
726
/** @}
727
 */
727
 */
728
 
728