gdb/gdb_obstack.c

   1 /* Obstack wrapper for GDB.
   2
   3    Copyright (C) 2013-2019 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include "defs.h"
  21 #include "gdb_obstack.h"
  22
  23 /* Concatenate NULL terminated variable argument list of `const char *'
  24    strings; return the new string.  Space is found in the OBSTACKP.
  25    Argument list must be terminated by a sentinel expression `(char *)
  26    NULL'.  */
  27
  28 char *
  29 obconcat (struct obstack *obstackp, ...)
  30 {
  31   va_list ap;
  32
  33   va_start (ap, obstackp);
  34   for (;;)
  35     {
  36       const char *s = va_arg (ap, const char *);
  37
  38       if (s == NULL)
  39         break;
  40
  41       obstack_grow_str (obstackp, s);
  42     }
  43   va_end (ap);
  44   obstack_1grow (obstackp, 0);
  45
  46   return (char *) obstack_finish (obstackp);
  47 }
  48
  49 /* See gdb_obstack.h.  */
  50
  51 char *
  52 obstack_strdup (struct obstack *obstackp, const char *string)
  53 {
  54   char *obstring = (char *) obstack_alloc (obstackp, strlen (string) + 1);
  55   strcpy (obstring, string);
  56   return obstring;
  57 }