[BACK]Return to dp.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/dp.c between version 1.108 and 1.111

version 1.108, 2018/03/29 01:32:50 version 1.111, 2021/03/24 18:28:07
Line 45 
Line 45 
  * 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/asir2000/builtin/dp.c,v 1.107 2017/09/14 01:34:53 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.110 2020/10/04 03:14:07 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 59  extern struct order_spec *dp_current_spec;
Line 59  extern struct order_spec *dp_current_spec;
 extern struct modorder_spec *dp_current_modspec;  extern struct modorder_spec *dp_current_modspec;
 extern int nd_rref2;  extern int nd_rref2;
   
 int do_weyl;  extern int do_weyl;
   
 void Pdp_sort();  void Pdp_sort();
 void Pdp_mul_trunc(),Pdp_quo();  void Pdp_mul_trunc(),Pdp_quo();
Line 130  void parse_gr_option(LIST f,NODE opt,LIST *v,Num *homo
Line 130  void parse_gr_option(LIST f,NODE opt,LIST *v,Num *homo
 NODE dp_inv_or_split(NODE gb,DP f,struct order_spec *spec, DP *inv);  NODE dp_inv_or_split(NODE gb,DP f,struct order_spec *spec, DP *inv);
   
 LIST remove_zero_from_list(LIST);  LIST remove_zero_from_list(LIST);
   void dtodpm(DP d,int pos,DPM *dp);
   void dpm_nf_z(NODE b,DPM g,DPM *ps,int full,int multiple,DPM *rp);
   void dpm_nf_f(NODE b,DPM g,DPM *ps,int full,DPM *rp);
   void weyl_actd(VL vl,DP p1,DP p2,DP *pr);
   void dpm_sp(DPM p1,DPM p2,DPM *rp);
   void Psetmod_ff();
   int get_opt(char *key0,Obj *r);
   void initdpm(struct order_spec *spec,int type);
   void dpm_hm(DPM p,DPM *rp);
   void dpm_ht(DPM p,DPM *rp);
   
 struct ftab dp_tab[] = {  struct ftab dp_tab[] = {
   /* content reduction */    /* content reduction */
Line 2438  Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord
Line 2448  Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord
 void Pnd_btog(NODE arg,Obj *rp)  void Pnd_btog(NODE arg,Obj *rp)
 {  {
   LIST f,v,tlist;    LIST f,v,tlist;
     Q mq;
   int m,ac,pos;    int m,ac,pos;
   struct order_spec *ord;    struct order_spec *ord;
     NODE node;
     pointer val;
   
   do_weyl = 0;    do_weyl = 0;
   asir_assert(ARG0(arg),O_LIST,"nd_btog");    asir_assert(ARG0(arg),O_LIST,"nd_btog");
   asir_assert(ARG1(arg),O_LIST,"nd_btog");    asir_assert(ARG1(arg),O_LIST,"nd_btog");
   asir_assert(ARG2(arg),O_N,"nd_btog");    asir_assert(ARG2(arg),O_N,"nd_btog");
   f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);    f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
   m = QTOS((Q)ARG2(arg));    mq = (Q)ARG2(arg);
     if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<31)) ) {
       node = mknode(1,mq);
       Psetmod_ff(node,&val);
       m = -2;
     } else
       m = QTOS(mq);
   create_order_spec(0,ARG3(arg),&ord);    create_order_spec(0,ARG3(arg),&ord);
   tlist = (LIST)ARG4(arg);    tlist = (LIST)ARG4(arg);
   if ( (ac = argc(arg)) == 6 ) {    if ( (ac = argc(arg)) == 6 ) {
Legend:
Removed from v.1.108  
changed lines
  Added in v.1.111
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>