Daily bump.
[official-gcc.git] / gcc / ada / aux-io.c
blob27d92d7fb6ca63220ac1e9765366d8b5b8906d13
1 /****************************************************************************
2 * *
3 * GNAT RUN-TIME COMPONENTS *
4 * *
5 * A - T R A N S *
6 * *
7 * C Implementation File *
8 * *
9 * Copyright (C) 1992-2003 Free Software Foundation, Inc. *
10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 2, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
17 * for more details. You should have received a copy of the GNU General *
18 * Public License distributed with GNAT; see file COPYING. If not, write *
19 * to the Free Software Foundation, 51 Franklin Street, Fifth Floor, *
20 * Boston, MA 02110-1301, USA. *
21 * *
22 * As a special exception, if you link this file with other files to *
23 * produce an executable, this file does not by itself cause the resulting *
24 * executable to be covered by the GNU General Public License. This except- *
25 * ion does not however invalidate any other reasons why the executable *
26 * file might be covered by the GNU Public License. *
27 * *
28 * GNAT was originally developed by the GNAT team at New York University. *
29 * Extensive contributions were provided by Ada Core Technologies Inc. *
30 * *
31 ****************************************************************************/
33 #include <stdio.h>
35 #ifdef IN_RTS
36 #include "tconfig.h"
37 #include "tsystem.h"
38 #else
39 #include "config.h"
40 #include "system.h"
41 #endif
43 /* Function wrappers are needed to access the values from Ada which are
44 defined as C macros. */
46 FILE *c_stdin (void);
47 FILE *c_stdout (void);
48 FILE *c_stderr (void);
49 int seek_set_function (void);
50 int seek_end_function (void);
51 void *null_function (void);
52 int c_fileno (FILE *);
54 FILE *
55 c_stdin (void)
57 return stdin;
60 FILE *
61 c_stdout (void)
63 return stdout;
66 FILE *
67 c_stderr (void)
69 return stderr;
72 #ifndef SEEK_SET /* Symbolic constants for the "fseek" function: */
73 #define SEEK_SET 0 /* Set file pointer to offset */
74 #define SEEK_CUR 1 /* Set file pointer to its current value plus offset */
75 #define SEEK_END 2 /* Set file pointer to the size of the file plus offset */
76 #endif
78 int
79 seek_set_function (void)
81 return SEEK_SET;
84 int
85 seek_end_function (void)
87 return SEEK_END;
90 void *null_function (void)
92 return NULL;
95 int
96 c_fileno (FILE *s)
98 return fileno (s);