kReal

@interface kReal : kObject
{
@private
  real value;
}

@property(nonatomic) real value;

+ (kReal*)new:(real)v;

- (kReal*)init:(real)v;

- (kReal*)copy;

- (kBool*)isEqual:(kReal*)r;

@end

@implementation kReal

@synthesize value;

+ (kReal*)new:(real)v
{
  return [[kReal alloc] init:v];
}

- (kReal*)init:(real)v
{
  if(self = [super init])
    value = v;

  return self;
}

- (kReal*)copy
{
  return [[self class] new:value];
}

- (kBool*)isEqual:(kReal*)r
{
  if(value == [r value])
    return [kBool yes];
  else
    return [kBool no];
}

@end