Function

Summary

Returns a pointer to a specified slot of an object.

Package

fli

Signature

foreign-slot-pointer object slot-name &key type => pointer

Arguments

object

A foreign object, or a pointer to a foreign object.

slot-name

The name of a slot in object .

type

The type of the slot slot-name .

Values

pointer

A pointer to slot-name .

Description

The function foreign-slot-pointer takes a foreign object, a slot within the object, and optionally the type of the slot, and returns a pointer to the slot.

Example

In the following example a structure type called COMPASS is defined. An instance of the structure is allocated using allocate-foreign-object , pointed to by point1 . Then foreign-slot-pointer is used to get a pointer, called point2 , to the second slot of the foreign object.

(fli:define-c-struct COMPASS

  (west :int)

  (east :int))

(setq point1 (fli:allocate-foreign-object :type

                                          'COMPASS))

(setq point2 (fli:foreign-slot-pointer point1 'east

                                       :type :int))

The :type keyword can be used to return the value stored in the slot as a different type, providing the type is compatible. In the next example, point3 is set to be a pointer to the same address as point2 , but it expects the value stored there to be a boolean.

(setq point3 (fli:foreign-slot-pointer point1 'east

              :type '(:boolean :int)))

Using dereference the value can be set as an integer using point2 and read as a boolean using point3 .

(setf (fli:dereference point2) 0) (fli:dereference point3) (setf (fli:dereference point2) 1) (fli:dereference point3)

See Also

decf-pointer

incf-pointer

make-pointer