From 16a62262272cdf420c27e3febe9bfb0bc3fbc932 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <me@rgrinberg.com>
Date: Sat, 8 Jan 2022 22:23:09 -0700
Subject: [PATCH] add PATCH http method

ps-id: 4B1F8D46-147C-4C89-8318-074F328E564D
---
 basis/http/client/client-docs.factor | 11 +++++++++++
 basis/http/client/client.factor      |  9 +++++++++
 basis/http/parsers/parsers.factor    |  2 +-
 3 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/basis/http/client/client-docs.factor b/basis/http/client/client-docs.factor
index d846693adb..d0645ee88d 100644
--- 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 b0bad5ff61..236a203bc8 100644
--- 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 dab80d9f21..8273d55339 100644
--- 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 ;
-- 
2.34.1