NSValue+WOTest.m

   1 //
   2 //  NSValue+WOTest.m
   3 //  WOTest
   4 //
   5 //  Created by Wincent Colaiuta on 09 June 2005.
   6 //
   7 //  Copyright 2005-2007 Wincent Colaiuta.
   8 //  This program is free software: you can redistribute it and/or modify
   9 //  it under the terms of the GNU General Public License as published by
  10 //  the Free Software Foundation, either version 3 of the License, or
  11 //  (at your option) any later version.
  12 //
  13 //  This program is distributed in the hope that it will be useful,
  14 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 //  GNU General Public License for more details.
  17 //
  18 //  You should have received a copy of the GNU General Public License
  19 //  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20 //
  21
  22 // category header
  23 #import "NSValue+WOTest.h"
  24
  25 // system headers
  26 #import <objc/objc-runtime.h>
  27
  28 // framework headers
  29 #import "WOTest.h"
  30 #import "NSObject+WOTest.h"
  31 #import "NSScanner+WOTest.h"
  32 #import "NSString+WOTest.h"
  33
  34 @implementation NSValue (WOTest)
  35
  36 #pragma mark -
  37 #pragma mark Value creation methods
  38
  39 + (NSValue *)WOTest_valueWithChar:(char)aChar
  40 {
  41     return [NSValue value:&aChar withObjCType:@encode(char)];
  42 }
  43
  44 + (NSValue *)WOTest_valueWithInt:(int)anInt
  45 {
  46     return [NSValue value:&anInt withObjCType:@encode(int)];
  47 }
  48
  49 + (NSValue *)WOTest_valueWithShort:(short)aShort
  50 {
  51     return [NSValue value:&aShort withObjCType:@encode(short)];
  52 }
  53
  54 + (NSValue *)WOTest_valueWithLong:(long)aLong
  55 {
  56     return [NSValue value:&aLong withObjCType:@encode(long)];
  57 }
  58
  59 + (NSValue *)WOTest_valueWithLongLong:(long long)aLongLong
  60 {
  61     return [NSValue value:&aLongLong withObjCType:@encode(long long)];
  62 }
  63
  64 + (NSValue *)WOTest_valueWithUnsignedChar:(unsigned char)anUnsignedChar
  65 {
  66     return [NSValue value:&anUnsignedChar withObjCType:@encode(unsigned char)];
  67 }
  68
  69 + (NSValue *)WOTest_valueWithUnsignedInt:(unsigned int)anUnsignedInt
  70 {
  71     return [NSValue value:&anUnsignedInt withObjCType:@encode(unsigned int)];
  72 }
  73
  74 + (NSValue *)WOTest_valueWithUnsignedShort:(unsigned short)anUnsignedShort
  75 {
  76     return [NSValue value:&anUnsignedShort withObjCType:@encode(unsigned short)];
  77 }
  78
  79 + (NSValue *)WOTest_valueWithUnsignedLong:(unsigned long)anUnsignedLong
  80 {
  81     return [NSValue value:&anUnsignedLong withObjCType:@encode(unsigned long)];
  82 }
  83
  84 + (NSValue *)WOTest_valueWithUnsignedLongLong:(unsigned long long)anUnsignedLongLong
  85 {
  86     return [NSValue value:&anUnsignedLongLong withObjCType:@encode(unsigned long long)];
  87 }
  88
  89 + (NSValue *)WOTest_valueWithFloat:(float)aFloat
  90 {
  91     return [NSValue value:&aFloat withObjCType:@encode(float)];
  92 }
  93
  94 + (NSValue *)WOTest_valueWithDouble:(double)aDouble
  95 {
  96     return [NSValue value:&aDouble withObjCType:@encode(double)];
  97 }
  98
  99 + (NSValue *)WOTest_valueWithC99Bool:(_Bool)aC99Bool
 100 {
 101     return [NSValue value:&aC99Bool withObjCType:@encode(_Bool)];
 102 }
 103
 104 + (NSValue *)WOTest_valueWithConstantCharacterString:(const char *)aConstantCharString
 105 {
 106     return [NSValue value:&aConstantCharString withObjCType:@encode(const char *)];
 107 }
 108
 109 + (NSValue *)WOTest_valueWithCharacterString:(char *)aCharacterString
 110 {
 111     return [NSValue value:&aCharacterString withObjCType:@encode(char *)];
 112 }
 113
 114 + (NSValue *)WOTest_valueWithObject:(id)anObject
 115 {
 116     return [NSValue value:&anObject withObjCType:@encode(id)];
 117 }
 118
 119 + (NSValue *)WOTest_valueWithClass:(Class)aClass
 120 {
 121     return [NSValue value:&aClass withObjCType:@encode(Class)];
 122 }
 123
 124 + (NSValue *)WOTest_valueWithSelector:(SEL)aSelector
 125 {
 126     return [NSValue value:&aSelector withObjCType:@encode(SEL)];
 127 }
 128
 129 #pragma mark -
 130 #pragma mark Parsing type strings
 131
 132 // TODO: investigate whether NSGetSizeAndAlignment() could save some code here...
 133 + (size_t)WOTest_maximumEmbeddedSizeForType:(NSString *)typeString
 134 {
 135     NSParameterAssert(typeString != nil);
 136     size_t size = 16; // worst case scenario
 137
 138     if ([self WOTest_typeIsCompound:typeString])
 139         return [self WOTest_sizeForType:typeString];
 140
 141     if ([self WOTest_typeIsBitfield:typeString])
 142         return sizeof(int);
 143
 144 #if defined (__i386__)
 145
 146     if ([self WOTest_typeIsC99Bool:typeString]                         ||
 147         [self WOTest_typeIsUnsignedChar:typeString]                    ||
 148         [self WOTest_typeIsChar:typeString]                            ||
 149         [self WOTest_typeIsUnsignedChar:typeString])
 150         size = 1;   // scalars of size/alignment 1
 151     else if ([self WOTest_typeIsUnsignedShort:typeString]              ||
 152              [self WOTest_typeIsShort:typeString])
 153         size = 2;   // scalars of size/alignment 2
 154     else if ([self WOTest_typeIsUnsignedInt:typeString]                ||
 155              [self WOTest_typeIsInt:typeString]                        ||
 156              [self WOTest_typeIsUnsignedLong:typeString]               ||
 157              [self WOTest_typeIsLong:typeString]                       ||
 158              [self WOTest_typeIsFloat:typeString])
 159         size = 4;   // scalars of size/alignment 4
 160     else if ([self WOTest_typeIsUnsignedLongLong:typeString]           ||
 161              [self WOTest_typeIsLongLong:typeString]                   ||
 162              [self WOTest_typeIsDouble:typeString])
 163         size = 8;   // scalars of size/alignment 8
 164     else if ([self WOTest_typeIsPointer:typeString]                    ||
 165              [self WOTest_typeIsPointerToVoid:typeString]              ||
 166              [self WOTest_typeIsObject:typeString]                     ||
 167              [self WOTest_typeIsClass:typeString]                      ||
 168              [self WOTest_typeIsSelector:typeString]                   ||
 169              [self WOTest_typeIsCharacterString:typeString]            ||
 170              [self WOTest_typeIsConstantCharacterString:typeString])
 171         size = 4;   // pointers (size/alignment 4)
 172     else
 173         // documented in "Mac OS X ABI Function Call Guide" but not supported:
 174         // long double        16 bytes
 175         // vector (64 bits)   8 bytes
 176         // vector (128 bits)  16 bytes
 177         [NSException raise:NSInternalInconsistencyException
 178                     format:@"Type %@ not supported by WOTest_maximumEmbeddedSizeForType:", typeString];
 179
 180 #elif defined (__ppc__)
 181
 182     if ([self WOTest_typeIsUnsignedChar:typeString]                    ||
 183         [self WOTest_typeIsChar:typeString])
 184         size = 1;   // scalars of size/alignment 1
 185     else if ([self WOTest_typeIsUnsignedShort:typeString]              ||
 186              [self WOTest_typeIsShort:typeString])
 187         size = 2;   // scalars of size/alignment 2
 188     else if ([self WOTest_typeIsC99Bool:typeString]                    ||
 189              [self WOTest_typeIsUnsignedInt:typeString]                ||
 190              [self WOTest_typeIsInt:typeString]                        ||
 191              [self WOTest_typeIsUnsignedLong:typeString]               ||
 192              [self WOTest_typeIsLong:typeString]                       ||
 193              [self WOTest_typeIsFloat:typeString])
 194         size = 4;   // scalars of size/alignment 4
 195     else if ([self WOTest_typeIsUnsignedLongLong:typeString]           ||
 196              [self WOTest_typeIsLongLong:typeString]                   ||
 197              [self WOTest_typeIsDouble:typeString])
 198         size = 8;   // scalars of size/alignment 8
 199     else if ([self WOTest_typeIsPointer:typeString]                    ||
 200              [self WOTest_typeIsPointerToVoid:typeString]              ||
 201              [self WOTest_typeIsObject:typeString]                     ||
 202              [self WOTest_typeIsClass:typeString]                      ||
 203              [self WOTest_typeIsSelector:typeString]                   ||
 204              [self WOTest_typeIsCharacterString:typeString]            ||
 205              [self WOTest_typeIsConstantCharacterString:typeString])
 206         size = 4;   // pointers (size/alignment 4)
 207     else
 208         // documented in "Mac OS X ABI Function Call Guide" but not supported:
 209         // long double  8 bytes (Mac OS X < 10.4, GCC < 4.0)
 210         // long double  16 bytes (Mac OS X >= 10.4, GCC >= 4.0)
 211         // vector       16 bytes
 212         [NSException raise:NSInternalInconsistencyException
 213                     format:@"Type %@ not supported by WOTest_maximumEmbeddedSizeForType:", typeString];
 214
 215 #elif defined (__ppc64__)
 216
 217     if ([self WOTest_typeIsC99Bool:typeString]                         ||
 218         [self WOTest_typeIsUnsignedChar:typeString]                    ||
 219         [self WOTest_typeIsChar:typeString])
 220         size = 1;   // scalars of size/alignment 1
 221     else if ([self WOTest_typeIsUnsignedShort:typeString]              ||
 222              [self WOTest_typeIsShort:typeString])
 223         size = 2;   // scalars of size/alignment 2
 224     else if ([self WOTest_typeIsUnsignedInt:typeString]                ||
 225              [self WOTest_typeIsInt:typeString]                        ||
 226              [self WOTest_typeIsFloat:typeString])
 227         size = 4;   // scalars of size/alignment 4
 228     else if ([self WOTest_typeIsUnsignedLong:typeString]               ||
 229              [self WOTest_typeIsLong:typeString]                       ||
 230              [self WOTest_typeIsUnsignedLongLong:typeString]           ||
 231              [self WOTest_typeIsLongLong:typeString]                   ||
 232              [self WOTest_typeIsDouble:typeString])
 233         size = 8;   // scalars of size/alignment 8
 234     else if ([self WOTest_typeIsPointer:typeString]                    ||
 235              [self WOTest_typeIsPointerToVoid:typeString]              ||
 236              [self WOTest_typeIsObject:typeString]                     ||
 237              [self WOTest_typeIsClass:typeString]                      ||
 238              [self WOTest_typeIsSelector:typeString]                   ||
 239              [self WOTest_typeIsCharacterString:typeString]            ||
 240              [self WOTest_typeIsConstantCharacterString:typeString])
 241         size = 8;   // pointers (size/alignment 8)
 242     else
 243         // documented in "Mac OS X ABI Function Call Guide" but not supported:
 244         // long double  16 bytes
 245         // vector       16 bytes
 246         [NSException raise:NSInternalInconsistencyException
 247                     format:@"Type %@ not supported by WOTest_maximumEmbeddedSizeForType:", typeString];
 248
 249 #else
 250
 251 #error Unsupported architecture
 252
 253 #endif
 254
 255     return size;
 256 }
 257
 258 + (size_t)WOTest_sizeForType:(NSString *)typeString
 259 {
 260     NSParameterAssert(typeString != nil);
 261     size_t size = 0;
 262
 263     if ([self WOTest_typeIsChar:typeString])
 264         size = sizeof(char);
 265     else if ([self WOTest_typeIsInt:typeString])
 266         size = sizeof(int);
 267     else if ([self WOTest_typeIsShort:typeString])
 268         size = sizeof(short);
 269     else if ([self WOTest_typeIsLong:typeString])
 270         size = sizeof(long);
 271     else if ([self WOTest_typeIsLongLong:typeString])
 272         size = sizeof(long long);
 273     else if ([self WOTest_typeIsUnsignedChar:typeString])
 274         size = sizeof(unsigned char);
 275     else if ([self WOTest_typeIsUnsignedInt:typeString])
 276         size = sizeof(unsigned int);
 277     else if ([self WOTest_typeIsUnsignedShort:typeString])
 278         size = sizeof(unsigned short);
 279     else if ([self WOTest_typeIsUnsignedLong:typeString])
 280         size = sizeof(unsigned long);
 281     else if ([self WOTest_typeIsUnsignedLongLong:typeString])
 282         size = sizeof(unsigned long long);
 283     else if ([self WOTest_typeIsFloat:typeString])
 284         size = sizeof(float);
 285     else if ([self WOTest_typeIsDouble:typeString])
 286         size = sizeof(double);
 287     else if ([self WOTest_typeIsC99Bool:typeString])
 288         size = sizeof(_Bool);
 289     else if ([self WOTest_typeIsVoid:typeString])
 290         size = sizeof(void);
 291     else if ([self WOTest_typeIsConstantCharacterString:typeString])
 292         size = sizeof(const char *);
 293     else if ([self WOTest_typeIsCharacterString:typeString])
 294         size = sizeof(char *);
 295     else if ([self WOTest_typeIsObject:typeString])
 296         size = sizeof(id);
 297     else if ([self WOTest_typeIsClass:typeString])
 298         size = sizeof(Class);
 299     else if ([self WOTest_typeIsSelector:typeString])
 300         size = sizeof(SEL);
 301     else if ([self WOTest_typeIsPointerToVoid:typeString])
 302         size = sizeof(void *);
 303     else // handle complex types and special cases
 304     {
 305         // if is pointer
 306         if ([self WOTest_typeIsPointer:typeString])
 307             size = sizeof(void *);
 308         else if ([self WOTest_typeIsArray:typeString])
 309         {
 310             NSScanner *scanner = [NSScanner scannerWithString:typeString];
 311             unichar startMarker, endMarker;
 312             int count;
 313             NSString *elementType;
 314             if ([scanner WOTest_scanCharacter:&startMarker] &&
 315                 (startMarker == _C_ARY_B) && [scanner scanInt:&count] &&
 316                 [scanner WOTest_scanTypeIntoString:&elementType] &&
 317                 [scanner WOTest_scanCharacter:&endMarker] && (endMarker == _C_ARY_E) &&
 318                 [scanner isAtEnd])
 319             {
 320                 // recursion
 321                 size = [self WOTest_sizeForType:elementType] * count;
 322             }
 323             else
 324                 [NSException raise:NSInternalInconsistencyException
 325                             format:@"scanner error in sizeForType for type %@", typeString];
 326         }
 327         else if ([self WOTest_typeIsStruct:typeString])
 328         {
 329             NSScanner *scanner = [NSScanner scannerWithString:typeString];
 330             unichar startMarker, endMarker;
 331
 332             if ([scanner WOTest_scanCharacter:&startMarker] &&
 333                 (startMarker == _C_STRUCT_B))
 334             {
 335                 // scan optional identifier
 336                 if ([scanner WOTest_scanIdentifierIntoString:nil])
 337                     [scanner WOTest_scanCharacter:NULL]; // scan past "="
 338
 339                 NSString    *memberType;
 340                 size_t      largestMember   = 0;
 341                 while ([scanner WOTest_scanTypeIntoString:&memberType])
 342                 {
 343                     size_t memberSize = [self WOTest_maximumEmbeddedSizeForType:memberType];
 344                     largestMember = MAX(largestMember, memberSize);
 345
 346                     if (memberSize != 0) // watch out for division by zero
 347                     {
 348                         // check for alignment gap
 349                         size_t modulo = (size % memberSize);
 350                         if (modulo != 0) // fill alignment gap
 351                             size += (memberSize - modulo);
 352                     }
 353
 354                     size += memberSize;
 355                 }
 356
 357 #if defined (__i386__) || defined (__ppc64)
 358
 359                 // Special rules for i386:
 360                 // 1. Composite data types (structs/arrays/unions) take on the alignment of the member with the highest alignment
 361                 // 2. Size of composite type is a multiple of its alignment
 362
 363                 // Special rules for ppc64 (equivalent):
 364                 // 1. Embedding alignment of composite types (array/struct) is same as largest embedding align of members.
 365                 // 2. Total size of the composite is rounded up to multiple of its embedding alignment.
 366
 367                 // Special rules for ppc: None.
 368
 369                 if (largestMember != 0) // watch out for division by zero
 370                 {
 371                     // check for alignment gap
 372                     size_t modulo = (size % largestMember);
 373                     if (modulo != 0) // fill alignment gap
 374                         size += (largestMember - modulo);
 375                 }
 376
 377 #endif
 378
 379                 if ([scanner WOTest_scanCharacter:&endMarker] && (endMarker == _C_STRUCT_E) && [scanner isAtEnd])
 380                     return size; // all done
 381             }
 382
 383             [NSException raise:NSInternalInconsistencyException format:@"scanner error in sizeForType for type %@", typeString];
 384         }
 385         else if ([self WOTest_typeIsUnion:typeString])
 386         {
 387             NSScanner *scanner = [NSScanner scannerWithString:typeString];
 388             unichar startMarker, endMarker;
 389
 390             if ([scanner WOTest_scanCharacter:&startMarker] && (startMarker == _C_UNION_B))
 391             {
 392                 // scan optional identifier
 393                 if ([scanner WOTest_scanIdentifierIntoString:nil])
 394                     [scanner WOTest_scanCharacter:NULL]; // scan past "="
 395
 396                 NSString *memberType;
 397                 while ([scanner WOTest_scanTypeIntoString:&memberType])
 398                     // size of union is size of largest type in the union
 399                     size = MAX(size, [self WOTest_maximumEmbeddedSizeForType:memberType]);
 400
 401                 if ([scanner WOTest_scanCharacter:&endMarker] && (endMarker == _C_UNION_E) && [scanner isAtEnd])
 402                     return size; // all done
 403             }
 404
 405             [NSException raise:NSInternalInconsistencyException format:@"scanner error in sizeForType for type %@", typeString];
 406         }
 407         else if ([self WOTest_typeIsBitfield:typeString])
 408             size = sizeof(int);
 409         else if ([self WOTest_typeIsUnknown:typeString])
 410         {
 411             // could be a function pointer, but could be something else
 412             [NSException raise:NSInternalInconsistencyException format: @"Cannot calculate buffer size for type %@", typeString];
 413         }
 414         else // we officially have no idea whatsoever
 415             [NSException raise:NSInternalInconsistencyException
 416                         format:@"Cannot calculate buffer size for unknown type %@", typeString];
 417     }
 418
 419     return size;
 420 }
 421
 422 /*! Returns YES if \p typeString contains a numeric scalar value (char, int, short, long, long long, unsigned char, unsigned int, unsigned short, unsigned long, unsigned long long, float, double, C99 _Bool). Returns NO if the receiver contains any other type, object or pointer (id, Class, SEL, void, char *, as well as arrays, structures and pointers). */
 423 + (BOOL)WOTest_typeIsNumericScalar:(NSString *)typeString
 424 {
 425     if (!typeString) return NO;
 426     return ([self WOTest_typeIsChar:typeString]                ||
 427             [self WOTest_typeIsInt:typeString]                 ||
 428             [self WOTest_typeIsShort:typeString]               ||
 429             [self WOTest_typeIsLong:typeString]                ||
 430             [self WOTest_typeIsLongLong:typeString]            ||
 431             [self WOTest_typeIsUnsignedChar:typeString]        ||
 432             [self WOTest_typeIsUnsignedInt:typeString]         ||
 433             [self WOTest_typeIsUnsignedShort:typeString]       ||
 434             [self WOTest_typeIsUnsignedLong:typeString]        ||
 435             [self WOTest_typeIsUnsignedLongLong:typeString]    ||
 436             [self WOTest_typeIsFloat:typeString]               ||
 437             [self WOTest_typeIsDouble:typeString]              ||
 438             [self WOTest_typeIsC99Bool:typeString]);
 439 }
 440
 441 + (BOOL)WOTest_typeIsCompound:(NSString *)typeString
 442 {
 443     if (!typeString) return NO;
 444     return ([self WOTest_typeIsStruct:typeString] || [self WOTest_typeIsUnion:typeString] || [self WOTest_typeIsArray:typeString]);
 445 }
 446
 447 + (BOOL)WOTest_typeIsChar:(NSString *)typeString
 448 {
 449     if (!typeString) return NO;
 450     const char *type = [typeString UTF8String];
 451     return ((strlen(type) == 1) && *type == _C_CHR);
 452 }
 453
 454 + (BOOL)WOTest_typeIsInt:(NSString *)typeString
 455 {
 456     if (!typeString) return NO;
 457     const char *type = [typeString UTF8String];
 458     return ((strlen(type) == 1) && *type == _C_INT);
 459 }
 460
 461 + (BOOL)WOTest_typeIsShort:(NSString *)typeString
 462 {
 463     if (!typeString) return NO;
 464     const char *type = [typeString UTF8String];
 465     return ((strlen(type) == 1) && *type == _C_SHT);
 466 }
 467
 468 + (BOOL)WOTest_typeIsLong:(NSString *)typeString
 469 {
 470     if (!typeString) return NO;
 471     const char *type = [typeString UTF8String];
 472     return ((strlen(type) == 1) && *type == _C_LNG);
 473 }
 474
 475 + (BOOL)WOTest_typeIsLongLong:(NSString *)typeString
 476 {
 477     if (!typeString) return NO;
 478     const char *type = [typeString UTF8String];
 479     return ((strlen(type) == 1) && *type == _C_LNGLNG);
 480 }
 481
 482 + (BOOL)WOTest_typeIsUnsignedChar:(NSString *)typeString
 483 {
 484     if (!typeString) return NO;
 485     const char *type = [typeString UTF8String];
 486     return ((strlen(type) == 1) && *type == _C_UCHR);
 487 }
 488
 489 + (BOOL)WOTest_typeIsUnsignedInt:(NSString *)typeString
 490 {
 491     if (!typeString) return NO;
 492     const char *type = [typeString UTF8String];
 493     return ((strlen(type) == 1) && *type == _C_UINT);
 494 }
 495
 496 + (BOOL)WOTest_typeIsUnsignedShort:(NSString *)typeString
 497 {
 498     if (!typeString) return NO;
 499     const char *type = [typeString UTF8String];
 500     return ((strlen(type) == 1) && *type == _C_USHT);
 501 }
 502
 503 + (BOOL)WOTest_typeIsUnsignedLong:(NSString *)typeString
 504 {
 505     if (!typeString) return NO;
 506     const char *type = [typeString UTF8String];
 507     return ((strlen(type) == 1) && *type == _C_ULNG);
 508 }
 509
 510 + (BOOL)WOTest_typeIsUnsignedLongLong:(NSString *)typeString
 511 {
 512     if (!typeString) return NO;
 513     const char *type = [typeString UTF8String];
 514     return ((strlen(type) == 1) && *type == _C_ULNGLNG);
 515 }
 516
 517 + (BOOL)WOTest_typeIsFloat:(NSString *)typeString
 518 {
 519     if (!typeString) return NO;
 520     const char *type = [typeString UTF8String];
 521     return ((strlen(type) == 1) && *type == _C_FLT);
 522 }
 523
 524 + (BOOL)WOTest_typeIsDouble:(NSString *)typeString
 525 {
 526     if (!typeString) return NO;
 527     const char *type = [typeString UTF8String];
 528     return ((strlen(type) == 1) && *type == _C_DBL);
 529 }
 530
 531 + (BOOL)WOTest_typeIsC99Bool:(NSString *)typeString
 532 {
 533     if (!typeString) return NO;
 534     const char *type = [typeString UTF8String];
 535     return ((strlen(type) == 1) && *type == _C_99BOOL);
 536 }
 537
 538 + (BOOL)WOTest_typeIsVoid:(NSString *)typeString
 539 {
 540     if (!typeString) return NO;
 541     const char *type = [typeString UTF8String];
 542     return ((strlen(type) == 1) && *type == _C_VOID);
 543 }
 544
 545 + (BOOL)WOTest_typeIsConstantCharacterString:(NSString *)typeString
 546 {
 547     if (!typeString) return NO;
 548     const char *type = [typeString UTF8String];
 549     return ((strlen(type) == 2) && (strcmp(type, "r*") == 0));
 550 }
 551
 552 + (BOOL)WOTest_typeIsCharacterString:(NSString *)typeString
 553 {
 554     if (!typeString) return NO;
 555     const char *type = [typeString UTF8String];
 556     return ((strlen(type) == 1) && *type == _C_CHARPTR);
 557 }
 558
 559 + (BOOL)WOTest_typeIsObject:(NSString *)typeString
 560 {
 561     if (!typeString) return NO;
 562     const char *type = [typeString UTF8String];
 563     return ((strlen(type) == 1) && *type == _C_ID);
 564 }
 565
 566 + (BOOL)WOTest_typeIsClass:(NSString *)typeString
 567 {
 568     if (!typeString) return NO;
 569     const char *type = [typeString UTF8String];
 570     return ((strlen(type) == 1) && *type == _C_CLASS);
 571 }
 572
 573 + (BOOL)WOTest_typeIsSelector:(NSString *)typeString
 574 {
 575     if (!typeString) return NO;
 576     const char *type = [typeString UTF8String];
 577     return ((strlen(type) == 1) && *type == _C_SEL);
 578 }
 579
 580 + (BOOL)WOTest_typeIsPointerToVoid:(NSString *)typeString
 581 {
 582     if (!typeString) return NO;
 583     const char *type = [typeString UTF8String];
 584     return ((strlen(type) == 2) && (strcmp(type, "^v") == 0));
 585 }
 586
 587 + (BOOL)WOTest_typeIsPointer:(NSString *)typeString
 588 {
 589     NSScanner *scanner = [NSScanner scannerWithString:typeString];
 590     return [scanner scanPointerIntoString:nil];
 591 }
 592
 593 + (BOOL)WOTest_typeIsArray:(NSString *)typeString
 594 {
 595     NSScanner *scanner = [NSScanner scannerWithString:typeString];
 596     return [scanner WOTest_scanArrayIntoString:nil];
 597 }
 598
 599 + (BOOL)WOTest_typeIsStruct:(NSString *)typeString
 600 {
 601     NSScanner *scanner = [NSScanner scannerWithString:typeString];
 602     return [scanner WOTest_scanStructIntoString:nil];
 603 }
 604
 605 + (BOOL)WOTest_typeIsUnion:(NSString *)typeString
 606 {
 607     NSScanner *scanner = [NSScanner scannerWithString:typeString];
 608     return [scanner WOTest_scanUnionIntoString:nil];
 609 }
 610
 611 + (BOOL)WOTest_typeIsBitfield:(NSString *)typeString
 612 {
 613     NSScanner *scanner = [NSScanner scannerWithString:typeString];
 614     return [scanner WOTest_scanBitfieldIntoString:nil];
 615 }
 616
 617 + (BOOL)WOTest_typeIsUnknown:(NSString *)typeString
 618 {
 619     if (!typeString) return NO;
 620     const char *type = [typeString UTF8String];
 621     return ((strlen(type) == 1) && *type == _C_UNDEF);
 622 }
 623
 624 #pragma mark -
 625 #pragma mark High-level test methods
 626
 627 - (BOOL)WOTest_testIsEqualToValue:(NSValue *)otherValue
 628 {
 629     if (!otherValue) return NO;
 630
 631     if ([self WOTest_isObject])
 632     {
 633         if ([otherValue WOTest_isObject])
 634         {
 635             // can only compare objects with objects
 636             id selfObject   = [self nonretainedObjectValue];
 637             id otherObject  = [otherValue nonretainedObjectValue];
 638
 639             // avoid the message send if pointers are equal
 640             // this also allows two nil object pointers to be considered equal, as they should
 641             if (selfObject == otherObject)
 642                 return YES;
 643
 644             @try {
 645                 if (selfObject && otherObject && [NSObject WOTest_object:selfObject respondsToSelector:@selector(isEqual:)])
 646                     return [selfObject isEqual:otherObject];
 647             }
 648             @catch (id e) {
 649                 // fall through
 650             }
 651         }
 652         else if ([otherValue WOTest_isNumericScalar])
 653         {
 654             // check for special case: comparing an object with nil
 655             if (strcmp([otherValue objCType], @encode(typeof(nil))) == 0)
 656             {
 657                 typeof(nil) nilId = nil;
 658                 NSValue *nilValue = [NSValue valueWithBytes:&nilId objCType:@encode(typeof(nil))];
 659                 if ([otherValue WOTest_compare:nilValue] == NSOrderedSame) // comparing other value (nil) with self object
 660                     return ([self nonretainedObjectValue] == nil);
 661             }
 662
 663             // will raise exception (comparing numeric scalar with object)
 664             return ([self WOTest_compare:otherValue] == NSOrderedSame);
 665         }
 666         else if ([otherValue WOTest_isPointerToVoid])
 667             // encodings changed on Leopard such that comparisons such as WO_TEST_EQ(foo, nil) no longer worked;
 668             // in this case foo is encoded as type "@" (object) and nil as "^v" (pointer to void)
 669             // so we end up here and just compare pointers numerically
 670             return ((void *)[self nonretainedObjectValue] == [otherValue pointerValue]);
 671     }
 672     else if ([self WOTest_isNumericScalar])
 673     {
 674         // check for special case: comparing with nil
 675         typeof(nil) nilId = nil;
 676         NSValue *nilValue = [NSValue valueWithBytes:&nilId objCType:@encode(typeof(nil))];
 677         if ((strcmp([self objCType], @encode(typeof(nil))) == 0) && ([self WOTest_compare:nilValue] == NSOrderedSame))
 678         {
 679             // self is nil (or at least looks like nil)
 680             if ([otherValue WOTest_isObject])                          // comparing self (nil) with otherObject
 681                 return ([otherValue nonretainedObjectValue] == nil);
 682             else if ([otherValue WOTest_isPointerToVoid])              // special case can compare to pointer to void if zero
 683                 return ((id)[otherValue pointerValue] == nil);
 684         }
 685
 686         // could raise exception (comparing numeric scalar with object)
 687         return ([self WOTest_compare:otherValue] == NSOrderedSame);
 688     }
 689     else if ([self WOTest_isPointerToVoid])
 690     {
 691         if ([otherValue WOTest_isObject])
 692             // special case for pointer-to-void vs object comparisons (necessary on Leopard)
 693             return ([self pointerValue] == (void *)[otherValue nonretainedObjectValue]);
 694         else if ([otherValue WOTest_isPointerToVoid])
 695             // this special case already necessary on Leopard, otherwise nil-to-nil comparison fails
 696             return ([self pointerValue] == [otherValue pointerValue]);
 697
 698         // fall through to standard case
 699         return ([self WOTest_compare:otherValue] == NSOrderedSame);
 700     }
 701     else if (([self WOTest_isCharArray] || [self WOTest_isCharacterString] || [self WOTest_isConstantCharacterString]) &&
 702              ([otherValue WOTest_isCharArray] || [otherValue WOTest_isCharacterString] ||
 703               [otherValue WOTest_isConstantCharacterString]))
 704     {
 705         // another special case
 706         NSString *selfString    = [self WOTest_stringValue];
 707         NSString *otherString   = [otherValue WOTest_stringValue];
 708         if (selfString && otherString)
 709             return [selfString isEqualToString:otherString];
 710     }
 711
 712     // fallback case (Class objects, SEL, structs, unions, pointers etc)
 713     return [self isEqualToValue:otherValue];
 714 }
 715
 716 - (BOOL)WOTest_testIsGreaterThanValue:(NSValue *)aValue
 717 {
 718     return ([self WOTest_compare:aValue] == NSOrderedDescending);
 719 }
 720
 721 - (BOOL)WOTest_testIsLessThanValue:(NSValue *)aValue
 722 {
 723     return ([self WOTest_compare:aValue] == NSOrderedAscending);
 724 }
 725
 726 - (BOOL)WOTest_testIsNotGreaterThanValue:(NSValue *)aValue
 727 {
 728     return ([self WOTest_compare:aValue] != NSOrderedDescending);
 729 }
 730
 731 - (BOOL)WOTest_testIsNotLessThanValue:(NSValue *)aValue
 732 {
 733     return ([self WOTest_compare:aValue] != NSOrderedAscending);
 734 }
 735
 736 - (NSComparisonResult)WOTest_compare:(NSValue *)aValue
 737 {
 738     if (!aValue)
 739         [NSException raise:NSInvalidArgumentException format:@"cannot compare to nil"];
 740
 741     // object case
 742     if ([self WOTest_isObject])
 743     {
 744         if (![aValue WOTest_isObject])
 745             [NSException raise:NSInvalidArgumentException format:@"cannot compare object with non-object"];
 746
 747         id selfObject   = [self nonretainedObjectValue];
 748         id otherObject  = [aValue nonretainedObjectValue];
 749
 750         if ([selfObject isKindOfClass:[otherObject class]] && [selfObject respondsToSelector:@selector(compare:)])
 751             return ((NSComparisonResult (*)(id, SEL, id))objc_msgSend)(selfObject, @selector(compare:), otherObject);
 752         else if ([otherObject isKindOfClass:[selfObject class]] && [otherObject respondsToSelector:@selector(compare:)])
 753             return ((NSComparisonResult (*)(id, SEL, id))objc_msgSend)(otherObject, @selector(compare:), selfObject);
 754
 755         [NSException raise:NSInvalidArgumentException format:@"compared objects must be of same class and implement compare:"];
 756     }
 757
 758     // numeric scalar case
 759     if ([self WOTest_isNumericScalar] && [aValue WOTest_isNumericScalar])
 760     {
 761         if ([aValue WOTest_isChar])
 762             return [self WOTest_compareWithChar:[aValue WOTest_charValue]];
 763         else if ([aValue WOTest_isInt])
 764             return [self WOTest_compareWithInt:[aValue WOTest_intValue]];
 765         else if ([aValue WOTest_isShort])
 766             return [self WOTest_compareWithShort:[aValue WOTest_shortValue]];
 767         else if ([aValue WOTest_isLong])
 768             return [self WOTest_compareWithLong:[aValue WOTest_longValue]];
 769         else if ([aValue WOTest_isLongLong])
 770             return [self WOTest_compareWithLongLong:[aValue WOTest_longLongValue]];
 771         else if ([aValue WOTest_isUnsignedChar])
 772             return [self WOTest_compareWithUnsignedChar:[aValue WOTest_unsignedCharValue]];
 773         else if ([aValue WOTest_isUnsignedInt])
 774             return [self WOTest_compareWithUnsignedInt:[aValue WOTest_unsignedIntValue]];
 775         else if ([aValue WOTest_isUnsignedShort])
 776             return [self WOTest_compareWithUnsignedShort:[aValue WOTest_unsignedShortValue]];
 777         else if ([aValue WOTest_isUnsignedLong])
 778             return [self WOTest_compareWithUnsignedLong:[aValue WOTest_unsignedLongValue]];
 779         else if ([aValue WOTest_isUnsignedLongLong])
 780             return [self WOTest_compareWithUnsignedLongLong:
 781                 [aValue WOTest_unsignedLongLongValue]];
 782         else if ([aValue WOTest_isFloat])
 783             return [self WOTest_compareWithFloat:[aValue WOTest_floatValue]];
 784         else if ([aValue WOTest_isDouble])
 785             return [self WOTest_compareWithDouble:[aValue WOTest_doubleValue]];
 786         else if ([aValue WOTest_isC99Bool])
 787             return [self WOTest_compareWithC99Bool:[aValue WOTest_C99BoolValue]];
 788     }
 789
 790     [NSException raise:NSInvalidArgumentException format:@"non-numeric value(s) passed"];
 791
 792     // never reached, but necessary to suppress compiler warning
 793     return NSOrderedSame;
 794 }
 795
 796 #pragma mark -
 797 #pragma mark Utility methods
 798
 799 - (size_t)WOTest_bufferSize
 800 {
 801     return [[self class] WOTest_sizeForType:[self WOTest_objCTypeString]];
 802 }
 803
 804 - (void)WOTest_printSignCompareWarning:(NSString *)warning
 805 {
 806     NSParameterAssert(warning != nil);
 807
 808     // this conditional in here so that the warnings can be turned off in WOTest self-testing
 809     if ([[WOTest sharedInstance] warnsAboutSignComparisons])
 810     {
 811         [[WOTest sharedInstance] writeWarning:warning];
 812         [[WOTest sharedInstance] writeLastKnownLocation];
 813     }
 814 }
 815
 816 #pragma mark -
 817 #pragma mark Convenience methods
 818
 819 /*! Returns the Objective-C type of the receiver as an NSString. */
 820 - (NSString *)WOTest_objCTypeString
 821 {
 822     return [NSString stringWithUTF8String:[self objCType]];
 823 }
 824
 825 - (NSString *)WOTest_description
 826 {
 827     // these special handlings exist because NSValue's description is not very human-friendly
 828     // it gets even worse when running on Intel: for example, an integer like 500,000 (0x0007a120 hex) is displayed as "<20a10700>"
 829     if ([self WOTest_isObject])
 830     {
 831         // look for objects that are either (NSString objects) or objects that respond to "description"
 832         id valueContents = [self WOTest_objectValue];
 833         if (valueContents)
 834         {
 835             // for NSString objects: just return content
 836             if ([NSObject WOTest_object:valueContents isKindOfClass:[NSString class]])
 837                 return [[valueContents retain] autorelease];
 838             else if ([NSObject WOTest_object:valueContents respondsToSelector:@selector(description)] &&
 839                      [NSObject WOTest_isIdReturnType:[NSObject WOTest_returnTypeForObject:valueContents
 840                                                                                  selector:@selector(description)]])
 841             {
 842                 NSString *description = objc_msgSend(valueContents, @selector(description));
 843                 if (description && [NSObject WOTest_object:description isKindOfClass:[NSString class]])
 844                     return description;
 845             }
 846         }
 847     }
 848     // TODO: write unit tests to confirm that NSString supports all of these printf format markers and modifiers
 849     else if ([self WOTest_isChar])
 850     {
 851         char character = [self WOTest_charValue];
 852         if (character == 32)                                                // the space character
 853             return @"(space)";
 854         else if ((character >= 33) && (character <= 126))                   // other printable characters printed as an ASCII char
 855             return [NSString stringWithFormat:@"'%C'", (unichar)character];
 856         else
 857             return [NSString stringWithFormat:@"(char)%hhd", character];    // all others printed as signed numbers
 858     }
 859     else if ([self WOTest_isInt])
 860         return [NSString stringWithFormat:@"(int)%d", [self WOTest_intValue]];
 861     else if ([self WOTest_isShort])
 862         return [NSString stringWithFormat:@"(short)%hi", [self WOTest_shortValue]];
 863     else if ([self WOTest_isLong])
 864         return [NSString stringWithFormat:@"(long)%ld", [self WOTest_longValue]];
 865     else if ([self WOTest_isLongLong])
 866         return [NSString stringWithFormat:@"(long long)%lld", [self WOTest_longLongValue]];
 867     else if ([self WOTest_isUnsignedChar])
 868     {
 869         unsigned char character = [self WOTest_unsignedCharValue];
 870         if (character == 32)                                        // the space character
 871             return @"(space)";
 872         else if ((character >= 33) && (character <= 126))           // other printable characters printed as an ASCII char
 873             return [NSString stringWithFormat:@"%C", (unichar)character];
 874         else
 875             // all others printed as unsigned numbers
 876             return [NSString stringWithFormat:@"(unsigned char)%hhu", [self WOTest_unsignedCharValue]];
 877     }
 878     else if ([self WOTest_isUnsignedInt])
 879         return [NSString stringWithFormat:@"(unsigned int)%u", [self WOTest_unsignedIntValue]];
 880     else if ([self WOTest_isUnsignedShort])
 881         return [NSString stringWithFormat:@"(unsigned short)%hu", [self WOTest_unsignedShortValue]];
 882     else if ([self WOTest_isUnsignedLong])
 883         return [NSString stringWithFormat:@"(unsigned long)%lu", [self WOTest_unsignedLongValue]];
 884     else if ([self WOTest_isUnsignedLongLong])
 885         return [NSString stringWithFormat:@"(unsigned long long)%llu", [self WOTest_unsignedLongLongValue]];
 886     else if ([self WOTest_isFloat])
 887         return [NSString stringWithFormat:@"(float)%f", [self WOTest_floatValue]];
 888     else if ([self WOTest_isDouble])
 889         return [NSString stringWithFormat:@"(double)%f", [self WOTest_doubleValue]];
 890     else if ([self WOTest_isC99Bool])
 891         return [NSString stringWithFormat:@"(_Bool)%@", [self WOTest_C99BoolValue] ? @"true" : @"false"];
 892     else if ([self WOTest_isVoid])
 893         return @"(void)";
 894     else if ([self WOTest_isConstantCharacterString])
 895         return [NSString stringWithFormat:@"\"%s\"", [self WOTest_constantCharacterStringValue]];
 896     else if ([self WOTest_isCharacterString])
 897         return [NSString stringWithFormat:@"\"%s\"", [self WOTest_characterStringValue]];
 898     else if ([self WOTest_isClass])
 899         return [NSString stringWithFormat:@"(Class)%@", NSStringFromClass([self WOTest_classValue])];
 900     else if ([self WOTest_isSelector])
 901         return [NSString stringWithFormat:@"(SEL)%@", NSStringFromSelector([self WOTest_selectorValue])];
 902     else if ([self WOTest_isPointerToVoid])
 903         return [NSString stringWithFormat:@"(void *)%#08x", [self WOTest_pointerToVoidValue]];
 904     return [self description];  // fallback case
 905 }
 906
 907 #pragma mark -
 908 #pragma mark Identifying generic types
 909
 910 - (BOOL)WOTest_isNumericScalar
 911 {
 912     return ([self WOTest_isChar]           || [self WOTest_isInt]                 ||
 913             [self WOTest_isShort]          || [self WOTest_isLong]                ||
 914             [self WOTest_isLongLong]       || [self WOTest_isUnsignedChar]        ||
 915             [self WOTest_isUnsignedInt]    || [self WOTest_isUnsignedShort]       ||
 916             [self WOTest_isUnsignedLong]   || [self WOTest_isUnsignedLongLong]    ||
 917             [self WOTest_isFloat]          || [self WOTest_isDouble]              ||
 918             [self WOTest_isC99Bool]);
 919 }
 920
 921 - (BOOL)WOTest_isPointer
 922 {
 923     return [[self class] WOTest_typeIsPointer:[self WOTest_objCTypeString]];
 924 }
 925
 926 - (BOOL)WOTest_isArray
 927 {
 928     return [[self class] WOTest_typeIsArray:[self WOTest_objCTypeString]];
 929 }
 930
 931 - (unsigned)WOTest_arrayCount
 932 {
 933     NSAssert([self WOTest_isArray],
 934              @"WOTest_arrayCount sent but receiver does not contain an array");
 935     NSScanner *scanner = [NSScanner scannerWithString:[self WOTest_objCTypeString]];
 936     unichar startMarker;
 937     int count = 0;
 938
 939     // attempt the scan: it should work
 940     if (!([scanner WOTest_scanCharacter:&startMarker] && (startMarker == _C_ARY_B) && [scanner scanInt:&count]))
 941         [NSException raise:NSInternalInconsistencyException format:@"scanner error in WOTest_arrayCount"];
 942
 943     return (unsigned)count;
 944 }
 945
 946 - (NSString *)WOTest_arrayType
 947 {
 948     NSAssert([self WOTest_isArray], @"WOTest_arrayType sent but receiver does not contain an array");
 949     NSScanner *scanner = [NSScanner scannerWithString:[self WOTest_objCTypeString]];
 950     [scanner setScanLocation:1];
 951     NSString *typeString;
 952     if (!([scanner scanInt:nil] && [scanner WOTest_scanTypeIntoString:&typeString]))
 953         [NSException raise:NSInternalInconsistencyException format:@"scanner error in WOTest_arrayType"];
 954     return typeString;
 955 }
 956
 957 - (BOOL)WOTest_isStruct
 958 {
 959     return [[self class] WOTest_typeIsStruct:[self WOTest_objCTypeString]];
 960 }
 961
 962 - (BOOL)WOTest_isUnion
 963 {
 964     return [[self class] WOTest_typeIsUnion:[self WOTest_objCTypeString]];
 965 }
 966
 967 - (BOOL)WOTest_isBitfield
 968 {
 969     return [[self class] WOTest_typeIsBitfield:[self WOTest_objCTypeString]];
 970 }
 971
 972 - (BOOL)WOTest_isUnknown
 973 {
 974     return [[self class] WOTest_typeIsUnknown:[self WOTest_objCTypeString]];
 975 }
 976
 977 #pragma mark -
 978 #pragma mark Identifying and retrieving specific types
 979
 980 - (BOOL)WOTest_isChar
 981 {
 982     return [[self class] WOTest_typeIsChar:[self WOTest_objCTypeString]];
 983 }
 984
 985 - (BOOL)WOTest_isInt
 986 {
 987     return [[self class] WOTest_typeIsInt:[self WOTest_objCTypeString]];
 988 }
 989
 990 - (BOOL)WOTest_isShort
 991 {
 992     return [[self class] WOTest_typeIsShort:[self WOTest_objCTypeString]];
 993 }
 994
 995 - (BOOL)WOTest_isLong
 996 {
 997     return [[self class] WOTest_typeIsLong:[self WOTest_objCTypeString]];
 998 }
 999
