source: buchla-68k/iolib/printf.c@ 9519422

/*
   =============================================================================
        printf.c -- printf function
        Version 6 -- 1987-08-13 -- D.N. Lynx Crowe

        RECOVERED From:  Version 5 -- 1987-06-16 -- D.N. Lynx Crowe

        "Crufty code" Warning:
                Since this isn't Unix(tm), we prepend a '\r' when we see a '\n'.
                We also return a long, since this is a 32 bit address machine.
                (Well, almost 32 bits.  Too big for an Alcyon 16 bit int anyway.)
   =============================================================================
*/

#include "stddefs.h"
#include "biosdefs.h"
#include "stdarg.h"

extern  int32_t dofmt_(int16_t (*putsub)(), int8_t *format, va_list args);

        static int16_t fpsub(int16_t c);

/*
   =============================================================================
        printf(fmt, args) -- output 'args' according to 'fmt' on CON_DEV
   =============================================================================
*/

int32_t printf(int8_t *fmt, ...)
{
        register int32_t count;
        va_list aptr;

        va_start(aptr, fmt);
        count = dofmt_(fpsub, fmt, aptr);
        va_end(aptr);
        return(count);
}

/*
   =============================================================================
        fpsub(c) -- output 'c' to CON_DEV
   =============================================================================
*/

static int16_t fpsub(int16_t c)
{
        /* KLUDGE:  since we aren't Unix(tm) we prepend a CR to LF's */

        if (c EQ '\n')
                BIOS(B_PUTC, CON_DEV, '\r');

        BIOS(B_PUTC, CON_DEV, c);
        return(c);
}