! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax core-foundation kernel
-sequences fry ;
+USING: alien.c-types alien.syntax core-foundation fry kernel
+sequences ;
IN: core-foundation.arrays
TYPEDEF: void* CFArrayRef
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax kernel destructors
-core-foundation core-foundation.dictionaries
-core-foundation.strings
-core-foundation.utilities ;
+USING: alien.c-types alien.syntax core-foundation
+core-foundation.dictionaries core-foundation.strings
+core-foundation.utilities destructors kernel ;
IN: core-foundation.attributed-strings
TYPEDEF: void* CFAttributedStringRef
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax kernel sequences
-core-foundation core-foundation.urls ;
+USING: alien.c-types alien.syntax core-foundation
+core-foundation.urls kernel sequences ;
IN: core-foundation.bundles
TYPEDEF: void* CFBundleRef
! Copyright (C) 2008 Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax core-foundation kernel math
+USING: alien.c-types alien.syntax core-foundation kernel
sequences ;
IN: core-foundation.data
! Copyright (C) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.data alien.strings alien.syntax
-kernel math sequences namespaces make assocs init accessors
-continuations combinators io.encodings.utf8 destructors locals
-arrays specialized-arrays classes.struct core-foundation
-core-foundation.arrays core-foundation.run-loop
-core-foundation.strings core-foundation.time unix.types ;
+USING: accessors alien alien.c-types alien.data alien.strings
+alien.syntax arrays assocs classes.struct combinators
+core-foundation core-foundation.arrays core-foundation.run-loop
+core-foundation.strings core-foundation.time destructors init
+io.encodings.utf8 kernel locals namespaces sequences
+specialized-arrays unix.types ;
FROM: namespaces => change-global ;
IN: core-foundation.fsevents
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.data alien.syntax classes.struct
-continuations core-foundation core-foundation.strings
-core-foundation.urls destructors kernel sequences
-specialized-arrays.instances.alien.c-types.char strings
-unix.ffi ;
+USING: alien.syntax classes.struct continuations core-foundation
+core-foundation.strings core-foundation.urls destructors kernel
+sequences specialized-arrays.instances.alien.c-types.char
+strings unix.ffi ;
IN: core-foundation.launch-services
FUNCTION: OSStatus LSFindApplicationForInfo (
! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax calendar core-foundation
-core-foundation.time calendar.unix kernel locals math system ;
+USING: alien.c-types alien.syntax calendar.unix core-foundation
+core-foundation.time locals ;
IN: core-foundation.timers
TYPEDEF: void* CFRunLoopTimerRef
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.syntax kernel core-foundation.strings
-core-foundation core-foundation.urls ;
+USING: alien.c-types alien.syntax core-foundation
+core-foundation.strings kernel ;
IN: core-foundation.urls
CONSTANT: kCFURLPOSIXPathStyle 0
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: math assocs kernel sequences byte-arrays strings
-hashtables alien destructors
-core-foundation.numbers core-foundation.strings
-core-foundation.arrays core-foundation.dictionaries
-core-foundation.data core-foundation ;
+USING: alien assocs byte-arrays core-foundation
+core-foundation.arrays core-foundation.data
+core-foundation.dictionaries core-foundation.numbers
+core-foundation.strings destructors hashtables kernel math
+sequences strings ;
IN: core-foundation.utilities
GENERIC: (>cf) ( obj -- cf )
M: sequence (>cf) [ (>cf) &CFRelease ] map <CFArray> ;
M: alien (>cf) CFRetain ;
-: >cf ( obj -- cf ) [ (>cf) ] with-destructors ;
\ No newline at end of file
+: >cf ( obj -- cf ) [ (>cf) ] with-destructors ;