extra/html/parser/utils/utils.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: assocs circular combinators continuations hashtables
   4 hashtables.private io kernel math namespaces prettyprint
   5 quotations sequences splitting html.parser.state strings
   6 combinators.short-circuit ;
   7 IN: html.parser.utils
   8
   9 : string-parse-end? ( -- ? ) get-next not ;
  10
  11 : trim1 ( seq ch -- newseq )
  12     [ [ ?head-slice drop ] [ ?tail-slice drop ] bi ] 2keep drop like ;
  13
  14 : quote? ( ch -- ? ) "'\"" member? ;
  15
  16 : single-quote ( str -- newstr ) "'" dup surround ;
  17
  18 : double-quote ( str -- newstr ) "\"" dup surround ;
  19
  20 : quote ( str -- newstr )
  21     CHAR: ' over member?
  22     [ double-quote ] [ single-quote ] if ;
  23
  24 : quoted? ( str -- ? )
  25     {
  26         [ length 1 > ]
  27         [ first quote? ]
  28         [ [ first ] [ peek ] bi = ]
  29     } 1&& ;
  30
  31 : ?quote ( str -- newstr ) dup quoted? [ quote ] unless ;
  32
  33 : unquote ( str -- newstr )
  34     dup quoted? [ but-last-slice rest-slice >string ] when ;