Reformat some namespaces

helins · Mar 26, 2021 · aa1b551 · aa1b551
1 parent 643c4fd
commit aa1b551
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 60 deletions.
diff --git a/src/main/dvlopt/dsim.cljc b/src/main/dvlopt/dsim.cljc
@@ -27,8 +27,7 @@
                                               :cljs :refer-macros) [?]]
             [dvlopt.rktree        :as rktree]
             [dvlopt.void          :as void])
-  #?(:clj (:import (clojure.lang ExceptionInfo
-                                 PersistentQueue))))
+  #?(:clj (:import clojure.lang.PersistentQueue)))
 
 
 ;;;;;;;;;; API structure (searchable for easy navigation)
@@ -44,8 +43,6 @@
 ;; @[fdat]    Serialization of whole contexts (events and flows included) via the `dvlopt.fdat` library
 
 
-
-
 ;;;;;;;;;; MAYBEDO
 
 
@@ -97,7 +94,6 @@
 
 
 
-
 (defn queue?
 
   "Is `x` a persistent queue?
@@ -1881,7 +1877,7 @@
    - wq-replay
    - wq-sreplay
   
-   [https://github.com/dvlopt/fdat.cljc](https://github.com/dvlopt/fdat.cljc)"
+   [https://github.com/helins/fdat.cljc](https://github.com/helins/fdat.cljc)"
 
   [-sampler
    finite

diff --git a/src/main/dvlopt/dsim/util.cljc b/src/main/dvlopt/dsim/util.cljc
@@ -8,11 +8,7 @@
   "Utilities, the user should not be bothered by this."
 
   {:author "Adam Helinski"
-   :no-doc true}
-
-  (:require [dvlopt.void :as void]))
-
-
+   :no-doc true})
 
 
 ;;;;;;;;;; Collections
@@ -42,7 +38,6 @@
 
 
 
-
 (defn assoc-shortest
 
   ;; Associates `leaf` at `path` only if `path` is shorter than the tree. 
@@ -67,7 +62,6 @@
 
 
 
-
 ; (defn merge-shortest
 ; 
 ;   ""
@@ -99,7 +93,6 @@
 
 
 
-
 (defn pop-stack
 
   ;; Given a stack in a map, pops and element and dissociates the stack if it is now empty.

diff --git a/src/test/dvlopt/dsim/test.cljc b/src/test/dvlopt/dsim/test.cljc
@@ -19,8 +19,6 @@
                             ByteArrayOutputStream))))
 
 
-
-
 ;;;;;;;;;; Transit ser/de for testing that ctxs are indeed serializable
 
 
@@ -42,7 +40,6 @@
 
 
 
-
 (defn deserialize
 
   "Deserializes using Transit."
@@ -57,7 +54,6 @@
 
 
 
-
 (fdat/register dsim/serializable)
 
 
@@ -76,7 +72,6 @@
           (meta b))))
 
 
-
 ;;;;;;;;;; Time utilities
 
 
@@ -100,8 +95,6 @@
 
 
 
-
-
 ;;;;;;;;;; Scaling numerical values
 
 
@@ -185,7 +178,6 @@
 
 
 
-
 (t/deftest minmax-norm
 
 
@@ -200,8 +192,6 @@
     100 1))
 
 
-
-
 ;;;;;;;;; Generalities about contextes
 
 
@@ -227,8 +217,6 @@
                                  15)))))
 
 
-
-
 ;;;;;;;;;; Events, flows, and utilities needed for testing engines
 
 
@@ -364,8 +352,6 @@
        n))))
 
 
-
-
 ;; <!> Not forgetting to register our functions
 
 (fdat/register [-event-inc
@@ -379,8 +365,6 @@
                 stateless-pred?])
 
 
-
-
 ;;;;;;;;;; Adding, removing, and modifying events
 ;;
 ;;
@@ -404,7 +388,6 @@
 
 
 
-
 (t/deftest e-assoc
 
 
@@ -425,7 +408,6 @@
 
 
 
-
 (t/deftest e-conj
 
 
@@ -477,7 +459,6 @@
 
 
 
-
 (t/deftest e-into
 
 
@@ -544,7 +525,6 @@
 
 
 
-
 (t/deftest e-isolate
 
 
@@ -569,7 +549,6 @@
 
 
 
-
 (t/deftest e-push
 
 
@@ -631,8 +610,6 @@
           "In the event tree to a queue")))
 
 
-
-
 ;;;;;;;;;; Basic engines
 
 
@@ -652,12 +629,12 @@
           engine-2))))
 
 
+
 (def history
      (historic (dsim/basic-engine)))
 
 
 
-
 (t/deftest basic-engine
 
   (t/is (= '()
@@ -687,7 +664,6 @@
           "Respecting order of events")))
 
 
-
 ;;;;;;;;;; Discrete-Event Engines
 
 
@@ -702,7 +678,6 @@
 
 
 
-
 (defn ctx-jump
 
   [n]
@@ -713,7 +688,6 @@
 
 
 
-
 (defn eager-periodicity
 
   "Adds the same event n times with a time interval of 1."
@@ -732,7 +706,6 @@
 
 
 
-
 (def history-DE
      (historic (dsim/ptime-engine {::dsim/before (fn before [ctx]
                                                    (update ctx
@@ -744,7 +717,6 @@
                                                            inc))})))
 
 
-
 (t/deftest ptime-engine
 
   (t/is (= '()
@@ -794,7 +766,6 @@
 
 
 
-
 (t/deftest error-handling
 
   (let [q-failing   (dsim/queue event-inc
@@ -825,7 +796,6 @@
 
 
 
-
 (t/deftest stop
 
   (t/is (= (ctx-jump 1)
@@ -840,7 +810,6 @@
           "Stopping everything"))
 
 
-
 ;;;;;;;;;; Working queues
 ;;
 ;;
@@ -878,7 +847,6 @@
 
 
 
-
 (t/deftest wq-exec
 
 
@@ -898,7 +866,6 @@
 
 
 
-
 (t/deftest wq-replay
 
 
@@ -937,7 +904,6 @@
 
 
 
-
 (t/deftest wq-sreplay
 
   (t/is (= [:out :in :in :out :out :in :in :out]
@@ -956,8 +922,6 @@
         "An inner loop within an outer one"))
 
 
-
-
 ;;;;;;;;;; Flows
 
 
@@ -971,7 +935,6 @@
 
 
 
-
 (t/deftest infinite
 
   (let [n   100
@@ -993,7 +956,6 @@
 
 
 
-
 (t/deftest sampled-finite
 
   ;; Tests `finite` as well.
@@ -1052,7 +1014,6 @@
 
 
 
-
 (t/deftest sampler
 
   ;; Tests `finite` as well.

diff --git a/src/test/dvlopt/dsim/test/util.cljc b/src/test/dvlopt/dsim/test/util.cljc
@@ -11,8 +11,6 @@
             [dvlopt.dsim.util :as dsim.util]))
 
 
-
-
 ;;;;;;;;;; Handling trees
 
 
@@ -41,7 +39,6 @@
 
 
 
-
 ; (t/deftest merge-shortest
 ; 
 ; 

diff --git a/transit/src/main/dvlopt/dsim/transit.cljc b/transit/src/main/dvlopt/dsim/transit.cljc
@@ -20,8 +20,6 @@
   #?(:clj (:import clojure.lang.PersistentQueue)))
 
 
-
-
 ;;;;;;;;;;
 
 
@@ -39,7 +37,6 @@
 
 
 
-
 (defn writer-options
 
   "Options for writers. Contains `:handlers` but also the `:transform`.