contrib/sb-posix/macros.lisp

   1 (in-package :sb-posix-internal)
   2
   3 (defun lisp-for-c-symbol (s)
   4   (intern (substitute #\- #\_ (string-upcase s)) :sb-posix))
   5
   6 (defmacro define-call (name return-type error-predicate &rest arguments)
   7   (let ((lisp-name (lisp-for-c-symbol name)))
   8     `(progn
   9       (export ',lisp-name :sb-posix)
  10       (declaim (inline ,lisp-name))
  11       (defun ,lisp-name ,(mapcar #'car arguments)
  12         (let ((r (alien-funcall
  13                   (extern-alien
  14                    ,name
  15                    (function ,return-type
  16                              ,@(mapcar
  17                                 (lambda (x)
  18                                   (get (cadr x) 'designator-type (cadr x)))
  19                                 arguments)))
  20                   ,@(mapcar (lambda (x)
  21                               (if (get (cadr x) 'designator-type)
  22                                   `(,(intern (symbol-name (cadr x)) :sb-posix)
  23                                     ,(car x))
  24                                   (car x)))
  25                             arguments))))
  26           (if (,error-predicate r) (syscall-error) r))))))