get-flag ( gdbm -- n )

Vocabulary

gdbm.private

Inputs

gdbm

an object

Outputs

n

an object

Definition

USING: accessors alien.enums gdbm.ffi kernel math ;

IN: gdbm.private

: get-flag ( gdbm -- n )
    [ role>> enum>number ] [ sync>> GDBM_SYNC 0 ? ]
    [ nolock>> GDBM_NOLOCK 0 ? ] tri bitor bitor ;