Context Navigation

sprintf.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: 1.0 KB

Line
1	/*
2	=============================================================================
3	sprintf.c -- sprintf function
4	Version 2 -- 1987-06-11 -- D.N. Lynx Crowe
5	=============================================================================
6	*/
7
8	#include "varargs.h"
9
10	extern long dofmt_();
11
12	static char *buff;
13	static int spsub();
14
15	/*
16	=============================================================================
17	sprintf(str, fmt, args) -- format args into str according to fmt
18	=============================================================================
19	*/
20
21	long
22	sprintf(str, fmt, va_alist)
23	char str, fmt;
24	va_dcl
25	{
26	register long count;
27	va_list aptr;
28
29	va_start(aptr);
30	buff = str;
31	count = dofmt_(spsub, fmt, aptr);
32	*buff = '\0';
33	return(count);
34	}
35
36	/*
37	=============================================================================
38	spsub(c) - put c into the output string
39	=============================================================================
40	*/
41
42	static
43	int
44	spsub(c)
45	{
46	return((*buff++ = c) & 0xFF);
47	}

Note: See TracBrowser for help on using the repository browser.