MINERVA superseeded IF/Prolog.
Please see
http://www.ifcomputer.co.jp/MINERVA
for details.
We discontinued to sell IF/Prolog Dec 31. 2003.
Dedicated technical support for IF/Prolog ended Dec 31 2008.
This site is maintained as a community service only.
/*standard main.c to enter dialog loop or run program/0*/
#include "cpro.h"
#include
int main(argc, argv)
int argc;
char *argv[];
{
QueryDescr *descr;
int retc = 0;
if(InitProlog(argc,argv,stdin,stdout,stderr) != RESTARTED )
{
ParseProlog("predicate_type(program,0,undefined)",
&descr);
RunProlog(descr);
if (descr->ret_code == 1)
ParseProlog("break",&descr);
else
ParseProlog("program",&descr);
RunProlog(descr);
retc = (descr->exit_code != 0);
}
EndProlog();
}
|
