diff options
Diffstat (limited to 'MLKInteger.m')
| -rw-r--r-- | MLKInteger.m | 39 |
1 files changed, 36 insertions, 3 deletions
diff --git a/MLKInteger.m b/MLKInteger.m index 2837b5b..43af24d 100644 --- a/MLKInteger.m +++ b/MLKInteger.m @@ -39,6 +39,19 @@ return self; } +-(MLKInteger *) initWithIntptr_t:(intptr_t)intptr_t_value +{ + self = [super init]; + mpz_init_set_si (value, intptr_t_value); + return self; +} + +-(MLKInteger *) initWithFixnum:(id)fixnum +{ + self = [self initWithIntptr_t:MLKIntWithFixnum(fixnum)]; + return self; +} + -(MLKInteger *) initWithString:(NSString *)string negative:(BOOL)negative base:(unsigned int)base @@ -51,21 +64,31 @@ +(MLKInteger *) integerWithMPZ:(mpz_t)mpz { - return LAUTORELEASE ([[MLKInteger alloc] initWithMPZ:mpz]); + return AUTORELEASE ([[MLKInteger alloc] initWithMPZ:mpz]); } +(MLKInteger *) integerWithString:(NSString *)string negative:(BOOL)negative base:(unsigned int)base { - return LAUTORELEASE ([[MLKInteger alloc] initWithString:string + return AUTORELEASE ([[MLKInteger alloc] initWithString:string negative:negative base:base]); } +(MLKInteger *) integerWithInt:(int)intValue { - return LAUTORELEASE ([[MLKInteger alloc] initWithInt:intValue]); + return AUTORELEASE ([[MLKInteger alloc] initWithInt:intValue]); +} + ++(MLKInteger *) integerWithIntptr_t:(intptr_t)intptr_t_value +{ + return AUTORELEASE ([[MLKInteger alloc] initWithIntptr_t:intptr_t_value]); +} + ++(MLKInteger *) integerWithFixnum:(id)fixnum +{ + return AUTORELEASE ([[MLKInteger alloc] initWithFixnum:fixnum]); } @@ -140,6 +163,16 @@ DEFINE_MPZ_TWOARG_INTONLY_OPERATION (lcm:, mpz_lcm) return obj; } +-(BOOL) fitsIntoFixnum +{ + return (mpz_sizeinbase (self->value, 2) <= (sizeof (id)) * 8 - 2); +} + +-(id) fixnumValue +{ + return MLKFixnumWithInt ([self intValue]); +} + -(int) intValue { return mpz_get_si (value); |