steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

intermediate work on cookies

db4
Doug Coleman 2008-02-01 22:46:03 -06:00
parent 0f8dc54b3d
commit db3ac4d75f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/http/http.factor
View File

@ -1,18 +1,18 @@
! Copyright (C) 2003, 2007 Slava Pestov. ! Copyright (C) 2003, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: hashtables io kernel math namespaces math.parser assocs USING: hashtables io kernel math namespaces math.parser assocs
sequences strings splitting ; sequences strings splitting assocs.lib ;
IN: http IN: http
: header-line ( line -- ) : header-line ( line -- )
": " split1 dup [ swap set ] [ 2drop ] if ; ": " split1 dup [ swap >lower set ] [ 2drop ] if ;
: (read-header) ( -- ) : (read-header) ( -- )
readln dup readln dup
empty? [ drop ] [ header-line (read-header) ] if ; empty? [ drop ] [ header-line (read-header) ] if ;
: read-header ( -- hash ) : read-header ( -- hash )
[ (read-header) ] H{ } make-assoc ; [ (read-header) ] VH{ } make-assoc ;
: url-quotable? ( ch -- ? ) : url-quotable? ( ch -- ? )
#! In a URL, can this character be used without #! In a URL, can this character be used without
@ -74,4 +74,3 @@ IN: http
hash>query % hash>query %
] if ] if
] "" make ; ] "" make ;