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=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,a644fa9cd1a3869a X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-13 21:05:18 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!uni-erlangen.de!fu-berlin.de!uni-berlin.de!ppp-1-18.cvx1.telinco.NET!not-for-mail From: "Nick Roberts" Newsgroups: comp.lang.ada Subject: Re: List container strawman 1.2 Date: Wed, 14 Nov 2001 04:40:44 -0000 Message-ID: <9ssu2c$150jnq$6@ID-25716.news.dfncis.de> References: <3BECA3B7.5020702@telepath.com> <3BF0247D.4500975E@san.rr.com> <5BXH7.22252$xS6.34813@www.newsranger.com> <3BF052D3.ECEF3FF2@san.rr.com> <3BF15A01.1E8A6EC7@san.rr.com> NNTP-Posting-Host: ppp-1-18.cvx1.telinco.net (212.1.136.18) X-Trace: fu-berlin.de 1005714316 38817530 212.1.136.18 (16 [25716]) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 Xref: archiver1.google.com comp.lang.ada:16486 Date: 2001-11-14T04:40:44+00:00 List-Id: "Darren New" wrote in message news:3BF15A01.1E8A6EC7@san.rr.com... > ... > type direction is (towards_first, towards_last); > procedure next(L : in out Location; dir : in direction := towards_last); > -- Or however you want to declare the procedure/function/whatever. I think I'm going to use this trick, but I use: subtype Direction is Ada.Stings.Direction; -- (Forward, Backward) in the base package (currently SCL). I also define: function Opposite (Way: in Direction) return Direction; -- Opposite(Forward) = Backward -- Opposite(Backward) = Forward for convenience. -- Best wishes, Nick Roberts