+ hangman

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

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;

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;

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",
 

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;

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)));