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,a7e1cc697e6a4b51
X-Google-Attributes: gid103376,public
From: Chris Morgan <mihalis@ix.netcom.com>
Subject: Re: newbie problem - how to
Date: 1998/11/08
Message-ID: <87emrej9fd.fsf@mihalis.ix.netcom.com>#1/1
X-Deja-AN: 409690802
Sender: cm@mihalis.ix.netcom.com
References: 
 <03F1770557943D79.F5DA81D0384C72CE.353F95DB3C8D0DD5@library-proxy.airnews.net>
 <87g1bwi7gj.fsf@mihalis.ix.netcom.com>
 <AB859D6EEAE610D8.6A8A3E47A1B005EF.69A72E48756C3246@library-proxy.airnews.net>
 <dale-0811981848330001@dale.ppp.cs.rmit.edu.au> <7246et$e8i@drn.newsguy.com>
 <C798D9F37614D4C6.3C8BB0F39DC657DD.624B5FD1EE04B9D9@library-proxy.airnews.net>
Organization: Linux Hackers Unlimited
X-NETCOM-Date: Sun Nov 08 10:59:05 AM PST 1998
Newsgroups: comp.lang.ada
Date: 1998-11-08T10:59:05-08:00
List-Id: <comp.lang.ada>

Dana Holland <dana@nav.cc.tx.us> writes:

> bill_so@hotmail.com.nospam wrote:
> > 
> > any one who writes code that looks like this, should not be writing code !
> 
> As I've already explained, the indentation was originally there...

here we go - cut it into emacs, select the whole buffer, M-x
indent-region, and bingo :


task body WriteChar is
   c : character;
   i : integer;
begin
   loop
      select
	 when not Buffer.full=>
	   accept Write(ch : in character) do
	      c := ch;
	   end Write;
	   i := (Buffer.rear + 1) mod 10;               <-------   Line 23
	     delay 0.01;
	   Buffer.rear := i;
	   Buffer.empty := false;
	   Buffer.List(Buffer.rear) := c;
	   i := Buffer.count + 1;
	   delay 0.1;
	   Buffer.count := i;
	   if (Buffer.count = 10) then
	      Buffer.full := true;
	   end if;
      or
	 delay 0.1;
      end select;
   end loop;
end WriteChar;


> 
> You know, when someone asks a question in an area where I'm skilled, I
> don't attempt to make them feel like an idiot.  I either answer the
> question, or politely explain why I can't answer it - or, if I simply
> don't feel like being bothered, I don't post a response at all. 
> "Newbies" have to learn somewhere - as far as I know, there is no one on
> this planet who was born with complete knowledge of Ada, C++, COBOL, or
> any other language.  I think it's very sad that people who want to learn
> can't afford to ask a question of experienced users because of the risk
> of being ridiculed.

Agreed, but this group does quite well normally.

Chris

-- 
Chris Morgan <mihalis at ix.netcom.com> 
       Home Web Server -  http://mihalis.dyn.ml.org/index.html