cam.clp example error

[Руслан Сорокин]

Dear CLIPS users and team!

I try to run "cam.clp" example and get this error. I examined a code and did not find a place where slot "search-depth" of "status" fact can get a string value "No move." You can see this value on a screenshot. This puzzled me. As I understand this is a cause of the error.

Any help or tip would be greatly appreciated.

Sincerely,
  Ru

[Ryan Johnston]

Hey, Ru,

I'm having a hard time finding cam.clp. Are you able to provide its contents?

[Руслан Сорокин]

воскресенье, 28 января 2024 г. в 21:21:52 UTC+3, Ryan Johnston:

[CLIPS Support]

It runs without error in CLIPS 6.31, but not 6.4.1, so it looks like a CLIPS bug. I'll look into what's causing the issue.

[Руслан Сорокин]

I run it on 6.4.1  4/8/23 as you can see from my screenshot. 

I downloaded this distribution clips_jni_641.zip recently from https://sourceforge.net/projects/clipsrules/files/CLIPS/6.4.1/

вторник, 30 января 2024 г. в 00:06:03 UTC+3, CLIPS Support:

[yoshiaki]

Hi Gary,

The < function reads garbage data because a part of the fact is trashed during executing the DuplicateCommand().
The patch below is one solution for it.

--- tmpltfun-orig.c 2022-12-14 00:44:10.000000000 +0900
+++ tmpltfun.c 2024-02-02 21:45:49.010835668 +0900
@@ -809,7 +809,10 @@
          /*===================================================*/
 
          IncrementClearReadyLocks(theEnv);
+         newFact->theProposition.header.type = MULTIFIELD_TYPE;
+         RetainMultifield(theEnv,&newFact->theProposition);
          EvaluateExpression(theEnv,testPtr->argList,&computeResult);
+         ReleaseMultifield(theEnv,&newFact->theProposition);
          SetEvaluationError(theEnv,false);
          DecrementClearReadyLocks(theEnv);
 

2024年1月30日火曜日 6:06:03 UTC+9 CLIPS Support:

[CLIPS Support]

Thanks for the information.

[CLIPS Support]

A bug fix to the garbage collection algorithm has been check into the svn repository for CLIPS on SourceForge.

On Sunday, January 28, 2024 at 3:02:45 AM UTC-6 zspove...@gmail.com wrote:

[denis.be...@gmail.com]

Just to make sure: the bug was not present in version 6.3?

[Руслан Сорокин]

Thank you very much for bug fix!

Seems like the bug is not present in version 6.3.

воскресенье, 3 марта 2024 г. в 09:22:32 UTC+3, denis.be...@gmail.com:

[Руслан Сорокин]

To test the bug fix I downloaded from SourceForge Tree [r881]  / branches / 70x / two zip files:

- clipsrules-code-r881-branches-70x-core.zip,

- clipsrules-code-r881-branches-70x-examples.zip.

I made a clips executable with make utility (on Linux Mint).

The cam.clp example (I added it to examples) run perfectly. Thanks once more!

But on auto.clp example I got this output listing:

ru@ru-sitrol:~/CLIPS/CLIPS70/clipsrules-code-r881-branches-70x-core$ cd ../clipsrules-code-r881-branches-70x-examples/
ru@ru-sitrol:~/CLIPS/CLIPS70/clipsrules-code-r881-branches-70x-examples$ clips
         CLIPS (6.30 3/17/15)
CLIPS> (load auto.clp)
Defining deffunction: ask-question
Defining deftemplate: av
Defining defrule: system-banner
[EXPRNPSR3] Missing function declaration for lookup.

ERROR:
(defrule MAIN::system-banner ""
   (declare (salience 10))
   =>
   (printout t crlf crlf)
   (printout t (lookup
Defining defrule: determine-attribute
[PRNTUTIL2] Syntax Error:  Check appropriate syntax for defrule.

ERROR:
(defrule MAIN::determine-attribute
   (declare (salience -10))
   (goal (
Defining defrule: print-repair
[EXPRNPSR3] Missing function declaration for lookup.

ERROR:
(defrule MAIN::print-repair ""
   (declare (salience 10))
   (repair ?item)
   =>
   (printout t crlf crlf)
   (printout t (lookup
Defining defrule: no-repairs +j+j
Defining defrule: normal-engine-state-conclusions +j+j+j
Defining defrule: engine-sluggish =j+j+j+j
Defining defrule: engine-misfires =j=j+j+j
Defining defrule: engine-knocks =j=j+j+j
Defining defrule: tank-out-of-gas +j+j+j+j
Defining defrule: battery-dead =j+j+j+j
Defining defrule: point-surface-state-burned =j=j+j+j+j
=j=j+j+j+j
Defining defrule: point-surface-state-contaminated =j=j=j+j+j
=j=j=j+j+j
Defining defrule: repair-distributor-lead-wire =j=j+j+j+j
Defining defrule: replace-ignition-coil =j=j=j+j+j

[CSTRCPSR1] Expected the beginning of a construct.
FALSE
CLIPS>

As I understand "lookup" is an embedded function in a version 7.0.

But bilded by make clips prints on start CLIPS (6.30 3/17/15)?

Would you like to explain this?
Thanks in advance.
Ru

воскресенье, 3 марта 2024 г. в 10:46:02 UTC+3, Руслан Сорокин:

[CLIPS Support]

The same issue exists even though it does not manifest itself. In order for the bug to occur, the memory must be garbage collected at the wrong time and then overwritten.

[CLIPS Support]

The 7.0 branch is in development. It hasn't been released yet.