diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-04 23:30:32 +0200 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-04 23:30:32 +0200 |
commit | 5b1374e9650e556faaf95b9f8c16c9e730d001ed (patch) | |
tree | 8fc6d2fea1b1e4f419fa9262f4e6faa4f4e68471 /libgfortran | |
parent | 73a014b5498d4d6ea86796cca4a97973c9a847cd (diff) | |
download | gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.zip gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.tar.gz gcc-5b1374e9650e556faaf95b9f8c16c9e730d001ed.tar.bz2 |
re PR fortran/17776 (no subroutine system)
fortran/
PR fortran/17776
* check.c (gfc_check_system_sub): New function.
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SYSTEM.
* intrinsic.c (add_functions): Add 'system'.
(add_subroutines): Add 'system'.
* intrinsic.h (gfc_check_etime_sub, gfc_check_getcwd_sub):
Move prototypes to other suborutines.
(gfc_check_system_sub, gfc_resolve_system, gfc_resolve_system_sub):
Add prototype.
(gfc_resolve_system_clock): Fix formatting of prototype.
* iresolve.c (gfc_resolve_system, gfc_resolve_system_sub): New
functions.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Deal with
GFC_ISYM_SYSTEM.
libgfortran/
PR fortran/17776
* intrinsics/system.c: New file.
* Makefile.am: Add dependency for the new file.
* Makefile.in: Regenerate.
From-SVN: r88532
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/Makefile.am | 1 | ||||
-rw-r--r-- | libgfortran/Makefile.in | 20 | ||||
-rw-r--r-- | libgfortran/intrinsics/system.c | 63 |
4 files changed, 84 insertions, 5 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8b9d6a7..a66c499 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -12,6 +12,11 @@ * Makefile.in: Regenerate. * intrinsics/mvbits.h: New file. + PR fortran/17776 + * intrinsics/system.c: New file. + * Makefile.am: Add dependency for the new file. + * Makefile.in: Regenerate. + 2004-10-04 Paul Brook <paul@codesourcery.com> Bud Davis <bdavis9659@comcast.net> diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am index d34a3dd..5be4b9f 100644 --- a/libgfortran/Makefile.am +++ b/libgfortran/Makefile.am @@ -57,6 +57,7 @@ intrinsics/pack_generic.c \ intrinsics/size.c \ intrinsics/spread_generic.c \ intrinsics/string_intrinsics.c \ +intrinsics/system.c \ intrinsics/rand.c \ intrinsics/random.c \ intrinsics/reshape_generic.c \ diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in index 219baa6..3fa14b4 100644 --- a/libgfortran/Makefile.in +++ b/libgfortran/Makefile.in @@ -122,11 +122,11 @@ am__objects_33 = associated.lo abort.lo args.lo bessel.lo \ c99_functions.lo cpu_time.lo cshift0.lo date_and_time.lo \ env.lo erf.lo eoshift0.lo eoshift2.lo etime.lo getcwd.lo \ getXid.lo ishftc.lo mvbits.lo pack_generic.lo size.lo \ - spread_generic.lo string_intrinsics.lo rand.lo random.lo \ - reshape_generic.lo reshape_packed.lo selected_int_kind.lo \ - selected_real_kind.lo system_clock.lo transpose_generic.lo \ - unpack_generic.lo in_pack_generic.lo in_unpack_generic.lo \ - normalize.lo + spread_generic.lo string_intrinsics.lo system.lo rand.lo \ + random.lo reshape_generic.lo reshape_packed.lo \ + selected_int_kind.lo selected_real_kind.lo system_clock.lo \ + transpose_generic.lo unpack_generic.lo in_pack_generic.lo \ + in_unpack_generic.lo normalize.lo am__objects_34 = am__objects_35 = _abs_c4.lo _abs_c8.lo _abs_i4.lo _abs_i8.lo \ _abs_r4.lo _abs_r8.lo _exp_r4.lo _exp_r8.lo _exp_c4.lo \ @@ -330,6 +330,7 @@ intrinsics/pack_generic.c \ intrinsics/size.c \ intrinsics/spread_generic.c \ intrinsics/string_intrinsics.c \ +intrinsics/system.c \ intrinsics/rand.c \ intrinsics/random.c \ intrinsics/reshape_generic.c \ @@ -2161,6 +2162,15 @@ string_intrinsics.obj: intrinsics/string_intrinsics.c string_intrinsics.lo: intrinsics/string_intrinsics.c $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o string_intrinsics.lo `test -f 'intrinsics/string_intrinsics.c' || echo '$(srcdir)/'`intrinsics/string_intrinsics.c +system.o: intrinsics/system.c + $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.o `test -f 'intrinsics/system.c' || echo '$(srcdir)/'`intrinsics/system.c + +system.obj: intrinsics/system.c + $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.obj `if test -f 'intrinsics/system.c'; then $(CYGPATH_W) 'intrinsics/system.c'; else $(CYGPATH_W) '$(srcdir)/intrinsics/system.c'; fi` + +system.lo: intrinsics/system.c + $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.lo `test -f 'intrinsics/system.c' || echo '$(srcdir)/'`intrinsics/system.c + rand.o: intrinsics/rand.c $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o rand.o `test -f 'intrinsics/rand.c' || echo '$(srcdir)/'`intrinsics/rand.c diff --git a/libgfortran/intrinsics/system.c b/libgfortran/intrinsics/system.c new file mode 100644 index 0000000..38ae0a9 --- /dev/null +++ b/libgfortran/intrinsics/system.c @@ -0,0 +1,63 @@ +/* Implementation of the SYSTEM intrinsic. + Copyright (C) 2004 Free Software Foundation, Inc. + Contributed by Tobias Schlüter. + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free +Software Foundation; either version 2, or (at your option) any later +version. + +In addition to the permissions in the GNU General Public License, the +Free Software Foundation gives you unlimited permission to link the +compiled version of this file into combinations with other programs, +and to distribute those combinations without any restriction coming +from the use of this file. (The General Public License restrictions +do apply in other respects; for example, they cover modification of +the file, and distribution when not linked into a combined +executable.) + +GCC is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING. If not, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. */ + +#include "config.h" +#include "libgfortran.h" + +#ifdef HAVE_STRING_H +#include <string.h> +#endif +#ifdef HAVE_STDLIB_H +#include <stdlib.h> +#endif + +void +prefix(system_sub) (const char * fcmd, GFC_INTEGER_4 * status, + gfc_charlen_type cmd_len) +{ + char cmd[cmd_len + 1]; + int stat; + + memcpy (cmd, fcmd, cmd_len); + cmd[cmd_len] = '\0'; + + stat = system (cmd); + if (status) + *status = stat; +} + +GFC_INTEGER_4 +prefix(system) (char * fcmd, gfc_charlen_type cmd_len) +{ + GFC_INTEGER_4 stat; + + prefix(system_sub) (fcmd, &stat, cmd_len); + return stat; +} |