Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/sprintf.c

@@ -0,0 +1,40 @@
+/************************************************************************
+*
+*			s p r i n t f   F u n c t i o n
+*			-------------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"sprintf" prints args specified in format string to a string
+*	pointed to by str.  No checks for str overflow are possible.
+*	sprintf returns str.
+*
+*	Calling sequence:
+*		s = sprintf(string,fmt,arg1,arg2,...argn);
+*	Where:
+*		string = place to put info
+*		fmt -> a string specifying how arg1-n are to be printed.
+*		s = number chars put to string
+*
+*	10/83 - return num chars printed (like printf & fprintf)   whf
+*
+**************************************************************************/
+
+#include "stdio.h"
+
+WORD	sprintf(str,fmt,args)			/* CLEAR FUNCTION ***********/
+	BYTE *str,
+	     *fmt,
+	     *args;
+{
+	FILE stream; 				/* pseudo stream tab	    */
+REG	FILE *sp;				/* ptr thereto		    */
+REG	WORD rv;				/* return val from _doprt   */
+						/*			    */
+	sp = &stream;				/* point to pseudo stream   */
+	sp->_cnt = 32767;			/* assume 'infinite' buf    */
+	sp->_ptr = sp->_base = str;		/* stream buf -> string	    */
+	sp->_flag = _IOWRT | _IOSTRI;		/* writeable string	    */
+	sp->_fd = -1;				/* insure no real i/o	    */
+	rv = _doprt(sp,fmt,&args);		/* do the print		    */
+	putc(NULL,sp);				/* NULL terminate string    */
+	return(rv);				/* tell user what happened  */