kInteger

@interface kInteger : kObject
{
@private
  integer value;
}

@property(nonatomic) integer value;

+ (kInteger*)new:(integer)v;

- (kInteger*)init:(integer)v;

- (kInteger*)copy;

- (kBool*)isEqual:(kInteger*)i;

@end

@implementation kInteger

@synthesize value;

+ (kInteger*)new:(integer)v
{
  return [[kInteger alloc] init:v];
}

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

  return self;
}

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

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

@end