home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / io-aux.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  2KB  |  44 lines
  1. /****************************************************************************/
  2. /*                                                                          */
  3. /*                         GNAT RUN-TIME COMPONENTS                         */
  4. /*                                        */
  5. /*                Text_IO Auxiliary C functions                       */
  6. /*                                        */
  7. /*                    Body                    */
  8. /*                                                                          */
  9. /*                            $Revision: 1.3 $                              */
  10. /*                                                                          */
  11. /*             Copyright (c) 1992,1993, NYU, All Rights Reserved            */
  12. /*                                                                          */
  13. /* GNAT is free software;  you can  redistribute it  and/or modify it under */
  14. /* terms  of the GNU  General  Public  License  as  published  by the  Free */
  15. /* Software  Foundation;  either version 2,  or (at your option)  any later */
  16. /* version.  GNAT is distributed  in the hope  that it will be useful,  but */
  17. /* but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANT- */
  18. /* ABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public */
  19. /* License  for  more details.  You should have received  a copy of the GNU */
  20. /* General Public License along with GNAT;  see file COPYING. If not, write */
  21. /* to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
  22. /*                                                                          */
  23. /****************************************************************************/
  24. #include <stdio.h>
  25.  
  26. /* Function wrappers are needed to access the values from Ada which are */
  27. /* defined as C macros.                                                 */
  28.  
  29. FILE *c_stdin  (void) { return stdin; }
  30. FILE *c_stdout (void) { return stdout;}
  31. FILE *c_stderr (void) { return stderr;}
  32.  
  33. #ifndef SEEK_SET    /* Symbolic constants for the "fseek" function: */
  34. #define SEEK_SET 0  /* Set file pointer to offset */
  35. #define SEEK_CUR 1  /* Set file pointer to its current value plus offset */
  36. #define SEEK_END 2  /* Set file pointer to the size of the file plus offset */
  37. #endif
  38.  
  39. int   seek_set_function (void)  { return SEEK_SET; }
  40. int   seek_end_function (void)  { return SEEK_END; }
  41. void *null_function     (void)  { return NULL;     }
  42.  
  43. int c_fileno (FILE *s) { return fileno (s); }
  44.