| 123456789101112131415161718192021 |
- (in-package :hurd)
- (defcfun ("file_get_fs_options" %file-get-fs-options)
- err
- (file port)
- (options :pointer)
- (options-len :pointer))
- (defun file-get-fs-options (file)
- "Return a translator options object related to 'file'."
- (declare (type fixnum file))
- (with-foreign-pointer (options (foreign-type-size :pointer))
- (with-foreign-pointer (options-len (foreign-type-size 'msg-type-number))
- (setf (mem-ref options-len 'msg-type-number) 0)
- (select-error (%file-get-fs-options file
- options
- options-len)
- (get-foreign-options (mem-ref options :pointer)
- (mem-ref options-len 'msg-type-number))))))
|
