<commit_before>;; Copyright 2014 Red Hat, Inc, and individual contributors.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(ns ^:no-doc ^:internal immutant.web.internal
    (:require [immutant.web.undertow.http :as undertow]
              [immutant.internal.options  :refer [extract-options opts->set]])
    (:import org.projectodd.wunderboss.WunderBoss
             io.undertow.server.HttpHandler
             [org.projectodd.wunderboss.web Web Web$CreateOption Web$RegisterOption]
             javax.servlet.Servlet))

(def ^:internal default-context (.defaultValue Web$RegisterOption/CONTEXT_PATH))

(defn ^:internal server-name [opts]
  (str (.hashCode opts)))

(defn ^:internal server [opts]
  (if-let [server (:server opts)]
    server
    (WunderBoss/findOrCreateComponent Web
      (server-name (select-keys opts (opts->set Web$CreateOption)))
      (extract-options opts Web$CreateOption))))

(defn ^:internal mount [server handler opts]
  (let [opts (extract-options opts Web$RegisterOption)]
    (if (instance? Servlet handler)
      (.registerServlet server handler opts)
      (.registerHandler server
        (if (instance? HttpHandler handler)
          handler
          (undertow/create-http-handler handler))
        opts))))<commit_msg>Only short-circuit :server if it's the lone option<commit_after>;; Copyright 2014 Red Hat, Inc, and individual contributors.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(ns ^:no-doc ^:internal immutant.web.internal
    (:require [immutant.web.undertow.http :as undertow]
              [immutant.internal.options  :refer [extract-options opts->set]])
    (:import org.projectodd.wunderboss.WunderBoss
             io.undertow.server.HttpHandler
             [org.projectodd.wunderboss.web Web Web$CreateOption Web$RegisterOption]
             javax.servlet.Servlet))

(def ^:internal default-context (.defaultValue Web$RegisterOption/CONTEXT_PATH))

(defn ^:internal server-name [opts]
  (str (.hashCode opts)))

(defn ^:internal server [opts]
  (let [opts (select-keys opts (conj (opts->set Web$CreateOption) :server))]
    (if-let [server (and (= 1 (count opts)) (:server opts))]
      server
      (WunderBoss/findOrCreateComponent Web
        (server-name (dissoc opts :server))
        (extract-options opts Web$CreateOption)))))

(defn ^:internal mount [server handler opts]
  (let [opts (extract-options opts Web$RegisterOption)]
    (if (instance? Servlet handler)
      (.registerServlet server handler opts)
      (.registerHandler server
        (if (instance? HttpHandler handler)
          handler
          (undertow/create-http-handler handler))
        opts))))
{'fraction_non_alphanumeric': 0.11013698630136987, 'fraction_numerical': 0.004657534246575342, 'mean_word_length': 3.674775928297055, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6418483', 'n_tokens_mistral': 1028, 'n_tokens_neox': 999, 'n_words': 351}