extension>uttype ( extension -- CFString )

Vocabulary

images.loader.cocoa

Inputs

extension

an object

Outputs

CFString

an object

Definition

USING: combinators core-foundation.launch-services unicode ;

IN: images.loader.cocoa

: extension>uttype ( extension -- CFString )
    >lower {
        { "png" [ kUTTypePNG ] }
        { "jpg" [ kUTTypeJPEG ] }
        { "jpeg" [ kUTTypeJPEG ] }
        { "tif" [ kUTTypeTIFF ] }
        { "tiff" [ kUTTypeTIFF ] }
        { "gif" [ kUTTypeGIF ] }
        { "bmp" [ kUTTypeBMP ] }
        { "ico" [ kUTTypeICO ] }
    } case ;