X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Fada%2Fi-cstrea.ads;fp=gcc%2Fada%2Fi-cstrea.ads;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=29f110cc8a54c61d127f090523c06e2f4b2165ce;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/ada/i-cstrea.ads b/gcc/ada/i-cstrea.ads deleted file mode 100644 index 29f110cc..00000000 --- a/gcc/ada/i-cstrea.ads +++ /dev/null @@ -1,346 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- I N T E R F A C E S . C _ S T R E A M S -- --- -- --- S p e c -- --- -- --- $Revision: 1.1.16.1 $ --- -- --- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- --- -- --- 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 Soft- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- 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 distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- --- MA 02111-1307, USA. -- --- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - - - --- This package is a thin binding to selected functions in the C --- library that provide a complete interface for handling C streams. - -with Unchecked_Conversion; -with System.Parameters; - -package Interfaces.C_Streams is -pragma Elaborate_Body (C_Streams); - - -- Note: the reason we do not use the types that are in Interfaces.C is - -- that we want to avoid dragging in the code in this unit if possible. - - subtype chars is System.Address; - -- Pointer to null-terminated array of characters - - subtype FILEs is System.Address; - -- Corresponds to the C type FILE* - - subtype voids is System.Address; - -- Corresponds to the C type void* - - subtype int is Integer; - -- Note: the above type is a subtype deliberately, and it is part of - -- this spec that the above correspondence is guaranteed. This means - -- that it is legitimate to, for example, use Integer instead of int. - -- We provide this synonym for clarity, but in some cases it may be - -- convenient to use the underlying types (for example to avoid an - -- unnecessary dependency of a spec on the spec of this unit). - - type long is range -(2 ** (System.Parameters.long_bits - 1)) - .. +(2 ** (System.Parameters.long_bits - 1)) - 1; - -- Note: the above type also used to be a subtype, but the correspondence - -- was unused so it was made into a parameterized type to avoid having - -- multiple versions of this spec for systems where long /= Long_Integer. - - type size_t is mod 2 ** Standard'Address_Size; - - NULL_Stream : constant FILEs; - -- Value returned (NULL in C) to indicate an fdopen/fopen/tmpfile error - - ---------------------------------- - -- Constants Defined in stdio.h -- - ---------------------------------- - - EOF : constant int; - -- Used by a number of routines to indicate error or end of file - - IOFBF : constant int; - IOLBF : constant int; - IONBF : constant int; - -- Used to indicate buffering mode for setvbuf call - - L_tmpnam : constant int; - -- Maximum length of file name that can be returned by tmpnam - - SEEK_CUR : constant int; - SEEK_END : constant int; - SEEK_SET : constant int; - -- Used to indicate origin for fseek call - - function stdin return FILEs; - function stdout return FILEs; - function stderr return FILEs; - -- Streams associated with standard files - - -------------------------- - -- Standard C functions -- - -------------------------- - - -- The functions selected below are ones that are available in DOS, - -- OS/2, UNIX and Xenix (but not necessarily in ANSI C). These are - -- very thin interfaces which copy exactly the C headers. For more - -- documentation on these functions, see the Microsoft C "Run-Time - -- Library Reference" (Microsoft Press, 1990, ISBN 1-55615-225-6), - -- which includes useful information on system compatibility. - - procedure clearerr (stream : FILEs); - - function fclose (stream : FILEs) return int; - - function fdopen (handle : int; mode : chars) return FILEs; - - function feof (stream : FILEs) return int; - - function ferror (stream : FILEs) return int; - - function fflush (stream : FILEs) return int; - - function fgetc (stream : FILEs) return int; - - function fgets (strng : chars; n : int; stream : FILEs) return chars; - - function fileno (stream : FILEs) return int; - - function fopen (filename : chars; Mode : chars) return FILEs; - -- Note: to maintain target independence, use text_translation_required, - -- a boolean variable defined in a-sysdep.c to deal with the target - -- dependent text translation requirement. If this variable is set, - -- then b/t should be appended to the standard mode argument to set - -- the text translation mode off or on as required. - - function fputc (C : int; stream : FILEs) return int; - - function fputs (Strng : chars; Stream : FILEs) return int; - - function fread - (buffer : voids; - size : size_t; - count : size_t; - stream : FILEs) - return size_t; - - function fread - (buffer : voids; - index : size_t; - size : size_t; - count : size_t; - stream : FILEs) - return size_t; - -- Same as normal fread, but has a parameter 'index' that indicates - -- the starting index for the read within 'buffer' (which must be the - -- address of the beginning of a whole array object with an assumed - -- zero base). This is needed for systems that do not support taking - -- the address of an element within an array. - - function freopen - (filename : chars; - mode : chars; - stream : FILEs) - return FILEs; - - function fseek - (stream : FILEs; - offset : long; - origin : int) - return int; - - function ftell (stream : FILEs) return long; - - function fwrite - (buffer : voids; - size : size_t; - count : size_t; - stream : FILEs) - return size_t; - - function isatty (handle : int) return int; - - procedure mktemp (template : chars); - -- The return value (which is just a pointer to template) is discarded - - procedure rewind (stream : FILEs); - - function setvbuf - (stream : FILEs; - buffer : chars; - mode : int; - size : size_t) - return int; - - procedure tmpnam (string : chars); - -- The parameter must be a pointer to a string buffer of at least L_tmpnam - -- bytes (the call with a null parameter is not supported). The returned - -- value, which is just a copy of the input argument, is discarded. - - function tmpfile return FILEs; - - function ungetc (c : int; stream : FILEs) return int; - - function unlink (filename : chars) return int; - - --------------------- - -- Extra functions -- - --------------------- - - -- These functions supply slightly thicker bindings than those above. - -- They are derived from functions in the C Run-Time Library, but may - -- do a bit more work than just directly calling one of the Library - -- functions. - - function file_exists (name : chars) return int; - -- Tests if given name corresponds to an existing file. - - function is_regular_file (handle : int) return int; - -- Tests if given handle is for a regular file (result 1) or for - -- a non-regular file (pipe or device, result 0). - - --------------------------------- - -- Control of Text/Binary Mode -- - --------------------------------- - - -- If text_translation_required is true, then the following functions may - -- be used to dynamically switch a file from binary to text mode or vice - -- versa. These functions have no effect if text_translation_required is - -- false (i.e. in normal unix mode). Use fileno to get a stream handle. - - procedure set_binary_mode (handle : int); - procedure set_text_mode (handle : int); - - ---------------------------- - -- Full Path Name support -- - ---------------------------- - - procedure full_name (nam : chars; buffer : chars); - -- Given a NUL terminated string representing a file name, returns in - -- buffer a NUL terminated string representing the full path name for - -- the file name. On systems where it is relevant the drive is also part - -- of the full path name. It is the responsibility of the caller to - -- pass an actual parameter for buffer that is big enough for any full - -- path name. Use max_path_len given below as the size of buffer. - - max_path_len : Integer; - -- Maximum length of an allowable full path name on the system, - -- including a terminating NUL character. - -private - -- The following functions are specialized in the body depending on the - -- operating system. - - pragma Inline (fread); - pragma Inline (fwrite); - pragma Inline (setvbuf); - - -- The following routines are always functions in C, and thus can be - -- imported directly into Ada without any intermediate C needed - - pragma Import (C, clearerr); - pragma Import (C, fclose); - pragma Import (C, fdopen); - pragma Import (C, fflush); - pragma Import (C, fgetc); - pragma Import (C, fgets); - pragma Import (C, fopen); - pragma Import (C, fputc); - pragma Import (C, fputs); - pragma Import (C, freopen); - pragma Import (C, fseek); - pragma Import (C, ftell); - pragma Import (C, isatty); - pragma Import (C, mktemp); - pragma Import (C, rewind); - pragma Import (C, tmpnam); - pragma Import (C, tmpfile); - pragma Import (C, ungetc); - pragma Import (C, unlink); - - pragma Import (C, file_exists, "__gnat_file_exists"); - pragma Import (C, is_regular_file, "__gnat_is_regular_file_fd"); - - pragma Import (C, set_binary_mode, "__gnat_set_binary_mode"); - pragma Import (C, set_text_mode, "__gnat_set_text_mode"); - - pragma Import (C, max_path_len, "max_path_len"); - pragma Import (C, full_name, "__gnat_full_name"); - - -- The following may be implemented as macros, and so are supported - -- via an interface function in the a-stdio.c file. - - pragma Import (C, feof, "__gnat_feof"); - pragma Import (C, ferror, "__gnat_ferror"); - pragma Import (C, fileno, "__gnat_fileno"); - - -- Constants in stdio are provided via imported variables that are - -- defined in a-cstrea.c using the stdio.h header. It would be cleaner - -- if we could import constant directly, but GNAT does not support - -- pragma Import for constants ??? - - c_constant_EOF : int; - - c_constant_IOFBF : int; - c_constant_IOLBF : int; - c_constant_IONBF : int; - - c_constant_SEEK_CUR : int; - c_constant_SEEK_END : int; - c_constant_SEEK_SET : int; - - c_constant_L_tmpnam : int; - - pragma Import (C, c_constant_EOF, "__gnat_constant_eof"); - pragma Import (C, c_constant_IOFBF, "__gnat_constant_iofbf"); - pragma Import (C, c_constant_IOLBF, "__gnat_constant_iolbf"); - pragma Import (C, c_constant_IONBF, "__gnat_constant_ionbf"); - pragma Import (C, c_constant_SEEK_CUR, "__gnat_constant_seek_cur"); - pragma Import (C, c_constant_SEEK_END, "__gnat_constant_seek_end"); - pragma Import (C, c_constant_SEEK_SET, "__gnat_constant_seek_set"); - pragma Import (C, c_constant_L_tmpnam, "__gnat_constant_l_tmpnam"); - - pragma Import (C, stderr, "__gnat_constant_stderr"); - pragma Import (C, stdin, "__gnat_constant_stdin"); - pragma Import (C, stdout, "__gnat_constant_stdout"); - - EOF : constant int := c_constant_EOF; - IOFBF : constant int := c_constant_IOFBF; - IOLBF : constant int := c_constant_IOLBF; - IONBF : constant int := c_constant_IONBF; - SEEK_CUR : constant int := c_constant_SEEK_CUR; - SEEK_END : constant int := c_constant_SEEK_END; - SEEK_SET : constant int := c_constant_SEEK_SET; - L_tmpnam : constant int := c_constant_L_tmpnam; - - type Dummy is access Integer; - function To_Address is new Unchecked_Conversion (Dummy, System.Address); - -- Used to concoct the null address below - - NULL_Stream : constant FILEs := To_Address (Dummy'(null)); - -- Value returned (NULL in C) to indicate an fdopen/fopen/tmpfile error - -end Interfaces.C_Streams;