Making sure that vocabs only have lists or lists.lazy if they need them
parent
8d4de9d9ed
commit
1bd222228c
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel parser-combinators namespaces sequences promises strings
|
USING: kernel parser-combinators namespaces sequences promises strings
|
||||||
assocs math math.parser math.vectors math.functions math.order
|
assocs math math.parser math.vectors math.functions math.order
|
||||||
lists lists.lazy hashtables ascii ;
|
lists hashtables ascii ;
|
||||||
IN: json.reader
|
IN: json.reader
|
||||||
|
|
||||||
! Grammar for JSON from RFC 4627
|
! Grammar for JSON from RFC 4627
|
||||||
|
|
|
@ -17,7 +17,7 @@ IN: math.primes.factors
|
||||||
dup empty? [ drop ] [ first , ] if ;
|
dup empty? [ drop ] [ first , ] if ;
|
||||||
|
|
||||||
: (factors) ( quot list n -- )
|
: (factors) ( quot list n -- )
|
||||||
dup 1 > [ swap uncons >r pick call r> swap (factors) ] [ 3drop ] if ;
|
dup 1 > [ swap uncons swap >r pick call r> swap (factors) ] [ 3drop ] if ;
|
||||||
|
|
||||||
: (decompose) ( n quot -- seq )
|
: (decompose) ( n quot -- seq )
|
||||||
[ lprimes rot (factors) ] { } make ;
|
[ lprimes rot (factors) ] { } make ;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: tools.test monads math kernel sequences lists lists.lazy promises ;
|
USING: tools.test monads math kernel sequences lists promises ;
|
||||||
IN: monads.tests
|
IN: monads.tests
|
||||||
|
|
||||||
[ 5 ] [ 1 identity-monad return [ 4 + ] fmap run-identity ] unit-test
|
[ 5 ] [ 1 identity-monad return [ 4 + ] fmap run-identity ] unit-test
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2007, 2008 Alex Chapman
|
! Copyright (C) 2007, 2008 Alex Chapman
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors assocs combinators hashtables kernel lists lists.lazy math namespaces openal parser-combinators promises sequences strings symbols synth synth.buffers unicode.case ;
|
USING: accessors assocs combinators hashtables kernel lists math namespaces openal parser-combinators promises sequences strings symbols synth synth.buffers unicode.case ;
|
||||||
IN: morse
|
IN: morse
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
|
@ -23,4 +23,4 @@ HELP: any-char-parser
|
||||||
"from the input string. The value consumed is the "
|
"from the input string. The value consumed is the "
|
||||||
"result of the parse." }
|
"result of the parse." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: lists lists.lazy parser-combinators prettyprint ;" "\"foo\" any-char-parser parse-1 ." "102" } } ;
|
{ $example "USING: lists.lazy parser-combinators prettyprint ;" "\"foo\" any-char-parser parse-1 ." "102" } } ;
|
||||||
|
|
|
@ -11,7 +11,7 @@ HELP: 'digit'
|
||||||
"the input string. The numeric value of the digit "
|
"the input string. The numeric value of the digit "
|
||||||
" consumed is the result of the parse." }
|
" consumed is the result of the parse." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: lists lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"123\" 'digit' parse-1 ." "1" } } ;
|
{ $example "USING: lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"123\" 'digit' parse-1 ." "1" } } ;
|
||||||
|
|
||||||
HELP: 'integer'
|
HELP: 'integer'
|
||||||
{ $values
|
{ $values
|
||||||
|
@ -21,7 +21,7 @@ HELP: 'integer'
|
||||||
"the input string. The numeric value of the integer "
|
"the input string. The numeric value of the integer "
|
||||||
" consumed is the result of the parse." }
|
" consumed is the result of the parse." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: lists lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"123\" 'integer' parse-1 ." "123" } } ;
|
{ $example "USING: lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"123\" 'integer' parse-1 ." "123" } } ;
|
||||||
HELP: 'string'
|
HELP: 'string'
|
||||||
{ $values
|
{ $values
|
||||||
{ "parser" "a parser object" } }
|
{ "parser" "a parser object" } }
|
||||||
|
@ -30,7 +30,7 @@ HELP: 'string'
|
||||||
"quotations from the input string. The string value "
|
"quotations from the input string. The string value "
|
||||||
" consumed is the result of the parse." }
|
" consumed is the result of the parse." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: lists lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"\\\"foo\\\"\" 'string' parse-1 ." "\"foo\"" } } ;
|
{ $example "USING: lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"\\\"foo\\\"\" 'string' parse-1 ." "\"foo\"" } } ;
|
||||||
|
|
||||||
HELP: 'bold'
|
HELP: 'bold'
|
||||||
{ $values
|
{ $values
|
||||||
|
@ -62,6 +62,6 @@ HELP: comma-list
|
||||||
"'element' should be a parser that can parse the elements. The "
|
"'element' should be a parser that can parse the elements. The "
|
||||||
"result of the parser is a sequence of the parsed elements." }
|
"result of the parser is a sequence of the parsed elements." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: lists lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"1,2,3,4\" 'integer' comma-list parse-1 ." "{ 1 2 3 4 }" } } ;
|
{ $example "USING: lists.lazy parser-combinators parser-combinators.simple prettyprint ;" "\"1,2,3,4\" 'integer' comma-list parse-1 ." "{ 1 2 3 4 }" } } ;
|
||||||
|
|
||||||
{ $see-also 'digit' 'integer' 'string' 'bold' 'italic' comma-list } related-words
|
{ $see-also 'digit' 'integer' 'string' 'bold' 'italic' comma-list } related-words
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: arrays combinators kernel lists lists.lazy math math.parser
|
USING: arrays combinators kernel lists math math.parser
|
||||||
namespaces parser parser-combinators parser-combinators.simple
|
namespaces parser parser-combinators parser-combinators.simple
|
||||||
promises quotations sequences combinators.lib strings math.order
|
promises quotations sequences combinators.lib strings math.order
|
||||||
assocs prettyprint.backend memoize unicode.case unicode.categories ;
|
assocs prettyprint.backend memoize unicode.case unicode.categories ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2006, 2007 Alex Chapman
|
! Copyright (C) 2006, 2007 Alex Chapman
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel sequences math math.functions tetris.board
|
USING: kernel sequences math math.functions tetris.board
|
||||||
tetris.piece tetris.tetromino lists lists.lazy combinators system ;
|
tetris.piece tetris.tetromino lists combinators system ;
|
||||||
IN: tetris.game
|
IN: tetris.game
|
||||||
|
|
||||||
TUPLE: tetris pieces last-update update-interval rows score game-state paused? running? ;
|
TUPLE: tetris pieces last-update update-interval rows score game-state paused? running? ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2006, 2007 Alex Chapman
|
! Copyright (C) 2006, 2007 Alex Chapman
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel arrays tetris.tetromino math math.vectors
|
USING: kernel arrays tetris.tetromino math math.vectors
|
||||||
sequences quotations lists lists.lazy ;
|
sequences quotations lists.lazy ;
|
||||||
IN: tetris.piece
|
IN: tetris.piece
|
||||||
|
|
||||||
#! A piece adds state to the tetromino that is the piece's delegate. The
|
#! A piece adds state to the tetromino that is the piece's delegate. The
|
||||||
|
|
Loading…
Reference in New Issue