(in-package #:syntax-checker)
-; Rules
-; * Elements on new line in each form must be indented the same amount
-; * No space/newline after open parens
-; * No form longer than 50 lines
-; * Top level multiline forms must be separated by exactly one space
-; * No line longer than 120 characters
-; * No use of unexported symbols in other packages
-; * No tabs
-; * Only one space between elements in a form on a single line
-; * in-package must be first line in file unless file is package.lisp
-; * No whitespace at end of line
-; * No lines that are only whitespace
-; * No empty lines at end of file
-; * Never have two empty lines in a row
-; * Only one in-package per file
-; * No hanging close parens
-;
-; Exceptions
-; * comments
-; * multiline strings
-; * exclude in-package check from package.lisp
-
; Some thoughts
; - form starting reader macros will have to be hand added to this code
; - exceptions will eventually arise, and the rule file will have to be changed
(let ((seq (make-sequence sequence-type (file-length str)))) (read-sequence seq str) seq)))
(defun check-file (file)
+ "CHECK-FILE FILE => RESULT
+
+ RESULT: SUCCESS-RESULT | FAILURE-RESULT
+ SUCCESS-RESULT: (:success FILENAME)
+ FAILURE-RESULT: (:success FILENAME MSG LINE-NO COL-NO)
+
+ARGUMENTS AND VALUES:
+
+ FILE: a pathname
+ FILENAME: the file this check was run on
+ MSG: a string containing the failure message
+ LINE-NO: an integer, the line number on which the failure appeared
+ COL-NO: an integer, the column number on which the failure appeared
+
+DESCRIPTION:
+
+ CHECK-FILE runs all the checks against a file and returns
+ as soon as the first style error is found.
+
+EXAMPLES:
+
+ (check-file #P\"path/to/file.lisp\") => (:success \"path/to/file.lisp\")
+ (check-file #P\"path/to/error.lisp\") => (:failure \"path/to/error.lisp\" \"File cannot end with empty line\" 20 0)"
+
(if (string= "package" (pathname-name file))
(set-state :normal)
(set-state :begin))
(list :failure file (check-failure-msg cf) (check-failure-line-no cf) (check-failure-col-no cf)))))
(defun check-directory (dir)
+ "CHECK-DIRECTORY DIR => RESULTS
+
+ RESULTS: RESULT*
+
+ARGUMENTS AND VALUES:
+
+ DIR: A directory to recurse into and check files
+ RESULT: A result as returned by check-file
+
+DESCRIPTION:
+
+ CHECK-DIRECTORY grabs all .lisp files in the tree under DIR, and loads
+ checks them all.
+
+ The results are then put together into a list which can be programatically
+ evaluated. As opposed to pretty-print-check-directory, this function doesn't
+ clutter up your standard out."
(mapcar #'check-file (directory (format nil "~A/**/*.lisp" dir))))
(defun any-failures (checks)
(+ (fifth failure) 2)))
(defun pretty-print-check-directory (dir)
+ "PRETTY-PRINT-CHECK-DIRECTORY DIR => SUCCESS
+
+ARGUMENTS AND VALUES:
+
+ DIR: A directory to recurse into and check files
+ SUCCESS: T if there were no failures
+
+DESCRIPTION:
+
+ PRETTY-PRINT-CHECK-DIRECTORY checks DIR for any errors, dumping them to output
+ and returning a single flag.
+
+ Unlike check-directory, PRETTY-PRINT-CHECK-DIRECTORY is built for continuous
+ integration, dumping errors to standard out and returning a singular result.
+
+EXAMPLES:
+
+ (pretty-print-check-directory \"src\") => nil"
(let
((checks (check-directory dir)))
(format t "In ~A: Checked ~A files with ~A failures~%~%"