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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,74b013eedc5cbd6d
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-04-26 09:08:56 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!news.tele.dk!news.tele.dk!small.news.tele.dk!news-stoc.telia.net!217.209.241.210.MISMATCH!news-stod.telia.net!telia.net!masternews.telia.net.!newsb.telia.net.POSTED!not-for-mail
From: "Andreas" <andreasv@telia.com>
Newsgroups: comp.lang.ada
References: <mailman.45.1082599236.314.comp.lang.ada@ada-france.org>
Subject: Re: Command line
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
Message-ID: <suajc.57284$mU6.235112@newsb.telia.net>
Date: Mon, 26 Apr 2004 16:08:56 GMT
NNTP-Posting-Host: 81.224.164.169
X-Complaints-To: abuse@telia.com
X-Trace: newsb.telia.net 1082995736 81.224.164.169 (Mon,
 26 Apr 2004 18:08:56 CEST)
NNTP-Posting-Date: Mon, 26 Apr 2004 18:08:56 CEST
Organization: Telia Internet
Xref: archiver1.google.com comp.lang.ada:7509
Date: 2004-04-26T16:08:56+00:00
List-Id: <comp.lang.ada>

Thanks for your answer. But, it actually didn't help. That's my fault; i
didn't specfy what my actual problem was. I'm so sorry for that.
Here i've got some code;

 procedure MyGet is
  sDate : string(1..10);
  e : exception;
 begin

   ada.exceptions.raise_exception(e'identity,"Format_Error");

 end;

procedure Test is
begin
  loop
     MyGet;
           exception
      when event: others =>
        ada.text_io.put(ada.exceptions.exception_message(event));
   end loop;
end;

"Test" is the first procedure called when i start my program. I start it
with the command line "Myprog < somedata.txt", so the data in "somedata.txt"
will be read in MyGet.

The problem here is, that i get (Using ObjectAda 7.2 at a Windows XP
machine) a compiler error. "Parse error: expected END_LOOP, got EXCEPTION,
Inserting END_LOOP".

How do i solve this?

Thanks in advance,

/Andreas

> If you are using Ada.Command_Line to pick up the name
> "data.txt", then you don't need the "<" to redirect it
> as standard input, or you could just pick up argument
> number 2.  But it's better to drop the redirect, in
> that case.
>
> Otherwise, leave it the way you have it and just use
> Get, Get_Line, etc. (without the "file" argument) from
> Ada.Text_Io and it will be working with "data.txt" as
> standard input.
>
> Frank