diff options
Diffstat (limited to 'cmamut.lisp')
| -rw-r--r-- | cmamut.lisp | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/cmamut.lisp b/cmamut.lisp index 904241e..4bd4cad 100644 --- a/cmamut.lisp +++ b/cmamut.lisp @@ -4,7 +4,6 @@ ; Generate code that creates a package and puts all definitions there. ; To avoid collisions the created package shouldn't import any symbols. -; TODO: Get constants from macro file generated by c2ffi -M ; TODO: Use c2ffi to extract the spec.json using the header file as parameter (defun get-raw-spec (filename) @@ -66,7 +65,7 @@ (cook-type new-type type-associations) (error "Unknown type: ~a" tag))))))) -(defun cook-function (raw-function type-associations &optional name-transformer) +(defun cook-function (raw-function type-associations) (let ((raw-params (gethash "parameters" raw-function)) (cooked-params (queue:new))) (dotimes (j (length raw-params)) @@ -77,9 +76,7 @@ (cook-type (gethash "type" (aref raw-params j)) type-associations)))) `(sb-alien:define-alien-routine ,(let ((function-name (gethash "name" raw-function))) - (if name-transformer - (list function-name (funcall name-transformer function-name)) - (list function-name (intern function-name)))) + (list function-name (intern function-name))) ,(cook-type (gethash "return-type" raw-function) type-associations) ,@(queue:to-list cooked-params)))) @@ -95,6 +92,11 @@ (intern (gethash "name" raw-composite))) ,@(queue:to-list cooked-fields)))) +(defun cook-const (raw-const) + `(defparameter + ,(intern (gethash "name" raw-const)) + ,(gethash "value" raw-const))) + (defun cook-enum (raw-enum enum-references) (let ((name (gethash (gethash "id" raw-enum) enum-references)) (raw-fields (gethash "fields" raw-enum)) @@ -135,6 +137,7 @@ type-associations)) (defstruct spec + consts functions typedefs composite @@ -156,6 +159,9 @@ (cond ((string= tag "function") (push def (spec-functions spec))) + ((and (string= tag "const") (gethash "value" def)) + (push def (spec-consts spec))) + ((or (string= tag "typedef") (string= tag ":array") (string= tag ":pointer")) @@ -177,6 +183,7 @@ ((string= tag "enum") (push def (spec-enums spec))) + ((or (string= tag "struct") (string= tag "union")) (push def (spec-composite spec))))) spec) @@ -222,7 +229,8 @@ (defun codegen (spec function-filter) (let ((enum-references (generate-enum-references (spec-typedefs spec))) (type-associations (generate-type-associations (spec-typedefs spec)))) - (let ((enums (mapcar (lambda (x) (cook-enum x enum-references)) + (let ((consts (mapcar #'cook-const (spec-consts spec))) + (enums (mapcar (lambda (x) (cook-enum x enum-references)) (spec-enums spec))) (composite (mapcar (lambda (x) `(sb-alien:define-alien-type nil ,x)) (sort-composites-by-deps @@ -230,7 +238,7 @@ (spec-composite spec))))) (functions (mapcar (lambda (x) (cook-function x type-associations)) (remove-if-not function-filter (spec-functions spec))))) - (remove-duplicates (concatenate 'list enums composite functions) :test #'equal)))) + (remove-duplicates (concatenate 'list consts enums composite functions) :test #'equal)))) (defun to-file (code filename) (with-open-file (f filename |