------------------------------------------------------------------------------
-- Ada Web Server --
-- --
-- Copyright (C) 2012-2013, AdaCore --
-- --
-- This 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 3, or (at your option) any --
-- later version. This software is distributed in the hope that it will --
-- be useful, but WITHOUT 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 this software; see file COPYING3. If not, go --
-- to http://www.gnu.org/licenses for a complete copy of the license. --
------------------------------------------------------------------------------
with Ada.Environment_Variables;
with Ada.Strings.Fixed;
with Ada.Text_IO;
with AWS.Resources.Embedded;
with AWS.Utils;
with Config;
with rdemo;
procedure Deep_Res is
use Ada;
use AWS;
function Gen (C : Character) return String;
procedure Test (Name : String);
-- Check named resource
---------
-- Gen --
---------
function Gen (C : Character) return String is
use Ada.Strings.Fixed;
begin
return Config.Path_Component_Length * C;
end Gen;
----------
-- Test --
----------
procedure Test (Name : String) is
use AWS.Resources;
File : Resources.File_Type;
Buffer : String (1 .. 100);
Last : Natural;
GZip : Boolean := False;
begin
if Resources.Exist (Name) = None then
Text_IO.Put_Line ("Resource " & Name & " not found.");
else
Text_IO.Put_Line ("Name " & Name);
Resources.Embedded.Open (File, Name, GZip => GZip);
while not Resources.End_Of_File (File) loop
Resources.Get_Line (File, Buffer, Last);
Text_IO.Put_Line (": " & Buffer (1 .. Last));
end loop;
Resources.Close (File);
end if;
end Test;
D : constant String := "dir1_" & Gen ('x');
SD : constant String := D & '/' & "sdir_" & Gen ('y');
SSD : constant String := SD & '/' & "ssdir_" & Gen ('z');
begin
Test (SD & "/text3.txt");
Test (SSD & "/text5-DEMO.txt");
end Deep_Res;