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.1 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,f3b9a73473e0c36f
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-02-13 11:16:15 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewsoutpeer01.lnd.ops.eu.uu.net!lnewsinpeer01.lnd.ops.eu.uu.net!bnewsoutpeer01.bru.ops.eu.uu.net!bnewsinpeer00.bru.ops.eu.uu.net!emea.uu.net!newshub.netvisao.pt!not-for-mail
From: "Joao Dias" <jota.dias@clix.pt>
Newsgroups: comp.lang.ada
Subject: Re: Building with AdaGIDE
Date: Fri, 13 Feb 2004 19:16:02 -0000
Organization: Netvisao, A sua Internet por Cabo
Message-ID: <newscache$one1th$9km$1@newsfront4.netvisao.pt>
References: <newscache$qz51th$p0h$1@newsfront4.netvisao.pt>
 <slrnc2pum4.ade.randhol+valid_for_reply_from_news@k-083152.nt.ntnu.no>
NNTP-Posting-Host: newsfront4.netvisao.pt
X-Trace: newshub.netvisao.pt 1076698822 26530 213.228.128.120 (13 Feb 2004
 19:00:22 GMT)
X-Complaints-To: abuse@netvisao.pt
NNTP-Posting-Date: Fri, 13 Feb 2004 19:00:22 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
X-NNTP-Posting-Host: pal-213-228-150-6.netvisao.pt
Xref: archiver1.google.com comp.lang.ada:5542
Date: 2004-02-13T19:16:02+00:00
List-Id: <comp.lang.ada>



"Preben Randhol" wrote

> You say a small package. Did you also make a main program?

-------------------------------------------------------------

If I failed something like that (wich seems very likely) then

I think I am not prepared yet to start compiling examples.

I have to find time for keep reading the docu I have downloaded, cause I am
missing something (a lot actually). Although I'm very satisfied with what
I've

seen about the language implementation, so far.

My code example is that one (totoloto is some form of loto and chave is the
group of balls extracted - just forget any non-sense of the design)

I only wrote two very simple files totoloto.ads and totoloto.adb like this:

totoloto.ads

--------------------------------

package Totoloto is

Ultima_Bola : Integer := 49; --last ball number

Numero_Bolas_Chave : Integer := 7; --number of balls normally extracted

type Chave is array (1 .. 7) of Integer;

function Sorteia_Chave return Chave;

end Totoloto;

--------------------------------

totoloto.adb

--------------------------------

with Ada.Integer_Text_IO;

package body Totoloto is

Chave2: Chave;



function Sorteia_Chave return Chave is -- extracts some balls

Chave1: Chave;

begin



Chave1(1):=6;

Chave1(2):=32;

return Chave1;



end Sorteia_Chave;





begin -- I suposed that was the main progam !

Chave2:= Sorteia_Chave;

Ada.Integer_Text_Io.Put(Chave2(1),Chave2(2)); --print 2 extracted balls



end Totoloto;

------------------------------------------------

building...

"totoloto.ali" being checked ...

End of compilation

Completed sucessfully. (and nothing more)

Jo�o Dias