gistfile1.txt

(defn- ->parsefn [type]
  (let [name (-> (str "cis->" type)
                 symbol)
        f (-> (str ".read" type)
              symbol)]
    (intern *ns* name #(f %))))

(defn- ->writefn [type]
  (let [name (-> (str "write-" type)
                 symbol)
        f (-> (str ".write" type)
              symbol)]
    (intern *ns* name
            (fn [tag value os]
              (when value
                (f os tag value))))))

(defn- ->sizefn [type]
  (let [name (-> (str "size-" type)
                 symbol)
        f (-> (str "CodedOutputStream/compute" type "Size")
              symbol)]
    (intern *ns* name
            (fn [tag value]
              (if value
                (f tag value)
                0)))))

(def scalars
  ["Bool"
   "Bytes"
   "Double"
   "Enum"
   "Fixed32"
   "Fixed64"
   "Float"
   "Int32"
   "Int64"
   "SFixed32"
   "SFixed64"
   "SInt32"
   "SInt64"
   "String"
   "UInt32"
   "UInt64"])

(doseq [scalar scalars]
  (->parsefn scalar)
  (->writefn scalar)
  (->sizefn scalar))