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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD, FREEMAIL_FROM autolearn=no 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.125.233 with SMTP id mt9mr2179153pbb.5.1334845845854; Thu, 19 Apr 2012 07:30:45 -0700 (PDT) Path: r9ni74501pbh.0!nntp.google.com!news1.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail From: Shark8 Newsgroups: comp.lang.ada Subject: Re: [OT] interesting reason why a language is considered good Date: Thu, 19 Apr 2012 07:22:58 -0700 (PDT) Organization: http://groups.google.com Message-ID: <6492154.697.1334845378447.JavaMail.geo-discussion-forums@ynku11> References: <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> <4f8c52b2$0$7627$9b4e6d93@newsspool1.arcor-online.net> <9s7d2eufbh6f$.1ivcyxfztaq42$.dlg@40tude.net> <4f8c93a0$0$6638$9b4e6d93@newsspool2.arcor-online.net> <4f8d1fdf$0$6638$9b4e6d93@newsspool2.arcor-online.net> NNTP-Posting-Host: 96.2.54.122 Mime-Version: 1.0 X-Trace: posting.google.com 1334845845 17435 127.0.0.1 (19 Apr 2012 14:30:45 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Thu, 19 Apr 2012 14:30:45 +0000 (UTC) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=96.2.54.122; posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC User-Agent: G2/1.0 Content-Type: text/plain; charset=ISO-8859-1 Date: 2012-04-19T07:22:58-07:00 List-Id: On Wednesday, April 18, 2012 6:48:28 PM UTC-5, Randy Brukardt wrote: > 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. I rather like the style there.