OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libiberty/] [pex-one.c] - Blame information for rev 777

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 736 jeremybenn
/* Execute a program and wait for a result.
2
   Copyright (C) 2005 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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.