Ben / Nujel

;;; Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
;;; This project uses the MIT license, a copy should be included under /LICENSE
;;;
;;; Introspection and procedures returning info about the runtime

[defn describe/closure [c i]
      [require :ansi]
      [when c
            [if [= c root-closure]
                [cat [cat [int [or i 0]] "# <root environment>"]
                     "\r\n"]
                [do [def data [closure/data c]]
                    [def l [length data]]
                  [cat [ansi/blue [int [or i 0]] "# "]
                       [ansi/green [string/write c]]
                       " - "
                       [ansi/yellow [resolve '*module* c]]
                       " - "
                       [if [< l 16]
                           [string/write data]
                           "-+- Very big tree structure -+-"]
                       "\r\n"
                       [describe/closure [closure/caller c] [+ [int [or i 0]] 1]]]]]]]

[defn stacktrace []
      [print [describe/closure [closure/caller [current-lambda]]]]]

[defn print/error/wrap [i v]
      [require :ansi]
      [case i
            [0 [ansi/red v]]
            [2 [string/write v]]
            [3 [describe/closure v]]
            [otherwise [string v]]]]

[defn print/error/iter [error i]
      [if error
          [cons [print/error/wrap i [car error]]
                [print/error/iter [cdr error] [+ 1 i]]]
          [cons "" #nil]]]

[defn print/error [error]
      "Display ERROR in a nice, human readable way"
      [print [join [print/error/iter error 0] "\r\n"]]]

[defn closure/documentation [o]
      [meta o :documentation]]

[defn describe/thing [o]
      "Describe a specific value O"
      [def documentation [closure/documentation o]]
      [def arguments [closure/arguments o]]
      [fmt "{arguments:?} - {documentation}"]]

[defn describe/string [a]
      "Descibe whatever value string A resolves to"
      [describe/thing [resolve [string->symbol a]]]]

[defn describe [fun] "Describe FUN, if there is documentation available"
      [if [string? fun]
          [describe/string fun]
          [describe/thing fun]]]

[defn symbol-table [off len environment]
      "Return a list of LEN symbols defined in ENVIRONMENT starting at OFF"
      [when-not environment [set! environment root-closure]]
      [when-not off [set! off 0]]
      [when-not len [set! len 9999999]]
      [sublist [eval-in environment '[symbol-table*]] off [+ off len] #nil]]

[def gensym/counter 0]
[defn gensym [prefix]
      [inc! gensym/counter]
      [string->symbol [cat prefix "ΓεnΣym-" gensym/counter]]]

[def root-closure [current-closure]]