core-foundation.launch-services: adding UTCoreTypes.h.

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