From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a24:93c5:: with SMTP id
 y188-v6mr1186336itd.1.1537855494311;
        Mon, 24 Sep 2018 23:04:54 -0700 (PDT)
X-Received: by 2002:a9d:618e:: with SMTP id g14-v6mr18741otk.3.1537855494164;
 Mon, 24 Sep 2018 23:04:54 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.166.216.MISMATCH!j6-v6no24748ith.0!news-out.google.com!c63-v6ni38ith.0!nntp.google.com!j6-v6no24745ith.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 24 Sep 2018 23:04:53 -0700 (PDT)
In-Reply-To: <pobm24$chk$1@franka.jacob-sparre.dk>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=136.163.203.5;
 posting-account=g0yTkgoAAADdZGEYyZahxGlO3EkjH0Wv
NNTP-Posting-Host: 136.163.203.5
References: <c50e849d-d14c-425d-99f6-75dce5fc3927@googlegroups.com>
 <ly1s9pjxfr.fsf@pushface.org>
 <64f5bbad-2f06-4ea9-aa33-8c66e9cbb2a5@googlegroups.com>
 <po3upu$9je$1@franka.jacob-sparre.dk>
 <b41ee5c2-3000-442f-93cf-67116eac833a@googlegroups.com>
 <pobm24$chk$1@franka.jacob-sparre.dk>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <95d94212-9ae3-423e-980f-705fea24744d@googlegroups.com>
Subject: Re: Ada.Containers and concurrent modification exception.
From: Petter Fryklund <petter.fryklund@atero.se>
Injection-Date: Tue, 25 Sep 2018 06:04:54 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:54417
Date: 2018-09-24T23:04:53-07:00
List-Id: <comp.lang.ada>

Personally I prefer passive iterators:

The container has a 

generic
  with procedure Process(Item : in Item_Type; Continue : out Boolean);
procedure Traverse_Container;

The user instantiate the generic with:

procedure Process(Item : in Item_Type; Continue : out Boolean);

procedure Travers is new Traverse_Container(Process);

And then implements the body of Process.