22 lines
617 B
Factor
22 lines
617 B
Factor
USING: kernel sequences slots parser words classes ;
|
|
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-setter )
|
|
scan dup "}" = [ 2drop f ] [
|
|
1 head* swap class "slots" word-prop
|
|
[ slot-spec-name = ] curry* find nip slot-spec-writer
|
|
] if ;
|
|
|
|
: parse-slots ( accum tuple -- accum tuple )
|
|
dup parse-slot-writer
|
|
[ parse-object pick rot execute parse-slots ] when* ;
|
|
|
|
: TUPLE{
|
|
scan-word construct-empty parse-slots parsed ; parsing
|