Re: user-defined type conversion

[sk <noname@myob.com>]

Hi, 
18k11tm001@sneakemail.com (Russ) :
>type inches is new float;
>type feet is new float;

>function inches ( arg: feet ) return inches is
>    begin
>    return inches ( 12.0 * float(feet) );
>    end inches;

...

> Type conversion IS a function! ...

You are dealing with two different conversions, a type
conversion and a "units" conversion.

The other problem is Float(Feet), do you mean Float(Arg) ?

function To_inches ( arg: feet ) return inches is
begin
    return 
        Inches (           -- Type conversion
            12.0 * Arg     -- Unit conversion
        );
end To_inches;

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------