chiark / gitweb /
rename backlog_nextscan_periods to until_backlog_nextscan
[innduct.git] / lib / concat.c
1 /*  $Id: concat.c 4234 2000-12-21 03:43:02Z rra $
2 **
3 **  Concatenate strings with dynamic memory allocation.
4 **
5 **  Written by Russ Allbery <rra@stanford.edu>
6 **  This work is hereby placed in the public domain by its author.
7 **
8 **  Usage:
9 ** 
10 **       string = concat(string1, string2, ..., (char *) 0);
11 **       path = concatpath(base, name);
12 **
13 **  Dynamically allocates (using xmalloc) sufficient memory to hold all of
14 **  the strings given and then concatenates them together into that
15 **  allocated memory, returning a pointer to it.  Caller is responsible for
16 **  freeing.  Assumes xmalloc is available.  The last argument must be a
17 **  null pointer (to a char *, if you actually find a platform where it
18 **  matters).
19 **
20 **  concatpath is similar, except that it only takes two arguments.  If the
21 **  second argument begins with / or ./, a copy of it is returned;
22 **  otherwise, the first argument, a slash, and the second argument are
23 **  concatenated together and returned.  This is useful for building file
24 **  names where names that aren't fully qualified are qualified with some
25 **  particular directory.
26 */
27
28 #include "config.h"
29 #include "libinn.h"
30
31 #include <stdarg.h>
32 #if STDC_HEADERS
33 # include <string.h>
34 #endif
35
36 /* Abbreviation for cleaner code. */
37 #define VA_NEXT(var, type)      ((var) = (type) va_arg(args, type))
38
39 /* ANSI C requires at least one named parameter. */
40 char *
41 concat(const char *first, ...)
42 {
43     va_list args;
44     char *result, *p;
45     const char *string;
46     size_t length = 0;
47
48     /* Find the total memory required. */
49     va_start(args, first);
50     for (string = first; string != NULL; VA_NEXT(string, const char *))
51         length += strlen(string);
52     va_end(args);
53     length++;
54
55     /* Create the string.  Doing the copy ourselves avoids useless string
56        traversals of result, if using strcat, or string, if using strlen to
57        increment a pointer into result, at the cost of losing the native
58        optimization of strcat if any. */
59     result = xmalloc(length);
60     p = result;
61     va_start(args, first);
62     for (string = first; string != NULL; VA_NEXT(string, const char *))
63         while (*string != '\0')
64             *p++ = *string++;
65     va_end(args);
66     *p = '\0';
67
68     return result;
69 }
70
71
72 char *
73 concatpath(const char *base, const char *name)
74 {
75     if (name[0] == '/' || (name[0] == '.' && name[1] == '/'))
76         return xstrdup(name);
77     else
78         return concat(base, "/", name, (char *) 0);
79 }