extra/splitting/extras/extras-docs.factor

   1 USING: help.markup help.syntax sequences splitting strings ;
   2 IN: splitting.extras
   3
   4 HELP: split*-when
   5 { $values { "seq" "a sequence" } { "quot" { $quotation "( ... elt -- ... ? )" } } { "pieces" "a new array" } }
   6 { $description "A variant of " { $link split-when } " that includes the elements along which the sequence was split." }
   7 { $examples { $example "USING: ascii kernel prettyprint splitting.extras ;" "\"hello,world-how.are:you\" [ letter? not ] split*-when ." "{ \"hello\" \",\" \"world\" \"-\" \"how\" \".\" \"are\" \":\" \"you\" }" } } ;
   8
   9 HELP: split*
  10 { $values { "seq" "a sequence" } { "separators" "a sequence" } { "pieces" "a new array" } }
  11 { $description "A variant of " { $link split } " that includes the elements along which the sequence was split." }
  12 { $examples { $example "USING: prettyprint splitting.extras ;" "\"hello world-how are you?\" \" -\" split* ." "{ \"hello\" \" \" \"world\" \"-\" \"how\" \" \" \"are\" \" \" \"you?\" }" } } ;
  13
  14 HELP: split-find
  15 { $values { "seq" "a sequence" } { "quot" { $quotation "( seq -- i )" } } { "pieces" "a new array" } }
  16 { $description "Splits a sequence into slices using the provided quotation to find split points." } ;