Skip to content

Instantly share code, notes, and snippets.

@eerohele

eerohele/cpp-vs-pp.diff

Last active October 2, 2023 21:06
Show Gist options
  • Save eerohele/08e628ea9713c2e3e89df26f144c4edd to your computer and use it in GitHub Desktop.
Save eerohele/08e628ea9713c2e3e89df26f144c4edd to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cpp-vs-pp.diff
--- /var/folders/r_/pv69pzqn2gd02b4d0hq617hm0000gq/T/pp/cpp.clj 2023-10-03 00:05:14
+++ /var/folders/r_/pv69pzqn2gd02b4d0hq617hm0000gq/T/pp/pp.clj 2023-10-03 00:05:14
@@ -26,9 +26,7 @@
(conj v (name spec))
(let
[p (first spec) cs (rest spec)]
- (into1
- v
- (map (fn* [p1__45589#] (str p "." p1__45589#)) cs)))))
+ (into1 v (map (fn* [p1__45589#] (str p "." p1__45589#)) cs)))))
[]
specs))))))
(defn
@@ -78,9 +76,7 @@
fs))
([x y z]
(reduce1
- (fn*
- [p1__45614# p2__45615#]
- (conj p1__45614# (p2__45615# x y z)))
+ (fn* [p1__45614# p2__45615#] (conj p1__45614# (p2__45615# x y z)))
[]
fs))
([x y z & args]
@@ -209,9 +205,7 @@
(fn
[[m s]]
(map
- (fn*
- [p1__45626#]
- (overload-name m (map the-class p1__45626#)))
+ (fn* [p1__45626#] (overload-name m (map the-class p1__45626#)))
s))
overloads)
(mapcat (comp (partial map str) vals val) exposes))))
@@ -290,9 +284,7 @@
end-label
(. gen (newLabel))]
(add-annotations gen (meta name))
- (dotimes
- [i (count pmetas)]
- (add-annotations gen (nth pmetas i) i))
+ (dotimes [i (count pmetas)] (add-annotations gen (nth pmetas i) i))
(. gen (visitCode))
(if
(> (count pclasses) 18)
@@ -511,11 +503,7 @@
gen
(invokeInterface
ifn-type
- (new
- Method
- "invoke"
- obj-type
- (arg-types (inc (count ptypes))))))
+ (new Method "invoke" obj-type (arg-types (inc (count ptypes))))))
(. gen pop)
(. gen goTo end-post-init-label)
(. gen mark no-post-init-label)
@@ -724,8 +712,7 @@
(if
(.map cache)
(let
- [cs
- (assoc (.map cache) c (clojure.lang.MethodImplCache$Entry. c f))]
+ [cs (assoc (.map cache) c (clojure.lang.MethodImplCache$Entry. c f))]
(clojure.lang.MethodImplCache.
(.sym cache)
(.protocol cache)
@@ -952,8 +939,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'meta__45668__auto__)
+ (clojure.core/list 'meta__45668__auto__)
gargs)))
(clojure.core/list
(clojure.core/seq
@@ -963,8 +949,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'f__45667__auto__)
+ (clojure.core/list 'f__45667__auto__)
gargs)))
(clojure.core/list
(clojure.core/seq
@@ -1052,8 +1037,7 @@
"params => positional-params*, or positional-params* & rest-param\n positional-param => binding-form\n rest-param => binding-form\n binding-form => name, or destructuring-form\n\n Defines a function.\n\n See https://clojure.org/reference/special_forms#fn for more information"
{:added "1.0",
:special-form true,
- :forms
- '[(fn name? [params*] exprs*) (fn name? ([params*] exprs*) +)]}
+ :forms '[(fn name? [params*] exprs*) (fn name? ([params*] exprs*) +)]}
[& sigs]
(let
[name
@@ -2081,8 +2065,7 @@
(clojure.core/seq
(clojure.core/concat
(clojure.core/list 'deftype*)
- (clojure.core/list
- (symbol (name (ns-name *ns*)) (name tagname)))
+ (clojure.core/list (symbol (name (ns-name *ns*)) (name tagname)))
(clojure.core/list classname)
(clojure.core/list
(conj hinted-fields '__meta '__extmap '__hash '__hasheq))
@@ -2099,8 +2082,7 @@
[[proto mmap] (partition 2 proto+mmaps)]
(when-not
(protocol? proto)
- (throw
- (IllegalArgumentException. (str proto " is not a protocol"))))
+ (throw (IllegalArgumentException. (str proto " is not a protocol"))))
(when
(implements? proto atype)
(throw
@@ -2121,10 +2103,7 @@
(symbol (str (munge (namespace-munge *ns*)) "." (munge name)))
[opts sigs]
(loop
- [opts
- {:on (list 'quote iname), :on-interface iname}
- sigs
- opts+sigs]
+ [opts {:on (list 'quote iname), :on-interface iname} sigs opts+sigs]
(condp
(fn* [p1__45811# p2__45812#] (p1__45811# p2__45812#))
(first sigs)
@@ -2429,8 +2408,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'clojure.core/nanoTime)))))))
+ (clojure.core/list 'clojure.core/nanoTime)))))))
(clojure.core/list 'start__45820__auto__)))))))
(clojure.core/list 1000000.0))))
(clojure.core/list " msecs")))))))
@@ -2450,17 +2428,12 @@
more
(let
[w (first more) kw (k w)]
- (if
- (>= kw kv)
- (recur w kw (next more))
- (recur v kv (next more))))
+ (if (>= kw kv) (recur w kw (next more)) (recur v kv (next more))))
v)))))
(defmacro
loop
"Evaluates the exprs in a lexical context in which the symbols in\n the binding-forms are bound to their respective init-exprs or parts\n therein. Acts as a recur target."
- {:added "1.0",
- :special-form true,
- :forms '[(loop [bindings*] exprs*)]}
+ {:added "1.0", :special-form true, :forms '[(loop [bindings*] exprs*)]}
[bindings & body]
(assert-args
(vector? bindings)
@@ -2549,8 +2522,7 @@
(when
(contains? (ta tag) parent)
(throw
- (Exception.
- (print-str tag "already has" parent "as ancestor"))))
+ (Exception. (print-str tag "already has" parent "as ancestor"))))
(when
(contains? (ta parent) tag)
(throw
@@ -2587,9 +2559,7 @@
[shift
mask
(case-map
- (fn*
- [p1__45860#]
- (shift-mask shift mask (hashcode p1__45860#)))
+ (fn* [p1__45860#] (shift-mask shift mask (hashcode p1__45860#)))
identity
tests
thens)
@@ -2968,8 +2938,7 @@
(clojure.core/list '.nth)
(clojure.core/list
'c__45879__auto__)
- (clojure.core/list
- gi))))))))
+ (clojure.core/list gi))))))))
(clojure.core/list
(do-cmod mod-pairs)))))
(clojure.core/list 'true)))))))
@@ -2981,8 +2950,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'clojure.core/chunk)
+ (clojure.core/list 'clojure.core/chunk)
(clojure.core/list gb))))
(clojure.core/list
(clojure.core/seq
@@ -3002,8 +2970,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'clojure.core/chunk)
+ (clojure.core/list 'clojure.core/chunk)
(clojure.core/list gb))))
(clojure.core/list 'nil))))))))))
(clojure.core/list
@@ -3053,10 +3020,7 @@
more
(let
[w (first more) kw (k w)]
- (if
- (<= kw kv)
- (recur w kw (next more))
- (recur v kv (next more))))
+ (if (<= kw kv) (recur w kw (next more)) (recur v kv (next more))))
v)))))
(defn
every-pred
@@ -3119,9 +3083,7 @@
([] true)
([x] (every? (fn* [p1__45890#] (p1__45890# x)) ps))
([x y]
- (every?
- (fn* [p1__45891#] (and (p1__45891# x) (p1__45891# y)))
- ps))
+ (every? (fn* [p1__45891#] (and (p1__45891# x) (p1__45891# y))) ps))
([x y z]
(every?
(fn*
@@ -3204,10 +3166,7 @@
(clojure.core/list gseq))))
ret)
firstb
- (if
- has-rest
- gfirst
- (list 'clojure.core/nth gvec n nil)))
+ (if has-rest gfirst (list 'clojure.core/nth gvec n nil)))
(inc n)
(next bs)
seen-rest?))))
@@ -3392,16 +3351,7 @@
([x] (or (p1 x) (p2 x) (p3 x)))
([x y] (or (p1 x) (p1 y) (p2 x) (p2 y) (p3 x) (p3 y)))
([x y z]
- (or
- (p1 x)
- (p1 y)
- (p1 z)
- (p2 x)
- (p2 y)
- (p2 z)
- (p3 x)
- (p3 y)
- (p3 z)))
+ (or (p1 x) (p1 y) (p1 z) (p2 x) (p2 y) (p2 z) (p3 x) (p3 y) (p3 z)))
([x y z & args]
(or
(sp3 x y z)
@@ -3445,8 +3395,7 @@
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
- (clojure.core/list
- 'clojure.lang.LockingTransaction/isRunning))))
+ (clojure.core/list 'clojure.lang.LockingTransaction/isRunning))))
(clojure.core/list
(clojure.core/seq
(clojure.core/concat
@@ -3651,9 +3600,7 @@
(. gen (endMethod)))
(let
[m
- (.
- Method
- (getMethod "void readObject(java.io.ObjectInputStream)"))
+ (. Method (getMethod "void readObject(java.io.ObjectInputStream)"))
gen
(new GeneratorAdapter (. Opcodes ACC_PRIVATE) m nil nil cv)]
(. gen (visitCode))
@@ -3704,8 +3651,7 @@
[m
(.
Method
- (getMethod
- "clojure.lang.IPersistentMap __getClojureFnMappings()"))
+ (getMethod "clojure.lang.IPersistentMap __getClojureFnMappings()"))
gen
(new GeneratorAdapter (. Opcodes ACC_PUBLIC) m nil nil cv)]
(. gen (visitCode))
@@ -3743,9 +3689,7 @@
(or
(considered mk)
(not
- (or
- (Modifier/isPublic mods)
- (Modifier/isProtected mods)))
+ (or (Modifier/isPublic mods) (Modifier/isProtected mods)))
(. Modifier (isStatic mods))
(. Modifier (isFinal mods))
(= "finalize" (.getName meth)))
@@ -3841,9 +3785,7 @@
[prefix kvs print-one w]
(print-sequential
(str prefix "{")
- (fn
- [[k v] w]
- (do (print-one k w) (.append w \space) (print-one v w)))
+ (fn [[k v] w] (do (print-one k w) (.append w \space) (print-one v w)))
", "
"}"
kvs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment