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