eclipseclp/Eplex/eplex.c

535     handle.val.all = vlp.all;
1163 	  value val;
1165 	  Cstring_To_Prolog(sres, val);
1166 	  Return_Unify_String(vval, tval, val.ptr);
1196 	  value val;
1198 	  Cstring_To_Prolog(sres, val);
1199 	  Return_Unify_String(vval, tval, val.ptr);
1221 	  Return_Unify_Pw(vval, tval, pw.val, pw.tag);
1383     pw.val = vs; pw.tag = ts;
1458     pw.val = vs; pw.tag = ts;
1711 		idxs[i] = ihead->val.nint;
1712 		rhs[i] = DoubleVal(vhead->val, vhead->tag);
1725 		vidxs = itail->val;
1727 		vvals = vtail->val;
1794 		idxs[i] = ihead->val.nint;
1802 		bds[i] = DoubleVal(lohead->val, lohead->tag);
1806 		idxs[i] = ihead->val.nint;
1807 		bds[i] = DoubleVal(uphead->val, uphead->tag);
1822 		vidxs = itail->val;
1824 		vlos = lotail->val;
1826 		vhis = uptail->val;
1866     lp_desc *lpd = ExternalData(pw[HANDLE_CPH].val.ptr);
1909     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2090     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2184     lp_desc *lpd = ExternalData(phandle[HANDLE_CPH].val.ptr);
2346 #define Add_Row_Coeff(nnz_sz, nnzs, rmatind, rmatval, idxj, val, tag) {\
2355     rmatval[nnzs] = DoubleVal(val, tag);\
2433     lp_desc *lpd = ExternalData(phandle[HANDLE_CPH].val.ptr);
2571     lp_desc *lpd = ExternalData(phandle[HANDLE_CPH].val.ptr);
2620     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2797     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2862     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2905     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
2957     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
3207 		      lo = (double) lhead->val.nint;
3210 		      lo = Dbl(lhead->val);
3215 		      hi = (double) hhead->val.nint;
3218 		      hi = Dbl(hhead->val);
3223 		    vlos = ltail->val;
3226 		    vhis = htail->val;
3267 		      lo = (double) lhead->val.nint;
3270 		      lo = Dbl(lhead->val);
3275 		    vlos = ltail->val;
3319 		  hi = (double) hhead->val.nint;
3322 		  hi = Dbl(hhead->val);
3327 		vhis = htail->val;
3405 		      lo = (double) lhead->val.nint;
3408 		      lo = Dbl(lhead->val);
3413 		      hi = (double) hhead->val.nint;
3416 		      hi = Dbl(hhead->val);
3421 		    vlos = ltail->val;
3424 		    vhis = htail->val;
3451 		      lo = (double) lhead->val.nint;
3454 		      lo = Dbl(lhead->val);
3459 		    vlos = ltail->val;
3487 		  hi = (double) hhead->val.nint;
3490 		  hi = Dbl(hhead->val);
3495 		vhis = htail->val;
3544 		coeff = (double) head->val.nint;
3547 		coeff = Dbl(head->val);
3553 	    vobjs = tail->val;
4399 	pw->val.ptr = _create_darray(size);
4400 	*start = DArrayStart(pw->val.ptr);
4415 	pw->val.ptr = _create_iarray(size);
4416 	*start = IArrayStart(pw->val.ptr);
4600     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
4613     meth.meth = pw->val.nint;
4617     meth.auxmeth = pw->val.nint;
4621     meth.node_meth = pw->val.nint;
4625     meth.node_auxmeth = pw->val.nint;
4643 	Get_Name(pw->val, pw->tag, format);
4646 	Get_Name(pw->val, pw->tag, file);
4667 	    ec_assign(vhandle.ptr+cpcondmappos, map.val, map.tag);
4675     sol.oldmac = IsArray(pw->tag) ? DArraySize(pw->val.ptr) : 0;
4676     sol.oldsols = IsArray(pw->tag) ? DArrayStart(pw->val.ptr) : NULL;
4814 		    iis_rowidxs.val.ptr = _create_iarray(iis_nrows);
4816 		    iis_colidxs.val.ptr = _create_iarray(iis_ncols);
4818 		    iis_colstats.val.ptr = _create_carray(iis_ncols);
4823 				     IArrayStart(iis_rowidxs.val.ptr), IArrayStart(iis_colidxs.val.ptr),
4824 					  CArrayStart(iis_colstats.val.ptr))
4832 			iis_rowidxs.val.ptr = _create_iarray(0);
4833 			iis_colidxs.val.ptr = _create_iarray(0);
4834 			iis_colstats.val.ptr = _create_carray(0);
4837 		    ec_assign(vhandle.ptr+iis_rowspos, iis_rowidxs.val, iis_rowidxs.tag);
4838 		    ec_assign(vhandle.ptr+iis_colspos, iis_colidxs.val, iis_colidxs.tag);
4839 		    ec_assign(vhandle.ptr+iis_colstatspos, iis_colstats.val, iis_colstats.tag);
4953 	    ec_assign(vhandle.ptr+solspos, outsols.val, outsols.tag);
4955 	    ec_assign(vhandle.ptr+pispos,  outpis.val, outpis.tag);
4957 	    ec_assign(vhandle.ptr+slackspos, outslacks.val, outslacks.tag);
4959 	    ec_assign(vhandle.ptr+djspos, outdjs.val, outdjs.tag);
4961 	    ec_assign(vhandle.ptr+cbasepos, outcbase.val, outcbase.tag);
4963 	    ec_assign(vhandle.ptr+rbasepos, outrbase.val, outrbase.tag);
4971 	    ec_assign(vhandle.ptr+solspos, pw.val, pw.tag);
4973 	    ec_assign(vhandle.ptr+pispos, pw.val, pw.tag);
4975 	    ec_assign(vhandle.ptr+slackspos, pw.val, pw.tag);
4977 	    ec_assign(vhandle.ptr+djspos, pw.val, pw.tag);
4979 	    ec_assign(vhandle.ptr+cbasepos, pw.val, pw.tag);
4981 	    ec_assign(vhandle.ptr+rbasepos, pw.val, pw.tag);
5054 	if (DidArity(car->val.ptr->val.did) != 3)
5057 	pw = car->val.ptr + 1;		/* colindex */
5059 	idx[i] = pw->val.nint;
5060 	pw = car->val.ptr + 2;		/* priority */
5062 	prio[i] = pw->val.nint;
5063 	pw = car->val.ptr + 3;		/* direction */
5066 	bdir[i] = pw->val.nint;
5069 	bdir[i] = pw->val.nint == 1 ? 'D' : pw->val.nint == 2 ? 'U' : 'N';
5075 	vl = cdr->val;
5108     LpDesc(vhandle.ptr[HANDLE_CPH].val, vhandle.ptr[HANDLE_CPH].tag, lpd);
5208 	lpd->sosind[i] = (int) car->val.nint;
5213 	vl = cdr->val;
5497     Return_Unify_Pw(vlst, tlst, list.val, list.tag);
5681     int i, val;
5694 	val = (int) lpd->cp_active2[vidx.nint];
5697 	val = (int) lpd->cp_initial_add2[vidx.nint];
5704     Return_Unify_Integer(vval, tval, val);
5730     Return_Unify_Pw(vilst, tilst, list.val, list.tag);
5814 	lo = Dbl(car->val);
5815 	Dereference_(cdr); tlos = cdr->tag; vlos = cdr->val;
5819 	hi = Dbl(car->val);
5820 	Dereference_(cdr); this = cdr->tag; vhis = cdr->val;
5955     Return_Unify_Pw(vlst, tlst, list.val, list.tag);