1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * C I O *
6 * *
7 * C Implementation File *
8 * *
9 * Copyright (C) 1992-2012, 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 3, 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. *
17 * *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
21 * *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
26 * *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
29 * *
30 ****************************************************************************/
31
32 #ifdef IN_RTS
33 #include "tconfig.h"
34 #include "tsystem.h"
35 #include <sys/stat.h>
36 #else
37 #include "config.h"
38 #include "system.h"
39 #endif
40
41 #include "adaint.h"
42
43 #ifdef __cplusplus
44 extern "C" {
45 #endif
46
47 /* Don't use macros on GNU/Linux since they cause incompatible changes between
48 glibc 2.0 and 2.1 */
49 #ifdef linux
50 #undef putchar
51 #undef getchar
52 #undef fputc
53 #undef stderr
54 #undef stdout
55 #endif
56
57 /* Don't use macros versions of this functions on VxWorks since they cause
58 imcompatible changes in some VxWorks versions */
59 #ifdef __vxworks
60 #undef getchar
61 #undef putchar
62 #undef feof
63 #undef ferror
64 #undef fileno
65 #endif
66
67 #ifdef RTX
68 #include <windows.h>
69 #include <Rtapi.h>
70 #endif
71
72 int
get_char(void)73 get_char (void)
74 {
75 #ifdef VMS
76 return decc$getchar();
77 #else
78 return getchar ();
79 #endif
80 }
81
82 int
get_int(void)83 get_int (void)
84 {
85 int x;
86
87 scanf (" %d", &x);
88 return x;
89 }
90
91 void
put_int(int x)92 put_int (int x)
93 {
94 #ifdef RTX
95 RtPrintf ("%d", x);
96 #else
97 /* Use fprintf rather than printf, since the latter is unbuffered
98 on vxworks */
99 fprintf (stdout, "%d", x);
100 #endif
101 }
102
103 void
put_int_stderr(int x)104 put_int_stderr (int x)
105 {
106 #ifdef RTX
107 RtPrintf ("%d", x);
108 #else
109 fprintf (stderr, "%d", x);
110 #endif
111 }
112
113 void
put_char(int c)114 put_char (int c)
115 {
116 #ifdef RTX
117 RtPrintf ("%c", c);
118 #else
119 putchar (c);
120 #endif
121 }
122
123 void
put_char_stderr(int c)124 put_char_stderr (int c)
125 {
126 #ifdef RTX
127 RtPrintf ("%c", c);
128 #else
129 fputc (c, stderr);
130 #endif
131 }
132
133 #ifdef __vxworks
134
135 char *
mktemp(char * template)136 mktemp (char *template)
137 {
138 return tmpnam (NULL);
139 }
140 #endif
141
142 #ifdef __cplusplus
143 }
144 #endif
145