From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-3.2 required=3.0 tests=BAYES_00,NICE_REPLY_A,
	T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6
Path: eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Bj=c3=b6rn_Lundin?= <bnl@nowhere.com>
Newsgroups: comp.lang.ada
Subject: Re: Non-standard functions in GNAT's Ada.Containers packages?
Date: Fri, 16 Sep 2022 13:33:43 +0200
Organization: A noiseless patient Spider
Message-ID: <tg1mun$3oa4l$1@dont-email.me>
References: <tfshro$2umbi$1@dont-email.me>
 <d2881a83-7670-447d-9653-f8abcb294564n@googlegroups.com>
 <tfujbn$38ptt$1@dont-email.me>
 <f50c0ae4-2289-4c3b-86ca-7a6bfb60fbedn@googlegroups.com>
 <jogt5kF4gf3U1@mid.individual.net>
 <6a8a1468-5148-49d7-b342-327f8eaf8097n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Fri, 16 Sep 2022 11:33:43 -0000 (UTC)
Injection-Info: reader01.eternal-september.org; posting-host="6b4ce771fba3c91bea5cb1473b29fd63";
	logging-data="3942549"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19IluZsqbxp0DA43D4ous4g"
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101
 Thunderbird/91.11.0
Cancel-Lock: sha1:TiGg8Jsn6A1rHPvAuuaThJTfaCI=
In-Reply-To: <6a8a1468-5148-49d7-b342-327f8eaf8097n@googlegroups.com>
Content-Language: en-US
Xref: reader01.eternal-september.org comp.lang.ada:64336
List-Id: <comp.lang.ada>

On 2022-09-15 19:11, Marius Amado-Alves wrote:
> Thanks, Niklas.
> 
>> ... There are functions First and Next ... procedure Iterate ...
> 
> Too verbose and error-prone (forget the Next and you get an endless loop).
> 
>> "for X of M loop ... end loop".
> 
> Not possible for maps.


but you can as
 >https://programming-idioms.org/idiom/13/iterate-over-map-keys-and-value/1511/ada>

shows (as below)

--Access each key k with its value x from an associative array mymap,
-- and print them.

with Ada.Containers.Indefinite_Hashed_Maps;
with Ada.Strings.Hash;

use Ada.Containers;

for C in My_Map.Iterate loop
    Put_Line ("Key = " & Key (C) & ", Value = " & Element (C));
end loop;



-- 
/Björn