myprintf.c
author Markus Brökers <mbroeker@largo.homelinux.org>
Mon, 30 Aug 2010 15:21:47 +0200
changeset 146 0ffa20c26b2d
parent 77 49e0babccb23
permissions -rw-r--r--
gauss.c: set a proper accuracy value: 1E-6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     1
/**
77
49e0babccb23 HEADER TAGS
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 63
diff changeset
     2
 * myprintf.c
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     3
 * Copyright (C) 2008 Markus Broeker
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     4
 */
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     5
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     6
#include <stdio.h>
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     7
#include <stdlib.h>
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     8
#include <stdarg.h>
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     9
#include <string.h>
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    10
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    11
#define BUF_SIZE 1024
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    12
62
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    13
int myvfprintf (FILE * fp, const char *fmt, va_list list)
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    14
{
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    15
    int i, value, pos = 0, size = 1;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    16
    char c;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    17
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    18
    char *ptr;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    19
    char *s;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    20
    char *s_str;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    21
    char v_str[28];
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    22
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    23
    if ((s_str = malloc (BUF_SIZE)) == NULL) {
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    24
        return EOF;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    25
    }
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    26
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    27
    while (*fmt) {
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    28
        switch (*fmt) {
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    29
        case '%':
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    30
            switch (*++fmt) {
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    31
            case 'c':
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    32
                c = va_arg (list, int);
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    33
                s_str[pos++] = c;
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    34
                break;
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    35
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    36
            case 's':
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    37
                s = va_arg (list, char *);
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    38
                while ((pos + strlen (s)) > (size * BUF_SIZE)) {
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    39
                    if ((ptr = realloc (s_str, ++size * BUF_SIZE)) == NULL) {
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    40
                        s_str[pos] = '\0';
62
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    41
                        fputs (s_str, fp);  /* print it anyway... */
63
5a82f89d607e uint vs size_t and two bugfixes in fak and unicode
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 62
diff changeset
    42
                        free (s_str);
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    43
                        return EOF;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    44
                    }
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    45
                    s_str = ptr;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    46
                }
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    47
                for (i = 0; i < strlen (s); i++) {
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    48
                    s_str[pos++] = s[i];
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    49
                }
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    50
                break;
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    51
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    52
            case 'd':
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    53
                value = va_arg (list, int);
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    54
                sprintf (v_str, "%d", value);
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    55
                for (i = 0; i < strlen (v_str); i++) {
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    56
                    s_str[pos++] = v_str[i];
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    57
                }
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    58
                break;
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    59
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    60
            default:
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    61
                s_str[pos++] = *fmt;
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    62
            }
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    63
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    64
            c = *fmt++;
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    65
        default:
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    66
            s_str[pos++] = *fmt++;
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    67
        }
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    68
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    69
        if (pos > (size * BUF_SIZE / 2)) {
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    70
            if ((ptr = realloc (s_str, ++size * BUF_SIZE)) == NULL) {
63
5a82f89d607e uint vs size_t and two bugfixes in fak and unicode
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 62
diff changeset
    71
                free (s_str);
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    72
                return EOF;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    73
            }
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    74
            s_str = ptr;
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    75
        }
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    76
    }
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    77
62
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    78
    va_end (list);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    79
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    80
    s_str[pos] = '\0';
62
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    81
    fputs (s_str, fp);
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
    82
    free (s_str);
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    83
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    84
    return pos;
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    85
}
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    86
62
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    87
int myfprintf (FILE * fp, const char *fmt, ...)
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    88
{
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    89
    va_list list;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    90
    int ret;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    91
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    92
    va_start (list, fmt);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    93
    ret = myvfprintf (fp, fmt, list);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    94
    va_end (list);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    95
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    96
    return ret;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    97
}
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    98
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
    99
int myprintf (const char *fmt, ...)
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   100
{
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   101
    va_list list;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   102
    int ret;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   103
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   104
    va_start (list, fmt);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   105
    ret = myvfprintf (stdout, fmt, list);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   106
    va_end (list);
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   107
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   108
    return ret;
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   109
}
b7061c0e239f unicode.c added and myprintf improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 60
diff changeset
   110
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   111
int main (int argc, char **argv)
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   112
{
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   113
    int len;
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   114
60
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
   115
    len = myprintf ("Printf replacement %% [Version %d - %s]...\n", 5, "LSF Rostock");
47c13ca8c4d0 Memory Management
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 58
diff changeset
   116
58
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   117
    return EXIT_SUCCESS;
9609c54a54d3 myprintf.c added - replaces varargs.c
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
   118
}