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

factor: CFSTRING: ;

locals-and-roots
Doug Coleman 2016-06-04 17:19:24 -07:00
parent 4cd17a2045
commit 06e2232917
4 changed files with 79 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

136
ffi/core-foundation/launch-services/launch-services.factor
View File

@ -22,92 +22,92 @@ FUNCTION: OSStatus FSRefMakePath (
) ; ) ;
! Abstract base types ! Abstract base types
CFSTRING: kUTTypeItem "public.item" CFSTRING: kUTTypeItem "public.item" ;
CFSTRING: kUTTypeContent "public.content" CFSTRING: kUTTypeContent "public.content" ;
CFSTRING: kUTTypeCompositeContent "public.composite-content" CFSTRING: kUTTypeCompositeContent "public.composite-content" ;
CFSTRING: kUTTypeApplication "com.apple.application" CFSTRING: kUTTypeApplication "com.apple.application" ;
CFSTRING: kUTTypeMessage "public.message" CFSTRING: kUTTypeMessage "public.message" ;
CFSTRING: kUTTypeContact "public.contact" CFSTRING: kUTTypeContact "public.contact" ;
CFSTRING: kUTTypeArchive "public.archive" CFSTRING: kUTTypeArchive "public.archive" ;
CFSTRING: kUTTypeDiskImage "public.disk-image" CFSTRING: kUTTypeDiskImage "public.disk-image" ;
! Concrete base types ! Concrete base types
CFSTRING: kUTTypeData "public.data" CFSTRING: kUTTypeData "public.data" ;
CFSTRING: kUTTypeDirectory "public.directory" CFSTRING: kUTTypeDirectory "public.directory" ;
CFSTRING: kUTTypeResolvable "com.apple.resolvable" CFSTRING: kUTTypeResolvable "com.apple.resolvable" ;
CFSTRING: kUTTypeSymLink "public.symlink" CFSTRING: kUTTypeSymLink "public.symlink" ;
CFSTRING: kUTTypeMountPoint "com.apple.mount-point" CFSTRING: kUTTypeMountPoint "com.apple.mount-point" ;
CFSTRING: kUTTypeAliasFile "com.apple.alias-file" CFSTRING: kUTTypeAliasFile "com.apple.alias-file" ;
CFSTRING: kUTTypeAliasRecord "com.apple.alias-record" CFSTRING: kUTTypeAliasRecord "com.apple.alias-record" ;
CFSTRING: kUTTypeURL "public.url" CFSTRING: kUTTypeURL "public.url" ;
CFSTRING: kUTTypeFileURL "public.file-url" CFSTRING: kUTTypeFileURL "public.file-url" ;
! Text types ! Text types
CFSTRING: kUTTypeText "public.text" CFSTRING: kUTTypeText "public.text" ;
CFSTRING: kUTTypePlainText "public.plain-text" CFSTRING: kUTTypePlainText "public.plain-text" ;
CFSTRING: kUTTypeUTF8PlainText "public.utf8-plain-text" CFSTRING: kUTTypeUTF8PlainText "public.utf8-plain-text" ;
CFSTRING: kUTTypeUTF16ExternalPlainText "public.utf16-external-plain-text" CFSTRING: kUTTypeUTF16ExternalPlainText "public.utf16-external-plain-text" ;
CFSTRING: kUTTypeUTF16PlainText "public.utf16-plain-text" CFSTRING: kUTTypeUTF16PlainText "public.utf16-plain-text" ;
CFSTRING: kUTTypeRTF "public.rtf" CFSTRING: kUTTypeRTF "public.rtf" ;
CFSTRING: kUTTypeHTML "public.html" CFSTRING: kUTTypeHTML "public.html" ;
CFSTRING: kUTTypeXML "public.xml" CFSTRING: kUTTypeXML "public.xml" ;
CFSTRING: kUTTypeSourceCode "public.source-code" CFSTRING: kUTTypeSourceCode "public.source-code" ;
CFSTRING: kUTTypeCSource "public.c-source" CFSTRING: kUTTypeCSource "public.c-source" ;
CFSTRING: kUTTypeObjectiveCSource "public.objective-c-source" CFSTRING: kUTTypeObjectiveCSource "public.objective-c-source" ;
CFSTRING: kUTTypeCPlusPlusSource "public.c-plus-plus-source" CFSTRING: kUTTypeCPlusPlusSource "public.c-plus-plus-source" ;
CFSTRING: kUTTypeObjectiveCPlusPlusSource "public.objective-c-plus-plus-source" CFSTRING: kUTTypeObjectiveCPlusPlusSource "public.objective-c-plus-plus-source" ;
CFSTRING: kUTTypeCHeader "public.c-header" CFSTRING: kUTTypeCHeader "public.c-header" ;
CFSTRING: kUTTypeCPlusPlusHeader "public.c-plus-plus-header" CFSTRING: kUTTypeCPlusPlusHeader "public.c-plus-plus-header" ;
CFSTRING: kUTTypeJavaSource "com.sun.java-source" CFSTRING: kUTTypeJavaSource "com.sun.java-source" ;
! Composite content types ! Composite content types
CFSTRING: kUTTypePDF "com.adobe.pdf" CFSTRING: kUTTypePDF "com.adobe.pdf" ;
CFSTRING: kUTTypeRTFD "com.apple.rtfd" CFSTRING: kUTTypeRTFD "com.apple.rtfd" ;
CFSTRING: kUTTypeFlatRTFD "com.apple.flat-rtfd" CFSTRING: kUTTypeFlatRTFD "com.apple.flat-rtfd" ;
CFSTRING: kUTTypeTXNTextAndMultimediaData "com.apple.txn.text-multimedia-data" CFSTRING: kUTTypeTXNTextAndMultimediaData "com.apple.txn.text-multimedia-data" ;
CFSTRING: kUTTypeWebArchive "com.apple.webarchive" CFSTRING: kUTTypeWebArchive "com.apple.webarchive" ;
! Image content types ! Image content types
CFSTRING: kUTTypeImage "public.image" CFSTRING: kUTTypeImage "public.image" ;
CFSTRING: kUTTypeJPEG "public.jpeg" CFSTRING: kUTTypeJPEG "public.jpeg" ;
CFSTRING: kUTTypeJPEG2000 "public.jpeg-2000" CFSTRING: kUTTypeJPEG2000 "public.jpeg-2000" ;
CFSTRING: kUTTypeTIFF "public.tiff" CFSTRING: kUTTypeTIFF "public.tiff" ;
CFSTRING: kUTTypePICT "com.apple.pict" CFSTRING: kUTTypePICT "com.apple.pict" ;
CFSTRING: kUTTypeGIF "com.compuserve.gif" CFSTRING: kUTTypeGIF "com.compuserve.gif" ;
CFSTRING: kUTTypePNG "public.png" CFSTRING: kUTTypePNG "public.png" ;
CFSTRING: kUTTypeQuickTimeImage "com.apple.quicktime-image" CFSTRING: kUTTypeQuickTimeImage "com.apple.quicktime-image" ;
CFSTRING: kUTTypeAppleICNS "com.apple.icns" CFSTRING: kUTTypeAppleICNS "com.apple.icns" ;
CFSTRING: kUTTypeBMP "com.microsoft.bmp" CFSTRING: kUTTypeBMP "com.microsoft.bmp" ;
CFSTRING: kUTTypeICO "com.microsoft.ico" CFSTRING: kUTTypeICO "com.microsoft.ico" ;
! Audiovisual content types ! Audiovisual content types
CFSTRING: kUTTypeAudiovisualContent "public.audiovisual-content" CFSTRING: kUTTypeAudiovisualContent "public.audiovisual-content" ;
CFSTRING: kUTTypeMovie "public.movie" CFSTRING: kUTTypeMovie "public.movie" ;
CFSTRING: kUTTypeVideo "public.video" CFSTRING: kUTTypeVideo "public.video" ;
CFSTRING: kUTTypeAudio "public.audio" CFSTRING: kUTTypeAudio "public.audio" ;
CFSTRING: kUTTypeQuickTimeMovie "com.apple.quicktime-movie" CFSTRING: kUTTypeQuickTimeMovie "com.apple.quicktime-movie" ;
CFSTRING: kUTTypeMPEG "public.mpeg" CFSTRING: kUTTypeMPEG "public.mpeg" ;
CFSTRING: kUTTypeMPEG4 "public.mpeg-4" CFSTRING: kUTTypeMPEG4 "public.mpeg-4" ;
CFSTRING: kUTTypeMP3 "public.mp3" CFSTRING: kUTTypeMP3 "public.mp3" ;
CFSTRING: kUTTypeMPEG4Audio "public.mpeg-4-audio" CFSTRING: kUTTypeMPEG4Audio "public.mpeg-4-audio" ;
CFSTRING: kUTTypeAppleProtectedMPEG4Audio "com.apple.protected-mpeg-4-audio" CFSTRING: kUTTypeAppleProtectedMPEG4Audio "com.apple.protected-mpeg-4-audio" ;
! Directory types ! Directory types
CFSTRING: kUTTypeFolder "public.folder" CFSTRING: kUTTypeFolder "public.folder" ;
CFSTRING: kUTTypeVolume "public.volume" CFSTRING: kUTTypeVolume "public.volume" ;
CFSTRING: kUTTypePackage "com.apple.package" CFSTRING: kUTTypePackage "com.apple.package" ;
CFSTRING: kUTTypeBundle "com.apple.bundle" CFSTRING: kUTTypeBundle "com.apple.bundle" ;
CFSTRING: kUTTypeFramework "com.apple.framework" CFSTRING: kUTTypeFramework "com.apple.framework" ;
! Application types ! Application types
CFSTRING: kUTTypeApplicationBundle "com.apple.application-bundle" CFSTRING: kUTTypeApplicationBundle "com.apple.application-bundle" ;
CFSTRING: kUTTypeApplicationFile "com.apple.application-file" CFSTRING: kUTTypeApplicationFile "com.apple.application-file" ;
! Contact types ! Contact types
CFSTRING: kUTTypeVCard "public.vcard" CFSTRING: kUTTypeVCard "public.vcard" ;
! Misc. types ! Misc. types
CFSTRING: kUTTypeInkText "com.apple.ink.inktext" CFSTRING: kUTTypeInkText "com.apple.ink.inktext" ;
CONSTANT: kLSUnknownCreator f ; CONSTANT: kLSUnknownCreator f ;

