|
|
We discontinued to sell IF/Prolog Dec 31. 2003. For current customers, we continue to provide professional support for IF/Prolog until Dec 31, 2008.
#include "cpro.h"
#include
int main(argc, argv) int argc; char *argv[]; { char query[80]; QueryDescr *descr; int n;
INITProlog(argc,argv); printt("\nHELLO, WELCOME TO YOUR OWN PROLOG LOOP\n\n");
for( ; ; ) { printt("?- "); gets(query); ParseProlog(query,&descr);
if (descr->ret_code == -1) { printt("SYNTAX: %s : \n",descr->ret_msg); continue; } while (RunProlog(descr) == 1) { if (descr->no_vars == 0) printt(" yes\n"); for ( n=0; n < descr->no_vars; n++ ) { printt(" %s",descr->var[n].name); printt("\t=%q\n",*descr->var[n].loc.term); }
} printt("\n"); if (descr->ret_code == 0) printt(" fail\n"); else if (descr->ret_code == -2) printt("ERROR: %s\n",descr->ret_msg); else if (descr->ret_code == -3) { printt("EXIT: %s %d\n",descr->ret_msg,descr->exit_code); break; } } }
| document: http://www.ifcomputer.co.jp/IFProlog/Manuals/v4.1/advanced_feature/hostli/examp/simul/print_jp.html published 2008/12/1 update 1995/11/6 (c) 1996-2006 IF Computer Japan | ||||||||
|
