/demo/src/view-db_test.ads

http://github.com/ThomasLocke/yolk · Ada · 40 lines · 14 code · 7 blank · 19 comment · 0 complexity · 6449a478f2d64f32a195994935bb5e2d MD5 · raw file 

    

  1. -------------------------------------------------------------------------------
    2. 

  2. --                                                                           --
    3. 

  3. --                   Copyright (C) 2010-, Thomas Løcke                   --
    4. 

  4. --                                                                           --
    5. 

  5. --  This is free software;  you can redistribute it and/or modify it         --
    6. 

  6. --  under terms of the  GNU General Public License  as published by the      --
    7. 

  7. --  Free Software  Foundation;  either version 3,  or (at your  option) any  --
    8. 

  8. --  later version. This library is distributed in the hope that it will be   --
    9. 

  9. --  useful, but WITHOUT ANY WARRANTY;  without even the implied warranty of  --
    10. 

  10. --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     --
    11. 

  11. --  You should have received a copy of the GNU General Public License and    --
    12. 

  12. --  a copy of the GCC Runtime Library Exception along with this program;     --
    13. 

  13. --  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
    14. 

  14. --  <http://www.gnu.org/licenses/>.                                          --
    15. 

  15. --                                                                           --
    16. 

  16. -------------------------------------------------------------------------------
    17. 

  17. 

  18. --  The dbtest resource.
    19. 

  19. 

  20. with AWS.Response;
    21. 

  21. with AWS.Status;
    22. 

  22. 

  23. package View.DB_Test is
    24. 

  24. 

  25.    type Str_Ptr is access all String;
    26. 

  26. 

  27.    Names : constant array (Integer range 1 .. 5) of Str_Ptr :=
    28. 

  28.              (1 => new String'("Billy"),
    29. 

  29.               2 => new String'("David"),
    30. 

  30.               3 => new String'("Bobby"),
    31. 

  31.               4 => new String'("Tommy"),
    32. 

  32.               5 => new String'("Bruce"));
    33. 

  33.    --  Test data to add to the database.
    34. 

  34. 

  35.    function Generate
    36. 

  36.      (Request : in AWS.Status.Data)
    37. 

  37.       return AWS.Response.Data;
    38. 

  38.    --  Generate the content for the /database resource.
    39. 

  39. 

  40. end View.DB_Test;
    41.