elsa-check.el

(require 'eieio)
(eval-and-compile (setq eieio-backward-compatibility nil))

(require 'dash)

(require 'elsa-reader)
(require 'elsa-scope)

(defclass elsa-check () () :abstract t
  :documentation
  "A check is essentially a callback run at every node of the AST.

A check has to implement two methods:

- `elsa-check-should-run' to decide if the check should process
  the current node.
- `elsa-check-check' which performs the actual computation.")

;; (elsa-checks :: (list (class elsa-check)))
(defvar elsa-checks nil)

(cl-defgeneric elsa-check-should-run ((this elsa-check) (form elsa-form) (scope elsa-scope) (state elsa-state))
  "Decide if the check should run on FORM."
  nil)

(cl-defgeneric elsa-check-check ((this elsa-check) (form elsa-form) (scope elsa-scope) (state elsa-state))
  "Run THIS check on FORM in SCOPE."
  nil)

(provide 'elsa-check)