2
ffi/core-foundation/run-loop/run-loop.factor
View File

@ -55,7 +55,7 @@ FUNCTION: void CFRunLoopRemoveTimer (
CFStringRef mode CFStringRef mode
) ; ) ;
CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" ;
TUPLE: run-loop-state fds sources timers ; TUPLE: run-loop-state fds sources timers ;

6
ffi/core-foundation/strings/strings.factor
View File

@ -1,12 +1,10 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.data alien.syntax USING: accessors alien alien.c-types alien.data alien.syntax
byte-vectors combinators.short-circuit core-foundation byte-vectors combinators.short-circuit core-foundation
core-foundation.arrays core-foundation.data destructors fry core-foundation.arrays core-foundation.data destructors fry
io.encodings.string io.encodings.utf8 kernel math math.order io.encodings.string io.encodings.utf8 kernel math math.order
parser sequences words ; parser sequences words lexer ;
in: core-foundation.strings in: core-foundation.strings
TYPEDEF: void* CFStringRef ; TYPEDEF: void* CFStringRef ;
@ -99,6 +97,6 @@ FUNCTION: CFStringRef CFCopyTypeIDDescription ( CFTypeID type_id ) ;
CFGetTypeID [ CFCopyTypeIDDescription &CFRelease CF>string ] with-destructors ; CFGetTypeID [ CFCopyTypeIDDescription &CFRelease CF>string ] with-destructors ;
SYNTAX: CFSTRING: SYNTAX: CFSTRING:
scan-new-word scan-object scan-new-word scan-object ";" expect
[ drop ] [ '[ _ [ _ <CFString> ] initialize-alien ] ] 2bi [ drop ] [ '[ _ [ _ <CFString> ] initialize-alien ] ] 2bi
( -- alien ) define-declared ; ( -- alien ) define-declared ;

