1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2012 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * 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) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #include "sfhdr.h"
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman /* Print data with a given format
25*b30d1939SAndy Fiddaman **
26*b30d1939SAndy Fiddaman ** Written by Kiem-Phong Vo.
27*b30d1939SAndy Fiddaman */
28*b30d1939SAndy Fiddaman
29*b30d1939SAndy Fiddaman #if __STD_C
sfprintf(Sfio_t * f,const char * form,...)30*b30d1939SAndy Fiddaman int sfprintf(Sfio_t* f, const char* form, ...)
31*b30d1939SAndy Fiddaman #else
32*b30d1939SAndy Fiddaman int sfprintf(va_alist)
33*b30d1939SAndy Fiddaman va_dcl
34*b30d1939SAndy Fiddaman #endif
35*b30d1939SAndy Fiddaman {
36*b30d1939SAndy Fiddaman va_list args;
37*b30d1939SAndy Fiddaman reg int rv;
38*b30d1939SAndy Fiddaman
39*b30d1939SAndy Fiddaman #if __STD_C
40*b30d1939SAndy Fiddaman va_start(args,form);
41*b30d1939SAndy Fiddaman #else
42*b30d1939SAndy Fiddaman reg Sfio_t* f;
43*b30d1939SAndy Fiddaman reg char* form;
44*b30d1939SAndy Fiddaman va_start(args);
45*b30d1939SAndy Fiddaman f = va_arg(args,Sfio_t*);
46*b30d1939SAndy Fiddaman form = va_arg(args,char*);
47*b30d1939SAndy Fiddaman #endif
48*b30d1939SAndy Fiddaman rv = sfvprintf(f,form,args);
49*b30d1939SAndy Fiddaman
50*b30d1939SAndy Fiddaman va_end(args);
51*b30d1939SAndy Fiddaman return rv;
52*b30d1939SAndy Fiddaman }
53*b30d1939SAndy Fiddaman
54*b30d1939SAndy Fiddaman #if __STD_C
sfvsprintf(char * s,size_t n,const char * form,va_list args)55*b30d1939SAndy Fiddaman ssize_t sfvsprintf(char* s, size_t n, const char* form, va_list args)
56*b30d1939SAndy Fiddaman #else
57*b30d1939SAndy Fiddaman ssize_t sfvsprintf(s, n, form, args)
58*b30d1939SAndy Fiddaman char* s;
59*b30d1939SAndy Fiddaman size_t n;
60*b30d1939SAndy Fiddaman char* form;
61*b30d1939SAndy Fiddaman va_list args;
62*b30d1939SAndy Fiddaman #endif
63*b30d1939SAndy Fiddaman {
64*b30d1939SAndy Fiddaman Sfio_t *f;
65*b30d1939SAndy Fiddaman ssize_t rv;
66*b30d1939SAndy Fiddaman Sfnotify_f notify = _Sfnotify;
67*b30d1939SAndy Fiddaman
68*b30d1939SAndy Fiddaman /* make a temp stream */
69*b30d1939SAndy Fiddaman _Sfnotify = 0;
70*b30d1939SAndy Fiddaman f = sfnew(NIL(Sfio_t*),NIL(char*),(size_t)SF_UNBOUND, -1,SF_WRITE|SF_STRING);
71*b30d1939SAndy Fiddaman _Sfnotify = notify;
72*b30d1939SAndy Fiddaman if(!f)
73*b30d1939SAndy Fiddaman return -1;
74*b30d1939SAndy Fiddaman
75*b30d1939SAndy Fiddaman if((rv = sfvprintf(f,form,args)) < 0 )
76*b30d1939SAndy Fiddaman return -1;
77*b30d1939SAndy Fiddaman if(s && n > 0)
78*b30d1939SAndy Fiddaman { if((rv+1) >= n)
79*b30d1939SAndy Fiddaman n--;
80*b30d1939SAndy Fiddaman else
81*b30d1939SAndy Fiddaman n = rv;
82*b30d1939SAndy Fiddaman memcpy(s, f->data, n);
83*b30d1939SAndy Fiddaman s[n] = 0;
84*b30d1939SAndy Fiddaman }
85*b30d1939SAndy Fiddaman
86*b30d1939SAndy Fiddaman sfclose(f);
87*b30d1939SAndy Fiddaman
88*b30d1939SAndy Fiddaman _Sfi = rv;
89*b30d1939SAndy Fiddaman
90*b30d1939SAndy Fiddaman return rv;
91*b30d1939SAndy Fiddaman }
92*b30d1939SAndy Fiddaman
93*b30d1939SAndy Fiddaman #if __STD_C
sfsprintf(char * s,size_t n,const char * form,...)94*b30d1939SAndy Fiddaman ssize_t sfsprintf(char* s, size_t n, const char* form, ...)
95*b30d1939SAndy Fiddaman #else
96*b30d1939SAndy Fiddaman ssize_t sfsprintf(va_alist)
97*b30d1939SAndy Fiddaman va_dcl
98*b30d1939SAndy Fiddaman #endif
99*b30d1939SAndy Fiddaman {
100*b30d1939SAndy Fiddaman va_list args;
101*b30d1939SAndy Fiddaman ssize_t rv;
102*b30d1939SAndy Fiddaman
103*b30d1939SAndy Fiddaman #if __STD_C
104*b30d1939SAndy Fiddaman va_start(args,form);
105*b30d1939SAndy Fiddaman #else
106*b30d1939SAndy Fiddaman reg char* s;
107*b30d1939SAndy Fiddaman reg size_t n;
108*b30d1939SAndy Fiddaman reg char* form;
109*b30d1939SAndy Fiddaman va_start(args);
110*b30d1939SAndy Fiddaman s = va_arg(args,char*);
111*b30d1939SAndy Fiddaman n = va_arg(args,size_t);
112*b30d1939SAndy Fiddaman form = va_arg(args,char*);
113*b30d1939SAndy Fiddaman #endif
114*b30d1939SAndy Fiddaman
115*b30d1939SAndy Fiddaman rv = sfvsprintf(s,n,form,args);
116*b30d1939SAndy Fiddaman va_end(args);
117*b30d1939SAndy Fiddaman
118*b30d1939SAndy Fiddaman return rv;
119*b30d1939SAndy Fiddaman }
120