add PATCH http method

ps-id: 4B1F8D46-147C-4C89-8318-074F328E564D

diff --git a/basis/http/client/client-docs.factor b/basis/http/client/client-docs.factor
index d846693adb938b67e85d04a6530712ee68513b6a..d0645ee88dd81537aa2b51a2bc02cdfaa59b1fb6 100644 (file)
--- a/basis/http/client/client-docs.factor
+++ b/basis/http/client/client-docs.factor
@@ -124,6 +124,17 @@ HELP: http-options*
 
 { http-options http-options* } related-words
 
+HELP: http-patch
+{ $values { "url" { $or url string } } { "response" response } { "data" sequence } }
+{ $description "Submits an HTTP PATCH request." }
+{ $errors "Throws an error if the HTTP request fails." } ;
+
+HELP: http-patch*
+{ $values { "url" { $or url string } } { "response" response } { "data" sequence } }
+{ $description "Submits an HTTP PATCH request, but does not check the HTTP response code for success." } ;
+
+{ http-patch http-patch* } related-words
+
 HELP: http-trace
 { $values { "url" "a " { $link url } " or " { $link string } } { "response" response } { "data" sequence } }
 { $description "Submits an HTTP TRACE request." }

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index b0bad5ff61ea2a61dfbed85dcb77747d1188a78b..236a203bc8ec844fa42cbb69d2be6a7c80e3d333 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -335,6 +335,15 @@ PRIVATE>
 : http-options* ( url -- response data )
     <options-request> http-request* ;
 
+: <patch-request> ( url -- request )
+    "PATCH" <client-request> ;
+
+: http-patch ( url -- response data )
+    <patch-request> http-request ;
+
+: http-patch* ( url -- response data )
+    <patch-request> http-request* ;
+
 : <trace-request> ( url -- request )
     "TRACE" <client-request> ;
 

diff --git a/basis/http/parsers/parsers.factor b/basis/http/parsers/parsers.factor
index dab80d9f211bca4f2974f7dd5127ec45cd61227b..8273d5533990fe3e67ad6a18aaa21562445da66a 100644 (file)
--- a/basis/http/parsers/parsers.factor
+++ b/basis/http/parsers/parsers.factor
@@ -36,7 +36,7 @@ IN: http.parsers
     [ token ] map choice ;
 
 : http-method-parser ( -- parser )
-    { "OPTIONS" "GET" "HEAD" "POST" "PUT" "DELETE" "TRACE" "CONNECT" } one-of ;
+    { "OPTIONS" "GET" "HEAD" "POST" "PUT" "DELETE" "TRACE" "CONNECT" "PATCH" } one-of ;
 
 : url-parser ( -- parser )
     [ " \t\r\n" member? ] except repeat1 case-sensitive ;