24 lines
651 B
Factor
24 lines
651 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.syntax kernel sequences core-foundation
|
||
|
|
core-foundation.urls ;
|
||
|
|
IN: core-foundation.bundles
|
||
|
|
|
||
|
|
TYPEDEF: void* CFBundleRef
|
||
|
|
|
||
|
|
FUNCTION: CFBundleRef CFBundleCreate ( CFAllocatorRef allocator, CFURLRef bundleURL ) ;
|
||
|
|
|
||
|
|
FUNCTION: Boolean CFBundleLoadExecutable ( CFBundleRef bundle ) ;
|
||
|
|
|
||
|
|
: <CFBundle> ( string -- bundle )
|
||
|
|
t <CFFileSystemURL> [
|
||
|
|
f swap CFBundleCreate
|
||
|
|
] keep CFRelease ;
|
||
|
|
|
||
|
|
: load-framework ( name -- )
|
||
|
|
dup <CFBundle> [
|
||
|
|
CFBundleLoadExecutable drop
|
||
|
|
] [
|
||
|
|
"Cannot load bundle named " prepend throw
|
||
|
|
] ?if ;
|