File: asprintf.c

package info (click to toggle)
grass 6.0.2-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 40,044 kB
  • ctags: 31,303
  • sloc: ansic: 321,125; tcl: 25,676; sh: 11,176; cpp: 10,098; makefile: 5,025; fortran: 1,846; yacc: 493; lex: 462; perl: 133; sed: 1
file content (60 lines) | stat: -rw-r--r-- 1,577 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <assert.h>
#include "gis.h"

/*
 * Eric G. Miller egm2@jps.net 
 * Thu, 2 May 2002 17:51:54 -0700 
 * 
 * 
 * I've got a sort of cheat for asprintf. We can't use vsnprintf for the
 * same reason we can't use snprintf ;-)  Comments welcome (I'm not too
 * sure tmpfile() is safe.  It's apparently an anonymous file on my
 * machine, as nothing shows up in /tmp or the current directory...)
 */

/* Make sure the macro doesn't impact our function, if it is defined */
#undef G_asprintf

/* We cheat by printing to a tempfile via vfprintf and then reading it
 *  * back in.  Not the most efficient way, probably and tmpfile() is
 *  * not safe?
 *  */
int
  G_asprintf (char **out, const char *fmt, ...)
{
       va_list ap;
       int ret_status = EOF;
       int count = 0;
       FILE *fp = NULL;
       char *work = NULL;
       
       assert (out != NULL && fmt != NULL);
       
       va_start (ap, fmt);
       if ((fp = tmpfile()))
     {
	        count = vfprintf (fp, fmt, ap);
	        if (count >= 0)
	  {
	                 work = calloc (count + 1, 1);
	                 if (work != NULL)
	       {
		                  rewind (fp);
		                  ret_status = fread (work, 1, count, fp);
		                  if (ret_status != count)
		    {
		                           ret_status = EOF;
		                           free (work);
		                           work = NULL;
		    }
	       }
	  }
	        fclose (fp);
     }
       va_end (ap);
       *out = work;
       return ret_status;
}