Ejemplos de EnvSuperclassP en C++ (Cpp)

Ejemplo n.º 1

Archivo: classexm.c Proyecto: chrislong/clipsrules

/*********************************************************************
  NAME         : SuperclassPCommand
  DESCRIPTION  : Determines if a class is a superclass of another
  INPUTS       : None
  RETURNS      : TRUE if class-1 is a superclass of class-2
  SIDE EFFECTS : None
  NOTES        : H/L Syntax : (superclassp <class-1> <class-2>)
 *********************************************************************/
globle intBool SuperclassPCommand(
  void *theEnv)
  {
   DEFCLASS *c1,*c2;
   
   if (CheckTwoClasses(theEnv,"superclassp",&c1,&c2) == FALSE)
     return(FALSE);
   return(EnvSuperclassP(theEnv,(void *) c1,(void *) c2));
  }

Ejemplo n.º 2

Archivo: classexm.c Proyecto: noxdafox/clips

globle intBool SuperclassP(
  void *firstClass,
  void *secondClass)
  {
   return EnvSuperclassP(GetCurrentEnvironment(),firstClass,secondClass);
  }