OpenXM_contrib2/asir2018/builtin/dp-supp.c - diff

Return to dp-supp.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.11, 2019/11/21 04:03:16

version 1.12, 2019/12/12 04:44:59

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2018/builtin/dp-supp.c,v 1.10 2019/11/12 12:50:40 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2018/builtin/dp-supp.c,v 1.11 2019/11/21 04:03:16 noro Exp $

#include "ca.h"

#include "base.h"

Line 1893 DPM dpm_sp_nf(VECT psv,VECT psiv,int i,int j,DPM *nf)

ps = (DPM *)BDY(psv);

n = psv->len;

nv = ps[1]->nv;

nv = ps[i]->nv;

dpm_sp(ps[i],ps[j],&g,&t1,&t2);

mq0 = 0;

NEXTDMM(mq0,mq); mq->c = BDY(t1)->c; mq->pos = i; mq->dl = BDY(t1)->dl;

Line 1974 DPM dpm_sp_nf_zlist(VECT psv,VECT psiv,int i,int j,DPM

ps = (DPM *)BDY(psv);

n = psv->len;

nv = ps[1]->nv;

nv = ps[i]->nv;

dpm_sp(ps[i],ps[j],&g,&t1,&t2);

mq0 = 0;

NEXTDMM(mq0,mq); mq->c = BDY(t1)->c; mq->pos = i; mq->dl = BDY(t1)->dl;

Line 2024 DPM dpm_sp_nf_zlist(VECT psv,VECT psiv,int i,int j,DPM

if ( u ) {

g = u;

} else {

#if 0

m = BDY(g);

NEXTDMM(mr0,mr);

mr->dl = m->dl; mr->c = m->c; mr->pos = m->pos;

dpm_rest(g,&t); g = t;

#else

*nf = g;

if ( mq0 ) {

NEXT(mq) = 0; MKDPM(nv,mq0,q); q->sugar = sugar;

} else

q = 0;

return q;

#endif

}

last: