ftp.nice.ch/pub/next/developer/languages/ada/gnat.1.83.N.b.tar.gz#/gnat-1.83-m68k-next-bin/rts/io-aux.c

This is io-aux.c in view mode; [Download] [Up]

/****************************************************************************/
/*                                                                          */
/*                         GNAT RUN-TIME COMPONENTS                         */
/*									    */
/*		        Text_IO Auxiliary C functions                       */
/*									    */
/*				    Body				    */
/*                                                                          */
/*                            $Revision: 1.1 $                              */
/*                                                                          */
/*             Copyright (c) 1992,1993, NYU, All Rights Reserved            */
/*                                                                          */
/* GNAT is free software;  you can  redistribute it  and/or modify it under */
/* terms  of the GNU  General  Public  License  as  published  by the  Free */
/* Software  Foundation;  either version 2,  or (at your option)  any later */
/* version.  GNAT is distributed  in the hope  that it will be useful,  but */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANT- */
/* ABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public */
/* License  for  more details.  You should have received  a copy of the GNU */
/* General Public License along with GNAT;  see file COPYING. If not, write */
/* to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/*                                                                          */
/****************************************************************************/
#include <stdio.h>
FILE *c_stdin () { return stdin;}
FILE *c_stdout () { return stdout;}
FILE *c_stderr () { return stderr;}

#if 0
----------------------
-- REVISION HISTORY --
----------------------

----------------------------
revision 1.1
date: Mon Dec 20 01:05:22 1993;  author: banner
Initial revision
----------------------------
** New changes after this line and before endif. **
#endif

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.