1 /*
2 * This file has been modified for the cdrkit suite.
3 *
4 * The behaviour and appearence of the program code below can differ to a major
5 * extent from the version distributed by the original author(s).
6 *
7 * For details, see Changelog file distributed with the cdrkit package. If you
8 * received this file from another source then ask the distributing person for
9 * a log of modifications.
10 *
11 */
12
13 /* @(#)strcatl.c 1.12 03/10/29 Copyright 1985, 1989, 1995-2003 J. Schilling */
14 /*
15 * list version of strcat()
16 *
17 * concatenates all past first parameter until a NULL pointer is reached
18 *
19 * WARNING: a NULL constant is not a NULL pointer, so a caller must
20 * cast a NULL constant to a pointer: (char *)NULL
21 *
22 * returns pointer past last character (to '\0' byte)
23 *
24 * Copyright (c) 1985, 1989, 1995-2003 J. Schilling
25 */
26 /*
27 * This program is free software; you can redistribute it and/or modify
28 * it under the terms of the GNU General Public License version 2
29 * as published by the Free Software Foundation.
30 *
31 * This program is distributed in the hope that it will be useful,
32 * but WITHOUT ANY WARRANTY; without even the implied warranty of
33 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
34 * GNU General Public License for more details.
35 *
36 * You should have received a copy of the GNU General Public License along with
37 * this program; see the file COPYING. If not, write to the Free Software
38 * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
39 */
40
41 #include <mconfig.h>
42 #include <vadefs.h>
43 #include <standard.h>
44 #include <schily.h>
45
46 /* VARARGS3 */
47 #ifdef PROTOTYPES
48 EXPORT char *
strcatl(char * to,...)49 strcatl(char *to, ...)
50 #else
51 EXPORT char *
52 strcatl(to, va_alist)
53 char *to;
54 va_dcl
55 #endif
56 {
57 va_list args;
58 register char *p;
59 register char *tor = to;
60
61 #ifdef PROTOTYPES
62 va_start(args, to);
63 #else
64 va_start(args);
65 #endif
66 while ((p = va_arg(args, char *)) != NULL) {
67 while ((*tor = *p++) != '\0') {
68 tor++;
69 }
70 }
71 *tor = '\0';
72 va_end(args);
73 return (tor);
74 }
75