! Copyright (C) 2010 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: help.markup help.syntax ; IN: slots.syntax HELP: slots[ { $description "Outputs several slot values to the stack." } { $example "USING: kernel prettyprint slots.syntax ;" "IN: slots.syntax.example" "TUPLE: rectangle width height ;" "T{ rectangle { width 3 } { height 5 } } slots[ width height ] [ . ] bi@" """3 5""" } ; HELP: slots{ { $description "Outputs an array of slot values from a tuple." } { $example "USING: prettyprint slots.syntax ;" "IN: slots.syntax.example" "TUPLE: rectangle width height ;" "T{ rectangle { width 3 } { height 5 } } slots{ width height } ." "{ 3 5 }" } ; HELP: set-slots{ { $description "Sets slot values in a tuple from an array." } { $example "USING: prettyprint slots.syntax kernel ;" "IN: slots.syntax.example" "TUPLE: rectangle width height ;" "rectangle new { 3 5 } set-slots{ width height } ." "T{ rectangle { width 3 } { height 5 } }" } ; HELP: set-slots[ { $description "Sets slot values in a tuple from the stack." } { $example "USING: prettyprint slots.syntax kernel ;" "IN: slots.syntax.example" "TUPLE: rectangle width height ;" "rectangle new 3 5 set-slots[ width height ] ." "T{ rectangle { width 3 } { height 5 } }" } ; ARTICLE: "slots.syntax" "Slots syntax sugar" "The " { $vocab-link "slots.syntax" } " vocabulary provides an alternative syntax for getting and setting multiple values of a tuple." $nl "Syntax sugar for cleaving slots to the stack:" { $subsections POSTPONE: slots[ } "Cleaving slots to an array:" { $subsections POSTPONE: slots{ } "Setting slots from the stack:" { $subsections POSTPONE: set-slots[ } "Setting slots from an array:" { $subsections POSTPONE: set-slots{ } ; ABOUT: "slots.syntax"