From d73933af0c6131c7127346e8133f2c426e8b879d Mon Sep 17 00:00:00 2001
From: "Alejandro R. Mosteo" <jano@raider>
Date: Mon, 12 Mar 2018 01:27:28 +0100
Subject: [PATCH] + hangman

---
 index/alire-index-globe_3d.ads |  1 +
 index/alire-index-hangman.ads  | 17 ++++++++++++++++
 index/alire-index-template.ads | 36 ++++++++++++++++++----------------
 index/alire-projects.ads       | 11 +++++++++++
 src/alire-index.ads            |  2 +-
 src/alire-versions.ads         |  4 ++++
 6 files changed, 53 insertions(+), 18 deletions(-)
 create mode 100644 index/alire-index-hangman.ads

diff --git a/index/alire-index-globe_3d.ads b/index/alire-index-globe_3d.ads
index 1768fc4a..e4f0c997 100644
--- a/index/alire-index-globe_3d.ads
+++ b/index/alire-index-globe_3d.ads
@@ -32,6 +32,7 @@ package Alire.Index.Globe_3D is
 
                      Private_Properties =>
                        GPR_File ("globe_3d.gpr") and
+                       GPR_File ("demo/culler/armada/armada.gpr") and
                        GPR_File ("demo/globe_3d_demos.gpr") and
                        GPR_File ("demo/multi_window/multi_window.gpr") and
                        GPR_File ("demo/sprite/sprite_demo.gpr") and
diff --git a/index/alire-index-hangman.ads b/index/alire-index-hangman.ads
new file mode 100644
index 00000000..2e9f6cec
--- /dev/null
+++ b/index/alire-index-hangman.ads
@@ -0,0 +1,17 @@
+package Alire.Index.Hangman is
+
+   function Project is new Catalogued_Project (Projects.Hangman);
+
+   Prj_Repo       : constant URL    := "https://github.com/alire-project/Hangman.git";
+   Prj_Author     : constant String := "Jon Hollan, Mark Hoffman, & Brandon Ball";
+
+   V_1_0 : constant Release :=
+             Project.Register
+               (V ("1.0"),
+                Git (Prj_Repo, "a57904920b81d72621aba434bf72e0175a12624d"),
+
+                Properties         =>
+                  Executable ("hangmain") and
+                  Author     (Prj_Author)
+               );
+end Alire.Index.Hangman;
diff --git a/index/alire-index-template.ads b/index/alire-index-template.ads
index 430fb913..bc32ccfb 100644
--- a/index/alire-index-template.ads
+++ b/index/alire-index-template.ads
@@ -1,29 +1,31 @@
 package Alire.Index.Template is
 
+--     function Project is new Catalogued_Project (Projects.Name);
+--
 --     Prj_Repo       : constant URL    := "";
 --     Prj_Author     : constant String := "";
 --     Prj_Maintainer : constant String := "";
 --     Prj_Website    : constant URL    := "";
-
+--
 --     V_0_0_0 : constant Release :=
---                 Register (Projects.Name,
---                           V (""),
---                           Git (Prj_Repo, "commit"),
-
---                           Notes => "",
-
---                           Properties =>
---                             Project_File ("") and
+--                 Project.Register
+--                   (V (""),
+--                    Git (Prj_Repo, "commit"),
 --
---                             Executable ("main") and
+--                    Notes              => "",
 --
---                             Author     (Prj_Author) and
---                             Maintainer (Prj_Maintainer) and
---                             Website    (Prj_Website) and
---                             License    (GMGPL_2_0),
+--                    Properties         =>
+--                      Project_File ("") and
 --
---                           Private_Properties =>
---                             GPR_File ("/")
---                          );
+--                      Executable ("main") and
+--
+--                      Author     (Prj_Author) and
+--                      Maintainer (Prj_Maintainer) and
+--                      Website    (Prj_Website) and
+--                      License    (GMGPL_2_0),
+--
+--                    Private_Properties =>
+--                      GPR_File ("/")
+--                   );
 
 end Alire.Index.Template;
diff --git a/index/alire-projects.ads b/index/alire-projects.ads
index 6e37bc91..26e00961 100644
--- a/index/alire-projects.ads
+++ b/index/alire-projects.ads
@@ -35,6 +35,11 @@ package Alire.Projects with Preelaborate is
       GLUT,
       GtkAda,
 
+      -------
+      -- H --
+      -------
+
+      Hangman,
       Hello,
 
       -------
@@ -127,6 +132,12 @@ package Alire.Projects with Preelaborate is
          when GtkAda =>
             "Ada binding for the GTK+ GUI",
 
+      -------
+      -- H --
+      -------
+
+         when Hangman =>
+            "Hangman game for the console",
          when Hello =>
             """Hello, world!"" demonstration project",
 
diff --git a/src/alire-index.ads b/src/alire-index.ads
index c2e4c0e1..cf7c0d3a 100644
--- a/src/alire-index.ads
+++ b/src/alire-index.ads
@@ -149,7 +149,7 @@ package Alire.Index is
    
    --  DEPENDENCIES BUILT FROM RELEASES
    
-   --  See too Major_Compatible and Minor_Compatible methods of Release         
+   --  See also Alire.Versions.Versioned'Class methods       
 
    subtype Version     is Semantic_Versioning.Version;
    subtype Version_Set is Semantic_Versioning.Version_Set;
diff --git a/src/alire-versions.ads b/src/alire-versions.ads
index f7a2294b..078f9a05 100644
--- a/src/alire-versions.ads
+++ b/src/alire-versions.ads
@@ -14,6 +14,7 @@ package Alire.Versions with Preelaborate is
 
    function Version (V : Versioned) return Semantic_Versioning.Version is abstract;
 
+   function This_Version (V : Versioned'Class) return Conditional.Dependencies;
    function Within_Major (V : Versioned'Class) return Conditional.Dependencies;
    function Within_Minor (V : Versioned'Class) return Conditional.Dependencies;
 
@@ -34,6 +35,9 @@ private
 
    use Semantic_Versioning;
 
+   function This_Version (V : Versioned'Class) return Conditional.Dependencies is
+     (Conditional.New_Dependency (V.Name, Exactly (V.Version)));
+
    function Within_Major (V : Versioned'Class) return Conditional.Dependencies is
      (Conditional.New_Dependency (V.Name, Within_Major (V.Version)));