From 7752d73216578d5961751b5d0535088d384b4aa6 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Sat, 25 Jan 2025 10:45:41 +0100 Subject: Move λ-calcul workshop code to subdirectory MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- clojure/src/lccl/main.clj | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 clojure/src/lccl/main.clj (limited to 'clojure/src/lccl/main.clj') diff --git a/clojure/src/lccl/main.clj b/clojure/src/lccl/main.clj deleted file mode 100644 index 071d7c6..0000000 --- a/clojure/src/lccl/main.clj +++ /dev/null @@ -1,36 +0,0 @@ -(ns lccl.main - (:require [ring.adapter.jetty :as ring-jetty] - [clj-http.client :as client] - [lccl.app :as app] - [lccl.fwk.middlewares :as middlewares]) - (:gen-class)) - -(def TEAM_NAME "LCCL") -(def SELF_PORT 8888) -(def SELF_URL (str "http://127.0.0.1:" SELF_PORT)) -(def TESTER_URL "http://127.0.0.1:8080") - -(defn run-http-server! - [{:keys [dev-mode? server-options]}] - (let [create-handler-fn #(app/app-handler) - handler* (if dev-mode? - (middlewares/reloading-ring-handler create-handler-fn) - (create-handler-fn))] - (ring-jetty/run-jetty handler* server-options) - (println "Evaluateur à l'écoute sur le port" (:port server-options)))) - -(defn- run! [{dev-mode? :dev-mode?}] - (run-http-server! {:dev-mode? dev-mode? - :server-options {:join? false :port SELF_PORT}}) - (let [response (client/post (str TESTER_URL "/register") - {:body (str "{\"url\": \"" SELF_URL "/eval\", \"name\": \"" TEAM_NAME "\"}") - :content-type :json - :accept :json})] - (println "Résultat de l'enregistrement : " (:body response)))) - -(defn -main - [& _] - (run! {:dev-mode? false})) - -(comment - (run! {:dev-mode? true})) -- cgit v1.2.3