steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/extra/slots/syntax/syntax.factor

14 lines
383 B
Factor
Raw Normal View History

Add a slots{ word for accessing multiple slots
2010-02-27 06:01:14 -05:00
! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators combinators.smart fry lexer quotations
sequences slots ;
IN: slots.syntax
Add a parsing word to output slots to the stack instead of to an array
2010-03-02 05:51:52 -05:00
SYNTAX: slots[
"]" [ reader-word 1quotation ] map-tokens
'[ _ cleave ] append! ;
Add a slots{ word for accessing multiple slots
2010-02-27 06:01:14 -05:00
SYNTAX: slots{
lexer: add "each-token" and "map-tokens", which are equivalent to "parse-token _ each/map" but incremental. update a smattering of parsing words (such as USING:, SYMBOLS:, etc.) to use each-token/map-tokens
2010-03-01 01:06:47 -05:00
"}" [ reader-word 1quotation ] map-tokens
'[ [ _ cleave ] output>array ] append! ;