init-native-openal ( -- )

Vocabulary

openal.alut.macos

Inputs

None

Outputs

None

Definition

USING: kernel math namespaces openal ;

IN: openal.alut.macos

:: init-native-openal ( -- )
    f alcOpenDevice :> device device [
        device f alcCreateContext :> context context [
            context alcMakeContextCurrent zero? [
                context alcDestroyContext
                device alcCloseDevice drop
                "Cannot make the OpenAL context current" throw
            ] when context native-alut-context set-global
        ] [
            device alcCloseDevice drop
            "Cannot create an OpenAL context" throw
        ] if
    ] [ "Cannot open an OpenAL device" throw ] if ;