symbols>flags ( symbols assoc -- flag-bits )

Vocabulary

math.bitwise

Inputs

symbols	a sequence
assoc	an assoc

Outputs

flag-bits

an integer

Word description

Constructs an integer value by mapping the values in the symbols sequence to integer values using assoc and bitoring the values together.

Examples

USING: math.bitwise prettyprint ui.gadgets.worlds ; IN: scratchpad CONSTANT: window-controls>flags H{ { close-button 1 } { minimize-button 2 } { maximize-button 4 } { resize-handles 8 } { small-title-bar 16 } { normal-title-bar 32 } } { resize-handles close-button small-title-bar } window-controls>flags symbols>flags .
25

Definition

USING: assocs kernel math sequences ;

IN: math.bitwise

: symbols>flags ( symbols assoc -- flag-bits )
    [ at ] curry map 0 [ bitor ] reduce ;