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

Last change on this file since cbe2c15 was df097bf, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Code compiles, doesn't link.

  • Property mode set to 100644
File size: 652 bytes
Line 
1/*
2 =============================================================================
3 fprintf.c -- fprintf function
4 Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "stdio.h"
9#include "stddefs.h"
10#include "varargs.h"
11
12static FILE *Stream;
13
14extern int _dofmt();
15extern int aputc();
16
17static int fpsub();
18
19int
20fprintf(stream, fmt, va_alist)
21FILE *stream;
22char *fmt;
23va_dcl
24{
25 register int count;
26 va_list aptr;
27
28 Stream = stream;
29 va_start(aptr);
30 count = _dofmt(fpsub, fmt, aptr);
31 va_end(aptr);
32 return(count);
33}
34
35static
36int
37fpsub(c)
38{
39 return(aputc(c, Stream));
40}
Note: See TracBrowser for help on using the repository browser.