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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9451f269f5a90558
X-Google-Attributes: gid103376,public
From: Niklas Holsti <nholsti@icon.fi>
Subject: Re: making music
Date: 1998/04/26
Message-ID: <3543415F.E097D443@icon.fi>#1/1
X-Deja-AN: 347826914
Content-Transfer-Encoding: 7bit
References: <35397BC6.2A85CEAC@wvnet.at> <35398fdf.116942877@news.nextdim.com>
 <3542664f.0@news.thefree.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Organization: Telecom Finland News Service
Newsgroups: comp.lang.ada
Date: 1998-04-26T00:00:00+00:00
List-Id: <comp.lang.ada>


JimBOB wrote:
> 
> hello,
> hopefully you can help me..
> I'm writing for Linux.. or any other port!
> 
> I compiled a small body of code,
> 
> with text_io,basic_num,mcc-sounds;
> use  text_io,basic_num,mcc-sounds;

The package name "mcc-sounds" is incorrect; Ada does not allow
a hyphen in names. Perhaps you meant "mcc_sounds" ?

(This is one of the rare cases in which the GNAT error message
is not very precise.)

> procedure play_for_me is
> wav:string;

You should also define the length of the "wav" string, ie.
constrain it with an index range such as
   wav: string (1..50);

> begin
>   put("what wav file would you like to listen to?");
>   get(wav);

You may want to modify the "get" call so that the user can enter
a string that is shorter than the total length of "wav".

Hope this helps...

- Niklas

>   Play_Sound(wav);
> end play_for_me;
> 
> With a package body from ftp.usafa... I tried to get this to work, but it
> tells me:
> 
> play_for_me.adb:4:27:is missing";"
> play_for_me.adb:5:27:is missing";"
> gnatmake:"play_for_me.adb"compilation error
> 
> Hopefully you know the package body stuff, or should I send that to?
> I can't see that Im missing a ";" anywhere!
> 
> Any help will be appreciated.