diff options
author | Arun Isaac | 2022-01-16 12:50:38 +0530 |
---|---|---|
committer | Arun Isaac | 2022-01-16 13:17:36 +0530 |
commit | fbb0e6f9c2fe9321045708c1c9eab91627ad241e (patch) | |
tree | 06b1e4978eb59be59cd544d83736a2ebd6651196 /ccwl | |
parent | b3f18dbf95d80d92a708f04be53b8d98b7980a80 (diff) | |
download | ccwl-fbb0e6f9c2fe9321045708c1c9eab91627ad241e.tar.gz ccwl-fbb0e6f9c2fe9321045708c1c9eab91627ad241e.tar.lz ccwl-fbb0e6f9c2fe9321045708c1c9eab91627ad241e.zip |
ccwl: Raise exceptions on output syntax errors.
* ccwl/ccwl.scm (output): Raise &ccwl-violation conditions on syntax
errors.
* tests/ccwl.scm (output): New function.
("output, when passed more than one positional argument, must raise a
&ccwl-violation condition", "output, when passed an unrecognized
keyword, must raise a &ccwl-violation condition", "output, when passed
multiple arguments to a unary keyword, must raise a &ccwl-violation
condition"): New tests.
Diffstat (limited to 'ccwl')
-rw-r--r-- | ccwl/ccwl.scm | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index be87467..c366d3d 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -149,9 +149,39 @@ "Return syntax to build an <output> object from OUTPUT-SPEC." (syntax-case output-spec () ((id args ...) (identifier? #'id) - (apply (syntax-lambda** (id #:key (type #'File) binding source #:key* other) - #`(make-output '#,id '#,type #,binding #,source '#,other)) - #'(id args ...))) + (guard (exception + ((unrecognized-keyword-assertion? exception) + (raise-exception + (match (condition-irritants exception) + ((irritant _ ...) + (condition (ccwl-violation irritant) + (formatted-message "Unrecognized keyword argument ~a in output" + (syntax->datum irritant))))))) + ((invalid-keyword-arity-assertion? exception) + (raise-exception + (match (condition-irritants exception) + ;; TODO: Report all extra arguments, not just the + ;; first one. + ((keyword _ extra _ ...) + (condition (ccwl-violation extra) + (formatted-message "Unexpected extra argument ~a for unary keyword argument ~a" + (syntax->datum extra) + (syntax->datum keyword))))))) + ((invalid-positional-arguments-arity-assertion? exception) + (raise-exception + (match (condition-irritants exception) + ;; TODO: Report all extra positional arguments, not + ;; just the first one. + ((id extra _ ...) + (condition (ccwl-violation extra) + (formatted-message "Unexpected extra positional argument ~a in output" + (syntax->datum extra)))) + (() + (condition (ccwl-violation output-spec) + (formatted-message "Output has no identifier"))))))) + (apply (syntax-lambda** (id #:key (type #'File) binding source #:key* other) + #`(make-output '#,id '#,type #,binding #,source '#,other)) + #'(id args ...)))) (id (identifier? #'id) (output #'(id))) (_ (error "Invalid output:" (syntax->datum output-spec))))) |