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-Thread: 103376,c733905936c6b6b0
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.129.169 with SMTP id nx9mr113531pbb.2.1334792912711;
        Wed, 18 Apr 2012 16:48:32 -0700 (PDT)
MIME-Version: 1.0
Path: 
 r9ni72171pbh.0!nntp.google.com!news1.google.com!goblin3!goblin2!goblin.stu.neva.ru!feeder.erje.net!nuzba.szn.dk!news.jacob-sparre.dk!munin.jacob-sparre.dk!pnx.dk!.POSTED!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: [OT] interesting reason why a language is considered good
Date: Wed, 18 Apr 2012 18:48:28 -0500
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <jmnjsf$sro$1@munin.nbi.dk>
References: <jme7r1$eo7$1@speranza.aioe.org>
 <8603135.951.1334573001928.JavaMail.geo-discussion-forums@vbbdy9>
 <4f8c06f5$0$7617$9b4e6d93@newsspool1.arcor-online.net>
 <14veb9cpamoda.ck9fbsd5m9m$.dlg@40tude.net>
 <4f8c3431$0$7627$9b4e6d93@newsspool1.arcor-online.net>
 <szik5e8e6n4m$.dgyqh41b6k6b$.dlg@40tude.net>
 <4f8c52b2$0$7627$9b4e6d93@newsspool1.arcor-online.net>
 <9s7d2eufbh6f$.1ivcyxfztaq42$.dlg@40tude.net>
 <4f8c93a0$0$6638$9b4e6d93@newsspool2.arcor-online.net>
 <jmiotp$3gc$1@munin.nbi.dk>
 <4f8d1fdf$0$6638$9b4e6d93@newsspool2.arcor-online.net>
 <jmkr2p$trl$1@munin.nbi.dk>
 <Pine.LNX.4.64.1204180902020.24751@medsec1.medien.uni-weimar.de>
NNTP-Posting-Host: static-69-95-181-76.mad.choiceone.net
X-Trace: munin.nbi.dk 1334792911 29560 69.95.181.76 (18 Apr 2012 23:48:31 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Wed, 18 Apr 2012 23:48:31 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
Date: 2012-04-18T18:48:28-05:00
List-Id: <comp.lang.ada>

<stefan-lucks@see-the.signature> wrote in message 
news:Pine.LNX.4.64.1204180902020.24751@medsec1.medien.uni-weimar.de...
...
> And I have yet so see some Ada code where
> keywords are written in mixed case.

The original R.R.Software style wrote keywords in mixed case. We only 
changed that style when Claw was built (I wanted Claw to have a more typical 
style). Most of the Janus/Ada compiler and runtime code has the old style 
(I've been changing the style when I've worked on particular subprograms, 
but of course many subprograms haven't needed changes). That's about 300,000 
lines of Ada in total.

So here's a piece of Janus/Ada code in the original style:

   Function Actual_Type(Old : In Type_Ptr) Return Type_Ptr Is
   ----------------------------------------------------------------------
   --  Returns Actual type for a type which was declared in a generic  --
   --  unit specification.  (The actual type was the subtype           --
   --  substituted in the template).  Returns Type_Ptr'First if this   --
   --  isn't declared in a generic.  Only can be used outside the      --
   --  Generic.                                                        --
   ----------------------------------------------------------------------
       Checking_Type : Type_Ptr := Old;
       Temp_Rec : Type_Rec := 
J2TypeTable.Get_From_Type_Table(Checking_Type);
   Begin
       Loop
           If Temp_Rec.Typs = GENERIC_INST Then
               Return Temp_Rec.Actual; -- Found it!
           Elsif Temp_Rec.Parent_Type /= Type_Ptr'First Then
               Checking_Type := Temp_Rec.Parent_Type;
               Temp_Rec := J2TypeTable.Get_From_Type_Table(Checking_Type);
           Else
               Return Type_Ptr'First;
           End If;
       End Loop;
   End Actual_Type;

Now, having seen that, you can never say again that you haven't seen "some 
Ada code where keywords are written in mixed case." :-)

                                               Randy.