version 1.11, 2019/11/21 04:03:16 |
version 1.12, 2019/12/12 04:44:59 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* 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 "ca.h" |
#include "base.h" |
#include "base.h" |
Line 1893 DPM dpm_sp_nf(VECT psv,VECT psiv,int i,int j,DPM *nf) |
|
Line 1893 DPM dpm_sp_nf(VECT psv,VECT psiv,int i,int j,DPM *nf) |
|
|
|
ps = (DPM *)BDY(psv); |
ps = (DPM *)BDY(psv); |
n = psv->len; |
n = psv->len; |
nv = ps[1]->nv; |
nv = ps[i]->nv; |
dpm_sp(ps[i],ps[j],&g,&t1,&t2); |
dpm_sp(ps[i],ps[j],&g,&t1,&t2); |
mq0 = 0; |
mq0 = 0; |
NEXTDMM(mq0,mq); mq->c = BDY(t1)->c; mq->pos = i; mq->dl = BDY(t1)->dl; |
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 |
|
Line 1974 DPM dpm_sp_nf_zlist(VECT psv,VECT psiv,int i,int j,DPM |
|
|
|
ps = (DPM *)BDY(psv); |
ps = (DPM *)BDY(psv); |
n = psv->len; |
n = psv->len; |
nv = ps[1]->nv; |
nv = ps[i]->nv; |
dpm_sp(ps[i],ps[j],&g,&t1,&t2); |
dpm_sp(ps[i],ps[j],&g,&t1,&t2); |
mq0 = 0; |
mq0 = 0; |
NEXTDMM(mq0,mq); mq->c = BDY(t1)->c; mq->pos = i; mq->dl = BDY(t1)->dl; |
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 |
|
Line 2024 DPM dpm_sp_nf_zlist(VECT psv,VECT psiv,int i,int j,DPM |
|
if ( u ) { |
if ( u ) { |
g = u; |
g = u; |
} else { |
} else { |
|
#if 0 |
m = BDY(g); |
m = BDY(g); |
NEXTDMM(mr0,mr); |
NEXTDMM(mr0,mr); |
mr->dl = m->dl; mr->c = m->c; mr->pos = m->pos; |
mr->dl = m->dl; mr->c = m->c; mr->pos = m->pos; |
dpm_rest(g,&t); g = t; |
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: |
last: |