guile-hurd/hurd/fs/file-getcontrol.lisp

(in-package :hurd)

(defcfun ("file_getcontrol" %file-getcontrol)
  err
  (file port)
  (control port-pointer))

(defun file-getcontrol (file)
  "Get a translator control port from 'file'."
  (declare (type fixnum file))
  (with-foreign-pointer (control (foreign-type-size 'port))
    (select-error (%file-getcontrol file control)
                  (mem-ref control 'port))))