1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin *                                                                      *
3da2e3ebdSchin *               This software is part of the ast package               *
4*b30d1939SAndy Fiddaman *          Copyright (c) 1985-2012 AT&T Intellectual Property          *
5da2e3ebdSchin *                      and is licensed under the                       *
6*b30d1939SAndy Fiddaman *                 Eclipse Public License, Version 1.0                  *
77c2fbfb3SApril Chin *                    by AT&T Intellectual Property                     *
8da2e3ebdSchin *                                                                      *
9da2e3ebdSchin *                A copy of the License is available at                 *
10*b30d1939SAndy Fiddaman *          http://www.eclipse.org/org/documents/epl-v10.html           *
11*b30d1939SAndy Fiddaman *         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
12da2e3ebdSchin *                                                                      *
13da2e3ebdSchin *              Information and Software Systems Research               *
14da2e3ebdSchin *                            AT&T Research                             *
15da2e3ebdSchin *                           Florham Park NJ                            *
16da2e3ebdSchin *                                                                      *
17da2e3ebdSchin *                 Glenn Fowler <gsf@research.att.com>                  *
18da2e3ebdSchin *                  David Korn <dgk@research.att.com>                   *
19da2e3ebdSchin *                   Phong Vo <kpv@research.att.com>                    *
20da2e3ebdSchin *                                                                      *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #include	"sfhdr.h"
23da2e3ebdSchin 
24da2e3ebdSchin /*	Construct a string with the given format and data.
25da2e3ebdSchin **	These functions allocate space as necessary to store the string.
26da2e3ebdSchin **	This avoids overflow problems typical with sprintf() in stdio.
27da2e3ebdSchin **
28da2e3ebdSchin **	Written by Kiem-Phong Vo.
29da2e3ebdSchin */
30da2e3ebdSchin 
31da2e3ebdSchin #if __STD_C
sfvprints(const char * form,va_list args)32da2e3ebdSchin char* sfvprints(const char* form, va_list args)
33da2e3ebdSchin #else
34da2e3ebdSchin char* sfvprints(form, args)
35da2e3ebdSchin char*	form;
36da2e3ebdSchin va_list	args;
37da2e3ebdSchin #endif
38da2e3ebdSchin {
39da2e3ebdSchin 	reg int		rv;
40*b30d1939SAndy Fiddaman 	Sfnotify_f	notify = _Sfnotify;
41da2e3ebdSchin 	static Sfio_t*	f;
42da2e3ebdSchin 
43*b30d1939SAndy Fiddaman 	if(!f) /* make a string stream to write into */
44*b30d1939SAndy Fiddaman 	{	_Sfnotify = 0;
45*b30d1939SAndy Fiddaman 		f = sfnew(NIL(Sfio_t*),NIL(char*),(size_t)SF_UNBOUND, -1,SF_WRITE|SF_STRING);
46*b30d1939SAndy Fiddaman 		_Sfnotify = notify;
47*b30d1939SAndy Fiddaman 		if(!f)
48*b30d1939SAndy Fiddaman 			return NIL(char*);
49*b30d1939SAndy Fiddaman 	}
50da2e3ebdSchin 
51da2e3ebdSchin 	sfseek(f,(Sfoff_t)0,SEEK_SET);
52da2e3ebdSchin 	rv = sfvprintf(f,form,args);
53da2e3ebdSchin 
54da2e3ebdSchin 	if(rv < 0 || sfputc(f,'\0') < 0)
55da2e3ebdSchin 		return NIL(char*);
56da2e3ebdSchin 
57da2e3ebdSchin 	_Sfi = (f->next - f->data) - 1;
58da2e3ebdSchin 	return (char*)f->data;
59da2e3ebdSchin }
60da2e3ebdSchin 
61da2e3ebdSchin #if __STD_C
sfprints(const char * form,...)62da2e3ebdSchin char* sfprints(const char* form, ...)
63da2e3ebdSchin #else
64da2e3ebdSchin char* sfprints(va_alist)
65da2e3ebdSchin va_dcl
66da2e3ebdSchin #endif
67da2e3ebdSchin {
68da2e3ebdSchin 	char*	s;
69da2e3ebdSchin 	va_list	args;
70da2e3ebdSchin 
71da2e3ebdSchin #if __STD_C
72da2e3ebdSchin 	va_start(args,form);
73da2e3ebdSchin #else
74da2e3ebdSchin 	char	*form;
75da2e3ebdSchin 	va_start(args);
76da2e3ebdSchin 	form = va_arg(args,char*);
77da2e3ebdSchin #endif
78da2e3ebdSchin 	s = sfvprints(form, args);
79da2e3ebdSchin 	va_end(args);
80da2e3ebdSchin 
81da2e3ebdSchin 	return s;
82da2e3ebdSchin }
83da2e3ebdSchin 
84da2e3ebdSchin #if __STD_C
sfvaprints(char ** sp,const char * form,va_list args)85da2e3ebdSchin ssize_t sfvaprints(char** sp, const char* form, va_list args)
86da2e3ebdSchin #else
87da2e3ebdSchin ssize_t sfvaprints(sp, form, args)
88da2e3ebdSchin char**	sp;
89da2e3ebdSchin char*	form;
90da2e3ebdSchin va_list	args;
91da2e3ebdSchin #endif
92da2e3ebdSchin {
93da2e3ebdSchin 	char	*s;
94da2e3ebdSchin 	ssize_t	n;
95da2e3ebdSchin 
96da2e3ebdSchin 	if(!sp || !(s = sfvprints(form,args)) )
97da2e3ebdSchin 		return -1;
98da2e3ebdSchin 	else
99da2e3ebdSchin 	{	if(!(*sp = (char*)malloc(n = strlen(s)+1)) )
100da2e3ebdSchin 			return -1;
101da2e3ebdSchin 		memcpy(*sp, s, n);
102*b30d1939SAndy Fiddaman 		return n-1;
103da2e3ebdSchin 	}
104da2e3ebdSchin }
105da2e3ebdSchin 
106da2e3ebdSchin #if __STD_C
sfaprints(char ** sp,const char * form,...)107da2e3ebdSchin ssize_t sfaprints(char** sp, const char* form, ...)
108da2e3ebdSchin #else
109da2e3ebdSchin ssize_t sfaprints(va_alist)
110da2e3ebdSchin va_dcl
111da2e3ebdSchin #endif
112da2e3ebdSchin {
113da2e3ebdSchin 	ssize_t	n;
114da2e3ebdSchin 	va_list	args;
115da2e3ebdSchin 
116da2e3ebdSchin #if __STD_C
117da2e3ebdSchin 	va_start(args,form);
118da2e3ebdSchin #else
119da2e3ebdSchin 	char	**sp, *form;
120da2e3ebdSchin 	va_start(args);
121da2e3ebdSchin 	sp = va_arg(args, char**);
122da2e3ebdSchin 	form = va_arg(args, char*);
123da2e3ebdSchin #endif
124da2e3ebdSchin 	n = sfvaprints(sp, form, args);
125da2e3ebdSchin 	va_end(args);
126da2e3ebdSchin 
127da2e3ebdSchin 	return n;
128da2e3ebdSchin }
129