SInt32 GetApplicationFlavor(void)

{

  // GetApplicationFlavor returns:

  // -1 if the application flavor could not be identified

  //      0 if the application is a Mac OS Classic application

  //      2 if the application is a Carbon application

  //      3 if the application is a Cocoa application

  static SInt32 flavor = -1;

  OSStatus status;

  CFDictionaryRef processInfoDict = NULL;

  CFNumberRef processInfoFlavor = NULL;

  if (flavor == -1)

  {

    ProcessSerialNumber psn;

    status = GetCurrentProcess(&psn);

    require_noerr(status, GetCurrentProcess);

    processInfoDict = ProcessInformationCopyDictionary(&psn, kProcessDictionaryIncludeAllInformationMask);

    require(processInfoDict != NULL, ProcessInformationCopyDictionary);

    processInfoFlavor = CFDictionaryGetValue(processInfoDict, CFSTR("Flavor"));

    require(processInfoFlavor != NULL, CFDictionaryGetValue);

    CFNumberGetValue(processInfoFlavor, kCFNumberSInt32Type, &flavor);

  }

CFDictionaryGetValue:

ProcessInformationCopyDictionary:

GetCurrentProcess:

  if (processInfoFlavor != NULL)

    CFRelease(processInfoFlavor);

  if (processInfoDict != NULL)

    CFRelease(processInfoDict);

  return flavor;

}