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=-2.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no
	version=3.4.4
X-Google-Thread: 103376,91965a012526b259
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!proxad.net!freenix!enst.fr!melchior!cuivre.fr.eu.org!melchior.frmug.org!not-for-mail
From: Marius Amado Alves <amado.alves@netcabo.pt>
Newsgroups: comp.lang.ada
Subject: Re: Float to String
Date: Thu, 11 Nov 2004 16:40:30 +0000
Organization: Cuivre, Argent, Or
Message-ID: <mailman.95.1100191296.10401.comp.lang.ada@ada-france.org>
References: <uekj4l18j.fsf@obry.net>
	<526nxsbun7e2.1n5a4jpe7u7ww$.dlg@40tude.net>	<uactqlwe1.fsf@obry.net>
	<ppz43mljh3zi.12zzcyesi81ak$.dlg@40tude.net>
	<87bre63qh3.fsf@beeblebrox.rfc1149.net>
	<mailman.89.1100100939.10401.comp.lang.ada@ada-france.org>
	<1hmyhi3g3ogfq.gdvw6tkdvemq.dlg@40tude.net>
	<mailman.90.1100107739.10401.comp.lang.ada@ada-france.org>
	<1hodchxl46179.1i803q74p7on3.dlg@40tude.net>
NNTP-Posting-Host: lovelace.ada-france.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: melchior.cuivre.fr.eu.org 1100191297 90949 212.85.156.195 (11 Nov
 2004 16:41:37 GMT)
X-Complaints-To: usenet@melchior.cuivre.fr.eu.org
NNTP-Posting-Date: Thu, 11 Nov 2004 16:41:37 +0000 (UTC)
To: comp.lang.ada@ada-france.org
Return-Path: <amado.alves@netcabo.pt>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
	rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
In-Reply-To: <1hodchxl46179.1i803q74p7on3.dlg@40tude.net>
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at ada-france.org
X-BeenThere: comp.lang.ada@ada-france.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Gateway to the comp.lang.ada Usenet newsgroup"
	<comp.lang.ada.ada-france.org>
List-Unsubscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=unsubscribe>
List-Post: <mailto:comp.lang.ada@ada-france.org>
List-Help: <mailto:comp.lang.ada-request@ada-france.org?subject=help>
List-Subscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=subscribe>
Xref: g2news1.google.com comp.lang.ada:6150
Date: 2004-11-11T16:40:30+00:00

> So it is kind of PL/1, pre Ada 83. You have elementary types and you can
> compose structures out of them. The problem of all such approaches it that
> the representation becomes fixed....

Not a problem here. Mneson is not for system programming. Mneson gives 
you a semantic data model. It is a database system. Data independence 
implies lost of representation control.

> type My_Integer is new Integer;
>    -- My_Integer is built upon Integer. This cannot be portable.
>    -- Or else one should go the Integer-N way. This cure is
>    -- worse than the disease.
> 
> type My_Integer is range ..;
>    -- This is portable, but does not fit in your model

Yes it fits, because Mneson basic types are designed big enough [1]. If 
you have Ada integers you want to store in Mneson you just convert to 
Integer_64.

    X : Vertex := To_Vertex (Integer_64 (Your_Integer));

And (at the base level) Mneson does not check the range, but you will 
get that when you convert back to Your_Integer.

    Your_Integer := My_Integer (Integer_64'(Value (X)));
________
[1] Well, "big enough" is currently 64 bits. There will be a 128-bit 
version eventually.