diff options
author | Eduardo Julian | 2019-04-12 21:47:02 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-04-12 21:47:02 -0400 |
commit | d2d6e69133ccfe7b2ee1723d1785e8cb3458678d (patch) | |
tree | 58868bcd846167022cd151f165836912d9ef45bc /stdlib/source | |
parent | f2937706edb6887c5eb1a6a0b6668b1334f5ef3b (diff) |
Added some debugging machinery.
Diffstat (limited to 'stdlib/source')
-rw-r--r-- | stdlib/source/lux/debug.lux | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/stdlib/source/lux/debug.lux b/stdlib/source/lux/debug.lux new file mode 100644 index 000000000..63a46aff4 --- /dev/null +++ b/stdlib/source/lux/debug.lux @@ -0,0 +1,75 @@ +(.module: + [lux #* + [data + ["." text + format] + [collection + ["." array (#+ Array)] + ["." list ("#@." functor)]]] + [macro + ["." template]] + ["." host (#+ import:)]]) + +(import: #long java/lang/String) + +(import: #long (java/lang/Class a) + (getCanonicalName [] java/lang/String)) + +(import: #long java/lang/Object + (new []) + (toString [] java/lang/String) + (getClass [] (java/lang/Class java/lang/Object))) + +(import: #long java/lang/Integer + (longValue [] java/lang/Long)) + +(import: #long java/lang/Long + (intValue [] java/lang/Integer)) + +(import: #long java/lang/Number + (intValue [] java/lang/Integer) + (longValue [] long) + (doubleValue [] double)) + +(def: #export (inspect value) + (-> Any Text) + (let [object (:coerce java/lang/Object value)] + (`` (<| (~~ (template [<class> <processing>] + [(case (host.check <class> object) + (#.Some value) + (`` (|> value (~~ (template.splice <processing>)))) + #.None)] + + [java/lang/Boolean [%b]] + [java/lang/String [%t]] + [java/lang/Long [.int %i]] + [java/lang/Number [java/lang/Number::doubleValue %f]] + )) + (case (host.check (Array java/lang/Object) object) + (#.Some value) + (let [value (:coerce (Array java/lang/Object) value)] + (case (array.read 0 value) + (^multi (#.Some tag) + [(host.check java/lang/Integer tag) + (#.Some tag)] + [[(array.read 1 value) + (array.read 2 value)] + [last? + (#.Some choice)]]) + (let [last? (case last? + (#.Some _) #1 + #.None #0)] + (|> (format (%n (.nat (java/lang/Integer::longValue tag))) + " " (%b last?) + " " (inspect choice)) + (text.enclose ["(" ")"]))) + + _ + (|> value + array.to-list + (list@map inspect) + (text.join-with " ") + (text.enclose ["[" "]"])))) + #.None) + (java/lang/Object::toString object))) + )) |