/demo/src/view-syndication.ads
http://github.com/ThomasLocke/yolk · Ada · 40 lines · 12 code · 8 blank · 20 comment · 0 complexity · 71449faa2ffad11be333538123694a20 MD5 · raw file
- -------------------------------------------------------------------------------
- -- --
- -- Copyright (C) 2010-, Thomas Løcke --
- -- --
- -- 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 library 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. --
- -- You should have received a copy of the GNU General Public License and --
- -- a copy of the GCC Runtime Library Exception along with this program; --
- -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
- -- <http://www.gnu.org/licenses/>. --
- -- --
- -------------------------------------------------------------------------------
- -- The syndication resource.
- with AWS.Response;
- with AWS.Status;
- with Yolk.Syndication;
- package View.Syndication is
- use Yolk.Syndication;
- -- Declare a new Atom_Feed object.
- Feed : Atom_Feed := New_Atom_Feed (Max_Entries => 10,
- Min_Entries => 5);
- procedure Add_Entry_To_Feed;
- -- Add a new entry to Feed.
- function Generate
- (Request : in AWS.Status.Data)
- return AWS.Response.Data;
- -- Generate the content for the /syndication resource.
- end View.Syndication;