From: David Botton <David@Botton.com>
Subject: Re: Strings and reading from a file
Date: 1999/05/13
Date: 1999-05-14T03:09:45+00:00 [thread overview]
Message-ID: <373B93FC.9E89E2C2@Botton.com> (raw)
In-Reply-To: 7hf611$16i$1@cnn.Princeton.EDU
May I include your code on The Ada Source Code Treasury at AdaPower.com?
David Botton
"Martin C. Carlisle" wrote:
>
> I can't imagine! Probably something more like:
>
> function Next_Line(File : in Ada.Text_IO.File_Type :=
> Ada.Text_Io.Standard_Input) return String is
> Answer : String(1..256);
> Last : Natural;
> begin
> Ada.Text_IO.Get_Line(File => File,
> Item => Answer,
> Last => Last);
> if Last = Answer'Last then
> return Answer & Next_Line;
> else
> return Answer(1..Last);
> end if;
> end Next_Line;
>
> --Martin
>
> In article <7hf2bc$imm$1@nnrp1.deja.com>, <dennison@telepath.com> wrote:
> >In article <7hevh1$g08$1@nnrp1.deja.com>,
> >> Make the function recursive, and it can return a string of any length,
> >> eliminating that nagging worry about strings that are longer than
> >> whatever magic number you used in the function.
> >
> >Surely you don't mean (forgive me if Deja decides to throw away my
> >formatting):
> >
> >function Next_Line return String is
> > Char : Character;
> > Next_Char : Character;
> > EOL : Boolean;
> >begin
> > Get (Char);
> > Look_Ahead (Next_Char, EOL);
> > if EOL then
> > return (1 => Char);
> > else
> > return Char & Next_Line;
> > end if;
> >end Next_Line;
> >
> >I think we may have just smoked out a Lisp programmer...
> >
> >--
> >T.E.D.
> >
> >
> >--== Sent via Deja.com http://www.deja.com/ ==--
> >---Share what you know. Learn what you don't.---
>
> --
> Martin C. Carlisle, Asst Prof of Computer Science, US Air Force Academy
> carlislem@acm.org, http://www.usafa.af.mil/dfcs/bios/carlisle.html
> DISCLAIMER: This content in no way reflects the opinions, standards or
> policy of the US Air Force Academy or the United States Government.
next prev parent reply other threads:[~1999-05-13 0:00 UTC|newest]
Thread overview: 27+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-05-12 0:00 Strings and reading from a file Cameron Hodge
1999-05-11 0:00 ` David Botton
1999-05-12 0:00 ` Robert Dewar
1999-05-12 0:00 ` Cameron Hodge
1999-05-12 0:00 ` David C. Hoos, Sr.
1999-05-12 0:00 ` Marin David Condic
1999-05-12 0:00 ` Tom Moran
1999-05-12 0:00 ` Marin David Condic
1999-05-13 0:00 ` jrcarter001
1999-05-13 0:00 ` dennison
1999-05-13 0:00 ` Martin C. Carlisle
1999-05-13 0:00 ` David Botton [this message]
1999-05-13 0:00 ` David Botton
1999-05-14 0:00 ` Jean-Pierre Rosen
1999-05-14 0:00 ` Keith Thompson
1999-05-14 0:00 ` David C. Hoos, Sr.
1999-05-14 0:00 ` Keith Thompson
1999-05-15 0:00 ` David C. Hoos, Sr.
1999-05-16 0:00 ` Jean-Pierre Rosen
1999-05-13 0:00 ` Marin David Condic
1999-05-13 0:00 ` Hyman Rosen
1999-05-13 0:00 ` Keith Thompson
1999-05-14 0:00 ` Pascal Obry
1999-05-15 0:00 ` jrcarter001
1999-06-05 0:00 ` Matthew Heaney
1999-05-12 0:00 ` dennison
1999-05-12 0:00 ` Gautier
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox