diff options
Diffstat (limited to 'checkman.txr')
| -rw-r--r-- | checkman.txr | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/checkman.txr b/checkman.txr index 98070c8a..c4a13356 100644 --- a/checkman.txr +++ b/checkman.txr @@ -59,6 +59,20 @@ @ (end) @(end) @;; +@;; .code, .codn, .cod2, .cod3 checks +@;; +@(define check-code ()) +@ (cases) +.code "@(assert bad ln `.code needs one argument`)@x"@(eol) +@ (or) +.code @(assert bad ln `.code needs one argument`)@{x /\S+/}@(eol) +@ (or) +.cod3 @(assert bad ln `.cod3 needs three arguments`)@x @y @{z /\S+/}@(eol) +@ (or) +.@{type /codn|cod2/} @(assert bad ln `.@type needs two arguments`)@(cases)"@x"@(or)@{x /\S+/}@(end) @{y /\S+/}@(eol) +@ (end) +@(end) +@;; @;; Main @;; @(bind errors 0) @@ -69,6 +83,8 @@ @ (check-var) @ (or) @ (check-func) +@ (or) +@ (check-code) @ (end) @ (catch bad (line msg)) @ (do (inc errors) |