factor/extra/tuple-syntax/tuple-syntax.factor

USING: kernel sequences slots parser words classes
slots.private ;
IN: tuple-syntax

! TUPLE: foo bar baz ;
! TUPLE{ foo bar: 1 baz: 2 }

: parse-object ( -- object )
    scan-word dup parsing? [ V{ } clone swap execute first ] when ;

: parse-slot-writer ( tuple -- slot# )
    scan dup "}" = [ 2drop f ] [
        1 head* swap class "slots" word-prop
        [ slot-spec-name = ] with find nip slot-spec-offset
    ] if ;

: parse-slots ( accum tuple -- accum tuple )
    dup parse-slot-writer
    [ parse-object pick rot set-slot parse-slots ] when* ;

: TUPLE{
    scan-word construct-empty parse-slots parsed ; parsing