mirror of
https://github.com/penpot/penpot.git
synced 2026-11-01 15:40:41 +00:00
2876c92952
shadow boots exporter.main/main now: the browser pool starts through the system, with reload hooks on its dev metadata and the old app.core reload path commented out. The entry installs the process handlers (idempotent, on start rather than on load) and enables info logging for the exporter tree, without which the default level filters everything below fatal. Service params go unqualified: the top-level key already scopes the component. AI-assisted-by: muse-spark-1.3-contributor
97 lines
3.4 KiB
Clojure
97 lines
3.4 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns app.core
|
|
(:require
|
|
["node:process" :as proc]
|
|
["node:worker_threads" :as wt]
|
|
[app.browser :as bwr]
|
|
[app.common.logging :as l]
|
|
[app.config :as cf]
|
|
[app.consumer.config :as ccfg]
|
|
[app.consumer.worker :as worker]
|
|
[app.jobs.utils :as job.utils]
|
|
[app.wasm :as wasm]
|
|
[app.wasm.pool :as wasm.pool]
|
|
[app.wasm.worker :as wasm.worker]
|
|
[promesa.core :as p]))
|
|
|
|
(enable-console-print!)
|
|
(l/setup! {:app :info})
|
|
|
|
(defn start
|
|
"Render workers run this same bundle, so the thread decides what gets booted:
|
|
one render worker, or the single role of the main thread: consuming the
|
|
backend's export queue."
|
|
[& _]
|
|
(if-not ^boolean wt/isMainThread
|
|
(wasm.worker/main)
|
|
(do
|
|
(l/info :msg "initializing"
|
|
:public-uri (str (cf/get :public-uri))
|
|
:internal-uri (str (cf/get-internal-uri))
|
|
:workers (ccfg/concurrency)
|
|
:version (:full cf/version))
|
|
(l/info :msg "headless wasm export available"
|
|
:wasm-dir wasm/artifact-dir
|
|
:image-cache-size (cf/get :wasm-worker-image-cache-size))
|
|
(p/do
|
|
(bwr/init)
|
|
(job.utils/clean-orphans)
|
|
(wasm.pool/init)
|
|
(worker/start)))))
|
|
|
|
(def main start)
|
|
|
|
;; Old hot reload path, superseded by exporter.main: the shadow entry
|
|
;; point moved to exporter.main/main and the reload hooks ride its
|
|
;; ^:dev metadata. Kept visible until app.* is fully ported.
|
|
;; Draining a pool waits for every checked-out resource to come back, which an
|
|
;; export in flight can hold for as long as its own timeout. On a hot reload
|
|
;; that would block `start` from ever running again, leaving a drained pool that
|
|
;; fails every later job.
|
|
#_(def ^:private shutdown-step-timeout 3000)
|
|
|
|
#_(defn- shutdown-step
|
|
[label f]
|
|
(-> (p/race [(p/do (f))
|
|
(p/fmap (constantly ::timeout) (p/delay shutdown-step-timeout))])
|
|
(p/handle (fn [result cause]
|
|
(when (or (some? cause) (= ::timeout result))
|
|
(l/warn :hint "shutdown step did not finish cleanly"
|
|
:step label
|
|
:cause cause))
|
|
nil))))
|
|
|
|
#_(defn stop
|
|
[done]
|
|
;; an empty line for visual feedback of restart
|
|
(js/console.log "")
|
|
|
|
(if-not ^boolean wt/isMainThread
|
|
;; A render worker owns no server, pools or connections; nothing to unwind.
|
|
(done)
|
|
(do
|
|
(l/info :msg "stopping")
|
|
(p/do
|
|
(shutdown-step "browser-pool" bwr/stop)
|
|
(shutdown-step "wasm-worker-pool" wasm.pool/stop)
|
|
;; the pollers own their connections and may sit in a blocking
|
|
;; pop for the whole poll timeout; draining the pools first lets
|
|
;; the exports in flight unwind against their own resources
|
|
(shutdown-step "consumer-worker" worker/stop)
|
|
(done)))))
|
|
|
|
(.on proc/default "uncaughtException"
|
|
(fn [cause]
|
|
(js/console.error cause)))
|
|
|
|
;; Signals are only delivered to the main thread, and `exit` in a worker would
|
|
;; take down that worker rather than the process.
|
|
(when ^boolean wt/isMainThread
|
|
(.on proc/default "SIGTERM" (fn [] (proc/exit 0)))
|
|
(.on proc/default "SIGINT" (fn [] (proc/exit 0))))
|