sdcc/support/sdbinutils/libiberty/pex-one.c

   1 /* Execute a program and wait for a result.
   2    Copyright (C) 2005-2022 Free Software Foundation, Inc.
   3
   4 This file is part of the libiberty library.
   5 Libiberty is free software; you can redistribute it and/or
   6 modify it under the terms of the GNU Library General Public
   7 License as published by the Free Software Foundation; either
   8 version 2 of the License, or (at your option) any later version.
   9
  10 Libiberty is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 Library General Public License for more details.
  14
  15 You should have received a copy of the GNU Library General Public
  16 License along with libiberty; see the file COPYING.LIB.  If not,
  17 write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
  18 Boston, MA 02110-1301, USA.  */
  19
  20 #include "config.h"
  21 #include "libiberty.h"
  22
  23 const char *
  24 pex_one (int flags, const char *executable, char * const *argv,
  25          const char *pname, const char *outname, const char *errname,
  26          int *status, int *err)
  27 {
  28   struct pex_obj *obj;
  29   const char *errmsg;
  30
  31   obj = pex_init (0, pname, NULL);
  32   errmsg = pex_run (obj, flags, executable, argv, outname, errname, err);
  33   if (errmsg == NULL)
  34     {
  35       if (!pex_get_status (obj, 1, status))
  36         {
  37           *err = 0;
  38           errmsg = "pex_get_status failed";
  39         }
  40     }
  41   pex_free (obj);
  42   return errmsg;
  43 }