Re: Question Exception with Ada.Containers.Generic_Constrained_Array_Sort

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

On 15.08.12 09:11, Martin wrote:
> On Tuesday, August 14, 2012 1:39:29 PM UTC+1, Marc C wrote:
>> On Monday, August 13, 2012 3:05:51 PM UTC-5, awdorrin wrote:
>>
>>
>>
>>> The comparison function is:
>>
>>>
>>
>>>   function DevName_Less_Than( L,R : Device_Object_Type) return Boolean is
>>
>>>   begin
>>
>>>     if GetDeviceName(L) < GetDeviceName(R)
>>
>>>     then
>>
>>>       return TRUE;
>>
>>>     else
>>
>>>       return FALSE;
>>
>>>     end if;
>>
>>>   end DevName_Less_Than;
>>
>>
>>
>> Just a pet peeve of mine... :-)
>>
>>
>>
>> function DevName_Less_Than( L,R : Device_Object_Type) return Boolean is
>>
>> begin
>>
>>    return GetDeviceName(L) < GetDeviceName(R);
>>
>> end DevName_Less_Than;
> 
> +1

Rather impractical for development use! OK, I cannot normally use
a debugger, which explains the habit.

function DevName_Less_Than( L,R : Device_Object_Type) return Boolean is
   Ls_Name : Device_Object_Type renames GetDeviceName(L);
   Rs_Name : Device_Object_Type renames GetDeviceName(R);
   Result : Boolean;
begin
   if Ls_Name < Rs_Name then
      pragma Debug (D (623, "got < for device names!"));
      Result := TRUE;
   else
      Result := FALSE;
   end if;

   pragma Debug (D (323, "L < R is " & Boolean'Image (Result)));
   return Result;
end DevName_Less_Than;

Substitute "aspect oriented programming" for pragma Debug ;->