librols/strcatl.c

   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 *
  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 }