/extra/html/parser/utils/utils.factor

http://github.com/abeaumont/factor · Factor · 20 lines · 13 code · 5 blank · 2 comment · 5 complexity · 21252257c5cac8b6398e2b50f1a28882 MD5 · raw file 

    

  1. ! Copyright (C) 2008 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: assocs circular combinators continuations hashtables
    4. 

  4. hashtables.private io kernel math namespaces prettyprint
    5. 

  5. quotations sequences splitting strings quoting
    6. 

  6. combinators.short-circuit ;
    7. 

  7. IN: html.parser.utils
    8. 

  8. 

  9. : trim1 ( seq ch -- newseq )
    10. 

  10.     [ [ ?head-slice drop ] [ ?tail-slice drop ] bi ] 2keep drop like ;
    11. 

  11. 

  12. : single-quote ( str -- newstr ) "'" dup surround ;
    13. 

  13. 

  14. : double-quote ( str -- newstr ) "\"" dup surround ;
    15. 

  15. 

  16. : quote ( str -- newstr )
    17. 

  17.     CHAR: ' over member?
    18. 

  18.     [ double-quote ] [ single-quote ] if ;
    19. 

  19. 

  20. : ?quote ( str -- newstr ) dup quoted? [ quote ] unless ;
    21.