[ do-redirect ] [ nip ] if
] with-variable ; inline recursive
+ : <client-request> ( url method -- request )
+ <request>
+ swap >>method
+ swap >url ensure-port >>url ; inline
+
+ PRIVATE>
+
: success? ( code -- ? ) 200 299 between? ;
-ERROR: download-failed response ;
+ERROR: download-failed response data ;
+
+M: download-failed error.
+ "HTTP request failed:" print nl
+ [ response>> . ] [ data>> . ] bi ;
-: check-response ( response -- response )
- dup code>> success? [ download-failed ] unless ;
+: check-response* ( response data -- response data )
+ over code>> success? [ download-failed ] unless ;
- : check-response ( response -- response )
- f check-response* drop ;
+ : with-http-request ( request quot -- response )
+ [ (with-http-request) check-response ] with-destructors ; inline
: http-request ( request -- response data )
[ [ % ] with-http-request ] B{ } make
- over content-charset>> decode ;
+ over content-charset>> decode check-response* ;
+
+: <client-request> ( url -- request )
+ <request> swap >url ensure-port >>url ;
+
+: <client-data-request> ( data url -- request )
+ <client-request> swap >>post-data ;
: <get-request> ( url -- request )
- <client-request> "GET" >>method ;
+ "GET" <client-request> ;
: http-get ( url -- response data )
<get-request> http-request ;