From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Help parsing the language manual on Get'ing integers from Strings
Date: Mon, 21 Dec 2020 09:16:03 +0100 [thread overview]
Message-ID: <rrplk2$1qbt$1@gioia.aioe.org> (raw)
In-Reply-To: rrpkhg$1ct2$1@gioia.aioe.org
On 2020-12-21 08:57, Dmitry A. Kazakov wrote:
> Parsing your string would look like:
>
> Pointer := S'First; -- Start here
> Get (S, Pointer); -- Skip blanks
if not Is_Prefix (":", S, Pointer) then
raise Data_Error;
else
Pointer := Pointer + 1;
end if;
Get (S, Pointer);
> Get (S, Pointer, Value_1);
> Get (S, Pointer);
> Get (S, Pointer, Value_2);
> Get (S, Pointer);
> Get (S, Pointer, Value_3);
> Get (S, Pointer);
> if not Is_Prefix ("|", S, Pointer) then
> raise Data_Error;
> else
> Pointer := Pointer + 1;
> end if;
> Get (S, Pointer);
> Get (S, Pointer, Value_4);
> Get (S, Pointer);
> Get (S, Pointer, Value_5);
--
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2020-12-21 8:16 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-12-21 0:11 Help parsing the language manual on Get'ing integers from Strings John Perry
2020-12-21 7:44 ` Niklas Holsti
2020-12-21 9:33 ` AdaMagica
2020-12-21 7:57 ` Dmitry A. Kazakov
2020-12-21 8:06 ` Niklas Holsti
2020-12-21 9:40 ` Jeffrey R. Carter
2020-12-22 1:11 ` Randy Brukardt
2020-12-21 8:16 ` Dmitry A. Kazakov [this message]
2020-12-21 11:30 ` John Perry
2020-12-21 23:25 ` John Perry
2020-12-22 1:19 ` Randy Brukardt
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox