m2-GTK4/src/Graphene.def

DEFINITION MODULE FOR "C" Graphene ;

(*
   m2-GTK4 - Graphene geometry value types.  Mapped onto <graphene.h>.

   These are plain by-value structs, used by GtkSnapshot and
   GtkConstraintGuide.  The init helpers return a pointer to the struct
   (ignored here); pass the VAR record directly.
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GraphenePoint, GraphenePoint3D, GrapheneSize, GrapheneRect,
   GrapheneMatrix,
   graphene_point_init, graphene_size_init, graphene_rect_init;


TYPE
   GraphenePoint = RECORD
      x, y: SHORTREAL;
   END;
   GraphenePoint3D = RECORD
      x, y, z: SHORTREAL;
   END;
   GrapheneSize = RECORD
      width, height: SHORTREAL;
   END;
   GrapheneRect = RECORD
      origin: GraphenePoint;
      size: GrapheneSize;
   END;
   GrapheneMatrix = RECORD
      xx, yx, xy, yy, x0, y0: SHORTREAL;
   END;

(* graphene_point_t *graphene_point_init(graphene_point_t *p,
                                           float x, float y) *)
PROCEDURE graphene_point_init (VAR p: GraphenePoint; x, y: SHORTREAL) : [ ADDRESS ];

(* graphene_size_t *graphene_size_init(graphene_size_t *s,
                                        float width, float height) *)
PROCEDURE graphene_size_init (VAR s: GrapheneSize;
                              width, height: SHORTREAL) : [ ADDRESS ];

(* graphene_rect_t *graphene_rect_init(graphene_rect_t *r, float x, float y,
                                        float width, float height) *)
PROCEDURE graphene_rect_init (VAR r: GrapheneRect; x, y, width, height: SHORTREAL) : [ ADDRESS ];

END Graphene.