2009-01-16 20:02:50 -05:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-12-13 19:25:59 -05:00
|
|
|
USING: alien.c-types alien.syntax core-foundation
|
|
|
|
core-foundation.dictionaries core-foundation.strings
|
|
|
|
core-foundation.utilities destructors kernel ;
|
2009-01-16 20:02:50 -05:00
|
|
|
IN: core-foundation.attributed-strings
|
|
|
|
|
|
|
|
TYPEDEF: void* CFAttributedStringRef
|
|
|
|
|
|
|
|
FUNCTION: CFAttributedStringRef CFAttributedStringCreate (
|
|
|
|
CFAllocatorRef alloc,
|
|
|
|
CFStringRef str,
|
|
|
|
CFDictionaryRef attributes
|
2015-07-19 19:25:30 -04:00
|
|
|
)
|
2009-01-16 20:02:50 -05:00
|
|
|
|
2009-01-25 20:02:59 -05:00
|
|
|
: <CFAttributedString> ( string assoc -- alien )
|
2009-01-21 00:06:23 -05:00
|
|
|
[
|
|
|
|
[ >cf &CFRelease ] bi@
|
|
|
|
[ kCFAllocatorDefault ] 2dip CFAttributedStringCreate
|
2009-09-27 00:14:57 -04:00
|
|
|
] with-destructors ;
|