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=-0.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,d54559bde05f5bb8 X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wn11feed!worldnet.att.net!bgtnsc04-news.ops.worldnet.att.net.POSTED!53ab2750!not-for-mail Newsgroups: comp.lang.ada From: anon@anon.org (anon) Subject: Re: Weird string I/O problem Reply-To: no to spamers (No@email.given.org) References: X-Newsreader: IBM NewsReader/2 2.0 Message-ID: Date: Thu, 04 Dec 2008 22:54:14 GMT NNTP-Posting-Host: 12.64.234.22 X-Complaints-To: abuse@worldnet.att.net X-Trace: bgtnsc04-news.ops.worldnet.att.net 1228431254 12.64.234.22 (Thu, 04 Dec 2008 22:54:14 GMT) NNTP-Posting-Date: Thu, 04 Dec 2008 22:54:14 GMT Organization: AT&T Worldnet Xref: g2news1.google.com comp.lang.ada:2882 Date: 2008-12-04T22:54:14+00:00 List-Id: And it does work each time it is you run it. But if you follow the code you will see the routine is to be executed only once. The error is in making it a multi-usable code. with extra code allowing someone to reset the maximun string length. Plus the routine may need to handle BackSpace or Del characters and some other control characters. But like I said there are too many student cheating to give a complete example. But no one else even gave code. They just try to BS someone with a paragraph that say nothing. At least in my answer I gave a concept and a starting point that any programmer could follow and finish which would make the code his. But I guess except for Adam, Robbert Duff, and myself there are no programmer here. Only guys who can try to BS an answer to dead. To coin a phrase, "Talk is cheat, Code is priceless"! In , stefan-lucks@see-the.signature writes: >On Thu, 4 Dec 2008, anon wrote: > >> Did I use the "pragma Initialize_Scalars ;" in GNAT.ADC or the command-line >> option version of that pragma or did I, as I have said "You do not give the >> complete code." >> >> That's something for you to think about! > >Well, in the message I replied to, you explicitely called your code a >"Full Working Example". I apologise for taking our postings seriously! > >> >> In , stefan-lucks@see-the.signature writes: >> >On Wed, 3 Dec 2008, anon wrote: >> >> -- Build your own input routine. Example: >> >[...] >> > >> >if the variable Last is not initialised to 0 >> > *before* you enter the loop ... >> > >> >> begin >> >> Put ( P ) ; >> >> input_string := ( others => nul ) ; >> >> for index in input_string'Range loop -- limits data size >> >> Get ( char ) ; >> >> -- Traps both LF or CR/LF type of EOL >> >> exit when char = CR or char = LF ; >> > >> >.... and if the user immediately presses the return key >> > (i.e., if you read an empty line), ... >> > >> >> input_string ( index ) := char ; >> >> Last := Index ; >> >> end loop ; >> >> if char = CR then -- for CR/LF pairing type of OSs >> >> Get ( char ) ; >> >> end if ; >> >> if char = LF or Last = input_string'Last then -- process EOL on screen >> >> New_Line ; >> >> end if ; >> >> -- valid data is input_string ( 1 .. last ) ; >> >> -- with no term control characters like LF or CR >> > >> >.... then Input_String ( 1.. Last ) depends on >> > the uninitialised variable Last ... >> > >> >> return ( input_string ( 1 .. last ) ) ; >> > >> >.... and the statement above may raise an exception. >> > >> >> end get ; >> > >> >-- >> >------ Stefan Lucks -- Bauhaus-University Weimar -- Germany ------ >> > Stefan dot Lucks at uni minus weimar dot de >> >------ I love the taste of Cryptanalysis in the morning! ------ >> > >> >> > >-- >------ Stefan Lucks -- Bauhaus-University Weimar -- Germany ------ > Stefan dot Lucks at uni minus weimar dot de >------ I love the taste of Cryptanalysis in the morning! ------ >