Retro68/elf2flt/stubs.c

134 lines
2.9 KiB
C
Raw Normal View History

2012-03-27 21:31:44 +00:00
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "libiberty.h"
#include "stubs.h"
#ifndef HAVE_DCGETTEXT
const char *dcgettext(const char *domain, const char *msg, int category)
{
return msg;
}
#endif /* !HAVE_DCGETTEXT */
#ifndef HAVE_LIBINTL_DGETTEXT
const char *libintl_dgettext(const char *domain, const char *msg)
{
return msg;
}
#endif /* !HAVE_LIBINTL_DGETTEXT */
#ifndef HAVE_GETLINE
/* Read a line from IN. LINE points to a malloc'd buffer that is extended as
necessary. ALLOC points to the allocated length of LINE. Returns
the length of the string read (including any trailing \n) */
ssize_t getline(char **line, size_t *alloc, FILE *in)
{
size_t len = 0;
if (!*alloc) {
*alloc = 200;
*line = xmalloc(*alloc);
}
while (1) {
if (!fgets(*line + len, *alloc - len, in))
return 0;
len += strlen(*line + len);
if (len && (*line)[len - 1] == '\n')
return len;
*alloc *= 2;
*line = xrealloc(*line, *alloc);
}
}
#endif
/* fatal error & exit */
void fatal(const char *format, ...)
{
va_list args;
va_start(args, format);
fprintf(stderr, "%s: ", elf2flt_progname);
vfprintf(stderr, format, args);
fprintf(stderr, "\n");
va_end(args);
exit(1);
}
/* fatal error, perror & exit */
void fatal_perror(const char *format, ...)
{
int e = errno;
va_list args;
va_start(args, format);
fprintf(stderr, "%s: ", elf2flt_progname);
vfprintf(stderr, format, args);
fprintf(stderr, ": %s\n", strerror(e));
va_end(args);
exit(1);
}
/* open a file or fail */
FILE *xfopen(const char *path, const char *mode)
{
FILE *ret = fopen(path, mode);
if (!ret)
fatal_perror("Unable to open '%s'", path);
return ret;
}
/* Append a string SRC to an options array DST */
void append_option(options_t *dst, const char *src)
{
if (dst->alloc == dst->num) {
size_t a = (dst->num + 2) * 2;
void *o = xmalloc(sizeof(*dst->options) * a);
memcpy(o, dst->options, sizeof(*dst->options) * dst->num);
free(dst->options);
dst->options = o;
dst->alloc = a;
}
dst->options[dst->num] = src;
dst->num++;
}
/* Split and append a string SRC to an options array DST */
void append_option_str(options_t *dst, const char *src, const char *delim)
{
char *tok_src = xstrdup(src);
char *tok = strtok(tok_src, delim);
while (tok) {
append_option(dst, tok);
tok = strtok(NULL, delim);
}
/* don't free tok_src since options_t now points to it */
}
/* Append an options array SRC to another options array DST */
void append_options(options_t *dst, const options_t *src)
{
if (dst->alloc < dst->num + src->num) {
size_t a = (dst->num + src->num + 2) * 2;
void *o = xmalloc(sizeof(*dst->options) * a);
memcpy(o, dst->options, sizeof(*dst->options) * dst->num);
free(dst->options);
dst->options = o;
dst->alloc = a;
}
memcpy(&dst->options[dst->num], &src->options[0],
sizeof(*dst->options) * src->num);
dst->num += src->num;
}