abi? ( object -- ? )

Vocabulary

alien

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the abi class.

Definition

USING: kernel ;

IN: alien

: abi? ( object -- ? )
    dup mingw?
    [ drop t ] [
        dup cdecl?
        [ drop t ] [
            dup fastcall?
            [ drop t ]
            [ dup thiscall? [ drop t ] [ stdcall? ] if ] if
        ] if
    ] if ;