← Back to branch summary

~ubuntu-branches/debian/stretch/adabrowse/stretch

« back to all changes in this revision

Viewing changes to ad-version.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2004-02-14 13:22:40 UTC
  • Revision ID: james.westby@ubuntu.com-20040214132240-cqumhiq1677pkvzo
Tags: upstream-4.0.2
Import upstream version 4.0.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
ad-version.adb
 
1
-------------------------------------------------------------------------------
 
2
--
 
3
--  This file is part of AdaBrowse.
 
4
--
 
5
-- <STRONG>Copyright (c) 2002 by Thomas Wolf.</STRONG>
 
6
-- <BLOCKQUOTE>
 
7
--    AdaBrowse is free software; you can redistribute it and/or modify it
 
8
--    under the terms of the  GNU General Public License as published by the
 
9
--    Free Software  Foundation; either version 2, or (at your option) any
 
10
--    later version. AdaBrowse is distributed in the hope that it will be
 
11
--    useful, but <EM>without any warranty</EM>; without even the implied
 
12
--    warranty of <EM>merchantability or fitness for a particular purpose.</EM>
 
13
--    See the GNU General Public License for  more details. You should have
 
14
--    received a copy of the GNU General Public License with this distribution,
 
15
--    see file "<A HREF="GPL.txt">GPL.txt</A>". If not, write to the Free
 
16
--    Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 
17
--    USA.
 
18
-- </BLOCKQUOTE>
 
19
--
 
20
-- <DL><DT><STRONG>
 
21
-- Author:</STRONG><DD>
 
22
--   Thomas Wolf  (TW)
 
23
--   <ADDRESS><A HREF="mailto:twolf@acm.org">twolf@acm.org</A></ADDRESS></DL>
 
24
--
 
25
-- <DL><DT><STRONG>
 
26
-- Purpose:</STRONG><DD>
 
27
--   Version information.</DL>
 
28
--
 
29
-- <!--
 
30
-- Revision History
 
31
--
 
32
--   02-FEB-2002   TW  First release.
 
33
-- -->
 
34
-------------------------------------------------------------------------------
 
35
 
 
36
pragma License (GPL);
 
37
 
 
38
with Ada.Characters.Handling;
 
39
with Asis.Implementation;
 
40
 
 
41
package body AD.Version is
 
42
 
 
43
   use Ada.Characters.Handling;
 
44
 
 
45
   function Get_Asis_Version
 
46
     return String
 
47
   is
 
48
   begin
 
49
      return To_String (Asis.Implementation.ASIS_Implementor_Version);
 
50
   end Get_Asis_Version;
 
51
 
 
52
   function Get_Version
 
53
     return String
 
54
   is
 
55
   begin
 
56
      return "4.0.2";
 
57
   end Get_Version;
 
58
 
 
59
   function Get_Maintainer
 
60
     return String
 
61
   is
 
62
   begin
 
63
      return "<twolf@acm.org>";
 
64
   end Get_Maintainer;
 
65
 
 
66
   function Get_URL
 
67
     return String
 
68
   is
 
69
   begin
 
70
      return "http://home.tiscalinet.ch/t_wolf/tw/ada95/adabrowse/";
 
71
   end Get_URL;
 
72
 
 
73
   function Time
 
74
     return String
 
75
   is
 
76
   begin
 
77
      return "2003-11-20";
 
78
   end Time;
 
79
 
 
80
end AD.Version;