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

[Shark8 <onewingedshark@gmail.com>]

On Wednesday, April 18, 2012 6:48:28 PM UTC-5, Randy Brukardt wrote:
> <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.

I rather like the style there.