From 3423b47b44aeeea5215127f42e4f8d8fe1fec2b3 Mon Sep 17 00:00:00 2001 From: Alejandro R Mosteo Date: Mon, 30 Apr 2018 10:52:43 +0200 Subject: [PATCH] New "reflective" catalog entries --- index/alire-index-ada_lua.ads | 3 +-- index/alire-index-adacurses.ads | 4 ++-- index/alire-index-adayaml.ads | 5 ++--- index/alire-index-alire.ads | 4 ++-- index/alire-index-alr.ads | 4 ++-- index/alire-index-apq.ads | 4 ++-- index/alire-index-aunit.ads | 4 ++-- index/alire-index-eagle_lander.ads | 4 ++-- index/alire-index-globe_3d.ads | 4 ++-- index/alire-index-hangman.ads | 4 ++-- index/alire-index-hello.ads | 4 ++-- index/alire-index-libadacrypt.ads | 4 ++-- index/alire-index-libhello.ads | 5 +++-- index/alire-index-mathpaqs.ads | 5 +++-- index/alire-index-openglada.ads | 4 ++-- index/alire-index-pragmarc.ads | 4 ++-- index/alire-index-rxada.ads | 4 ++-- index/alire-index-sdlada.ads | 4 ++-- index/alire-index-semantic_versioning.ads | 4 ++-- index/alire-index-simple_components.ads | 12 ++---------- index/alire-index-simple_logging.ads | 3 +-- index/alire-index-steamsky.ads | 4 ++-- index/alire-index-template.ads | 3 +-- index/alire-index-whitakers_words.ads | 4 ++-- index/alire-index-xml_ez_out.ads | 3 +-- index/native/alire-index-glut.ads | 3 +-- index/native/alire-index-gtkada.ads | 3 +-- index/native/alire-index-libglfw3.ads | 4 ++-- index/native/alire-index-libgnutls.ads | 3 +-- index/native/alire-index-liblua.ads | 4 ++-- index/native/alire-index-libsdl2.ads | 16 ++++++++-------- index/native/alire-index-libx11.ads | 3 +-- index/native/alire-index-make.ads | 4 ++-- index/native/alire-index-native_template.ads | 3 ++- index/native/alire-index-ncursesada.ads | 4 ++-- index/native/alire-index-unixodbc.ads | 4 ++-- src/alire-index.ads | 9 +++++---- 37 files changed, 77 insertions(+), 90 deletions(-) diff --git a/index/alire-index-ada_lua.ads b/index/alire-index-ada_lua.ads index 7ee55d99..aa03cffe 100644 --- a/index/alire-index-ada_lua.ads +++ b/index/alire-index-ada_lua.ads @@ -2,8 +2,7 @@ with Alire.Index.Liblua; package Alire.Index.Ada_Lua is - function Project is new Catalogued_Project ("ada_lua", - "An Ada binding for Lua"); + function Project is new Catalogued_Project ("An Ada binding for Lua"); Prj_Repo : constant URL := "https://github.com/alire-project/ada-lua.git"; Prj_Maintainer : constant String := "AdaCore"; diff --git a/index/alire-index-adacurses.ads b/index/alire-index-adacurses.ads index a94e06b2..258180d0 100644 --- a/index/alire-index-adacurses.ads +++ b/index/alire-index-adacurses.ads @@ -2,8 +2,8 @@ with Alire.Index.NcursesAda; package Alire.Index.Adacurses is - function Project is new Catalogued_Project ("adacurses", - "Wrapper on different packagings of NcursesAda"); + function Project is + new Catalogued_Project ("Wrapper on different packagings of NcursesAda"); Repo : constant String := "https://github.com/alire-project/adacurses-wrapper.git"; diff --git a/index/alire-index-adayaml.ads b/index/alire-index-adayaml.ads index 7e2b1b6c..fe73793e 100644 --- a/index/alire-index-adayaml.ads +++ b/index/alire-index-adayaml.ads @@ -3,11 +3,10 @@ with Alire.Index.Simple_Components; package Alire.Index.AdaYaml is - function Project is new Catalogued_Project ("adayaml", - "Experimental YAML 1.3 implementation in Ada"); + function Project is + new Catalogued_Project ("Experimental YAML 1.3 implementation in Ada"); function Server is new Extension (Base => Project, - X_Name => "server", Description => "Server component"); Prj_Repo : constant URL := "https://github.com/yaml/AdaYaml.git"; diff --git a/index/alire-index-alire.ads b/index/alire-index-alire.ads index 7303a282..4eed03a7 100644 --- a/index/alire-index-alire.ads +++ b/index/alire-index-alire.ads @@ -3,8 +3,8 @@ with Alire.Index.Simple_Logging; package Alire.Index.Alire is - function Project is new Catalogued_Project ("alire", - "Alire project catalog and support files"); + function Project is + new Catalogued_Project ("Alire project catalog and support files"); Repo : constant URL := "https://github.com/alire-project/alire.git"; diff --git a/index/alire-index-alr.ads b/index/alire-index-alr.ads index fb6f76c1..77dff849 100644 --- a/index/alire-index-alr.ads +++ b/index/alire-index-alr.ads @@ -3,8 +3,8 @@ with Alire.Index.Simple_Logging; package Alire.Index.Alr is - function Project is new Catalogued_Project ("alr", - "Command-line tool from the Alire project"); + function Project is + new Catalogued_Project ("Command-line tool from the Alire project"); Repo : constant URL := "https://github.com/alire-project/alr.git"; diff --git a/index/alire-index-apq.ads b/index/alire-index-apq.ads index f882b8a0..72dd7454 100644 --- a/index/alire-index-apq.ads +++ b/index/alire-index-apq.ads @@ -1,7 +1,7 @@ package Alire.Index.APQ is - function Project is new Catalogued_Project ("apq", - "APQ Ada95 Database Library (core)"); + function Project is + new Catalogued_Project ("APQ Ada95 Database Library (core)"); Repo : constant URL := "https://github.com/alire-project/apq.git"; diff --git a/index/alire-index-aunit.ads b/index/alire-index-aunit.ads index 4ec4c23b..7cddf431 100644 --- a/index/alire-index-aunit.ads +++ b/index/alire-index-aunit.ads @@ -1,7 +1,7 @@ package Alire.Index.AUnit is - function Project is new Catalogued_Project ("aunit", - "Ada unit test framework"); + function Project is + new Catalogued_Project ("Ada unit test framework"); Prj_Repo : constant URL := "https://github.com/alire-project/libaunit.git"; diff --git a/index/alire-index-eagle_lander.ads b/index/alire-index-eagle_lander.ads index 7ba15f63..f6a7becb 100644 --- a/index/alire-index-eagle_lander.ads +++ b/index/alire-index-eagle_lander.ads @@ -2,8 +2,8 @@ with Alire.Index.GtkAda; package Alire.Index.Eagle_Lander is - function Project is new Catalogued_Project ("eagle_lander", - "Apollo 11 lunar lander simulator (Ada/Gtk/Cairo)"); + function Project is + new Catalogued_Project ("Apollo 11 lunar lander simulator (Ada/Gtk/Cairo)"); Prj_Repo : constant URL := "https://github.com/alire-project/eagle-lander.git"; Prj_Author : constant String := "Fabien Chouteau"; diff --git a/index/alire-index-globe_3d.ads b/index/alire-index-globe_3d.ads index ae9aad79..687c663c 100644 --- a/index/alire-index-globe_3d.ads +++ b/index/alire-index-globe_3d.ads @@ -2,8 +2,8 @@ with Alire.Index.GLUT; package Alire.Index.Globe_3D is - function Project is new Catalogued_Project ("globe_3d", - "GL Object Based Engine for 3D in Ada"); + function Project is + new Catalogued_Project ("GL Object Based Engine for 3D in Ada"); Prj_Repo : constant URL := "https://github.com/svn2github/GLOBE_3D.git"; Prj_Author : constant String := "Gautier de Montmollin"; diff --git a/index/alire-index-hangman.ads b/index/alire-index-hangman.ads index 3be08e62..ca52e2e6 100644 --- a/index/alire-index-hangman.ads +++ b/index/alire-index-hangman.ads @@ -1,7 +1,7 @@ package Alire.Index.Hangman is - function Project is new Catalogued_Project ("hangman", - "Hangman game for the console"); + function Project is + new Catalogued_Project ("Hangman game for the console"); Prj_Repo : constant URL := "https://github.com/alire-project/Hangman.git"; Prj_Author : constant String := "Jon Hollan, Mark Hoffman, & Brandon Ball"; diff --git a/index/alire-index-hello.ads b/index/alire-index-hello.ads index dd5dfca2..c4b5b587 100644 --- a/index/alire-index-hello.ads +++ b/index/alire-index-hello.ads @@ -2,8 +2,8 @@ with Alire.Index.Libhello; package Alire.Index.Hello is - function Project is new Catalogued_Project ("hello", - """Hello, world!"" demonstration project"); + function Project is + new Catalogued_Project ("""Hello, world!"" demonstration project"); Repo : constant URL := "https://github.com/alire-project/hello.git"; diff --git a/index/alire-index-libadacrypt.ads b/index/alire-index-libadacrypt.ads index 4f8dcc1b..b930ad6e 100644 --- a/index/alire-index-libadacrypt.ads +++ b/index/alire-index-libadacrypt.ads @@ -2,8 +2,8 @@ with Alire.Index.AUnit; package Alire.Index.Libadacrypt is - function Project is new Catalogued_Project ("libadacrypt", - "A crypto library for Ada with a nice API"); + function Project is + new Catalogued_Project ("A crypto library for Ada with a nice API"); Prj_Repo : constant URL := "https://github.com/alire-project/Ada-Crypto-Library.git"; Prj_Author : constant String := "Christian Forler"; diff --git a/index/alire-index-libhello.ads b/index/alire-index-libhello.ads index da3d2ab8..e2f44daa 100644 --- a/index/alire-index-libhello.ads +++ b/index/alire-index-libhello.ads @@ -1,7 +1,8 @@ package Alire.Index.Libhello is - function Project is new Catalogued_Project ("libhello", - """Hello, world!"" demonstration project support library"); + function Project is + new Catalogued_Project + ("""Hello, world!"" demonstration project support library"); Repo : constant URL := "https://github.com/alire-project/libhello.git"; diff --git a/index/alire-index-mathpaqs.ads b/index/alire-index-mathpaqs.ads index 3aaeb54f..4aab3e59 100644 --- a/index/alire-index-mathpaqs.ads +++ b/index/alire-index-mathpaqs.ads @@ -1,7 +1,8 @@ package Alire.Index.Mathpaqs is - function Project is new Catalogued_Project ("mathpaqs", - "A collection of mathematical, 100% portable, packages"); + function Project is + new Catalogued_Project + ("A collection of mathematical, 100% portable, packages"); Prj_Repo : constant URL := "https://github.com/svn2github/Mathpaqs.git"; Prj_Author : constant String := "Gautier de Montmollin"; diff --git a/index/alire-index-openglada.ads b/index/alire-index-openglada.ads index 231dd7f9..3467ae09 100644 --- a/index/alire-index-openglada.ads +++ b/index/alire-index-openglada.ads @@ -3,8 +3,8 @@ with Alire.Index.LibX11; package Alire.Index.OpenGLAda is - function Project is new Catalogued_Project ("openglada", - "Thick Ada binding for OpenGL and GLFW"); + function Project is + new Catalogued_Project ("Thick Ada binding for OpenGL and GLFW"); Prj_Repo : constant URL := "https://github.com/flyx/OpenGLAda.git"; Prj_Author : constant String := "Felix Krause "; diff --git a/index/alire-index-pragmarc.ads b/index/alire-index-pragmarc.ads index 96092b38..b58371c2 100644 --- a/index/alire-index-pragmarc.ads +++ b/index/alire-index-pragmarc.ads @@ -1,7 +1,7 @@ package Alire.Index.PragmARC is - function Project is new Catalogued_Project ("pragmarc", - "PragmAda Reusable Components (PragmARCs)"); + function Project is + new Catalogued_Project ("PragmAda Reusable Components (PragmARCs)"); Repo : constant URL := "https://github.com/alire-project/PragmARC.git"; Auth : constant String := "Jeffrey R. Carter"; diff --git a/index/alire-index-rxada.ads b/index/alire-index-rxada.ads index e52b18d0..fd97fa14 100644 --- a/index/alire-index-rxada.ads +++ b/index/alire-index-rxada.ads @@ -1,7 +1,7 @@ package Alire.Index.RxAda is - function Project is new Catalogued_Project ("rxada", - "RxAda port of the Rx framework"); + function Project is + new Catalogued_Project ("RxAda port of the Rx framework"); Repo : constant URL := "https://bitbucket.org/amosteo/rxada"; diff --git a/index/alire-index-sdlada.ads b/index/alire-index-sdlada.ads index cafd20b9..8e0f6a02 100644 --- a/index/alire-index-sdlada.ads +++ b/index/alire-index-sdlada.ads @@ -2,8 +2,8 @@ with Alire.Index.LibSDL2; package Alire.Index.SDLAda is - function Project is new Catalogued_Project ("sdlada", - "Ada 2012 bindings to SDL 2"); + function Project is + new Catalogued_Project ("Ada 2012 bindings to SDL 2"); Prj_Repo : constant URL := "https://github.com/alire-project/sdlada.git"; Prj_Author : constant String := "Luke A. Guest"; diff --git a/index/alire-index-semantic_versioning.ads b/index/alire-index-semantic_versioning.ads index dfe44a6d..b4af4951 100644 --- a/index/alire-index-semantic_versioning.ads +++ b/index/alire-index-semantic_versioning.ads @@ -1,7 +1,7 @@ package Alire.Index.Semantic_Versioning is - function Project is new Catalogued_Project ("semantic_versioning", - "Semantic Versioning in Ada"); + function Project is + new Catalogued_Project ("Semantic Versioning in Ada"); Repo : constant URL := "https://github.com/alire-project/semantic_versioning.git"; diff --git a/index/alire-index-simple_components.ads b/index/alire-index-simple_components.ads index 49280272..c625b964 100644 --- a/index/alire-index-simple_components.ads +++ b/index/alire-index-simple_components.ads @@ -9,8 +9,8 @@ package Alire.Index.Simple_Components is DAK_Author : constant String := "Dmitry A. Kazakov"; DAK_Website : constant String := "http://www.dmitry-kazakov.de/ada/components.htm"; - function Project is new Catalogued_Project ("simple_components", - "Simple Components (root project)"); + function Project is + new Catalogued_Project ("Simple Components (root project)"); -- This is a special project because it contains no code. -- The first usable extension is Strings_Edit -- Having this one though is better for canonical name and listing @@ -18,35 +18,27 @@ package Alire.Index.Simple_Components is -- NOTE: since all extensions reside in the same commit/folder, there's no need for interdependencies function Strings_Edit is new Extension (Project, - "strings_edit", "Simple Components (strings)"); function Tables is new Extension (Project, - "tables", "Simple Components (tables)"); function Core is new Extension (Project, - "core", "Simple Components (core components)"); function Connections is new Extension (Project, - "connections", "Simple Components (clients/servers)"); function Secure is new Extension (Connections, - "secure", "Simple Components (clients/servers over TLS)"); function NTP is new Extension (Connections, - "ntp", "Simple Components (Network Time Protocol)"); function ODBC is new Extension (Project, - "odbc", "Simple Components (ODBC bindings)"); function SQLite is new Extension (Project, - "sqlite", "Simple Components (SQLite)"); Base_V_4_27 : constant Release := diff --git a/index/alire-index-simple_logging.ads b/index/alire-index-simple_logging.ads index 9b7e3b57..22189472 100644 --- a/index/alire-index-simple_logging.ads +++ b/index/alire-index-simple_logging.ads @@ -1,7 +1,6 @@ package Alire.Index.Simple_Logging is - function Project is new Catalogued_Project ("simple_logging", - "Simple logging to console"); + function Project is new Catalogued_Project ("Simple logging to console"); Repo : constant URL := "https://github.com/alire-project/simple_logging.git"; diff --git a/index/alire-index-steamsky.ads b/index/alire-index-steamsky.ads index e208b151..7a18e27b 100644 --- a/index/alire-index-steamsky.ads +++ b/index/alire-index-steamsky.ads @@ -3,8 +3,8 @@ with Alire.Index.GtkAda; package Alire.Index.Steamsky is - function Project is new Catalogued_Project ("steamsky", - "Roguelike in sky with steampunk theme"); + function Project is + new Catalogued_Project ("Roguelike in sky with steampunk theme"); Prj_Repo : constant URL := "https://github.com/thindil/steamsky.git"; diff --git a/index/alire-index-template.ads b/index/alire-index-template.ads index 284d25a8..7e65119a 100644 --- a/index/alire-index-template.ads +++ b/index/alire-index-template.ads @@ -1,8 +1,7 @@ package Alire.Index.Template is -- function Project is new Catalogued_Project --- ("name", --- "description"); +-- ("description"); -- -- Repo : constant URL := ""; -- diff --git a/index/alire-index-whitakers_words.ads b/index/alire-index-whitakers_words.ads index fb5cd4bf..c418c3b3 100644 --- a/index/alire-index-whitakers_words.ads +++ b/index/alire-index-whitakers_words.ads @@ -2,8 +2,8 @@ with Alire.Index.Make; package Alire.Index.Whitakers_Words is - function Project is new Catalogued_Project ("whitakers_words", - "William Whitaker's WORDS, a Latin dictionary"); + function Project is + new Catalogued_Project ("William Whitaker's WORDS, a Latin dictionary"); Prj_Repo : constant URL := "https://github.com/mk270/whitakers-words.git"; Prj_Author : constant String := "William A. Whitaker"; diff --git a/index/alire-index-xml_ez_out.ads b/index/alire-index-xml_ez_out.ads index 1dd564bc..ced52bbf 100644 --- a/index/alire-index-xml_ez_out.ads +++ b/index/alire-index-xml_ez_out.ads @@ -1,8 +1,7 @@ package Alire.Index.XML_EZ_Out is function Project is new Catalogued_Project - ("xml_ez_out", - "Creation of XML-formatted output from Ada programs"); + ("Creation of XML-formatted output from Ada programs"); Repo : constant URL := "https://github.com/alire-project/xmlezout.git"; diff --git a/index/native/alire-index-glut.ads b/index/native/alire-index-glut.ads index 482e37cb..90ba859a 100644 --- a/index/native/alire-index-glut.ads +++ b/index/native/alire-index-glut.ads @@ -1,7 +1,6 @@ package Alire.Index.GLUT is - function Project is new Catalogued_Project ("glut", - "OpenGL Utility Toolkit"); + function Project is new Catalogued_Project ("OpenGL Utility Toolkit"); V_2_8_1 : constant Release := Project.Register diff --git a/index/native/alire-index-gtkada.ads b/index/native/alire-index-gtkada.ads index 8c88ffd2..40802838 100644 --- a/index/native/alire-index-gtkada.ads +++ b/index/native/alire-index-gtkada.ads @@ -2,8 +2,7 @@ with Alire.Index.GNAT; package Alire.Index.GtkAda is - function Project is new Catalogued_Project ("gtkada", - "Ada binding for the GTK+ GUI"); + function Project is new Catalogued_Project ("Ada binding for the GTK+ GUI"); V_17 : constant Release := Project.Register diff --git a/index/native/alire-index-libglfw3.ads b/index/native/alire-index-libglfw3.ads index 2a1426f0..70bb6cf8 100644 --- a/index/native/alire-index-libglfw3.ads +++ b/index/native/alire-index-libglfw3.ads @@ -1,7 +1,7 @@ package Alire.Index.Libglfw3 is - function Project is new Catalogued_Project ("libglfw3", - "Portable library for OpenGL, window and input"); + function Project is new Catalogued_Project + ("Portable library for OpenGL, window and input"); V_3 : constant Release := Project.Register diff --git a/index/native/alire-index-libgnutls.ads b/index/native/alire-index-libgnutls.ads index 8706bcf7..e3f3148d 100644 --- a/index/native/alire-index-libgnutls.ads +++ b/index/native/alire-index-libgnutls.ads @@ -1,7 +1,6 @@ package Alire.Index.LibGNUTLS is - function Project is new Catalogued_Project ("libgnutls", - "GNU TLS library"); + function Project is new Catalogued_Project ("GNU TLS library"); V_3_5_8 : constant Release := Project.Register diff --git a/index/native/alire-index-liblua.ads b/index/native/alire-index-liblua.ads index 86583ee4..20704d9a 100644 --- a/index/native/alire-index-liblua.ads +++ b/index/native/alire-index-liblua.ads @@ -1,7 +1,7 @@ package Alire.Index.Liblua is - function Project is new Catalogued_Project ("liblua", - "Development files for the Lua language"); + function Project is new Catalogued_Project + ("Development files for the Lua language"); V_5_3 : constant Release := Project.Register diff --git a/index/native/alire-index-libsdl2.ads b/index/native/alire-index-libsdl2.ads index 7ee9b0cb..a5c662f5 100644 --- a/index/native/alire-index-libsdl2.ads +++ b/index/native/alire-index-libsdl2.ads @@ -1,15 +1,15 @@ package Alire.Index.LibSDL2 is - function Project is new Catalogued_Project ("libsdl2", - "Simple DirectMedia Layer development files"); + function Project is new Catalogued_Project + ("Simple DirectMedia Layer development files"); - function Image is new Extension (Project, - "image", - "Image loading library for Simple DirectMedia Layer 2"); + function Image is new Extension + (Project, + "Image loading library for Simple DirectMedia Layer 2"); - function TTF is new Extension (Project, - "ttf", - "TrueType Font library for Simple DirectMedia Layer 2"); + function TTF is new Extension + (Project, + "TrueType Font library for Simple DirectMedia Layer 2"); SDL_V_2 : constant Release := Project.Register diff --git a/index/native/alire-index-libx11.ads b/index/native/alire-index-libx11.ads index 823f7779..a8a9d303 100644 --- a/index/native/alire-index-libx11.ads +++ b/index/native/alire-index-libx11.ads @@ -1,7 +1,6 @@ package Alire.Index.LibX11 is - function Project is new Catalogued_Project ("libx11", - "X11 client-side library"); + function Project is new Catalogued_Project ("X11 client-side library"); V_2 : constant Release := Project.Register diff --git a/index/native/alire-index-make.ads b/index/native/alire-index-make.ads index f1585405..ae320c72 100644 --- a/index/native/alire-index-make.ads +++ b/index/native/alire-index-make.ads @@ -1,7 +1,7 @@ package Alire.Index.Make is - function Project is new Catalogued_Project ("make", - "Utility for directing compilation"); + function Project is new Catalogued_Project + ("Utility for directing compilation"); V_Native : constant Release := Project.Register (V ("0"), diff --git a/index/native/alire-index-native_template.ads b/index/native/alire-index-native_template.ads index e9db8d23..f231e22b 100644 --- a/index/native/alire-index-native_template.ads +++ b/index/native/alire-index-native_template.ads @@ -1,6 +1,7 @@ package Alire.Index.Native_Template is --- function Project is new Catalogued_Project ("name", "description"); +-- function Project is new Catalogued_Project +-- ("description"); -- V : constant Release := -- Project.Register (V (""), diff --git a/index/native/alire-index-ncursesada.ads b/index/native/alire-index-ncursesada.ads index d2eed9bd..db9b68f2 100644 --- a/index/native/alire-index-ncursesada.ads +++ b/index/native/alire-index-ncursesada.ads @@ -1,7 +1,7 @@ package Alire.Index.NcursesAda is - function Project is new Catalogued_Project ("ncursesada", - "Ada binding to the ncurses text interface library"); + function Project is + new Catalogued_Project ("Ada binding to the ncurses text interface library"); V_6 : constant Release := Project.Register diff --git a/index/native/alire-index-unixodbc.ads b/index/native/alire-index-unixodbc.ads index cfe4c0aa..e3edb69b 100644 --- a/index/native/alire-index-unixodbc.ads +++ b/index/native/alire-index-unixodbc.ads @@ -1,7 +1,7 @@ package Alire.Index.UnixODBC is - function Project is new Catalogued_Project ("unixodbc", - "Open Database Connectivity drivers for UNIX platforms"); + function Project is new Catalogued_Project + ("Open Database Connectivity drivers for UNIX platforms"); V_2_3 : constant Release := Project.Register diff --git a/src/alire-index.ads b/src/alire-index.ads index ad3fc4a5..9287941e 100644 --- a/src/alire-index.ads +++ b/src/alire-index.ads @@ -33,22 +33,23 @@ package Alire.Index is type Catalog_Entry (<>) is new Versions.Comparable with private; -- Used to force the declaration of a single variable to refer to a project in index specs + -- NOTE that the following generics internally use GNAT.Source_Info to + -- ascertain the package and project names. + -- This is probably the hardest GNAT dependency all around, + -- but at the same time avoids manual duplication and chance of error. generic - X_Project : Alire.Project; Description : Description_String; - X_Package_Name : String := +X_Project; -- Override if not matching -- For internal use: First_Use : access Boolean := new Boolean'(True); function Catalogued_Project return Catalog_Entry; -- A regular project + -- See above note on Catalog_Entry generic with function Base return Catalog_Entry; - X_Name : Alire.Project; Description : Description_String; - X_Ada_Identifier : String := +X_Name; -- For internal use First_Use : access Boolean := new Boolean'(True);