egs_proto.lisp

(defmacro bin-parser ((cons name raw-clauses)
 (flet ((fun-clause
          ((list (list* cmd chan match) body)
           `((,cmd ,chan (binary ,@(: lists map (fun bin-chunk 1) match))) ,body))
          ((x) (error `(what_is_this ,x))))
         (bin-chunk
          (((list name n)) (when (is_integer n))
           `(,name little integer (size ,(* 8 n))))
          (((list name 'float))
           `(,name little float))
          (((list name 'bits))
           `(,name bits))
          ((x) (error `(bad_chunk_spec ,x)))))
  (let ((clauses (: lists map (lambda (c) (fun-clause c)) raw-clauses)))
    `(defun ,name ,clauses)))))