sfprints.c revision 3e14f97f673e8a630f076077de35afdd43dc1587
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1985-2010 AT&T Intellectual Property *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.opensource.org/licenses/cpl1.0.txt *
* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* David Korn <dgk@research.att.com> *
* Phong Vo <kpv@research.att.com> *
* *
***********************************************************************/
#include "sfhdr.h"
/* Construct a string with the given format and data.
** These functions allocate space as necessary to store the string.
** This avoids overflow problems typical with sprintf() in stdio.
**
** Written by Kiem-Phong Vo.
*/
#if __STD_C
char* sfvprints(const char* form, va_list args)
#else
char* sfvprints(form, args)
char* form;
va_list args;
#endif
{
reg int rv;
static Sfio_t* f;
/* make a fake stream */
if(!f &&
!(f = sfnew(NIL(Sfio_t*),NIL(char*),(size_t)SF_UNBOUND,
-1,SF_WRITE|SF_STRING)) )
return NIL(char*);
sfseek(f,(Sfoff_t)0,SEEK_SET);
rv = sfvprintf(f,form,args);
if(rv < 0 || sfputc(f,'\0') < 0)
return NIL(char*);
_Sfi = (f->next - f->data) - 1;
return (char*)f->data;
}
#if __STD_C
char* sfprints(const char* form, ...)
#else
char* sfprints(va_alist)
va_dcl
#endif
{
char* s;
va_list args;
#if __STD_C
va_start(args,form);
#else
char *form;
va_start(args);
form = va_arg(args,char*);
#endif
s = sfvprints(form, args);
va_end(args);
return s;
}
#if __STD_C
ssize_t sfvaprints(char** sp, const char* form, va_list args)
#else
ssize_t sfvaprints(sp, form, args)
char** sp;
char* form;
va_list args;
#endif
{
char *s;
ssize_t n;
if(!sp || !(s = sfvprints(form,args)) )
return -1;
else
{ if(!(*sp = (char*)malloc(n = strlen(s)+1)) )
return -1;
memcpy(*sp, s, n);
return n - 1;
}
}
#if __STD_C
ssize_t sfaprints(char** sp, const char* form, ...)
#else
ssize_t sfaprints(va_alist)
va_dcl
#endif
{
ssize_t n;
va_list args;
#if __STD_C
va_start(args,form);
#else
char **sp, *form;
va_start(args);
sp = va_arg(args, char**);
form = va_arg(args, char*);
#endif
n = sfvaprints(sp, form, args);
va_end(args);
return n;
}