示例#1
0
文件: factfun.c 项目: noxdafox/clips
globle int FactExistpFunction(
  void *theEnv)
  {
   struct fact *theFact;

   if (EnvArgCountCheck(theEnv,"fact-existp",EXACTLY,1) == -1) return(-1L);

   theFact = GetFactAddressOrIndexArgument(theEnv,"fact-existp",1,FALSE);

   return(EnvFactExistp(theEnv,theFact));
  }
示例#2
0
文件: factfun.c 项目: noxdafox/clips
globle int FactExistp(
  void *vTheFact)
  {
   return EnvFactExistp(GetCurrentEnvironment(),vTheFact);
  }
示例#3
0
 bool Fact::exists() const {
   if ( m_cobj )
     return EnvFactExistp( m_environment.cobj(), m_cobj );
   return false;
 }