simon/squirrel-parse
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

#7: Sort of done.

Browse source 
Not proud of this. It prints errors to STDOUT, but does not return a sensible value. However, it will do for now.
This commit is contained in:
Simon Brooke 2018-03-20 13:40:04 +00:00
parent 8e63f4b6c9
commit 12424d7099
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/squirrel_parse/validator.clj
View file

@ -33,15 +33,19 @@
;; OK, so: most of the validators will (usually) fail, and that's OK. How ;; OK, so: most of the validators will (usually) fail, and that's OK. How
;; do we identify the one which ought not to have failed? ;; do we identify the one which ought not to have failed?
[o & validations] [o & validations]
(println (str "Tag: " (:tag o) "; name: " (:name (:attrs o))))
(let (let
[rs (map [rs (map
#(b/validate o %) #(b/validate o %)
validations)] validations)
all-candidates (remove nil? (map first rs))
suspicious (remove :tag all-candidates)]
;; if *any* succeeded, we succeeded ;; if *any* succeeded, we succeeded
;; otherwise, one of these is the valid error - but which? The answer, in my case ;; otherwise, one of these is the valid error - but which? The answer, in my case
;; is that if there is any which did not fail on the :tag check, then that is the ;; is that if there is any which did not fail on the :tag check, then that is the
;; interesting one. But generally? ;; interesting one. But generally?
(empty? (remove :tag (map first rs))))) (doall (map #(println (str "\tError: " %)) suspicious))
(empty? suspicious)))
(v/defvalidator disjunct-validator (v/defvalidator disjunct-validator
;; OK, so: most of the validators will (usually) fail, and that's OK. How ;; OK, so: most of the validators will (usually) fail, and that's OK. How