/usr/include/clips/cmptblty.h is in libclips-dev 6.24-3.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | /*******************************************************/
/* "C" Language Integrated Production System */
/* */
/* CLIPS Version 6.20 01/31/02 */
/* */
/* COMPATIBILITY HEADER FILE */
/*******************************************************/
/*************************************************************/
/* Purpose: Use this file to enable the use of some old */
/* CLIPS macros and functions with version 6.0 of CLIPS. */
/* */
/* Principal Programmer(s): */
/* Gary D. Riley */
/* */
/* Contributing Programmer(s): */
/* */
/* Revision History: */
/* */
/*************************************************************/
#ifndef _CMPTBLTY_HEADER_
#define _CMPTBLTY_HEADER_
#include "clips.h"
#define DeleteDefrule(x) Undefrule(x)
#define DeleteDeftemplate(x) Undeftemplate(x)
#define DeleteDeffacts(x) Undeffacts(x)
#define DeleteDefclass(c) Undefclass(c)
#define DeleteDefinstances(d) Undefinstances(d)
#define DeleteDefmessageHandler(c,h) UndefmessageHandler(c,h)
#define DeleteDeffunction(d) Undeffunction(d)
#define DeleteDefgeneric(g) Undefgeneric(g)
#define DeleteDefmethod(g,m) Undefmethod(g,m)
#define ListFacts() Facts(WDISPLAY,GetCurrentModule(),-1L,-1L,-1L)
#define ListInstances(c,i) Instances(WDISPLAY,GetCurrentModule(),GetDefclassName(c),i)
#define ResetCLIPS() Reset()
#define LoadConstructs(x) Load(x)
#define SaveConstructs(x) Save(x)
#define ClearCLIPS() Clear()
#define RunCLIPS(x) Run(x)
#define OpenDribble(x) DribbleOn(x)
#define CloseDribble() DribbleOff()
#define AddFact(x) Assert(x)
#define RetractFact(x) Retract(x)
#define ListAgenda() Agenda(WDISPLAY,GetCurrentModule())
#define ListMatches(x) Matches(x)
#define AddBreakpoint(x) SetBreak(x)
#define RemoveBreakpoint(x) RemoveBreak(x)
#define ListBreakpoints() ShowBreaks(WDISPLAY,GetCurrentModule())
#define RefreshDefrule(x) Refresh(x)
#define MemoryUsed() MemUsed()
#define MemoryRequests() MemRequests()
#define ReleaseMemory() ReleaseMem()
#define CLIPSTestSlot(i,s,0) SlotExistP(GetInstanceClass(i),s,TRUE)
#define CLIPSTestSlot(i,s,1) TRUE
#define CLIPSTestSlot(i,s,2) SlotWritableP(GetInstanceClass(i),s)
#define CLIPSTestSlot(i,s,3) SlotInitableP(GetInstanceClass(i),s)
#define CLIPSGetSlot(i,s,r) DirectGetSlot(i,s,r)
#define CLIPSPutSlot(i,s,v) DirectPutSlot(i,s,r)
#define PreviewMessage(c,m) PreviewSend(WDISPLAY,c,m)
#define CLIPSSendMessage(d,m,a,r) Send(d,m,a,r)
#define CLIPSUnmakeInstance(i) UnmakeInstance(i)
#define CLIPSDeleteInstance(i) DeleteInstance(i)
#define CLIPSMakeInstance(s) MakeInstance(s)
#define BrowseClass(c) BrowseClasses(c)
#define IsClassAbstract(c) ClassAbstractP(c)
#define GetClassSuperclasses(c,r,i) ClassSuperclasses(c,r,i)
#define GetClassSubclasses(c,r,i) ClassSubclasses(c,r,i)
#define GetClassSlots(c,r,i) ClassSlots(c,r,i)
#define GetClassMessageHandlers(c,r,i) GetDefmessageHandlerList(c,r,i)
#define GetSlotFacets(c,s,r) SlotFacets(c,s,r)
#define GetSlotSources(c,s,r) SlotSources(c,s,r)
#endif
|