(*(***********************************************************************

:Module.      Classface.mod
:Author.      Albert Weinert  [awn]
:Copyright.   Albert Weinert
:Copyright.   permission granted for inclusion into AmigaOberon library
:Contents.    Interface zur Classface Programmierung mit Amiga Oberon.
:Imports.     needs `Classface.o', assemble Classface.asm therefore
:History.     0.0   [awn] 13-Jun-1993 : Erstellt
:History.     0.1   [awn] 16-Jun-1993 : Makro-Umsetzungen und die ProcDefinition
:History.           mit Utility.InitHook() erstellt, bzw. definiert.
:History.     0.2   [hG]  06 Jul 1993 : an Oberon üblichen Stil angepasst.
:Histroy.     1.0   [hG] renamed to Classface, some optical clean up
:Histroy.     40.15 [hG] bumped version/revision
:Version.     $VER: Classface.mod 40.15 (28.12.93) Oberon 3.0

***********************************************************************)*)

MODULE Classface;

(* $StackChk- $NilChk- $ReturnChk- $ClearVars- *)
(* $JOIN Classface.o *)

IMPORT
  e * := Exec,
  I * := Intuition,
  SYSTEM,
  u * := Utility;

PROCEDURE InstData*(cl{8}: I.IClassPtr; o{9}: I.ObjectPtr): e.APTR;
BEGIN
  RETURN  (SYSTEM.VAL(LONGINT,o)+LONG(cl.instOffset));
END InstData;

PROCEDURE SizeOfInstance*(cl{8} :I.IClassPtr): LONGINT;
BEGIN
  RETURN cl.instOffset+cl.instSize+SIZE(I.Object);
END SizeOfInstance;

PROCEDURE OClass*(o{8} :I.ObjectPtr): I.IClassPtr;
BEGIN (* $RangeChk- *)
  o := SYSTEM.VAL(I.ObjectPtr,SYSTEM.VAL(LONGINT,o)-SIZE(I.Object));
  RETURN o.class; (* $RangeChk= *)
END OClass;

PROCEDURE CoerceMethodA  * {"_a_CoerceMethodA"} (cl{8}     : I.IClassPtr;
                                                 obj{10}   : I.ObjectPtr;
                                                 msg{9}    : I.Msg);
PROCEDURE CoerceMethod   * {"_a_CoerceMethodA"} (cl{8}     : I.IClassPtr;
                                                 obj{10}   : I.ObjectPtr;
                                                 msg{9}..  : u.Tag);
PROCEDURE DoMethodA      * {"_a_DoMethodA"}     (obj{10}   : I.ObjectPtr;
                                                 msg{9}    : I.Msg): e.APTR;
PROCEDURE DoMethod       * {"_a_DoMethodA"}     (obj{10}   : I.ObjectPtr;
                                                 msg{9}..  : u.Tag): e.APTR;
PROCEDURE DoSuperMethodA * {"_a_DoSuperMethodA"}(cl{8}     : I.IClassPtr;
                                                 obj{10}   : I.ObjectPtr;
                                                 msg{9}    : I.Msg): e.APTR;
PROCEDURE DoSuperMethod  * {"_a_DoSuperMethodA"}(cl{8}     : I.IClassPtr;
                                                 obj{10}   : I.ObjectPtr;
                                                 msg{9}..  : u.Tag): e.APTR;
PROCEDURE SetSuperAttrs  * {"_a_SetSuperAttrs"}  (cl{8}    : I.IClassPtr;
                                                  obj{10}  : I.ObjectPtr;
                                                  tags{9}..: u.Tag): e.APTR;
PROCEDURE SetSuperAttrsA * {"_a_SetSuperAttrs"}  (cl{8}    : I.IClassPtr;
                                                  obj{10}  : I.ObjectPtr;
                                                  tags{9}  : ARRAY OF u.TagItem): e.APTR;
END Classface.