| 
									
										
										
										
											2013-04-01 12:14:27 -04:00
										 |  |  | USING: help.markup help.syntax sequences splitting strings ;
 | 
					
						
							|  |  |  | IN: splitting.extras | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: split*-when | 
					
						
							| 
									
										
										
										
											2014-05-24 20:16:26 -04:00
										 |  |  | { $values { "seq" sequence } { "quot" { $quotation ( ... elt -- ... ? ) } } { "pieces" "a new array" } } | 
					
						
							| 
									
										
										
										
											2013-04-01 12:14:27 -04:00
										 |  |  | { $description "A variant of " { $link split-when } " that includes the elements along which the sequence was split." } | 
					
						
							|  |  |  | { $examples { $example "USING: ascii kernel prettyprint splitting.extras ;" "\"hello,world-how.are:you\" [ letter? not ] split*-when ." "{ \"hello\" \",\" \"world\" \"-\" \"how\" \".\" \"are\" \":\" \"you\" }" } } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: split* | 
					
						
							| 
									
										
										
										
											2014-05-24 20:16:26 -04:00
										 |  |  | { $values { "seq" sequence } { "separators" sequence } { "pieces" "a new array" } } | 
					
						
							| 
									
										
										
										
											2013-04-01 12:14:27 -04:00
										 |  |  | { $description "A variant of " { $link split } " that includes the elements along which the sequence was split." } | 
					
						
							|  |  |  | { $examples { $example "USING: prettyprint splitting.extras ;" "\"hello world-how are you?\" \" -\" split* ." "{ \"hello\" \" \" \"world\" \"-\" \"how\" \" \" \"are\" \" \" \"you?\" }" } } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: split-find | 
					
						
							| 
									
										
										
										
											2014-05-24 20:16:26 -04:00
										 |  |  | { $values { "seq" sequence } { "quot" { $quotation ( seq -- i ) } } { "pieces" "a new array" } } | 
					
						
							| 
									
										
										
										
											2013-04-01 12:14:27 -04:00
										 |  |  | { $description "Splits a sequence into slices using the provided quotation to find split points." } ;
 |