1 /****************************************************************************
2  *                                                                          *
3  *                         GNAT COMPILER COMPONENTS                         *
4  *                                                                          *
5  *                                  C I O                                   *
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,  59 Temple Place - Suite 330,  Boston, *
20  * MA 02111-1307, 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  ****************************************************************************/
32 
33 #ifdef IN_RTS
34 #include "tconfig.h"
35 #include "tsystem.h"
36 #include <sys/stat.h>
37 #else
38 #include "config.h"
39 #include "system.h"
40 #endif
41 
42 #include "adaint.h"
43 
44 /* Don't use macros on GNU/Linux since they cause incompatible changes between
45    glibc 2.0 and 2.1 */
46 #ifdef linux
47 #undef putchar
48 #undef getchar
49 #undef fputc
50 #undef stderr
51 #undef stdout
52 #endif
53 
54 int
55 get_char (void)
56 {
57 #ifdef VMS
58   return decc$getchar();
59 #else
60   return getchar ();
61 #endif
62 }
63 
64 int
65 get_int (void)
66 {
67   int x;
68 
69   scanf (" %d", &x);
70   return x;
71 }
72 
73 void
74 put_int (int x)
75 {
76    /* Use fprintf rather than printf, since the latter is unbuffered
77       on vxworks */
78    fprintf (stdout, "%d", x);
79 }
80 
81 void
82 put_int_stderr (int x)
83 {
84   fprintf (stderr, "%d", x);
85 }
86 
87 void
88 put_char (int c)
89 {
90   putchar (c);
91 }
92 
93 void
94 put_char_stderr (int c)
95 {
96   fputc (c, stderr);
97 }
98 
99 #ifdef __vxworks
100 
101 char *
102 mktemp (char *template)
103 {
104   return tmpnam (NULL);
105 }
106 #endif
107