core-foundation: cleanup usings.

db4
John Benediktsson 2014-12-13 16:25:59 -08:00
parent 4a13633e5d
commit be64b40b7f
9 changed files with 28 additions and 30 deletions

View File

@ -1,7 +1,7 @@
! 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

View File

@ -1,9 +1,8 @@
! 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

View File

@ -1,7 +1,7 @@
! 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

View File

@ -1,6 +1,6 @@
! 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

View File

@ -1,11 +1,11 @@
! 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

View File

@ -1,10 +1,9 @@
! 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 (

View File

@ -1,7 +1,7 @@
! 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

View File

@ -1,7 +1,7 @@
! 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

View File

@ -1,10 +1,10 @@
! 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 )
@ -18,4 +18,4 @@ M: hashtable (>cf) [ [ (>cf) &CFRelease ] bi@ ] assoc-map <CFDictionary> ;
M: sequence (>cf) [ (>cf) &CFRelease ] map <CFArray> ;
M: alien (>cf) CFRetain ;
: >cf ( obj -- cf ) [ (>cf) ] with-destructors ;
: >cf ( obj -- cf ) [ (>cf) ] with-destructors ;