Re: [OT] interesting reason why a language is considered good

["Randy Brukardt" <randy@rrsoftware.com>]

<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.