jscoverage/trunk/util.c

/*
    util.c - general purpose utility routines
    Copyright (C) 2007, 2008 siliconforks.com

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License along
    with this program; if not, write to the Free Software Foundation, Inc.,
    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/

#define _GNU_SOURCE

#include <config.h>

#include "util.h"

#include <assert.h>
#include <errno.h>
#include <limits.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <strings.h>

#include <dirent.h>
#include <libgen.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>

const char * program = NULL;

void fatal(const char * format, ...) {
  fprintf(stderr, "%s: ", program);
  va_list ap;
  va_start(ap, format);
  vfprintf(stderr, format, ap);
  va_end(ap);
  fputc('\n', stderr);
  fprintf(stderr, "Try `%s --help' for more information.\n", program);
  exit(EXIT_FAILURE);
}

size_t addst(size_t x, size_t y) {
  if (SIZE_MAX - x < y) {
    fatal("integer overflow");
  }
  return x + y;
}

size_t mulst(size_t x, size_t y) {
  if (x == 0 || y == 0) {
    return 0;
  }
  if (SIZE_MAX / x < y) {
    fatal("integer overflow");
  }
  return x * y;
}

void * xmalloc(size_t size) {
  void * result = malloc(size);
  if (result == NULL) {
    fatal("out of memory");
  }
  return result;
}

void * xrealloc(void * p, size_t size) {
  void * result = realloc(p, size);
  if (result == NULL) {
    fatal("out of memory");
  }
  return result;
}

char * xstrdup(const char * s) {
  char * result = strdup(s);
  if (result == NULL) {
    fatal("out of memory");
  }
  return result;
}

char * xstrndup(const char * s, size_t size) {
  char * result = strndup(s, size);
  if (result == NULL) {
    fatal("out of memory");
  }
  return result;
}

int xasprintf(char ** s, const char * template, ...) {
  va_list a;
  va_start(a, template);
  int result = vasprintf(s, template, a);
  va_end(a);
  if (result < 0) {
    fatal("out of memory");
  }
  return result;
}

char * xgetcwd(void) {
  char * result = getcwd(NULL, 0);
  if (result == NULL) {
    fatal("out of memory");
  }
  return result;
}

FILE * xfopen(const char * file, const char * mode) {
  FILE * result = fopen(file, mode);
  if (result == NULL) {
    fatal("cannot open file: %s", file);
  }
  return result;
}

DIR * xopendir(const char * directory) {
  DIR * result = opendir(directory);
  if (result == NULL) {
    fatal("cannot open directory: %s", directory);
  }
  return result;
}

void xlstat(const char * file, struct stat * buf) {
#ifdef _WIN32
  return xstat(file, buf);
#else
  if (lstat(file, buf) == -1) {
    fatal("cannot stat file: %s", file);
  }
#endif
}

void xstat(const char * file, struct stat * buf) {
  if (stat(file, buf) == -1) {
    fatal("cannot stat file: %s", file);
  }
}

void xmkdir(const char * directory) {
  int result;
#ifdef _WIN32
  result = mkdir(directory);
#else
  result = mkdir(directory, 0755);
#endif
  if (result == -1) {
    fatal("cannot create directory: %s", directory);
  }
}

void mkdir_if_necessary(const char * directory) {
  struct stat buf;
  if (stat(directory, &buf) == 0) {
    if (! S_ISDIR(buf.st_mode)) {
      fatal("not a directory: %s", directory);
    }
  }
  else {
    if (errno == ENOENT) {
      xmkdir(directory);
    }
    else {
      fatal("cannot stat directory: %s", directory);
    }
  }
}

void mkdirs(const char * directory) {
  char * d = xmalloc(strlen(directory) + 1);
  for (const char * p = directory; *p != '\0'; p++) {
    if (*p == '/' && p > directory) {
      strncpy(d, directory, p - directory);
      d[p - directory] = '\0';
      mkdir_if_necessary(d);
    }
  }
  mkdir_if_necessary(directory);
  free(d);
}

void xchdir(const char * directory) {
  if (chdir(directory) == -1) {
    fatal("cannot change directory: %s", directory);
  }
}

bool str_starts_with(const char * string, const char * prefix) {
  const char * string_ptr = string;
  const char * prefix_ptr = prefix;
  while (*string_ptr != '\0' && *prefix_ptr != '\0') {
    if (*string_ptr != *prefix_ptr) {
      return false;
    }
    string_ptr++;
    prefix_ptr++;
  }
  if (*string_ptr == '\0' && *prefix_ptr != '\0') {
    return false;
  }
  return true;
}

bool str_ends_with(const char * string, const char * suffix) {
  size_t string_length = strlen(string);
  size_t suffix_length = strlen(suffix);
  if (string_length < suffix_length) {
    return false;
  }
  return strcmp(string + string_length - suffix_length, suffix) == 0;
}

char * make_path(const char * parent, const char * relative_path) {
  size_t parent_length = strlen(parent);
  size_t relative_path_length = strlen(relative_path);
  size_t result_length = addst(parent_length, relative_path_length);
  result_length = addst(result_length, 2);
  char * result = xmalloc(result_length);
  strcpy(result, parent);
  result[parent_length] = '/';
  strcpy(result + parent_length + 1, relative_path);
  return result;
}

char * make_canonical_path(const char * relative_path) {
  char * original_directory = xgetcwd();
  char * base = make_basename(relative_path);
  char * dir = make_dirname(relative_path);

  xchdir(dir);
  char * canonical_dir = xgetcwd();
  char * result = make_path(canonical_dir, base);

  free(canonical_dir);
  free(base);
  free(dir);
  xchdir(original_directory);
  free(original_directory);

  return result;
}

char * make_basename(const char * path) {
  char * copy = xstrdup(path);
  char * result = xstrdup(basename(copy));
  free(copy);
  return result;
}

char * make_dirname(const char * path) {
  char * copy = xstrdup(path);
  char * result = xstrdup(dirname(copy));
  free(copy);
  return result;
}

int is_same_file(const char * file1, const char * file2) {
#ifdef _WIN32
#define FILECMP strcasecmp
#else
#define FILECMP strcmp
#endif
  if (FILECMP(file1, file2) == 0) {
    return 1;
  }

  char * canonical1 = make_canonical_path(file1);
  char * canonical2 = make_canonical_path(file2);
  int cmp = FILECMP(canonical1, canonical2);
  free(canonical1);
  free(canonical2);
  if (cmp == 0) {
    return 1;
  }

#ifndef _WIN32
  struct stat buf1;
  if (stat(file1, &buf1) == -1) {
    if (errno == ENOENT) {
      return 0;
    }
    else {
      fatal("cannot stat file: %s", file1);
    }
  }
  struct stat buf2;
  if (stat(file2, &buf2) == -1) {
    if (errno == ENOENT) {
      return 0;
    }
    else {
      fatal("cannot stat file: %s", file2);
    }
  }
  if (buf1.st_dev == buf2.st_dev &&
      buf1.st_ino == buf2.st_ino) {
    return 1;
  }
#endif
  return 0;
#undef FILECMP
}

int contains_file(const char * file1, const char * file2) {
  int result = 0;
  char * ancestor = make_canonical_path(file1);
  char * d = make_canonical_path(file2);
  char * parent = make_dirname(d);
  while (strcmp(d, parent) != 0) {
    if (is_same_file(ancestor, parent)) {
      result = 1;
      break;
    }
    free(d);
    d = parent;
    parent = make_dirname(d);
  }
  free(d);
  free(parent);
  free(ancestor);
  return result;
}

void copy_stream(FILE * source, FILE * destination) {
  unsigned char buffer[8192];
  for (;;) {
    int bytes_read = fread(buffer, 1, sizeof(buffer), source);
    if (bytes_read == 0) {
      break;
    }
    fwrite(buffer, 1, bytes_read, destination);
  }
}

void copy_file(const char * source_file, const char * destination_file) {
  FILE * source = xfopen(source_file, "rb");
  FILE * destination = xfopen(destination_file, "wb");

  copy_stream(source, destination);

  fclose(source);
  fclose(destination);
}

bool directory_is_empty(const char * directory) {
  bool result = true;
  DIR * dir = xopendir(directory);
  struct dirent * e;
  while ((e = readdir(dir)) != NULL) {
    if (strcmp(e->d_name, ".") != 0 &&
        strcmp(e->d_name, "..") != 0) {
      result = false;
      break;
    }
  }
  closedir(dir);
  return result;
}

static struct DirListEntry * recursive_dir_list(const char * root, const char * directory_wrt_root, struct DirListEntry * head) {
  char * directory = directory_wrt_root == NULL? xstrdup(root): make_path(root, directory_wrt_root);
  DIR * dir = xopendir(directory);
  struct dirent * e;
  while ((e = readdir(dir)) != NULL) {
    if (strcmp(e->d_name, ".") == 0 ||
        strcmp(e->d_name, "..") == 0) {
      continue;
    }
    char * entry = make_path(directory, e->d_name);
    char * entry_wrt_root = directory_wrt_root == NULL? xstrdup(e->d_name): make_path(directory_wrt_root, e->d_name);
    struct stat buf;
    xlstat(entry, &buf);
    if (S_ISREG(buf.st_mode)) {
      struct DirListEntry * p = xmalloc(sizeof(struct DirListEntry));
      p->name = entry_wrt_root;
      p->next = head;
      head = p;
    }
    else if (S_ISDIR(buf.st_mode)) {
      head = recursive_dir_list(root, entry_wrt_root, head);
      free(entry_wrt_root);
    }
    else {
      fatal("unknown file type: %s", entry);
    }
    free(entry);
  }
  closedir(dir);
  free(directory);
  return head;
}

struct DirListEntry * make_recursive_dir_list(const char * directory) {
  return recursive_dir_list(directory, NULL, NULL);
}

void free_dir_list(struct DirListEntry * list) {
  while (list != NULL) {
    struct DirListEntry * next = list->next;
    free(list->name);
    free(list);
    list = next;
  }
}

#ifndef HAVE_CLOSESOCKET
int closesocket(int s) {
  return close(s);
}
#endif

#ifndef HAVE_VASPRINTF
int vasprintf(char ** s, const char * template, va_list a) {
  int size = 100;
  *s = malloc(size);
  if (*s == NULL) {
    return -1;
  }

  va_list copy;
  va_copy(copy, a);
  int result = vsnprintf(*s, size, template, copy);
  if (result >= size) {
    int new_size = result;
    if (new_size == INT_MAX) {
      free(*s);
      return -1;
    }
    new_size++;
    char * new_s = realloc(*s, new_size);
    if (new_s == NULL) {
      free(*s);
      return -1;
    }
    *s = new_s;
    size = new_size;
    va_copy(copy, a);
    result = vsnprintf(*s, size, template, copy);
    assert(result == size - 1);
  }
  else if (result == -1) {
    while (result == -1) {
      if (size == INT_MAX) {
        free(*s);
        return -1;
      }
      int new_size;
      if (size > INT_MAX / 2) {
        new_size = INT_MAX;
      }
      else {
        new_size = 2 * size;
      }
      char * new_s = realloc(*s, new_size);
      if (new_s == NULL) {
        free(*s);
        return -1;
      }
      *s = new_s;
      size = new_size;
      va_copy(copy, a);
      result = vsnprintf(*s, size, template, copy);
    }
    assert(result <= size - 1);
  }

  return result;
}
#endif

#ifndef HAVE_ASPRINTF
int asprintf(char ** s, const char * template, ...) {
  va_list a;
  va_start(a, template);
  int result = vasprintf(s, template, a);
  va_end(a);
  return result;
}
#endif
1	siliconforks	2	/*
2			util.c - general purpose utility routines
3	siliconforks	87	Copyright (C) 2007, 2008 siliconforks.com
4	siliconforks	2
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
15			You should have received a copy of the GNU General Public License along
16			with this program; if not, write to the Free Software Foundation, Inc.,
17			51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18			*/
19
20	siliconforks	106	#define _GNU_SOURCE
21
22			#include <config.h>
23
24	siliconforks	2	#include "util.h"
25
26			#include <assert.h>
27			#include <errno.h>
28	siliconforks	99	#include <limits.h>
29	siliconforks	2	#include <stdarg.h>
30			#include <stdio.h>
31	siliconforks	106	#include <stdint.h>
32	siliconforks	2	#include <string.h>
33			#include <strings.h>
34
35			#include <dirent.h>
36			#include <libgen.h>
37			#include <sys/stat.h>
38			#include <sys/types.h>
39			#include <unistd.h>
40
41			const char * program = NULL;
42
43			void fatal(const char * format, ...) {
44			fprintf(stderr, "%s: ", program);
45			va_list ap;
46			va_start(ap, format);
47			vfprintf(stderr, format, ap);
48			va_end(ap);
49			fputc('\n', stderr);
50			fprintf(stderr, "Try `%s --help' for more information.\n", program);
51			exit(EXIT_FAILURE);
52			}
53
54	siliconforks	106	size_t addst(size_t x, size_t y) {
55			if (SIZE_MAX - x < y) {
56			fatal("integer overflow");
57			}
58			return x + y;
59			}
60
61			size_t mulst(size_t x, size_t y) {
62			if (x == 0 \|\| y == 0) {
63			return 0;
64			}
65			if (SIZE_MAX / x < y) {
66			fatal("integer overflow");
67			}
68			return x * y;
69			}
70
71	siliconforks	2	void * xmalloc(size_t size) {
72			void * result = malloc(size);
73			if (result == NULL) {
74			fatal("out of memory");
75			}
76			return result;
77			}
78
79	siliconforks	91	void * xrealloc(void * p, size_t size) {
80			void * result = realloc(p, size);
81			if (result == NULL) {
82			fatal("out of memory");
83			}
84			return result;
85			}
86
87	siliconforks	2	char * xstrdup(const char * s) {
88			char * result = strdup(s);
89			if (result == NULL) {
90			fatal("out of memory");
91			}
92			return result;
93			}
94
95	siliconforks	106	char * xstrndup(const char * s, size_t size) {
96			char * result = strndup(s, size);
97			if (result == NULL) {
98			fatal("out of memory");
99			}
100			return result;
101			}
102
103			int xasprintf(char ** s, const char * template, ...) {
104			va_list a;
105			va_start(a, template);
106			int result = vasprintf(s, template, a);
107			va_end(a);
108			if (result < 0) {
109			fatal("out of memory");
110			}
111			return result;
112			}
113
114	siliconforks	2	char * xgetcwd(void) {
115			char * result = getcwd(NULL, 0);
116			if (result == NULL) {
117			fatal("out of memory");
118			}
119			return result;
120			}
121
122			FILE * xfopen(const char * file, const char * mode) {
123			FILE * result = fopen(file, mode);
124			if (result == NULL) {
125			fatal("cannot open file: %s", file);
126			}
127			return result;
128			}
129
130			DIR * xopendir(const char * directory) {
131			DIR * result = opendir(directory);
132			if (result == NULL) {
133			fatal("cannot open directory: %s", directory);
134			}
135			return result;
136			}
137
138			void xlstat(const char * file, struct stat * buf) {
139			#ifdef _WIN32
140			return xstat(file, buf);
141			#else
142			if (lstat(file, buf) == -1) {
143			fatal("cannot stat file: %s", file);
144			}
145			#endif
146			}
147
148			void xstat(const char * file, struct stat * buf) {
149			if (stat(file, buf) == -1) {
150			fatal("cannot stat file: %s", file);
151			}
152			}
153
154			void xmkdir(const char * directory) {
155			int result;
156			#ifdef _WIN32
157			result = mkdir(directory);
158			#else
159			result = mkdir(directory, 0755);
160			#endif
161			if (result == -1) {
162			fatal("cannot create directory: %s", directory);
163			}
164			}
165
166			void mkdir_if_necessary(const char * directory) {
167			struct stat buf;
168			if (stat(directory, &buf) == 0) {
169			if (! S_ISDIR(buf.st_mode)) {
170			fatal("not a directory: %s", directory);
171			}
172			}
173			else {
174			if (errno == ENOENT) {
175			xmkdir(directory);
176			}
177			else {
178			fatal("cannot stat directory: %s", directory);
179			}
180			}
181			}
182
183			void mkdirs(const char * directory) {
184			char * d = xmalloc(strlen(directory) + 1);
185			for (const char * p = directory; *p != '\0'; p++) {
186			if (*p == '/' && p > directory) {
187			strncpy(d, directory, p - directory);
188			d[p - directory] = '\0';
189			mkdir_if_necessary(d);
190			}
191			}
192			mkdir_if_necessary(directory);
193			free(d);
194			}
195
196			void xchdir(const char * directory) {
197			if (chdir(directory) == -1) {
198			fatal("cannot change directory: %s", directory);
199			}
200			}
201
202	siliconforks	106	bool str_starts_with(const char * string, const char * prefix) {
203			const char * string_ptr = string;
204			const char * prefix_ptr = prefix;
205			while (string_ptr != '\0' && prefix_ptr != '\0') {
206			if (string_ptr != prefix_ptr) {
207			return false;
208			}
209			string_ptr++;
210			prefix_ptr++;
211			}
212			if (string_ptr == '\0' && prefix_ptr != '\0') {
213			return false;
214			}
215			return true;
216			}
217
218			bool str_ends_with(const char * string, const char * suffix) {
219			size_t string_length = strlen(string);
220			size_t suffix_length = strlen(suffix);
221			if (string_length < suffix_length) {
222			return false;
223			}
224			return strcmp(string + string_length - suffix_length, suffix) == 0;
225			}
226
227	siliconforks	2	char * make_path(const char * parent, const char * relative_path) {
228			size_t parent_length = strlen(parent);
229			size_t relative_path_length = strlen(relative_path);
230	siliconforks	106	size_t result_length = addst(parent_length, relative_path_length);
231			result_length = addst(result_length, 2);
232			char * result = xmalloc(result_length);
233	siliconforks	2	strcpy(result, parent);
234			result[parent_length] = '/';
235			strcpy(result + parent_length + 1, relative_path);
236			return result;
237			}
238
239			char * make_canonical_path(const char * relative_path) {
240			char * original_directory = xgetcwd();
241			char * base = make_basename(relative_path);
242			char * dir = make_dirname(relative_path);
243
244			xchdir(dir);
245			char * canonical_dir = xgetcwd();
246			char * result = make_path(canonical_dir, base);
247
248			free(canonical_dir);
249			free(base);
250			free(dir);
251			xchdir(original_directory);
252			free(original_directory);
253
254			return result;
255			}
256
257			char * make_basename(const char * path) {
258			char * copy = xstrdup(path);
259			char * result = xstrdup(basename(copy));
260			free(copy);
261			return result;
262			}
263
264			char * make_dirname(const char * path) {
265			char * copy = xstrdup(path);
266			char * result = xstrdup(dirname(copy));
267			free(copy);
268			return result;
269			}
270
271			int is_same_file(const char * file1, const char * file2) {
272			#ifdef _WIN32
273			#define FILECMP strcasecmp
274			#else
275			#define FILECMP strcmp
276			#endif
277			if (FILECMP(file1, file2) == 0) {
278			return 1;
279			}
280
281			char * canonical1 = make_canonical_path(file1);
282			char * canonical2 = make_canonical_path(file2);
283			int cmp = FILECMP(canonical1, canonical2);
284			free(canonical1);
285			free(canonical2);
286			if (cmp == 0) {
287			return 1;
288			}
289
290			#ifndef _WIN32
291			struct stat buf1;
292			if (stat(file1, &buf1) == -1) {
293			if (errno == ENOENT) {
294			return 0;
295			}
296			else {
297			fatal("cannot stat file: %s", file1);
298			}
299			}
300			struct stat buf2;
301			if (stat(file2, &buf2) == -1) {
302			if (errno == ENOENT) {
303			return 0;
304			}
305			else {
306			fatal("cannot stat file: %s", file2);
307			}
308			}
309			if (buf1.st_dev == buf2.st_dev &&
310			buf1.st_ino == buf2.st_ino) {
311			return 1;
312			}
313			#endif
314			return 0;
315			#undef FILECMP
316			}
317
318			int contains_file(const char * file1, const char * file2) {
319			int result = 0;
320			char * ancestor = make_canonical_path(file1);
321			char * d = make_canonical_path(file2);
322			char * parent = make_dirname(d);
323			while (strcmp(d, parent) != 0) {
324			if (is_same_file(ancestor, parent)) {
325			result = 1;
326			break;
327			}
328			free(d);
329			d = parent;
330			parent = make_dirname(d);
331			}
332			free(d);
333			free(parent);
334			free(ancestor);
335			return result;
336			}
337
338			void copy_stream(FILE * source, FILE * destination) {
339			unsigned char buffer[8192];
340			for (;;) {
341			int bytes_read = fread(buffer, 1, sizeof(buffer), source);
342			if (bytes_read == 0) {
343			break;
344			}
345			fwrite(buffer, 1, bytes_read, destination);
346			}
347			}
348
349			void copy_file(const char * source_file, const char * destination_file) {
350			FILE * source = xfopen(source_file, "rb");
351			FILE * destination = xfopen(destination_file, "wb");
352
353			copy_stream(source, destination);
354
355			fclose(source);
356			fclose(destination);
357			}
358
359	siliconforks	106	bool directory_is_empty(const char * directory) {
360			bool result = true;
361	siliconforks	2	DIR * dir = xopendir(directory);
362			struct dirent * e;
363			while ((e = readdir(dir)) != NULL) {
364			if (strcmp(e->d_name, ".") != 0 &&
365			strcmp(e->d_name, "..") != 0) {
366	siliconforks	106	result = false;
367			break;
368	siliconforks	2	}
369			}
370			closedir(dir);
371	siliconforks	106	return result;
372	siliconforks	2	}
373
374			static struct DirListEntry * recursive_dir_list(const char * root, const char * directory_wrt_root, struct DirListEntry * head) {
375			char * directory = directory_wrt_root == NULL? xstrdup(root): make_path(root, directory_wrt_root);
376			DIR * dir = xopendir(directory);
377			struct dirent * e;
378			while ((e = readdir(dir)) != NULL) {
379			if (strcmp(e->d_name, ".") == 0 \|\|
380			strcmp(e->d_name, "..") == 0) {
381			continue;
382			}
383			char * entry = make_path(directory, e->d_name);
384			char * entry_wrt_root = directory_wrt_root == NULL? xstrdup(e->d_name): make_path(directory_wrt_root, e->d_name);
385			struct stat buf;
386			xlstat(entry, &buf);
387			if (S_ISREG(buf.st_mode)) {
388			struct DirListEntry * p = xmalloc(sizeof(struct DirListEntry));
389			p->name = entry_wrt_root;
390			p->next = head;
391			head = p;
392			}
393			else if (S_ISDIR(buf.st_mode)) {
394			head = recursive_dir_list(root, entry_wrt_root, head);
395			free(entry_wrt_root);
396			}
397			else {
398			fatal("unknown file type: %s", entry);
399			}
400			free(entry);
401			}
402			closedir(dir);
403			free(directory);
404			return head;
405			}
406
407			struct DirListEntry * make_recursive_dir_list(const char * directory) {
408			return recursive_dir_list(directory, NULL, NULL);
409			}
410
411			void free_dir_list(struct DirListEntry * list) {
412			while (list != NULL) {
413			struct DirListEntry * next = list->next;
414			free(list->name);
415			free(list);
416			list = next;
417			}
418			}
419	siliconforks	99
420	siliconforks	106	#ifndef HAVE_CLOSESOCKET
421			int closesocket(int s) {
422			return close(s);
423			}
424			#endif
425
426	siliconforks	99	#ifndef HAVE_VASPRINTF
427			int vasprintf(char ** s, const char * template, va_list a) {
428			int size = 100;
429			*s = malloc(size);
430			if (*s == NULL) {
431			return -1;
432			}
433
434			va_list copy;
435			va_copy(copy, a);
436			int result = vsnprintf(*s, size, template, copy);
437			if (result >= size) {
438			int new_size = result;
439			if (new_size == INT_MAX) {
440			free(*s);
441	siliconforks	106	return -1;
442	siliconforks	99	}
443			new_size++;
444			char * new_s = realloc(*s, new_size);
445			if (new_s == NULL) {
446			free(*s);
447			return -1;
448			}
449			*s = new_s;
450			size = new_size;
451			va_copy(copy, a);
452			result = vsnprintf(*s, size, template, copy);
453			assert(result == size - 1);
454			}
455			else if (result == -1) {
456			while (result == -1) {
457	siliconforks	106	if (size == INT_MAX) {
458	siliconforks	99	free(*s);
459	siliconforks	106	return -1;
460	siliconforks	99	}
461	siliconforks	106	int new_size;
462			if (size > INT_MAX / 2) {
463			new_size = INT_MAX;
464			}
465			else {
466			new_size = 2 * size;
467			}
468	siliconforks	99	char * new_s = realloc(*s, new_size);
469			if (new_s == NULL) {
470			free(*s);
471			return -1;
472			}
473			*s = new_s;
474			size = new_size;
475			va_copy(copy, a);
476			result = vsnprintf(*s, size, template, copy);
477			}
478			assert(result <= size - 1);
479			}
480
481			return result;
482			}
483			#endif
484
485			#ifndef HAVE_ASPRINTF
486			int asprintf(char ** s, const char * template, ...) {
487			va_list a;
488			va_start(a, template);
489			int result = vasprintf(s, template, a);
490			va_end(a);
491			return result;
492			}
493			#endif