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

allow streams in the post-data tuple

db4
Doug Coleman 2009-01-21 22:21:40 -06:00
parent 8c5c973116
commit 376f332eef
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/http/client/client.factor
View File

@ -34,6 +34,8 @@ IN: http.client
GENERIC: >post-data ( object -- post-data ) GENERIC: >post-data ( object -- post-data )
M: f >post-data ;
M: post-data >post-data ; M: post-data >post-data ;
M: string >post-data M: string >post-data
@ -41,15 +43,13 @@ M: string >post-data
"application/octet-stream" <post-data> "application/octet-stream" <post-data>
swap >>data ; swap >>data ;
M: byte-array >post-data
"application/octet-stream" <post-data>
swap >>data ;
M: assoc >post-data M: assoc >post-data
"application/x-www-form-urlencoded" <post-data> "application/x-www-form-urlencoded" <post-data>
swap >>params ; swap >>params ;
M: f >post-data ; M: object >post-data
"application/octet-stream" <post-data>
swap >>data ;
: normalize-post-data ( request -- request ) : normalize-post-data ( request -- request )
dup post-data>> [ dup post-data>> [
@ -63,8 +63,10 @@ M: f >post-data ;
normalize-post-data ; normalize-post-data ;
: write-post-data ( request -- request ) : write-post-data ( request -- request )
dup method>> [ "POST" = ] [ "PUT" = ] bi or dup method>> { "POST" "PUT" } member? [
[ dup post-data>> data>> write ] when ; dup post-data>> data>> dup sequence?
[ write ] [ output-stream get stream-copy ] if
] when ;
: write-request ( request -- ) : write-request ( request -- )
unparse-post-data unparse-post-data