new accessors in docs
							parent
							
								
									07c3b81542
								
							
						
					
					
						commit
						bc27b82ebc
					
				| 
						 | 
					@ -779,19 +779,19 @@ HELP: collapse-slice
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: <flat-slice>
 | 
					HELP: <flat-slice>
 | 
				
			||||||
{ $values { "seq" sequence } { "slice" slice } }
 | 
					{ $values { "seq" sequence } { "slice" slice } }
 | 
				
			||||||
{ $description "Outputs a slice with the same elements as " { $snippet "seq" } ", and " { $link slice-from } " equal to 0 and " { $link slice-to } " equal to the length of " { $snippet "seq" } "." }
 | 
					{ $description "Outputs a slice with the same elements as " { $snippet "seq" } ", and " { $snippet "from" } " equal to 0 and " { $snippet "to" } " equal to the length of " { $snippet "seq" } "." }
 | 
				
			||||||
{ $notes "Some words create slices then proceed to read the " { $snippet "to" } " and " { $snippet "from" } " slots of the slice. To behave predictably when they are themselves given a slice as input, they apply this word first to get a canonical slice." } ;
 | 
					{ $notes "Some words create slices then proceed to read the " { $snippet "to" } " and " { $snippet "from" } " slots of the slice. To behave predictably when they are themselves given a slice as input, they apply this word first to get a canonical slice." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: <slice>
 | 
					HELP: <slice>
 | 
				
			||||||
{ $values { "from" "a non-negative integer" } { "to" "a non-negative integer" } { "seq" sequence } { "slice" slice } }
 | 
					{ $values { "from" "a non-negative integer" } { "to" "a non-negative integer" } { "seq" sequence } { "slice" slice } }
 | 
				
			||||||
{ $description "Outputs a new virtual sequence sharing storage with the subrange of elements in " { $snippet "seq" } " with indices starting from and including " { $snippet "m" } ", and up to but not including " { $snippet "n" } "." }
 | 
					{ $description "Outputs a new virtual sequence sharing storage with the subrange of elements in " { $snippet "seq" } " with indices starting from and including " { $snippet "m" } ", and up to but not including " { $snippet "n" } "." }
 | 
				
			||||||
{ $errors "Throws an error if " { $snippet "m" } " or " { $snippet "n" } " is out of bounds." }
 | 
					{ $errors "Throws an error if " { $snippet "m" } " or " { $snippet "n" } " is out of bounds." }
 | 
				
			||||||
{ $notes "Taking the slice of a slice outputs a slice of the underlying sequence of the original slice. Keep this in mind when writing code which depends on the values of " { $link slice-from } " and " { $link slice-to } " being equal to the inputs to this word. The " { $link <flat-slice> } " word might be helpful in such situations." } ;
 | 
					{ $notes "Taking the slice of a slice outputs a slice of the underlying sequence of the original slice. Keep this in mind when writing code which depends on the values of " { $snippet "from" } " and " { $snippet "to" } " being equal to the inputs to this word. The " { $link <flat-slice> } " word might be helpful in such situations." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
{ <slice> subseq } related-words
 | 
					{ <slice> subseq } related-words
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: repetition
 | 
					HELP: repetition
 | 
				
			||||||
{ $class-description "A virtual sequence consisting of " { $link repetition-elt } " repeated " { $link repetition-len } " times. Repetitions are created by calling " { $link <repetition> } "." } ;
 | 
					{ $class-description "A virtual sequence consisting of " { $snippet "elt" } " repeated " { $snippet "len" } " times. Repetitions are created by calling " { $link <repetition> } "." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: <repetition> ( len elt -- repetition )
 | 
					HELP: <repetition> ( len elt -- repetition )
 | 
				
			||||||
{ $values { "len" "a non-negative integer" } { "elt" object } { "repetition" repetition } }
 | 
					{ $values { "len" "a non-negative integer" } { "elt" object } { "repetition" repetition } }
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -1,7 +1,7 @@
 | 
				
			||||||
! Copyright (C) 2008 Slava Pestov.
 | 
					! Copyright (C) 2008 Slava Pestov.
 | 
				
			||||||
! See http://factorcode.org/license.txt for BSD license.
 | 
					! See http://factorcode.org/license.txt for BSD license.
 | 
				
			||||||
USING: kernel assocs namespaces splitting sequences
 | 
					USING: kernel assocs namespaces splitting sequences
 | 
				
			||||||
strings math.parser lexer ;
 | 
					strings math.parser lexer accessors ;
 | 
				
			||||||
IN: strings.parser
 | 
					IN: strings.parser
 | 
				
			||||||
 | 
					
 | 
				
			||||||
ERROR: bad-escape ;
 | 
					ERROR: bad-escape ;
 | 
				
			||||||
| 
						 | 
					@ -46,7 +46,7 @@ name>char-hook global [
 | 
				
			||||||
    dup [ "\"\\" member? ] find dup [
 | 
					    dup [ "\"\\" member? ] find dup [
 | 
				
			||||||
        >r cut-slice >r % r> rest-slice r>
 | 
					        >r cut-slice >r % r> rest-slice r>
 | 
				
			||||||
        dup CHAR: " = [
 | 
					        dup CHAR: " = [
 | 
				
			||||||
            drop slice-from
 | 
					            drop from>>
 | 
				
			||||||
        ] [
 | 
					        ] [
 | 
				
			||||||
            drop next-escape >r , r> (parse-string)
 | 
					            drop next-escape >r , r> (parse-string)
 | 
				
			||||||
        ] if
 | 
					        ] if
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue