U:RDoc::TopLevel[ iI"lib/rouge/demos/ada:ETcRDoc::Parser::Simpleo:RDoc::Markup::Document: @parts[ o:RDoc::Markup::Paragraph;[I"with Ada.Directories; ;TI"with Ada.Direct_IO; ;TI"with Ada.Text_IO;;To:RDoc::Markup::BlankLineo; ;[I"4procedure Extra_IO.Read_File (Name : String) is;T@o:RDoc::Markup::Verbatim;[I"+package Dirs renames Ada.Directories; ;TI"*package Text_IO renames Ada.Text_IO; ;TI" ;TI"3-- Get the size of the file for a new string. ;TI"3Size : Natural := Natural (Dirs.Size (Name)); ;TI"0subtype File_String is String (1 .. Size); ;TI" ;TI"1-- Instantiate Direct_IO for our file type. ;TI"5package FIO is new Ada.Direct_IO (File_String); ;TI" ;TI"File : FIO.File_Type; ;TI"Contents : File_String; ;T: @format0o; ;[I" begin;To; ;[ I")FIO.Open (File, FIO.In_File, Name); ;TI" FIO.Read (File, Contents); ;TI"FIO.Close (File); ;TI" ;TI"Text_IO.Put (Contents); ;T; 0o; ;[I"end Extra_IO.Read_File;;T: @file@:0@omit_headings_from_table_of_contents_below0