From: Sébastien <seb.morand@gmail.com>
Subject: Re: Generic body
Date: Thu, 15 May 2008 13:11:15 +0000
Date: 2008-05-15T13:11:15+00:00 [thread overview]
Message-ID: <482C3673.8030502@gmail.com> (raw)
In-Reply-To:
> package MyPack is
>
> generic
> type Toto is limited private;
> procedure MyProc;
>
> procedure MyProcInt;
> procedure MyProcChr;
>
> end MyPack;
>
> package body MyPack is
>
> procedure MyProc is
> begin
> null; -- Some stuff
> end MyProc;
>
> procedure MyProcInt_internal is new MyProc(Toto => Integer);
> procedure MyProcChr_internal is new MyProc(Toto => Character);
>
> procedure MyProcInt renames MyProcInt_internal;
> procedure MyProcChr renames MyProcChr_internal;
>
> end MyPack;
Really nice solutions, thanks very much.
prev parent reply other threads:[~2008-05-15 13:11 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-05-14 18:26 Generic body Sébastien
2008-05-14 21:49 ` Randy Brukardt
2008-05-14 21:51 ` Samuel Tardieu
2008-05-14 22:03 ` Adam Beneschan
2008-05-15 9:25 ` Sébastien
2008-05-15 14:59 ` Adam Beneschan
2008-05-15 15:40 ` Sébastien
2008-05-15 8:43 ` gautier_niouzes
2008-05-15 13:11 ` Sébastien [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox