| 12345678910111213141516171819202122232425262728293031323334 |
- (defcfun ("mach_port_mod_refs" %mach-port-mod-refs)
- err
- (task ipc-space)
- (port-name port)
- (right port-right)
- (delta port-delta))
- (defun port-mod-refs! (port right
- &optional
- (delta -1) ; drop 1 ref by default
- (task (task-self)))
- "Modify the specified port right's count of user references."
- (%mach-port-mod-refs task port right delta))
- (defcfun ("mach_port_get_refs" %mach-port-get-refs)
- err
- (task ipc-space)
- (name port)
- (right port-right)
- (refs #:pointer))
- (defun port-get-refs (port-name right &optional (task (task-self)))
- "Get number of references of a specific right in a port name."
- (with-foreign-pointer (refs (foreign-type-size 'port-urefs))
- (let ((return-code
- (%mach-port-get-refs task
- port-name
- right
- refs)))
- (select-error return-code
- (mem-ref refs 'port-urefs)))))
|
