OSDN Git Service

* intrinsics/args.c: Implement GETARG and IARGC.
[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / args.c
1 /* Implementation of the IARG/ARGC intrinsic(s).
2    Copyright (C) 2004 Free Software Foundation, Inc.
3
4 This file is part of the GNU Fortran 95 runtime library (libgfortran).
5
6 Libgfortran is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
10
11 Libgfortran is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 GNU Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with libgfor; see the file COPYING.LIB.  If not,
18 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA.  */
20
21 #include "config.h"
22 #include <sys/types.h>
23 #include <string.h>
24 #include "libgfortran.h"
25
26 void 
27 prefix(getarg) (GFC_INTEGER_4 *pos, char  *val, GFC_INTEGER_4 val_len)
28 {
29   int argc;
30   int arglen;
31   char **argv;
32
33   get_args (&argc, &argv);
34
35   if (val_len < 1 || !val )
36     return;   /* something is wrong , leave immediately */
37   
38   memset( val, ' ', val_len);
39
40   if ((*pos) + 1 <= argc  && *pos >=0 )
41     {
42       arglen = strlen (argv[*pos]);
43       if (arglen > val_len)
44         arglen = val_len;
45       memcpy (val, argv[*pos], arglen);
46     }
47 }
48
49 GFC_INTEGER_4
50 prefix(iargc) ()
51 {
52   int argc;
53   char **argv;
54
55   get_args (&argc, &argv);
56
57   return argc;
58