1238106Sdes------------------------------------------------------------------------------ 2238106Sdes-- -- 3238106Sdes-- GNAT RUN-TIME COMPONENTS -- 4238106Sdes-- -- 5238106Sdes-- A D A . T E X T _ I O . T E X T _ S T R E A M S -- 6238106Sdes-- -- 7238106Sdes-- B o d y -- 8238106Sdes-- -- 9238106Sdes-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- 10238106Sdes-- -- 11238106Sdes-- GNAT is free software; you can redistribute it and/or modify it under -- 12238106Sdes-- terms of the GNU General Public License as published by the Free Soft- -- 13238106Sdes-- ware Foundation; either version 3, or (at your option) any later ver- -- 14238106Sdes-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15238106Sdes-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16238106Sdes-- or FITNESS FOR A PARTICULAR PURPOSE. -- 17238106Sdes-- -- 18238106Sdes-- As a special exception under Section 7 of GPL version 3, you are granted -- 19238106Sdes-- additional permissions described in the GCC Runtime Library Exception, -- 20238106Sdes-- version 3.1, as published by the Free Software Foundation. -- 21238106Sdes-- -- 22238106Sdes-- You should have received a copy of the GNU General Public License and -- 23238106Sdes-- a copy of the GCC Runtime Library Exception along with this program; -- 24238106Sdes-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 25238106Sdes-- <http://www.gnu.org/licenses/>. -- 26238106Sdes-- -- 27238106Sdes-- GNAT was originally developed by the GNAT team at New York University. -- 28238106Sdes-- Extensive contributions were provided by Ada Core Technologies Inc. -- 29238106Sdes-- -- 30238106Sdes------------------------------------------------------------------------------ 31238106Sdes 32238106Sdeswith System.File_IO; 33238106Sdes 34238106Sdespackage body Ada.Text_IO.Text_Streams is 35238106Sdes 36238106Sdes ------------ 37238106Sdes -- Stream -- 38238106Sdes ------------ 39238106Sdes 40238106Sdes function Stream (File : File_Type) return Stream_Access is 41238106Sdes begin 42238106Sdes System.File_IO.Check_File_Open (FCB.AFCB_Ptr (File)); 43238106Sdes return Stream_Access (File); 44238106Sdes end Stream; 45238106Sdes 46238106Sdesend Ada.Text_IO.Text_Streams; 47238106Sdes