Re: ne plus utiliser les arrays

Article View: fr.comp.lang.ada

Article #102

#102

From: Georg Bauhaus
Date: Fri, 22 Feb 2013 13:22

42 lines
3255 bytes

On 22.02.13 10:57, letocha wrote:

> Pour le free(variable), cette lib�ration explicite est n�cessaire dans tous les cas ? peut-�tre une bonne habitude � prendre ?

Avec une t�che, "Access types should be used [even more] rarely in Ada." :)
Au moins, Free n'est pas n�cessaire, je pense :

with Ada.Text_IO, Ada.Exceptions;
 use Ada.Text_IO;

procedure Large is

   type Voisinage is range 1 .. 123_456_789;

   type Matrice is array(Natural range <>,
                         Natural range <>) of Voisinage;


   task type Calcule (Longeur : Natural) is
      entry Resultat (N : out Voisinage);
   end Calcule;

   type Processeur is access Calcule;

   task body Calcule is
      Variable : Matrice(1..Longeur,1..Longeur);  -- pile de la t�che
   begin
      --  ...
      Variable (1, Longeur) := Variable (Longeur, 1);
      --  ...
      accept Resultat (N : out Voisinage) do
         N := Variable (1, Longeur);
      end Resultat;
   end Calcule;

   Travail : Processeur;
   N : Voisinage;
begin
   Travail := new Calcule(300);
   Travail.Resultat(N);
   Put_Line (Voisinage'Image (N));
end Large;

Technical Details

Message-ID: <51277105$0$9505$9b4e6d93@newsspool1.arcor-online.net>

Path:

arc1-ca.pugleaf.net!ov8ni14516pbb.1!nntp.google.com!news.glorb.com!us.feeder.erje.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.datemas.de!weretis.net!feeder1.news.weretis.net!news.imp.ch!newsfeed.tiscali.ch!npeer.de.kpn-eurorings.net!npeer-ng0.de.kpn-eurorings.net!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail

References:

<8d81b575-b5cf-4034-8173-cd0b01fa8a4f@googlegroups.com> <kf924e$96l$1@dont-email.me> <75dec94a-3090-437a-bfb9-2a5b850750be@googlegroups.com> <kfdd30$gjj$1@dont-email.me> <846e6714-484e-4ea7-a8ad-1f304c30ebbb@googlegroups.com> <kfgsrb$4nc$1@dont-email.me> <d0be0e2e-bf46-4adf-9991-9dd409988e8a@googlegroups.com> <kfhvpt$udv$1@dont-email.me> <ea19b3a8-60ad-4d01-9efe-041bbcf367dd@googlegroups.com> <kfrmhj$or3$1@dont-email.me> <366ccd2d-8239-4028-9023-d3476f9c441b@googlegroups.com> <5123AA36.703@obry.net> <33dc5fe0-54ba-49f6-83d0-a2e51a98ef39@googlegroups.com> <87y5eh5o18.fsf@ludovic-brenta.org> <554514ba-2a24-406d-88ce-56becccff34a@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Google-Thread: 43d0c745c,de734a879f8e95c8
X-Google-Attributes: gid43d0c745c,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: FRENCH,ASCII
X-Received: by 10.67.23.68 with SMTP id hy4mr373450pad.47.1361539335601;
        Fri, 22 Feb 2013 05:22:15 -0800 (PST)
Path: arc1-ca.pugleaf.net!ov8ni14516pbb.1!nntp.google.com!news.glorb.com!us.feeder.erje.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.datemas.de!weretis.net!feeder1.news.weretis.net!news.imp.ch!newsfeed.tiscali.ch!npeer.de.kpn-eurorings.net!npeer-ng0.de.kpn-eurorings.net!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Fri, 22 Feb 2013 14:22:13 +0100
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:17.0) Gecko/20130216 Thunderbird/17.0.3
MIME-Version: 1.0
Newsgroups: fr.comp.lang.ada
Subject: Re: ne plus utiliser les arrays
References: <8d81b575-b5cf-4034-8173-cd0b01fa8a4f@googlegroups.com> <kf924e$96l$1@dont-email.me> <75dec94a-3090-437a-bfb9-2a5b850750be@googlegroups.com> <kfdd30$gjj$1@dont-email.me> <846e6714-484e-4ea7-a8ad-1f304c30ebbb@googlegroups.com> <kfgsrb$4nc$1@dont-email.me> <d0be0e2e-bf46-4adf-9991-9dd409988e8a@googlegroups.com> <kfhvpt$udv$1@dont-email.me> <ea19b3a8-60ad-4d01-9efe-041bbcf367dd@googlegroups.com> <kfrmhj$or3$1@dont-email.me> <366ccd2d-8239-4028-9023-d3476f9c441b@googlegroups.com> <5123AA36.703@obry.net> <33dc5fe0-54ba-49f6-83d0-a2e51a98ef39@googlegroups.com> <87y5eh5o18.fsf@ludovic-brenta.org> <554514ba-2a24-406d-88ce-56becccff34a@googlegroups.com>
In-Reply-To: <554514ba-2a24-406d-88ce-56becccff34a@googlegroups.com>
X-Enigmail-Version: 1.5
Lines: 42
Message-ID: <51277105$0$9505$9b4e6d93@newsspool1.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 22 Feb 2013 14:22:13 CET
NNTP-Posting-Host: 51da0bde.newsspool1.arcor-online.net
X-Trace: DXC=m0ZN]8_dNlO78PK[oJ2ng@ic==]BZ:afN4Fo<]lROoRAnkgeX?EC@@@8WEnDiKGIRBnc\616M64>JLh>_cHTX3jMP`\eI1UPW@N
X-Complaints-To: usenet-abuse@arcor.de
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

Reply to Parent Message