1000 - (BOOL)WOTest_isLongLong
1001 {
1002     return [[self class] WOTest_typeIsLongLong:[self WOTest_objCTypeString]];
1003 }
1004
1005 - (BOOL)WOTest_isUnsignedChar
1006 {
1007     return [[self class] WOTest_typeIsUnsignedChar:[self WOTest_objCTypeString]];
1008 }
1009
1010 - (BOOL)WOTest_isUnsignedInt
1011 {
1012     return [[self class] WOTest_typeIsUnsignedInt:[self WOTest_objCTypeString]];
1013 }
1014
1015 - (BOOL)WOTest_isUnsignedShort
1016 {
1017     return [[self class] WOTest_typeIsUnsignedShort:[self WOTest_objCTypeString]];
1018 }
1019
1020 - (BOOL)WOTest_isUnsignedLong
1021 {
1022     return [[self class] WOTest_typeIsUnsignedLong:[self WOTest_objCTypeString]];
1023 }
1024
1025 - (BOOL)WOTest_isUnsignedLongLong
1026 {
1027     return [[self class] WOTest_typeIsUnsignedLongLong:[self WOTest_objCTypeString]];
1028 }
1029
1030 - (BOOL)WOTest_isFloat
1031 {
1032     return [[self class] WOTest_typeIsFloat:[self WOTest_objCTypeString]];
1033 }
1034
1035 - (BOOL)WOTest_isDouble
1036 {
1037     return [[self class] WOTest_typeIsDouble:[self WOTest_objCTypeString]];
1038 }
1039
1040 - (BOOL)WOTest_isC99Bool
1041 {
1042     return [[self class] WOTest_typeIsC99Bool:[self WOTest_objCTypeString]];
1043 }
1044
1045 - (BOOL)WOTest_isVoid
1046 {
1047     return [[self class] WOTest_typeIsVoid:[self WOTest_objCTypeString]];
1048 }
1049
1050 - (BOOL)WOTest_isConstantCharacterString
1051 {
1052     return [[self class] WOTest_typeIsConstantCharacterString:[self WOTest_objCTypeString]];
1053 }
1054
1055 - (BOOL)WOTest_isCharacterString
1056 {
1057     return [[self class] WOTest_typeIsCharacterString:[self WOTest_objCTypeString]];
1058 }
1059
1060 - (BOOL)WOTest_isObject
1061 {
1062     return [[self class] WOTest_typeIsObject:[self WOTest_objCTypeString]];
1063 }
1064
1065 - (BOOL)WOTest_isClass
1066 {
1067     return [[self class] WOTest_typeIsClass:[self WOTest_objCTypeString]];
1068 }
1069
1070 - (BOOL)WOTest_isSelector
1071 {
1072     return [[self class] WOTest_typeIsSelector:[self WOTest_objCTypeString]];
1073 }
1074
1075 - (BOOL)WOTest_isPointerToVoid
1076 {
1077     return [[self class] WOTest_typeIsPointerToVoid:[self WOTest_objCTypeString]];
1078 }
1079
1080 - (char)WOTest_charValue
1081 {
1082     char value;
1083     [self getValue:&value];
1084     return value;
1085 }
1086
1087 - (int)WOTest_intValue
1088 {
1089     int value;
1090     [self getValue:&value];
1091     return value;
1092 }
1093
1094 - (short)WOTest_shortValue
1095 {
1096     short value;
1097     [self getValue:&value];
1098     return value;
1099 }
1100
1101 - (long)WOTest_longValue
1102 {
1103     long value;
1104     [self getValue:&value];
1105     return value;
1106 }
1107
1108 - (long long)WOTest_longLongValue
1109 {
1110     long long value;
1111     [self getValue:&value];
1112     return value;
1113 }
1114
1115 - (unsigned char)WOTest_unsignedCharValue
1116 {
1117     unsigned char value;
1118     [self getValue:&value];
1119     return value;
1120 }
1121
1122 - (unsigned int)WOTest_unsignedIntValue
1123 {
1124     unsigned int value;
1125     [self getValue:&value];
1126     return value;
1127 }
1128
1129 - (unsigned short)WOTest_unsignedShortValue
1130 {
1131     unsigned short value;
1132     [self getValue:&value];
1133     return value;
1134 }
1135
1136 - (unsigned long)WOTest_unsignedLongValue
1137 {
1138     unsigned long value;
1139     [self getValue:&value];
1140     return value;
1141 }
1142
1143 - (unsigned long long)WOTest_unsignedLongLongValue
1144 {
1145     unsigned long long value;
1146     [self getValue:&value];
1147     return value;
1148 }
1149
1150 - (float)WOTest_floatValue
1151 {
1152     float value;
1153     [self getValue:&value];
1154     return value;
1155 }
1156
1157 - (double)WOTest_doubleValue
1158 {
1159     double value;
1160     [self getValue:&value];
1161     return value;
1162 }
1163
1164 - (_Bool)WOTest_C99BoolValue
1165 {
1166     _Bool value;
1167     [self getValue:&value];
1168     return value;
1169 }
1170
1171 - (const char *)WOTest_constantCharacterStringValue
1172 {
1173     const char *value;
1174     [self getValue:&value];
1175     return value;
1176 }
1177
1178 - (char *)WOTest_characterStringValue
1179 {
1180     char *value;
1181     [self getValue:&value];
1182     return value;
1183 }
1184
1185 - (id)WOTest_objectValue
1186 {
1187     id value;
1188     [self getValue:&value];
1189     return value;
1190 }
1191
1192 - (Class)WOTest_classValue
1193 {
1194     Class value;
1195     [self getValue:&value];
1196     return value;
1197 }
1198
1199 - (SEL)WOTest_selectorValue
1200 {
1201     SEL value;
1202     [self getValue:&value];
1203     return value;
1204 }
1205
1206 - (void *)WOTest_pointerToVoidValue
1207 {
1208     void *value;
1209     [self getValue:&value];
1210     return value;
1211 }
1212
1213 - (BOOL)WOTest_isCharArray
1214 {
1215     // look for string of form "[4c]"
1216     NSScanner *scanner = [NSScanner scannerWithString:[self WOTest_objCTypeString]];
1217     unichar startMarker, flag, endMarker;
1218     int count;
1219     return ([scanner WOTest_scanCharacter:&startMarker] && (startMarker == _C_ARY_B) &&
1220             [scanner scanInt:&count] &&
1221             [scanner WOTest_scanCharacter:&flag] && (flag == _C_CHR) &&
1222             [scanner WOTest_scanCharacter:&endMarker] && (endMarker == _C_ARY_E) &&
1223             [scanner isAtEnd]);
1224 }
1225
1226 - (NSString *)WOTest_stringValue
1227 {
1228     @try {
1229         if ([self WOTest_isCharacterString] || [self WOTest_isConstantCharacterString])
1230             return [NSString stringWithUTF8String:(const char *)[self pointerValue]];
1231         else // see if this is a char array
1232         {
1233             NSScanner *scanner = [NSScanner scannerWithString:[self WOTest_objCTypeString]];
1234             unichar startMarker, flag, endMarker;
1235             int count;
1236             if ([scanner WOTest_scanCharacter:&startMarker] &&
1237                 (startMarker == _C_ARY_B) && [scanner scanInt:&count] &&
1238                 [scanner WOTest_scanCharacter:&flag] && (flag == _C_CHR) &&
1239                 [scanner WOTest_scanCharacter:&endMarker] && (endMarker == _C_ARY_E) &&
1240                 [scanner isAtEnd])
1241             {
1242                 // is char array
1243                 if (count > 0)
1244                 {
1245                     char *buffer = malloc(count * sizeof(char));
1246                     NSAssert1(buffer != NULL, @"malloc() failed (size %d)",
1247                               (count * sizeof(char)));
1248                     [self getValue:buffer];
1249
1250                     // confirm that this is a null-terminated string
1251                     for (int i = 0; i < count; i++)
1252                     {
1253                         if (buffer[i] == 0)
1254                             return [NSString stringWithUTF8String:buffer];
1255                     }
1256                     free(buffer);
1257                 }
1258             }
1259         }
1260     }
1261     @catch (id e) {
1262         // fall through
1263     }
1264     return nil;
1265 }
1266
1267 #pragma mark -
1268 #pragma mark Low-level test methods
1269
1270 /* Unfortunately there is a lot of very similar code repeated across these methods but it seems to be a necessary evil (600 lines of necessary evil). Firstly, it's necessary to explicitly declare the type of the right-hand value of the comparison. There are lots of permuations for implicit casts, explicit casts (and warnings), and GCC seems to warn about signed to unsigned comparisons differently depending on the types. */
1271 - (NSComparisonResult)WOTest_compareWithChar:(char)other
1272 {
1273     if ([self WOTest_isChar]) // (also BOOL)
1274         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // no cast
1275     else if ([self WOTest_isInt])
1276         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1277     else if ([self WOTest_isShort])
1278         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1279     else if ([self WOTest_isLong])
1280         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1281     else if ([self WOTest_isLongLong])
1282         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1283     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1284         // implicit cast
1285         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other);
1286     else if ([self WOTest_isUnsignedInt])
1287     {
1288         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1289         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], (unsigned char)other); // explicit cast
1290     }
1291     else if ([self WOTest_isUnsignedShort])
1292         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1293     else if ([self WOTest_isUnsignedLong])
1294     {
1295         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1296         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], (unsigned char)other); // explicit cast
1297     }
1298     else if ([self WOTest_isUnsignedLongLong])
1299     {
1300         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1301         // explicit cast
1302         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], (unsigned char)other);
1303     }
1304     else if ([self WOTest_isFloat])
1305         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1306     else if ([self WOTest_isDouble])
1307          return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1308     else if ([self WOTest_isC99Bool])
1309         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1310
1311     // all other cases
1312     [NSException raise:NSInvalidArgumentException
1313                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1314
1315     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1316 }
1317
1318 - (NSComparisonResult)WOTest_compareWithInt:(int)other
1319 {
1320     if ([self WOTest_isChar]) // (also BOOL)
1321         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1322     else if ([self WOTest_isInt])
1323         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // no cast
1324     else if ([self WOTest_isShort])
1325         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1326     else if ([self WOTest_isLong])
1327         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1328     else if ([self WOTest_isLongLong])
1329         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1330     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1331                                     // implicit cast
1332         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other);
1333     else if ([self WOTest_isUnsignedInt])
1334     {
1335         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1336         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], (unsigned int)other); // explicit cast
1337     }
1338     else if ([self WOTest_isUnsignedShort])
1339         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1340     else if ([self WOTest_isUnsignedLong])
1341     {
1342         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1343         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], (unsigned int)other); // explicit cast
1344     }
1345     else if ([self WOTest_isUnsignedLongLong])
1346     {
1347         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1348         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], (unsigned int)other);  // explicit cast
1349     }
1350     else if ([self WOTest_isFloat])
1351         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1352     else if ([self WOTest_isDouble])
1353         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1354     else if ([self WOTest_isC99Bool])
1355         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1356
1357     // all other cases
1358     [NSException raise:NSInvalidArgumentException
1359                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1360
1361     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1362 }
1363
1364 - (NSComparisonResult)WOTest_compareWithShort:(short)other
1365 {
1366     if ([self WOTest_isChar]) // (also BOOL)
1367         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1368     else if ([self WOTest_isInt])
1369         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1370     else if ([self WOTest_isShort])
1371         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // no cast
1372     else if ([self WOTest_isLong])
1373         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1374     else if ([self WOTest_isLongLong])
1375         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1376     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1377                                     // implicit cast
1378         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other);
1379     else if ([self WOTest_isUnsignedInt])
1380     {
1381         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1382         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], (unsigned short)other); // explicit cast
1383     }
1384     else if ([self WOTest_isUnsignedShort])
1385         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1386     else if ([self WOTest_isUnsignedLong])
1387     {
1388         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1389         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], (unsigned short)other); // explicit cast
1390     }
1391     else if ([self WOTest_isUnsignedLongLong])
1392     {
1393         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1394         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], (unsigned short)other);  // explicit cast
1395     }
1396     else if ([self WOTest_isFloat])
1397         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1398     else if ([self WOTest_isDouble])
1399         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1400     else if ([self WOTest_isC99Bool])
1401         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1402
1403     // all other cases
1404     [NSException raise:NSInvalidArgumentException
1405                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1406
1407     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1408 }
1409
1410 - (NSComparisonResult)WOTest_compareWithLong:(long)other
1411 {
1412     if ([self WOTest_isChar]) // (also BOOL)
1413         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1414     else if ([self WOTest_isInt])
1415         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1416     else if ([self WOTest_isShort])
1417         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1418     else if ([self WOTest_isLong])
1419         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // no cast
1420     else if ([self WOTest_isLongLong])
1421         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1422     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1423                                     // implicit cast
1424         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other);
1425     else if ([self WOTest_isUnsignedInt])
1426     {
1427         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1428         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], (unsigned long)other); // explicit cast
1429     }
1430     else if ([self WOTest_isUnsignedShort])
1431         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1432     else if ([self WOTest_isUnsignedLong])
1433     {
1434         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1435         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], (unsigned long)other); // explicit cast
1436     }
1437     else if ([self WOTest_isUnsignedLongLong])
1438     {
1439         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1440         // explicit cast
1441         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], (unsigned long)other);
1442     }
1443     else if ([self WOTest_isFloat])
1444         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1445     else if ([self WOTest_isDouble])
1446         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1447     else if ([self WOTest_isC99Bool])
1448         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1449
1450     // all other cases
1451     [NSException raise:NSInvalidArgumentException
1452                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1453
1454     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1455 }
1456
1457 - (NSComparisonResult)WOTest_compareWithLongLong:(long long)other
1458 {
1459     if ([self WOTest_isChar]) // (also BOOL)
1460         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1461     else if ([self WOTest_isInt])
1462         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1463     else if ([self WOTest_isShort])
1464         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1465     else if ([self WOTest_isLong])
1466         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1467     else if ([self WOTest_isLongLong])
1468         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // no cast
1469     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1470         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1471     else if ([self WOTest_isUnsignedInt])
1472         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1473     else if ([self WOTest_isUnsignedShort])
1474         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1475     else if ([self WOTest_isUnsignedLong])
1476         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1477     else if ([self WOTest_isUnsignedLongLong])
1478     {
1479         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1480         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], (unsigned long long)other);  // explicit cast
1481     }
1482     else if ([self WOTest_isFloat])
1483         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1484     else if ([self WOTest_isDouble])
1485         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1486     else if ([self WOTest_isC99Bool])
1487         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1488
1489     // all other cases
1490     [NSException raise:NSInvalidArgumentException
1491                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1492
1493     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1494 }
1495
1496 - (NSComparisonResult)WOTest_compareWithUnsignedChar:(unsigned char)other
1497 {
1498     if ([self WOTest_isChar]) // (also BOOL)
1499         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1500     else if ([self WOTest_isInt])
1501         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1502     else if ([self WOTest_isShort])
1503         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1504     else if ([self WOTest_isLong])
1505         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1506     else if ([self WOTest_isLongLong])
1507         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1508     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1509         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // no cast
1510     else if ([self WOTest_isUnsignedInt])
1511         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1512     else if ([self WOTest_isUnsignedShort])
1513         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1514     else if ([self WOTest_isUnsignedLong])
1515         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1516     else if ([self WOTest_isUnsignedLongLong])
1517         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1518     else if ([self WOTest_isFloat])
1519         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1520     else if ([self WOTest_isDouble])
1521         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1522     else if ([self WOTest_isC99Bool])
1523         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1524
1525     // all other cases
1526     [NSException raise:NSInvalidArgumentException
1527                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1528
1529     return NSOrderedSame;       // never reached, but necessary to suppress compiler warning
1530 }
1531
1532 - (NSComparisonResult)WOTest_compareWithUnsignedInt:(unsigned int)other
1533 {
1534     if ([self WOTest_isChar]) // (also BOOL)
1535     {
1536         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1537         return WO_COMPARE_SCALARS((unsigned char)[self WOTest_charValue], other); // explicit cast
1538     }
1539     else if ([self WOTest_isInt])
1540     {
1541         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1542         return WO_COMPARE_SCALARS((unsigned int)[self WOTest_intValue], other); // explicit cast
1543     }
1544     else if ([self WOTest_isShort])
1545     {
1546         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1547         return WO_COMPARE_SCALARS((unsigned short)[self WOTest_shortValue], other); // explicit cast
1548     }
1549     else if ([self WOTest_isLong])
1550     {
1551         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1552         return WO_COMPARE_SCALARS((unsigned long)[self WOTest_longValue], other); // explicit cast
1553     }
1554     else if ([self WOTest_isLongLong])
1555         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1556     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1557         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1558     else if ([self WOTest_isUnsignedInt])
1559         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], other); // no cast
1560     else if ([self WOTest_isUnsignedShort])
1561         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1562     else if ([self WOTest_isUnsignedLong])
1563         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1564     else if ([self WOTest_isUnsignedLongLong])
1565         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1566     else if ([self WOTest_isFloat])
1567         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1568     else if ([self WOTest_isDouble])
1569         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1570     else if ([self WOTest_isC99Bool])
1571         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1572
1573     // all other cases
1574     [NSException raise:NSInvalidArgumentException
1575                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1576
1577     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1578 }
1579
1580 - (NSComparisonResult)WOTest_compareWithUnsignedShort:(unsigned short)other
1581 {
1582     if ([self WOTest_isChar]) // (also BOOL)
1583         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1584     else if ([self WOTest_isInt])
1585         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1586     else if ([self WOTest_isShort])
1587         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1588     else if ([self WOTest_isLong])
1589         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1590     else if ([self WOTest_isLongLong])
1591         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1592     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1593         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1594     else if ([self WOTest_isUnsignedInt])
1595         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1596     else if ([self WOTest_isUnsignedShort])
1597         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // no cast
1598     else if ([self WOTest_isUnsignedLong])
1599         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1600     else if ([self WOTest_isUnsignedLongLong])
1601         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1602     else if ([self WOTest_isFloat])
1603         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1604     else if ([self WOTest_isDouble])
1605         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1606     else if ([self WOTest_isC99Bool])
1607         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1608
1609     // all other cases
1610     [NSException raise:NSInvalidArgumentException
1611                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1612
1613     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1614 }
1615
1616 - (NSComparisonResult)WOTest_compareWithUnsignedLong:(unsigned long)other
1617 {
1618     if ([self WOTest_isChar]) // char (also BOOL)
1619     {
1620         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1621         return WO_COMPARE_SCALARS((unsigned char)[self WOTest_charValue], other); // expicit cast
1622     }
1623     else if ([self WOTest_isInt]) // int
1624     {
1625         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1626         return WO_COMPARE_SCALARS((unsigned int)[self WOTest_intValue], other); // explicit cast
1627     }
1628     else if ([self WOTest_isShort]) // short
1629     {
1630         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1631         return WO_COMPARE_SCALARS((unsigned short)[self WOTest_shortValue], other); // explicit cast
1632     }
1633     else if ([self WOTest_isLong]) // long
1634     {
1635         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1636         return WO_COMPARE_SCALARS((unsigned long)[self WOTest_longValue], other); // explicit cast
1637     }
1638     else if ([self WOTest_isLongLong]) // long long
1639         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1640     else if ([self WOTest_isUnsignedChar]) // unsigned char (also Boolean)
1641         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1642     else if ([self WOTest_isUnsignedInt]) // unsigned int
1643         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], other); // implicit cast
1644     else if ([self WOTest_isUnsignedShort]) // unsigned short
1645         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1646     else if ([self WOTest_isUnsignedLong]) // unsigned long
1647         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // no cast
1648     else if ([self WOTest_isUnsignedLongLong]) // unsigned long long
1649         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1650     else if ([self WOTest_isFloat]) // float
1651         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1652     else if ([self WOTest_isDouble]) // double
1653         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1654     else if ([self WOTest_isC99Bool]) // C99 _Bool
1655         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1656
1657     // all other cases
1658     [NSException raise:NSInvalidArgumentException
1659                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1660
1661     return NSOrderedSame;       // never reached, but necessary to suppress compiler warning
1662 }
1663
1664 - (NSComparisonResult)WOTest_compareWithUnsignedLongLong:(unsigned long long)other
1665 {
1666     if ([self WOTest_isChar]) // (also BOOL)
1667     {
1668         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1669         return WO_COMPARE_SCALARS((unsigned char)[self WOTest_charValue], other); // explicit cast
1670     }
1671     else if ([self WOTest_isInt])
1672     {
1673         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1674         return WO_COMPARE_SCALARS((unsigned int)[self WOTest_intValue], other); // explicit cast
1675     }
1676     else if ([self WOTest_isShort])
1677     {
1678         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1679         return WO_COMPARE_SCALARS((unsigned short)[self WOTest_shortValue], other); // explicit cast
1680     }
1681     else if ([self WOTest_isLong])
1682     {
1683         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1684         return WO_COMPARE_SCALARS((unsigned long)[self WOTest_longValue], other); // explicit cast
1685     }
1686     else if ([self WOTest_isLongLong])
1687     {
1688         [self WOTest_printSignCompareWarning:@"comparison between signed and unsigned, to avoid this warning use an explicit cast"];
1689         return WO_COMPARE_SCALARS((unsigned long long)[self WOTest_longLongValue], other); // explicit cast
1690     }
1691     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1692         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1693     else if ([self WOTest_isUnsignedInt])
1694         return WO_COMPARE_SCALARS([self WOTest_unsignedIntValue], other); // implicit cast
1695     else if ([self WOTest_isUnsignedShort])
1696         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1697     else if ([self WOTest_isUnsignedLong])
1698         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1699     else if ([self WOTest_isUnsignedLongLong])
1700         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // no cast
1701     else if ([self WOTest_isFloat])
1702         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1703     else if ([self WOTest_isDouble])
1704         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1705     else if ([self WOTest_isC99Bool])
1706         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1707
1708     // all other cases
1709     [NSException raise:NSInvalidArgumentException
1710                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1711
1712     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1713 }
1714
1715 - (NSComparisonResult)WOTest_compareWithFloat:(float)other
1716 {
1717     if ([self WOTest_isChar]) // (also BOOL)
1718         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1719     else if ([self WOTest_isInt])
1720         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1721     else if ([self WOTest_isShort])
1722         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1723     else if ([self WOTest_isLong])
1724         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1725     else if ([self WOTest_isLongLong])
1726         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1727     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1728         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1729     else if ([self WOTest_isUnsignedInt])
1730         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1731     else if ([self WOTest_isUnsignedShort])
1732         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1733     else if ([self WOTest_isUnsignedLong])
1734         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1735     else if ([self WOTest_isUnsignedLongLong])
1736         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1737     else if ([self WOTest_isFloat])
1738         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // no cast
1739     else if ([self WOTest_isDouble])
1740         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1741     else if ([self WOTest_isC99Bool])
1742         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1743
1744     // all other cases
1745     [NSException raise:NSInvalidArgumentException
1746                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1747
1748     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1749 }
1750
1751 - (NSComparisonResult)WOTest_compareWithDouble:(double)other
1752 {
1753     if ([self WOTest_isChar]) // (also BOOL)
1754         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1755     else if ([self WOTest_isInt])
1756         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1757     else if ([self WOTest_isShort])
1758         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1759     else if ([self WOTest_isLong])
1760         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1761     else if ([self WOTest_isLongLong])
1762         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1763     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1764         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1765     else if ([self WOTest_isUnsignedInt])
1766         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1767     else if ([self WOTest_isUnsignedShort])
1768         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1769     else if ([self WOTest_isUnsignedLong])
1770         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1771     else if ([self WOTest_isUnsignedLongLong])
1772         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1773     else if ([self WOTest_isFloat])
1774         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1775     else if ([self WOTest_isDouble])
1776         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // no cast
1777     else if ([self WOTest_isC99Bool])
1778         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // implicit cast
1779
1780     // all other cases
1781     [NSException raise:NSInvalidArgumentException
1782                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1783
1784     return NSOrderedSame;   // never reached, but necessary to suppress compiler warning
1785 }
1786
1787 - (NSComparisonResult)WOTest_compareWithC99Bool:(_Bool)other
1788 {
1789     if ([self WOTest_isChar]) // (also BOOL)
1790         return WO_COMPARE_SCALARS([self WOTest_charValue], other); // implicit cast
1791     else if ([self WOTest_isInt])
1792         return WO_COMPARE_SCALARS([self WOTest_intValue], other); // implicit cast
1793     else if ([self WOTest_isShort])
1794         return WO_COMPARE_SCALARS([self WOTest_shortValue], other); // implicit cast
1795     else if ([self WOTest_isLong])
1796         return WO_COMPARE_SCALARS([self WOTest_longValue], other); // implicit cast
1797     else if ([self WOTest_isLongLong])
1798         return WO_COMPARE_SCALARS([self WOTest_longLongValue], other); // implicit cast
1799     else if ([self WOTest_isUnsignedChar]) // (also Boolean)
1800         return WO_COMPARE_SCALARS([self WOTest_unsignedCharValue], other); // implicit cast
1801     else if ([self WOTest_isUnsignedInt])
1802         return WO_COMPARE_SCALARS ([self WOTest_unsignedIntValue], other); // implicit cast
1803     else if ([self WOTest_isUnsignedShort])
1804         return WO_COMPARE_SCALARS([self WOTest_unsignedShortValue], other); // implicit cast
1805     else if ([self WOTest_isUnsignedLong])
1806         return WO_COMPARE_SCALARS([self WOTest_unsignedLongValue], other); // implicit cast
1807     else if ([self WOTest_isUnsignedLongLong])
1808         return WO_COMPARE_SCALARS([self WOTest_unsignedLongLongValue], other); // implicit cast
1809     else if ([self WOTest_isFloat])
1810         return WO_COMPARE_SCALARS([self WOTest_floatValue], other); // implicit cast
1811     else if ([self WOTest_isDouble])
1812         return WO_COMPARE_SCALARS([self WOTest_doubleValue], other); // implicit cast
1813     else if ([self WOTest_isC99Bool])
1814         return WO_COMPARE_SCALARS([self WOTest_C99BoolValue], other); // no cast
1815
1816     // all other cases
1817     [NSException raise:NSInvalidArgumentException
1818                 format:@"cannot compare type \"%s\" with type \"%s\"", [self objCType], @encode(typeof(other))];
1819
1820     return NSOrderedSame;       // never reached, but necessary to suppress compiler warning
1821 }
1822
1823 @end