16
ffi/qtkit/qtkit.factor
View File

@ -23,14 +23,14 @@ STRUCT: SMPTETime
{ mSeconds SInt16 } { mSeconds SInt16 }
{ mFrames SInt16 } ; { mFrames SInt16 } ;
CFSTRING: QTKitErrorDomain "QTKitErrorDomain" CFSTRING: QTKitErrorDomain "QTKitErrorDomain" ;
CFSTRING: QTErrorCaptureInputKey "QTErrorCaptureInputKey" CFSTRING: QTErrorCaptureInputKey "QTErrorCaptureInputKey" ;
CFSTRING: QTErrorCaptureOutputKey "QTErrorCaptureOutputKey" CFSTRING: QTErrorCaptureOutputKey "QTErrorCaptureOutputKey" ;
CFSTRING: QTErrorDeviceKey "QTErrorDeviceKey" CFSTRING: QTErrorDeviceKey "QTErrorDeviceKey" ;
CFSTRING: QTErrorExcludingDeviceKey "QTErrorExcludingDeviceKey" CFSTRING: QTErrorExcludingDeviceKey "QTErrorExcludingDeviceKey" ;
CFSTRING: QTErrorTimeKey "QTErrorTimeKey" CFSTRING: QTErrorTimeKey "QTErrorTimeKey" ;
CFSTRING: QTErrorFileSizeKey "QTErrorFileSizeKey" CFSTRING: QTErrorFileSizeKey "QTErrorFileSizeKey" ;
CFSTRING: QTErrorRecordingSuccesfullyFinishedKey "QTErrorRecordingSuccesfullyFinishedKey" CFSTRING: QTErrorRecordingSuccesfullyFinishedKey "QTErrorRecordingSuccesfullyFinishedKey" ;
CONSTANT: QTErrorUnknown -1 ; CONSTANT: QTErrorUnknown -1 ;
CONSTANT: QTErrorIncompatibleInput 1002 ; CONSTANT: QTErrorIncompatibleInput 1002 ;