factrete.h

NASA 开发使用的一个专家系统

   /*******************************************************/
   /*      "C" Language Integrated Production System      */
   /*                                                     */
   /*             CLIPS Version 6.05  04/09/97            */
   /*                                                     */
   /*        FACT RETE ACCESS FUNCTIONS HEADER FILE       */
   /*******************************************************/

/*************************************************************/
/* Purpose:                                                  */
/*                                                           */
/* Principal Programmer(s):                                  */
/*      Gary D. Riley                                        */
/*                                                           */
/* Contributing Programmer(s):                               */
/*                                                           */
/* Revision History:                                         */
/*                                                           */
/*************************************************************/

#ifndef _H_factrete

#define _H_factrete

#ifndef _H_evaluatn
#include "evaluatn.h"
#endif

#ifdef LOCALE
#undef LOCALE
#endif

#ifdef _FACTRETE_SOURCE_
#define LOCALE
#else
#define LOCALE extern
#endif

#if ANSI_COMPILER
   LOCALE BOOLEAN                        FactPNGetVar1(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactPNGetVar2(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactPNGetVar3(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactJNGetVar1(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactJNGetVar2(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactJNGetVar3(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactSlotLength(VOID *,DATA_OBJECT_PTR);
   LOCALE int                            FactJNCompVars1(VOID *,DATA_OBJECT_PTR);
   LOCALE int                            FactJNCompVars2(VOID *,DATA_OBJECT_PTR);
   LOCALE int                            FactPNCompVars1(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactPNConstant1(VOID *,DATA_OBJECT_PTR);
   LOCALE BOOLEAN                        FactPNConstant2(VOID *,DATA_OBJECT_PTR);
   LOCALE int                            FactStoreMultifield(VOID *,DATA_OBJECT_PTR);
   LOCALE int                            AdjustFieldPosition(struct multifieldMarker *,int,int,int *);
#else   
   LOCALE BOOLEAN                        FactPNGetVar1();
   LOCALE BOOLEAN                        FactPNGetVar2();
   LOCALE BOOLEAN                        FactPNGetVar3();
   LOCALE BOOLEAN                        FactJNGetVar1();
   LOCALE BOOLEAN                        FactJNGetVar2();
   LOCALE BOOLEAN                        FactJNGetVar3();
   LOCALE BOOLEAN                        FactSlotLength();
   LOCALE int                            FactJNCompVars1();
   LOCALE int                            FactJNCompVars2();
   LOCALE int                            FactPNCompVars1();
   LOCALE BOOLEAN                        FactPNConstant1();
   LOCALE BOOLEAN                        FactPNConstant2();
   LOCALE int                            FactStoreMultifield();
   LOCALE int                            AdjustFieldPosition();
#endif 

#endif