]>
Commit | Line | Data |
---|---|---|
4c0c6b9f SK |
1 | /* Wrapper for the unix get{g,p,u}id functions. |
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 | |
57dea9f6 | 7 | modify it under the terms of the GNU General Public |
4c0c6b9f | 8 | License as published by the Free Software Foundation; either |
57dea9f6 TM |
9 | version 2 of the License, or (at your option) any later version. |
10 | ||
11 | In addition to the permissions in the GNU General Public License, the | |
12 | Free Software Foundation gives you unlimited permission to link the | |
13 | compiled version of this file into combinations with other programs, | |
14 | and to distribute those combinations without any restriction coming | |
15 | from the use of this file. (The General Public License restrictions | |
16 | do apply in other respects; for example, they cover modification of | |
17 | the file, and distribution when not linked into a combine | |
18 | executable.) | |
4c0c6b9f SK |
19 | |
20 | Libgfortran is distributed in the hope that it will be useful, | |
21 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
57dea9f6 | 23 | GNU General Public License for more details. |
4c0c6b9f | 24 | |
57dea9f6 TM |
25 | You should have received a copy of the GNU General Public |
26 | License along with libgfortran; see the file COPYING. If not, | |
4c0c6b9f SK |
27 | write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
28 | Boston, MA 02111-1307, USA. */ | |
29 | ||
30 | #include "config.h" | |
31 | ||
32 | #if HAVE_SYS_TYPES_H | |
33 | #include <sys/types.h> | |
34 | #endif | |
35 | #if HAVE_UNISTD_H | |
36 | #include <unistd.h> | |
37 | #endif | |
38 | ||
39 | #include "libgfortran.h" | |
40 | ||
41 | #ifdef HAVE_GETGID | |
7d7b8bfe RH |
42 | extern GFC_INTEGER_4 PREFIX(getgid) (void); |
43 | export_proto_np(PREFIX(getgid)); | |
44 | ||
45 | GFC_INTEGER_4 | |
46 | PREFIX(getgid) (void) | |
4c0c6b9f | 47 | { |
7d7b8bfe | 48 | return getgid (); |
4c0c6b9f SK |
49 | } |
50 | #endif | |
51 | ||
52 | #ifdef HAVE_GETPID | |
7d7b8bfe RH |
53 | extern GFC_INTEGER_4 PREFIX(getpid) (void); |
54 | export_proto_np(PREFIX(getpid)); | |
55 | ||
56 | GFC_INTEGER_4 | |
57 | PREFIX(getpid) (void) | |
4c0c6b9f | 58 | { |
7d7b8bfe | 59 | return getpid (); |
4c0c6b9f SK |
60 | } |
61 | #endif | |
62 | ||
63 | #ifdef HAVE_GETUID | |
7d7b8bfe RH |
64 | extern GFC_INTEGER_4 PREFIX(getuid) (void); |
65 | export_proto_np(PREFIX(getuid)); | |
66 | ||
67 | GFC_INTEGER_4 | |
68 | PREFIX(getuid) (void) | |
4c0c6b9f | 69 | { |
7d7b8bfe | 70 | return getuid (); |
4c0c6b9f SK |
71 | } |
72 | #endif |