c++ - CLIPS eval stops working if fact does not exist -


i using clips api enveval in order find fact given relation:

auto expression = "(find-all-facts ((?f system)) true)";  data_object outputvalue;  auto res = enveval(penvironment, expression, &outputvalue); return res;

but problem if try find fact not exist in current list of facts, enveval return false facts exist, each single new call.

why behavior , doing wrong?

your source code partial , not know if understand situation correctly.

but, anyway, here's working quick hack, according problem, might help.

ps: clips stable, documented , updated (thanks gary).

(compiled clang , gcc under linux)

file: sample.clp

(deffacts dummy-example ""   (not-important blá)   (dummy foo)   (useless bar)   (my-system aaa)   (just-noise bbb)   (my-system bbb)   (my-system ccc))

c code

#include "clips.h"  int main(/* int argc, char *argv[] */) {   void *theenv;   char *expression;   data_object outputvalue;   char *result;    void *multifieldptr, *factptr;   long end, i;    theenv = createenvironment();    envload(theenv, "sample.clp");   envreset(theenv);   envrun(theenv, -1);    expression = strdup("(find-all-facts ((?f my-system)) true)");    if (!enveval(theenv, expression, &outputvalue)) {     envprintrouter(theenv, wprompt,                    "not evaluated\n");   } else {      /* print result of find-all-facts field field */     if (gettype(outputvalue) == multifield) {        end = getdoend(outputvalue);       multifieldptr = getvalue(outputvalue);       envprintrouter(theenv,wprompt,"( ");       (i = getdobegin(outputvalue); <= end; i++){           if (getmftype(multifieldptr,i) == fact_address){             factptr = getmfvalue(multifieldptr,i);             asprintf(&result,"<fact-%lld> ",                      envfactindex(theenv, factptr));             envprintrouter(theenv,wprompt,result);           }        }       envprintrouter(theenv,wprompt,")\n");     } else {       envprintrouter(theenv,wprompt,"not multifield!");     }    }    return(0); }

when compile , run get

( <fact-4> <fact-6> <fact-7> )

Comments

Post a Comment

Popular posts from this blog

asynchronous - C# WinSCP .NET assembly: How to upload multiple files asynchronously -

i using winscp .net assembly uploading files. want upload multiple files asynchronous way. have created method works single upload. public class uploadingdata { private sessionoptions _sessionoptions; private session _session; //connection etc private void onconnected() { foreach (var fileinfo in localfileslist) { var task = task.factory.startnew(() => uploadfilesasync(fileinfo)); } } private async task uploadfilesasync(string file) { string remotefilepath = _session.translatelocalpathtoremote(file, @"/", "/test_data_upload"); var uploading = _session.putfiles(file, remotefilepath, false); //when done await task.run(() => thread.sleep(1000)); } } please suggest me correct way. thanks you can use backgroundworker class this: string[] images = new string[50]; foreach (var path in images) { backgroundworker
Read more

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more