name=value ( line -- )

Vocabulary

ini-file.private

Inputs

line

an object

Outputs

None

Definition

USING: arrays kernel math namespaces sequences splitting ;

IN: ini-file.private

: name=value ( line -- )
    option [
        [ swap [ first2 ] dip ]
        [ "=" split1 [ cleanup-string "" ] [ "" or ] bi* ] if*
        dup line-continues? [
            dup length 1 - head cleanup-string dup last space?
            [ " " append ] unless append 2array
        ] [ cleanup-string append option, f ] if
    ] change ;