/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

  1. -------------------------------------------------------------------------------
  2. -- --
  3. -- Copyright (C) 2010-, Thomas ¸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. -- The syndication resource.
  18. with AWS.Response;
  19. with AWS.Status;
  20. with Yolk.Syndication;
  21. package View.Syndication is
  22. use Yolk.Syndication;
  23. -- Declare a new Atom_Feed object.
  24. Feed : Atom_Feed := New_Atom_Feed (Max_Entries => 10,
  25. Min_Entries => 5);
  26. procedure Add_Entry_To_Feed;
  27. -- Add a new entry to Feed.
  28. function Generate
  29. (Request : in AWS.Status.Data)
  30. return AWS.Response.Data;
  31. -- Generate the content for the /syndication resource.
  32. end View.Syndication;