proto default for read as well

alexy · Jul 14, 2010 · 89dae95 · 89dae95
1 parent 918a08e
commit 89dae95
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/invert.clj b/src/invert.clj
@@ -4,5 +4,9 @@
     (reduce (fn [inv [to dates]] (update-in inv [to from] #(into (or % []) dates))) inv reps)) 
     {} reps))
 
-;;  (time (def dments (invert-graph dreps)))
-(time (tokyo-agents-write-reps dments "dments.clb"))
+
+;; (time (do (def dreps (->> (tokyo (map (fn [[k v]] [k (into (sorted-map) v)])) (into {})))
+;; ))
+
+;; (time (def dments (invert-graph dreps)))
+;; (time (tokyo-agents-write-reps dments "dments.clb"))
diff --git a/src/tokyo-graph.clj b/src/tokyo-graph.clj
@@ -11,8 +11,9 @@
 (defn errln [ & args]
   (doto System/err (.println (apply str args)) .flush))
 
-(defn tokyo-read-reps [proto db-pathname & [str-load?]]
+(defn tokyo-read-reps [db-pathname & [proto str-load?]]
   (let [
+    proto (or proto Repliers)
     init-params (let [par {:path db-pathname :read-only true}]
       (if str-load? par 
         (merge par {:dump protobuf-dump :load (partial protobuf-load proto)})))