comp.lang.ada
 help / color / mirror / Atom feed
From: "J-P. Rosen" <rosen@adalog.fr>
Subject: Re: How can I create an empty array of a generic type?
Date: Sat, 13 Jul 2019 07:24:10 +0200
Date: 2019-07-13T07:24:10+02:00	[thread overview]
Message-ID: <qgbptp$u95$1@dont-email.me> (raw)
In-Reply-To: <lnftnaa80u.fsf@kst-u.example.com>

Le 13/07/2019 à 06:11, Keith Thompson a écrit :
> generic
>   type Element_Type is private;
>   type Key_Component_Type is private;
>   with function "<" (Left, Right : Key_Component_Type) return Boolean is <>;
>   with function "=" (Left, Right : Element_Type) return Boolean is <>;
> package Ternary_Trees is
>   type Key_Type is array(Positive range <>) of Key_Component_Type;
> private
>   Dummy: Key_Component_Type;
>   Empty_Key  : constant Key_Type(1..0) := (others => Dummy);
> end Ternary_Trees;
> 
> The Dummy value is a bit ugly. 
You can avoid it:
   Empty_Key  : constant Key_Type(1..0) := (others => <>);

-- 
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
http://www.adalog.fr

  reply	other threads:[~2019-07-13  5:24 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2019-07-13  3:36 How can I create an empty array of a generic type? b.mcguinness747
2019-07-13  4:11 ` Keith Thompson
2019-07-13  5:24   ` J-P. Rosen [this message]
2019-07-13 21:19     ` Keith Thompson
2019-07-14 11:09       ` reinert
2019-07-14 11:15     ` reinert
2019-07-14 11:27       ` Jeffrey R. Carter
2019-07-14 12:49       ` J-P. Rosen
2019-07-13 21:02 ` b.mcguinness747
2019-07-14 16:41   ` bj.mooremr
2019-10-16  2:03     ` Andrew Shvets
2019-10-16  4:49       ` Egil H H
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox