/**

 * myprintf.c

 * Copyright (C) 2008 Markus Broeker

 */

#include <stdio.h>

#include <stdlib.h>

#include <stdarg.h>

#include <string.h>

#define BUF_SIZE 1024

int myvfprintf (FILE * fp, const char *fmt, va_list list)

{

    int i, value, pos = 0, size = 1;

    char c;

    char *ptr;

    char *s;

    char *s_str;

    char v_str[28];

    if ((s_str = malloc (BUF_SIZE)) == NULL) {

        return EOF;

    }

    while (*fmt) {

        switch (*fmt) {

        case '%':

            switch (*++fmt) {

            case 'c':

                c = va_arg (list, int);

                s_str[pos++] = c;

                break;

            case 's':

                s = va_arg (list, char *);

                while ((pos + strlen (s)) > (size * BUF_SIZE)) {

                    if ((ptr = realloc (s_str, ++size * BUF_SIZE)) == NULL) {

                        s_str[pos] = '\0';

                        fputs (s_str, fp);  /* print it anyway... */

                        free (s_str);

                        return EOF;

                    }

                    s_str = ptr;

                }

                for (i = 0; i < strlen (s); i++) {

                    s_str[pos++] = s[i];

                }

                break;

            case 'd':

                value = va_arg (list, int);

                sprintf (v_str, "%d", value);

                for (i = 0; i < strlen (v_str); i++) {

                    s_str[pos++] = v_str[i];

                }

                break;

            default:

                s_str[pos++] = *fmt;

            }

            c = *fmt++;

        default:

            s_str[pos++] = *fmt++;

        }

        if (pos > (size * BUF_SIZE / 2)) {

            if ((ptr = realloc (s_str, ++size * BUF_SIZE)) == NULL) {

                free (s_str);

                return EOF;

            }

            s_str = ptr;

        }

    }

    va_end (list);

    s_str[pos] = '\0';

    fputs (s_str, fp);

    free (s_str);

    return pos;

}

int myfprintf (FILE * fp, const char *fmt, ...)

{

    va_list list;

    int ret;

    va_start (list, fmt);

    ret = myvfprintf (fp, fmt, list);

    va_end (list);

    return ret;

}

int myprintf (const char *fmt, ...)

{

    va_list list;

    int ret;

    va_start (list, fmt);

    ret = myvfprintf (stdout, fmt, list);

    va_end (list);

    return ret;

}

int main (int argc, char **argv)

{

    int len;

    len = myprintf ("Printf replacement %% [Version %d - %s]...\n", 5, "LSF Rostock");

    return EXIT_SUCCESS;

}