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.1 required=5.0 tests=BAYES_20,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!ucbvax!BGUVM.BITNET!GDAU100
From: GDAU100@BGUVM.BITNET ("Jonathan B. Owen")
Newsgroups: comp.lang.ada
Subject: Re: Terminal Column Number (was: TEXT_IO anomality)
Message-ID: <9008010148.AA15462@ajpo.sei.cmu.edu>
Date: 1 Aug 90 07:04:56 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
X-Unparsable-Date: Tue, 31 Jul 90 15:50:23 IST
List-Id: <comp.lang.ada>

In my original posting I brought up the issue of two internal files
(STANDARD_INPUT and STANDARD_OUTPUT) accessing the same external file
(read terminal).

I agree that the implementation is in accordance to the LRM.  When
accessing STANDARD_INPUT, the STANDARD_OUTPUT internal file is not
affected in any way.  Still, I am left with the problem I mentioned
at first.  The COL of STANDARD_OUTPUT does not reflect the position
of the cursor.  The difficulty is that I have no way of setting
the COL without producing an extra, unwanted CR.  It is one thing
to maintain internal-file independence, and another not to enable
a higher level to do so...

As to a concrete example for relying on COL of STANDARD_OUTPUT,
after the user types a "LIST" command (and presses return) I make
a recursive call to a procedure for printing a certain tree structure,
each time indenting the COL by 4.  The procedure uses the current
value of COL for printing multiple lines at the specific indent level.
The first line after the user's input is printed incorrectly.

Maybe it would be sensible to enable access to the counters so that
one can implement external-file dependency above TEXT_IO.

                                             Jonathan Owen

______________________________________________________________________________
  (--)    /--)     /-(\                 Email: gdau100@bguvm (bitnet)
  \ /    /--K      | \|/\   /\/) /|-\   Snail: 55 Hovevei Zion
  _/_/o /L__)_/o \/\__/  \X/  \_/ | |_/        Tel-Aviv, 63346  ISRAEL
 (/        Jonathan B. Owen             Voice: (03) 281-422

 Point of view:  A chicken is the means by which an egg reproduces an egg.
______________________________________________________________________________