Add optional jvm option to only check frame schema in development

Author: ovistoica

deps.edn

@@ -33,6 +33,9 @@
   :run {:main-opts ["-m" "simulflow.transport.local.audio"]
         :exec-fn simulflow.transport.local.audio/main}
   :dev {:extra-paths ["dev"]
+        ;; Check schema for each frame instantiation (not recommended in prod
+        ;; since many schemas are created)
+        :jvm-opts ["-Dsimulflow.frame.schema-checking=true"]
         :extra-deps {djblue/portal {:mvn/version "0.58.5"}
                      criterium/criterium {:mvn/version "0.4.6"}
                      clj-kondo/clj-kondo {:mvn/version "2024.11.14"}}}

src/simulflow/frame.clj

@@ -8,6 +8,14 @@
 
 (defrecord Frame [type data ts])
 
+(def check-frame-schema?
+  "Whether the schema of frames should be checked on schema creation. Use
+  alias :dev to make this true. Default false"
+  (try
+    (Boolean/parseBoolean (System/getProperty "simulflow.frame.schema-checking" "false"))
+    (catch Exception e
+      false)))
+
 (defn frame? [frame]
   (instance? Frame frame))
 
@@ -56,10 +64,11 @@
          (fn
            [data#]
            (let [frame# (create-frame ~type data#)]
-             (when-let [err# (me/humanize (m/explain ~frame-schema frame#))]
-               (throw (ex-info "Invalid frame data"
-                               {:error err#
-                                :frame frame#})))
+             (when check-frame-schema?
+               (when-let [err# (me/humanize (m/explain ~frame-schema frame#))]
+                 (throw (ex-info "Invalid frame data"
+                                 {:error err#
+                                  :frame frame#}))))
              frame#)))
 
        ;; Define the predicate function