sitelogo
supplier例に対するCプログラム
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); }

Up read on...
scroll to top managed with ubiCMS