magic-file ( path flags -- result )

Vocabulary

magic.private

Inputs

path	an object
flags	an object

Outputs

result

an object

Definition

USING: destructors io.backend kernel magic.ffi ;

IN: magic.private

: magic-file ( path flags -- result )
    [
        magic_open &magic_close
        [ dup f magic_load check-magic-error ]
        [ swap normalize-path magic_file ] bi
    ] with-destructors ;