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.4 required=5.0 tests=BAYES_20,FREEMAIL_FROM,
	INVALID_MSGID,PP_MIME_FAKE_ASCII_TEXT,XPRIO autolearn=no
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,cba561cbb713f46f,start
X-Google-Attributes: gid103376,public
From: "S|r |ceman" <aquakill@teleline.es>
Subject: Programming Queues in ADA (Very Urgent)
Date: 2000/05/10
Message-ID: <8fcfhe$b1d$1@lola.ctv.es>#1/1
X-Deja-AN: 621717352
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.5600
X-Complaints-To: usenet@lola.ctv.es
X-Trace: lola.ctv.es 957989230 11309 194.224.180.32 (10 May 2000 20:07:10 GMT)
Organization: CTV/JET
X-MSMail-Priority: Normal
NNTP-Posting-Date: 10 May 2000 20:07:10 GMT
Newsgroups: comp.lang.ada
Date: 2000-05-10T20:07:10+00:00
List-Id: <comp.lang.ada>

H. I need to program a queue in ADA, dont know if queue is the real word in
English, but you will understand FIFO stack I think ;-)

I dont know who to delete an element from the FIFO stack. I have implemented
it under pointers, and the thing is like this:


.ADS Stack Specification:


    type NodoCola;
    type Puntero is access NodoCola;

    type NodoCola is record

        Elemento: Tipo_Elemento;
        Next: Puntero;

    end record;


    type Cola is record

        Registro: Puntero;
        NumElem: Natural := 0;

    end record;



Deleting the element in out position:

    procedure Extraer (C: in out Cola) is

        Aux: Puntero := new NodoCola;

    begin

        Aux := C.Registro;

        if (Es_Vac�a(C)) then

            raise E_Cola_Vac�a;

        else

            C.Registro := C.Registro.Next;

            C.NumElem := C.NumElem - 1;

        end if;

    end Extraer;


Thank you for helping me with this ;-)

See ya.

P.D. If anyone of you could help me, please could you answer into my mailbox
:? Thanks anyway ;-)


[|] Miguel Angel P�rez (S|r |ceman).
[|] Administrador General de Networking Center(R), 2000
[|] Email: iceman@webshack-cafe.com
              iceman@networking-center.org
              admin@networking-center.org

[|] Networking Center(R) - Proyecto C.I.R.I.T.

[|] Web: http://www.networking-center.org
[|] FTP: ftp://ftp.networking-center.org
[|] IRC: IRC Hispano, [irc.irc-hispano.org], Canal: #Networking.