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

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

Prototypes for formatted I/O.

  • Property mode set to 100644
File size: 581 bytes
Line 
1/*
2 =============================================================================
3 fprintf.c -- fprintf function
4 Version 2 -- 1987-06-26 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10static FILE *Stream;
11
12static int16_t fpsub(int16_t c);
13
14int16_t fprintf(FILE *stream, int8_t *fmt, ...)
15{
16 register int16_t count;
17 va_list aptr;
18
19 Stream = stream;
20 va_start(aptr, fmt);
21 count = dofmt_(fpsub, fmt, aptr);
22 va_end(aptr);
23 return(count);
24}
25
26static int16_t fpsub(int16_t c)
27{
28 return(aputc(c, Stream));
29}
Note: See TracBrowser for help on using the repository browser.