source: buchla-68k/orig/IOLIB/FPRINTF.C@ 5f1d169

Last change on this file since 5f1d169 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 684 bytes
RevLine 
[3ae31e9]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
17int
18fprintf(stream, fmt, va_alist)
19FILE *stream;
20char *fmt;
21va_dcl
22{
23 register int count;
24 int fpsub();
25 va_list aptr;
26
27 Stream = stream;
28 va_start(aptr);
29 count = _dofmt(fpsub, fmt, aptr);
30 va_end(aptr);
31 return(count);
32}
33
34static
35int
36fpsub(c)
37{
38 return(aputc(c, Stream));
39}
Note: See TracBrowser for help on using the repository browser.