MINERVA superseeded IF/Prolog.
Please see
http://www.ifcomputer.co.jp/MINERVA
for details.
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[];
{
QueryDescr *descr;
int ifargc;
char *ifargv[20];
InitParms("-c supplier.pro",&ifargc,ifargv);
INITProlog(ifargc,ifargv);
QuParse("supplier(Company,Part,Anz,Price),
Anz > 0",&descr);
result(descr,"tiffany");
result(descr,"dior");
result(descr,"cartier");
EndProlog();
}
int result(descr,company)
QueryDescr *descr;
char *company;
{
char *p_name;
long p_sold;
double p_price, p_result;
QuLOCStr(descr,1,&company);QuUse(descr,1,FOR_INPUT);
QuLOCStr(descr,2,&p_name);QuUse(descr,2,FOR_OUTPUT);
QuLOCInt(descr,3,&p_sold);QuUse(descr,3,FOR_OUTPUT);
QuLOCDbl(descr,4,&p_price);QuUse(descr,4,FOR_OUTPUT);
printt("\nHello, Result from %s is:\n\n",
company);
while(QueFetch(descr)) {
p_result = p_sole * p_price;
printt("\t%s: \t%10.2$\n",p_name,p_result);
}
QuClose(descr);
}
|
