/demo/src/view-dir.ads
Ada | 30 lines | 7 code | 5 blank | 18 comment | 0 complexity | f00cfcc821a597d98e369b24f27dda43 MD5 | raw file
1------------------------------------------------------------------------------- 2-- -- 3-- Copyright (C) 2010-, Thomas Løcke -- 4-- -- 5-- This is free software; you can redistribute it and/or modify it -- 6-- under terms of the GNU General Public License as published by the -- 7-- Free Software Foundation; either version 3, or (at your option) any -- 8-- later version. This library is distributed in the hope that it will be -- 9-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- 10-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 11-- You should have received a copy of the GNU General Public License and -- 12-- a copy of the GCC Runtime Library Exception along with this program; -- 13-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 14-- <http://www.gnu.org/licenses/>. -- 15-- -- 16------------------------------------------------------------------------------- 17 18-- The directory listing resource. 19 20with AWS.Response; 21with AWS.Status; 22 23package View.Dir is 24 25 function Generate 26 (Request : in AWS.Status.Data) 27 return AWS.Response.Data; 28 -- Generate the content for the /dir/ resource. 29 30end View.Dir;