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,43ff490aee692a6a
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-12-02 02:56:12 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!193.251.151.101!opentransit.net!wanadoo.fr!not-for-mail
From: Pascal Obry <p.obry@wanadoo.fr>
Newsgroups: comp.lang.ada
Subject: Re: ASCL project on AdaPower.net
Date: 02 Dec 2001 11:53:49 +0100
Organization: Home - http://perso.wanadoo.fr/pascal.obry
Message-ID: <uvgfpc2pu.fsf@wanadoo.fr>
References: <9ucgi0$7g2i6$1@ID-25716.news.dfncis.de>
NNTP-Posting-Host: avelizy-103-1-4-5.abo.wanadoo.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: wanadoo.fr 1007290571 26538 80.11.102.5 (2 Dec 2001 10:56:11 GMT)
X-Complaints-To: abuse@wanadoo.fr
NNTP-Posting-Date: 2 Dec 2001 10:56:11 GMT
Original-Sender: d:\home\obry@PASCAL
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
Xref: archiver1.google.com comp.lang.ada:17298
Date: 2001-12-02T10:56:11+00:00
List-Id: <comp.lang.ada>


Just a style note. I think that the ASCL sources should follow somehow the
convention used in the RM. Or maybe the GNAT style enforced by -gnaty.

For example I would change:

   function Cursor_Index (
         Source : in     Bounded_List;            
         Cursor : in     Cursor_Number := 1;      
         Facing : in     Direction     := Forward ) 
     return Natural; 

To (RM / GNAT style)

   function Cursor_Index
     (Source : in Bounded_List;            
      Cursor : in Cursor_Number := 1;      
      Facing : in Direction     := Forward)
     return Natural; 

Or (RM style)

   function Cursor_Index (Source : in Bounded_List;            
                          Cursor : in Cursor_Number := 1;      
                          Facing : in Direction     := Forward)
     return Natural; 

Or more GNATish style:

   function Cursor_Index
     (Source : in Bounded_List;            
      Cursor : in Cursor_Number := 1;      
      Facing : in Direction     := Forward) 
      return      Natural; 

Just my 2cents,
Pascal.


-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--|
--| "The best way to travel is by means of imagination"