From: Olivier Scalbert <olivier.scalbert@algosyn.com>
Subject: newbie problem
Date: Wed, 13 May 2009 16:16:40 +0200
Date: 2009-05-13T16:16:40+02:00 [thread overview]
Message-ID: <4a0ad646$0$2854$ba620e4c@news.skynet.be> (raw)
Hello,
I am doing a little package and I have problems just for writing the
specification ...
In short, this package should offer services to create sequential files
that store stereo sound samples.
Here is the code:
with Sequential_Io; -- Problem 2 not nice should be hidden but how ?
package adasound is
type Amplitude_T is new Float;
type Frequency_T is new Float;
type Time_T is new Float;
type Stereo_Amplitude_T is record
Left : Amplitude_T;
Right: Amplitude_T;
end record;
type Als_File_T is private;
function Als_Create(File_Name: String) return Als_File_T;
procedure Als_Write(Als_File: Als_File_T; Stereo_Amplitude:
Stereo_Amplitude_T);
procedure Als_Close(Als_File: Als_File_T);
private
package Stereo_Amplitude_Io is new Sequential_Io (Stereo_Amplitude_T);
type Als_File_T is record
File_Type: Stereo_Amplitude_Io.File_Type; -- Problem 1 !!
-- perhaps more stuff later
end record;
end adasound;
Problem 1: it does not compile !
adasound.ads:23:10: completion of nonlimited type cannot be limited
adasound.ads:23:10: component "File_Type" of type "Als_File_T" has
limited type
Problem 2: how to avoid the first "with Sequential_Io;" ?
Thanks to help me !
Olivier.
next reply other threads:[~2009-05-13 14:16 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-05-13 14:16 Olivier Scalbert [this message]
2009-05-13 14:54 ` newbie problem Martin
2009-05-13 15:20 ` Olivier Scalbert
2009-05-13 15:14 ` Adam Beneschan
2009-05-13 15:54 ` Olivier Scalbert
2009-05-13 15:44 ` Ludovic Brenta
2009-05-13 16:03 ` Olivier Scalbert
2009-05-13 18:00 ` Olivier Scalbert
2009-05-13 18:51 ` Martin
2009-05-13 19:45 ` sjw
2009-05-13 19:48 ` Olivier Scalbert
2009-05-14 19:41 ` sjw
2009-05-15 5:02 ` Olivier Scalbert
2009-05-15 8:05 ` Jean-Pierre Rosen
2009-05-18 10:23 ` Olivier Scalbert
2009-05-18 10:48 ` Martin
2009-05-18 10:54 ` Olivier Scalbert
2009-05-18 10:52 ` Ludovic Brenta
2009-05-18 11:09 ` Olivier Scalbert
2009-05-14 22:39 ` Jeffrey R. Carter
2009-05-14 2:59 ` anon
-- strict thread matches above, loose matches on Subject: below --
1998-12-05 0:00 Graeme Wallace
1998-12-04 0:00 ` Simon Bracken
1998-12-04 0:00 ` Marin David Condic
1998-12-04 0:00 ` Marin David Condic
1998-12-04 0:00 ` Mats Weber
1998-12-05 0:00 ` Matthew Heaney
1998-12-04 0:00 ` David Botton
1998-12-04 0:00 ` Gautier.DeMontmollin
1998-12-05 0:00 ` Matthew Heaney
1998-12-07 0:00 ` Jeff Carter
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox