Max 5 API Reference

jit.cpost.c

/* 
    jit.cpost.c

    Copyright 2003 - Cycling '74
    Jeremy Bernstein jeremy@bootsquad.com
        
*/

#include "jit.common.h"
#include "ext_strings.h"
#include "jit.cpost.h"
#include "MoreSetup.h"

#if TARGET_API_MAC_CARBON
void jit_cpost_console_init(void);

#if TARGET_RT_MAC_MACHO

#define cpost printf

#else

static CFBundleRef SystemBundle;
typedef void (*printfPtr)(const char *, ...);
printfPtr cpost;
OSStatus LoadFrameworkBundle(CFStringRef framework, CFBundleRef *bundlePtr);

#endif

void jit_cpost_console_init(void)
{
#if !TARGET_RT_MAC_MACHO
    OSStatus err;
    
    err = LoadFrameworkBundle(CFSTR("System.framework"), &SystemBundle);
    if (err == noErr) {
        cpost = (printfPtr)CFBundleGetFunctionPointerForName(SystemBundle, CFSTR("printf"));
    }
#endif
}
#endif

void jit_cpost(const char *format, ...) 
{
#if TARGET_API_MAC_CARBON
    char msg[1024];

    strcpy(msg, format);
    strcat(msg, "\n");
    cpost(msg, *((t_stack_splat *)(((char *)(&format))+4)));
#endif
}

#if TARGET_API_MAC_CARBON
OSStatus LoadFrameworkBundle(CFStringRef framework, CFBundleRef *bundlePtr)
    // This routine finds a the named framework and creates a CFBundle 
    // object for it.  It looks for the framework in the frameworks folder, 
    // as defined by the Folder Manager.  Currently this is 
    // "/System/Library/Frameworks", but we recommend that you avoid hard coded 
    // paths to ensure future compatibility.
    //
    // You might think that you could use CFBundleGetBundleWithIdentifier but 
    // that only finds bundles that are already loaded into your context. 
    // That would work in the case of the System framework but it wouldn't 
    // work if you're using some other, less-obvious, framework.
{
    OSStatus    err;
    FSRef       frameworksFolderRef;
    CFURLRef    baseURL;
    CFURLRef    bundleURL;
    
    MoreAssertQ(bundlePtr != nil);
    
    *bundlePtr = nil;
    
    baseURL = nil;
    bundleURL = nil;
    
    // Find the frameworks folder and create a URL for it.
    
    err = FSFindFolder(kOnAppropriateDisk, kFrameworksFolderType, true, &frameworksFolderRef);
    if (err == noErr) {
        baseURL = CFURLCreateFromFSRef(kCFAllocatorSystemDefault, &frameworksFolderRef);
        if (baseURL == nil) {
            err = coreFoundationUnknownErr;
        }
    }
    
    // Append the name of the framework to the URL.
    
    if (err == noErr) {
        bundleURL = CFURLCreateCopyAppendingPathComponent(kCFAllocatorSystemDefault, baseURL, framework, false);
        if (bundleURL == nil) {
            err = coreFoundationUnknownErr;
        }
    }
    
    // Create a bundle based on that URL and load the bundle into memory.
    // We never unload the bundle, which is reasonable in this case because 
    // the sample assumes that you'll be calling functions from this 
    // framework throughout the life of your application.
    
    if (err == noErr) {
        *bundlePtr = CFBundleCreate(kCFAllocatorSystemDefault, bundleURL);
        if (*bundlePtr == nil) {
            err = coreFoundationUnknownErr;
        }
    }
    if (err == noErr) {
        if ( ! CFBundleLoadExecutable( *bundlePtr ) ) {
            err = coreFoundationUnknownErr;
        }
    }

    // Clean up.
    
    if (err != noErr && *bundlePtr != nil) {
        CFRelease(*bundlePtr);
        *bundlePtr = nil;
    }
    if (bundleURL != nil) {
        CFRelease(bundleURL);
    }   
    if (baseURL != nil) {
        CFRelease(baseURL);
    }   
    
    return err;
}
#endif

Copyright © 2008, Cycling '74