{"id":97945,"date":"2025-02-18T00:39:55","date_gmt":"2025-02-17T21:09:55","guid":{"rendered":"https:\/\/nabfollower.com\/blog\/clojure-%d8%b9%d8%a7%d9%84%db%8c-%d8%a7%d8%b3%d8%aa-part-12\/"},"modified":"2025-02-18T00:39:55","modified_gmt":"2025-02-17T21:09:55","slug":"clojure-%d8%b9%d8%a7%d9%84%db%8c-%d8%a7%d8%b3%d8%aa-part-12","status":"publish","type":"post","link":"https:\/\/nabfollower.com\/blog\/clojure-%d8%b9%d8%a7%d9%84%db%8c-%d8%a7%d8%b3%d8%aa-part-12\/","title":{"rendered":"Clojure \u0639\u0627\u0644\u06cc \u0627\u0633\u062a !!! [PART 12]"},"content":{"rendered":"
\n
\n
(<\/span>ns<\/span> <\/span>chain-of-responsibility<\/span>\n  <\/span>(<\/span>:require<\/span> <\/span>[<\/span>clojure.pprint<\/span> <\/span>:as<\/span> <\/span>pp<\/span>]))<\/span>\n\n<\/span>;; === Request Processing Chain ===<\/span>\n<\/span>(<\/span>defprotocol<\/span> <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>])<\/span>\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>this<\/span> <\/span>handler<\/span>]))<\/span>\n\n<\/span>;; === Authentication Handler ===<\/span>\n<\/span>(<\/span>defrecord<\/span> <\/span>AuthenticationHandler<\/span> <\/span>[<\/span>next-handler<\/span>]<\/span>\n  <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>]<\/span>\n    <\/span>(<\/span>if-let<\/span> <\/span>[<\/span>auth-token<\/span> <\/span>(<\/span>:auth-token<\/span> <\/span>request<\/span>)]<\/span>\n      <\/span>(<\/span>if<\/span> <\/span>(<\/span>=<\/span> <\/span>auth-token<\/span> <\/span>\"valid-token\"<\/span>)<\/span>\n        <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n          <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> \n                         <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:authenticated<\/span> <\/span>true<\/span>))<\/span>\n          <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:authenticated<\/span> <\/span>true<\/span>))<\/span>\n        <\/span>{<\/span>:error<\/span> <\/span>\"Invalid authentication token\"<\/span>})<\/span>\n      <\/span>{<\/span>:error<\/span> <\/span>\"Missing authentication token\"<\/span>}))<\/span>\n\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>_<\/span> <\/span>handler<\/span>]<\/span>\n    <\/span>(<\/span>->AuthenticationHandler<\/span> <\/span>handler<\/span>)))<\/span>\n\n<\/span>;; === Authorization Handler ===<\/span>\n<\/span>(<\/span>defrecord<\/span> <\/span>AuthorizationHandler<\/span> <\/span>[<\/span>next-handler<\/span>]<\/span>\n  <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>]<\/span>\n    <\/span>(<\/span>if<\/span> <\/span>(<\/span>:authenticated<\/span> <\/span>request<\/span>)<\/span>\n      <\/span>(<\/span>if<\/span> <\/span>(<\/span>contains?<\/span> <\/span>(<\/span>:roles<\/span> <\/span>request<\/span>)<\/span> <\/span>:admin<\/span>)<\/span>\n        <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n          <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> \n                         <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:authorized<\/span> <\/span>true<\/span>))<\/span>\n          <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:authorized<\/span> <\/span>true<\/span>))<\/span>\n        <\/span>{<\/span>:error<\/span> <\/span>\"Insufficient permissions\"<\/span>})<\/span>\n      <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n        <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> <\/span>request<\/span>)<\/span>\n        <\/span>request<\/span>)))<\/span>\n\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>_<\/span> <\/span>handler<\/span>]<\/span>\n    <\/span>(<\/span>->AuthorizationHandler<\/span> <\/span>handler<\/span>)))<\/span>\n\n<\/span>;; === Validation Handler ===<\/span>\n<\/span>(<\/span>defrecord<\/span> <\/span>ValidationHandler<\/span> <\/span>[<\/span>next-handler<\/span>]<\/span>\n  <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>]<\/span>\n    <\/span>(<\/span>if<\/span> <\/span>(<\/span>and<\/span> <\/span>(<\/span>:data<\/span> <\/span>request<\/span>)<\/span>\n             <\/span>(<\/span>map?<\/span> <\/span>(<\/span>:data<\/span> <\/span>request<\/span>))<\/span>\n             <\/span>(<\/span>every?<\/span> <\/span>string?<\/span> <\/span>(<\/span>vals<\/span> <\/span>(<\/span>:data<\/span> <\/span>request<\/span>))))<\/span>\n      <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n        <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> \n                       <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:validated<\/span> <\/span>true<\/span>))<\/span>\n        <\/span>(<\/span>assoc<\/span> <\/span>request<\/span> <\/span>:validated<\/span> <\/span>true<\/span>))<\/span>\n      <\/span>{<\/span>:error<\/span> <\/span>\"Invalid request data format\"<\/span>}))<\/span>\n\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>_<\/span> <\/span>handler<\/span>]<\/span>\n    <\/span>(<\/span>->ValidationHandler<\/span> <\/span>handler<\/span>)))<\/span>\n\n<\/span>;; === Logging Handler ===<\/span>\n<\/span>(<\/span>defrecord<\/span> <\/span>LoggingHandler<\/span> <\/span>[<\/span>next-handler<\/span>]<\/span>\n  <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>]<\/span>\n    <\/span>(<\/span>println<\/span> <\/span>\"\\nProcessing request:\"<\/span>)<\/span>\n    <\/span>(<\/span>pp\/pprint<\/span> <\/span>(<\/span>dissoc<\/span> <\/span>request<\/span> <\/span>:handler<\/span>))<\/span>\n    <\/span>(<\/span>let<\/span> <\/span>[<\/span>response<\/span> <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n                    <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> <\/span>request<\/span>)<\/span>\n                    <\/span>request<\/span>)]<\/span>\n      <\/span>(<\/span>println<\/span> <\/span>\"\\nResponse:\"<\/span>)<\/span>\n      <\/span>(<\/span>pp\/pprint<\/span> <\/span>response<\/span>)<\/span>\n      <\/span>response<\/span>))<\/span>\n\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>_<\/span> <\/span>handler<\/span>]<\/span>\n    <\/span>(<\/span>->LoggingHandler<\/span> <\/span>handler<\/span>)))<\/span>\n\n<\/span>;; === Cache Handler ===<\/span>\n<\/span>(<\/span>def<\/span> <\/span>request-cache<\/span> <\/span>(<\/span>atom<\/span> <\/span>{}))<\/span>\n\n<\/span>(<\/span>defrecord<\/span> <\/span>CacheHandler<\/span> <\/span>[<\/span>next-handler<\/span>]<\/span>\n  <\/span>RequestHandler<\/span>\n  <\/span>(<\/span>handle-request<\/span> <\/span>[<\/span>this<\/span> <\/span>request<\/span>]<\/span>\n    <\/span>(<\/span>if-let<\/span> <\/span>[<\/span>cached<\/span> <\/span>(<\/span>@<\/span>request-cache<\/span> <\/span>(<\/span>:id<\/span> <\/span>request<\/span>))]<\/span>\n      <\/span>(<\/span>do<\/span>\n        <\/span>(<\/span>println<\/span> <\/span>\"Cache hit for request:\"<\/span> <\/span>(<\/span>:id<\/span> <\/span>request<\/span>))<\/span>\n        <\/span>cached<\/span>)<\/span>\n      <\/span>(<\/span>let<\/span> <\/span>[<\/span>response<\/span> <\/span>(<\/span>if<\/span> <\/span>next-handler<\/span>\n                      <\/span>(<\/span>handle-request<\/span> <\/span>next-handler<\/span> <\/span>request<\/span>)<\/span>\n                      <\/span>request<\/span>)]<\/span>\n        <\/span>(<\/span>when<\/span> <\/span>(<\/span>:id<\/span> <\/span>request<\/span>)<\/span>\n          <\/span>(<\/span>swap!<\/span> <\/span>request-cache<\/span> <\/span>assoc<\/span> <\/span>(<\/span>:id<\/span> <\/span>request<\/span>)<\/span> <\/span>response<\/span>))<\/span>\n        <\/span>response<\/span>)))<\/span>\n\n  <\/span>(<\/span>set-next<\/span> <\/span>[<\/span>_<\/span> <\/span>handler<\/span>]<\/span>\n    <\/span>(<\/span>->CacheHandler<\/span> <\/span>handler<\/span>)))<\/span>\n\n<\/span>;; === Request Processing ===<\/span>\n<\/span>(<\/span>defn<\/span> <\/span>build-chain<\/span> <\/span>[]<\/span>\n  <\/span>(<\/span>-><\/span> <\/span>(<\/span>->LoggingHandler<\/span> <\/span>nil<\/span>)<\/span>\n      <\/span>(<\/span>set-next<\/span> <\/span>(<\/span>->CacheHandler<\/span> <\/span>nil<\/span>))<\/span>\n      <\/span>(<\/span>set-next<\/span> <\/span>(<\/span>->AuthenticationHandler<\/span> <\/span>nil<\/span>))<\/span>\n      <\/span>(<\/span>set-next<\/span> <\/span>(<\/span>->AuthorizationHandler<\/span> <\/span>nil<\/span>))<\/span>\n      <\/span>(<\/span>set-next<\/span> <\/span>(<\/span>->ValidationHandler<\/span> <\/span>nil<\/span>))))<\/span>\n\n<\/span>;; === Example Usage ===<\/span>\n<\/span>(<\/span>defn<\/span> <\/span>run-examples<\/span> <\/span>[]<\/span>\n  <\/span>(<\/span>let<\/span> <\/span>[<\/span>chain<\/span> <\/span>(<\/span>build-chain<\/span>)]<\/span>\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Valid Admin Request ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-1\"<\/span>\n                    <\/span>:auth-token<\/span> <\/span>\"valid-token\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:admin<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>\"John\"<\/span>\n                          <\/span>\"action\"<\/span> <\/span>\"read\"<\/span>}})<\/span>\n\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Invalid Token ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-2\"<\/span>\n                    <\/span>:auth-token<\/span> <\/span>\"invalid-token\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:admin<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>\"John\"<\/span>}})<\/span>\n\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Missing Token ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-3\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:admin<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>\"John\"<\/span>}})<\/span>\n\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Insufficient Permissions ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-4\"<\/span>\n                    <\/span>:auth-token<\/span> <\/span>\"valid-token\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:user<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>\"John\"<\/span>}})<\/span>\n\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Invalid Data ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-5\"<\/span>\n                    <\/span>:auth-token<\/span> <\/span>\"valid-token\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:admin<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>123<\/span>}})<\/span>\n\n    <\/span>(<\/span>println<\/span> <\/span>\"\\n=== Cached Request ===\"<\/span>)<\/span>\n    <\/span>(<\/span>handle-request<\/span> <\/span>chain<\/span>\n                   <\/span>{<\/span>:id<\/span> <\/span>\"req-1\"<\/span>\n                    <\/span>:auth-token<\/span> <\/span>\"valid-token\"<\/span>\n                    <\/span>:roles<\/span> <\/span>#<\/span>{<\/span>:admin<\/span>}<\/span>\n                    <\/span>:data<\/span> <\/span>{<\/span>\"name\"<\/span> <\/span>\"John\"<\/span>\n                          <\/span>\"action\"<\/span> <\/span>\"read\"<\/span>}})))<\/span>\n\n\n<\/span>(<\/span>run-examples<\/span>)<\/span>\n<\/span><\/code><\/pre>\n
\n
\n    \u062d\u0627\u0644\u062a \u062a\u0645\u0627\u0645 \u0635\u0641\u062d\u0647 \u0631\u0627 \u0648\u0627\u0631\u062f \u06a9\u0646\u06cc\u062f<\/title>\n    \n<\/svg><\/p>\n
    \u0627\u0632 \u062d\u0627\u0644\u062a \u062a\u0645\u0627\u0645 \u0635\u0641\u062d\u0647 \u062e\u0627\u0631\u062c \u0634\u0648\u06cc\u062f<\/title>\n    \n<\/svg><\/p>\n<\/div>\n<\/div>\n<\/div><\/div>\n","protected":false},"excerpt":{"rendered":"
(ns chain-of-responsibility (:require [clojure.pprint :as pp])) ;; === Request Processing Chain === (defprotocol RequestHandler (handle-request [this request]) (set-next [this handler])) ;; === Authentication Handler === (defrecord AuthenticationHandler [next-handler] RequestHandler (handle-request [this request] (if-let [auth-token (:auth-token request)] (if (= auth-token “valid-token”) (if next-handler (handle-request next-handler (assoc request :authenticated true)) (assoc request :authenticated true)) {:error “Invalid authentication …<\/p>\n","protected":false},"author":2,"featured_media":97946,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"fifu_image_url":"https:\/\/media2.dev.to\/dynamic\/image\/width=1000,height=500,fit=cover,gravity=auto,format=auto\/https%3A%2F%2Fdev-to-uploads.s3.amazonaws.com%2Fuploads%2Farticles%2Fm0wrb9laph9xgxxq9f74.jpg","fifu_image_alt":"","footnotes":""},"categories":[339],"tags":[],"class_list":["post-97945","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-dev"],"_links":{"self":[{"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/posts\/97945","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/comments?post=97945"}],"version-history":[{"count":0,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/posts\/97945\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/media\/97946"}],"wp:attachment":[{"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/media?parent=97945"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/categories?post=97945"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/nabfollower.com\/blog\/wp-json\/wp\/v2\/tags?post=97945"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}