/*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(); }

Darueber read on...