-(uffi:def-function "atoi"
- ((str :cstring))
- :returning :int)
-
-(uffi:def-function "atol"
- ((str :cstring))
- :returning :long)
-
-(uffi:def-function "atof"
- ((str :cstring))
- :returning :double)
-
-(defun convert-raw-field (char-ptr types index)
- (let ((type (if (listp types)
- (nth index types)
- types)))
- (case type
- (:int
- (atoi char-ptr))
- (:long
- (atol char-ptr))
- (:double
- (atof char-ptr))
- (otherwise
- (uffi:convert-from-foreign-string char-ptr)))))
-
-