Coverage report: /home/ellis/comp/core/lib/syn/pkg.lisp

KindCoveredAll%
expression012 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; lib/syn/pkg.lisp --- Syn Packages
2
 
3
 ;; Syntax Processors
4
 
5
 ;;; Commentary:
6
 
7
 ;;; Code:
8
 (defpackage :syn/ts
9
   (:use :cl :std :tree-sitter)
10
   (:export 
11
    :parse-file
12
    :lang-counts))
13
 
14
 (defpackage :syn/lang
15
   (:use :cl :std)
16
   (:export :language :lang :*language*))
17
 
18
 (defpackage :syn/gen
19
   (:use :cl :std :doc :id :graph :sxp :ast)
20
   (:export :gen-designator :gen-condition :gen-condition
21
    :simple-gen-error :defsyntax
22
    :function-call :src-location
23
    :ident :str-literal
24
    :num-literal :char-literal
25
    :load-gen :init-gen
26
    :*gen* :*gen-designators*
27
    :*cl-symbols* :*code-reader*
28
    :*backup-readtable* :define-code-switches
29
    :define-code-switch :print-code
30
    :define-code-processor :define-code-reader
31
    ;; :make-nodes :make-node
32
    :build-swap-package
33
    :build-context-switches :*gen-warnings*
34
    :ast-traverser :with-code-printer
35
    :define-code-printer :delete-code-printer
36
    :write-code :*code-dispatch-table*
37
    :code-printer :with-code-printer 
38
    :++indent :--indent 
39
    :stream :node
40
    :indent :pop-sign 
41
    :top-sign :push-sign 
42
    :find-sign :node-slot
43
    :pop-info :top-info 
44
    :push-info :find-info
45
    :make-proxy :del-proxy :info-size :empty
46
    :quoty
47
    :%level
48
    :%self
49
    :gen-reader
50
    :gen-reader-switch
51
    :gen-package
52
    :unload-gen
53
    :with-codegen
54
    :*indent*
55
    :tag
56
    :gen
57
    :lisp))
58
 
59
 (defpackage :syn/lint
60
   (:use :cl :std)
61
   (:export :lint))
62
 
63
 (defpackage :syn/tempo
64
   (:use :cl :std :syn/ts :syn/lang :syn/gen))
65
 
66
 (pkg:defpkg :syn
67
   (:use :cl :std)
68
   (:use-reexport :syn/lint :syn/ts :syn/lang :syn/gen :syn/tempo))
69
 
70
 (defpackage :syn/cli
71
   (:use :cl :std :syn :cli :clap :log)
72
   (:export :*syn-cli*
73
            :*gen-cli*))
74
 
75
 (in-package :syn)
76
 (in-package :syn/lang)
77
 (defclass language () ())
78
 (defgeneric lang (self))
79
 (sb-ext:define-load-time-global *language* nil)