|
|
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); }
| document: http://www.ifcomputer.co.jp/IFProlog/Manuals/v4.1/advanced_feature/hostli/examp/cprosup/print_en.html published 2008/12/1 update 1995/11/6 (c) 1996-2006 IF Computer Japan | ||||||||
|
