Implement Precedence
[clnl] / bin / all.lisp
1 (setf *compile-print* nil)
2 (require 'asdf)
3 (asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
4 (asdf:load-system :clnl)
5 (asdf:load-system :clnl-test)
6 #-travis(asdf:load-system :style-checker)
7 #-travis(asdf:load-system :docgen)
8
9 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
10 (when (not (clnl-test:run-all-tests))
11  (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc)
12  (sb-ext:exit :code 1))
13
14 (when (not (find-package :syntax-checker)) (asdf:load-system :style-checker))
15 (format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc)
16 (when (not (syntax-checker:pretty-print-check-directory "src"))
17  (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
18  (sb-ext:exit :code 1))
19 (format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
20
21 (when (not (find-package :docgen)) (asdf:load-system :docgen))
22 (format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
23 (when (not (docgen:pretty-print-validate-packages
24             :clnl :clnl-parser :clnl-random :clnl-transpiler :clnl-nvm :clnl-lexer :clnl-interface :clnl-cli :clnl-model :clnl-code-parser))
25  (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
26  (sb-ext:exit :code 1))
27 (format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
28
29 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
30 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
31 (sb-ext:exit :code 0)