steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.launch-services: use <c-array>.

db4
John Benediktsson 2015-08-15 22:03:38 -07:00
parent 10c4fce077
commit 6e5a29b665
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/core-foundation/launch-services/launch-services.factor
View File

@ -1,9 +1,10 @@
! Copyright (C) 2011 Doug Coleman. ! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax classes.struct continuations core-foundation USING: alien.c-types alien.data alien.syntax classes.struct
core-foundation.strings core-foundation.urls destructors kernel continuations core-foundation core-foundation.strings
sequences specialized-arrays.instances.alien.c-types.char core-foundation.urls destructors kernel sequences
strings unix.ffi ; specialized-arrays strings unix.ffi ;
SPECIALIZED-ARRAY: char
IN: core-foundation.launch-services IN: core-foundation.launch-services
FUNCTION: OSStatus LSFindApplicationForInfo ( FUNCTION: OSStatus LSFindApplicationForInfo (
@ -116,7 +117,7 @@ ERROR: core-foundation-error n ;
dup 0 = [ drop ] [ core-foundation-error ] if ; dup 0 = [ drop ] [ core-foundation-error ] if ;
: fsref>string ( fsref -- string ) : fsref>string ( fsref -- string )
MAXPATHLEN [ <char-array> ] [ ] bi MAXPATHLEN [ char <c-array> ] [ ] bi
[ FSRefMakePath cf-error ] [ drop ] 2bi [ FSRefMakePath cf-error ] [ drop ] 2bi
[ 0 = ] trim-tail >string ; [ 0 = ] trim-tail >string ;