source: buchla-68k/libcio/fprintf.c@ 0580615

/*
   =============================================================================
        fprintf.c -- fprintf function
        Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stdio.h"
#include "stddefs.h"
#include "stdarg.h"

static FILE *Stream;

extern  long    dofmt_(int (*putsub)(), char *format, va_list args);
extern  int     aputc(int c, FILE *ptr);

        static int fpsub(int c);

int fprintf(FILE *stream, char *fmt, ...)
{
        register int count;
        va_list aptr;

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

static int fpsub(int c)
{
        return(aputc(c, Stream));
}