DESCRIPTION.

La fonction FN_typeof() détermine si deux instances, objets, proviennent de la même classe.

SYNTAXE.

kvaleur = FN_typeof( OBJ_ObjetA{} , OBJ_ObjetB{} )

REMARQUES.

OBJ_ObjetA{} et OBJ_ObjetB{} doivent être les identifiants de deux objets valides et existants.

La fonction  FN_typeof()  retourne -1, TRUE, si les deux objets sont deux instances de la même classe, sinon 0, FALSE. 

Note : Les objets instances d'une classe enfant ne sont pas reconnus comme provenant de la classe parent.

La procédure FN_typeof() est importée depuis le module classlib.bbc. 

EXEMPLE.

REM --- Importation des modules ---

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "classlib.bbc"

REM --- Declaration de la structure de données associee aux classes ---

DIM MDL_Individu{ nom$ , age , MTD_Annee }

DIM MDL_Surface{ longeur , largeur , MTD_Aire , MTD_Decor }

DIM MDL_Volume{ hauteur , largeur , MTD_Aire , MTD_Volume }

REM --- Creation de la classe ---

PROC_class( MDL_Surface{} )

PROC_inherit( MDL_Volume{} , MDL_Surface{} )

REM --- Creation d'un nouvel objet (instance) de la classe MDL_Rectangle ---

PROC_new( OBJ_RectA{} , MDL_Surface{} )

PROC_new( OBJ_RectB{} , MDL_Surface{} )

PROC_new( OBJ_PaveA{} , MDL_Volume{} )

PROC_new( OBJ_Contact{} , MDL_Individu{} )

PRINT FN_typeof( OBJ_RectA{} , OBJ_RectB{} )

PRINT FN_typeof( OBJ_RectA{} , OBJ_PaveA{} )

PRINT FN_typeof( OBJ_RectA{} , OBJ_Contact{} )

REM --- Fin et sortie du programme ---

END

REM --- Definition (virtuelle) des methodes ---

DEF MDL_Individu.MTD_Annee :  REM --- code --- : ENDPROC

DEF MDL_Surface.MTD_Aire :  REM --- code --- : ENDPROC

DEF MDL_Surface.MTD_Decor :  REM --- code --- : ENDPROC

DEF MDL_Volume.MTD_Aire :  REM --- code --- : ENDPROC

DEF MDL_Volume.MTD_Volume :  REM --- code --- : ENDPROC