[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.86 and 1.88

version 1.86, 2012/04/10 07:15:07 version 1.88, 2013/06/14 04:47:17
Line 44 
Line 44 
  * 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.85 2011/03/30 02:43:18 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.87 2012/08/27 05:38:00 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 114  LIST dp_initial_term();
Line 114  LIST dp_initial_term();
 LIST dp_order();  LIST dp_order();
 void parse_gr_option(LIST f,NODE opt,LIST *v,Num *homo,  void parse_gr_option(LIST f,NODE opt,LIST *v,Num *homo,
         int *modular,struct order_spec **ord);          int *modular,struct order_spec **ord);
   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);
   
Line 2137  NODE arg;
Line 2138  NODE arg;
 LIST *rp;  LIST *rp;
 {  {
         LIST f,v;          LIST f,v;
         int m,find;          int m,homo,retdp;
         Obj homo;          Obj val;
         struct order_spec *ord;          struct order_spec *ord;
   
         do_weyl = 0;          do_weyl = 0;
Line 2152  LIST *rp;
Line 2153  LIST *rp;
         }          }
         m = QTOS((Q)ARG2(arg));          m = QTOS((Q)ARG2(arg));
         create_order_spec(0,ARG3(arg),&ord);          create_order_spec(0,ARG3(arg),&ord);
         find = get_opt("homo",&homo);          homo = retdp = 0;
         nd_gr(f,v,m,find&&homo,1,ord,rp);          if ( get_opt("homo",&val) && val ) homo = 1;
           if ( get_opt("dp",&val) && val ) retdp = 1;
           nd_gr(f,v,m,homo,retdp,1,ord,rp);
 }  }
   
 void Pnd_gr(arg,rp)  void Pnd_gr(arg,rp)
Line 2161  NODE arg;
Line 2164  NODE arg;
 LIST *rp;  LIST *rp;
 {  {
         LIST f,v;          LIST f,v;
         int m,find;          int m,homo,retdp;
         Obj homo;          Obj val;
         struct order_spec *ord;          struct order_spec *ord;
   
         do_weyl = 0;          do_weyl = 0;
Line 2176  LIST *rp;
Line 2179  LIST *rp;
         }          }
         m = QTOS((Q)ARG2(arg));          m = QTOS((Q)ARG2(arg));
         create_order_spec(0,ARG3(arg),&ord);          create_order_spec(0,ARG3(arg),&ord);
         find = get_opt("homo",&homo);          homo = retdp = 0;
         nd_gr(f,v,m,find&&homo,0,ord,rp);          if ( get_opt("homo",&val) && val ) homo = 1;
           if ( get_opt("dp",&val) && val ) retdp = 1;
           nd_gr(f,v,m,homo,retdp,0,ord,rp);
 }  }
   
 void Pnd_gr_postproc(arg,rp)  void Pnd_gr_postproc(arg,rp)
Line 2299  NODE arg;
Line 2304  NODE arg;
 LIST *rp;  LIST *rp;
 {  {
         LIST f,v;          LIST f,v;
         int m,find;          int m,homo,retdp;
         Obj homo;          Obj val;
         struct order_spec *ord;          struct order_spec *ord;
   
         do_weyl = 1;          do_weyl = 1;
Line 2314  LIST *rp;
Line 2319  LIST *rp;
         }          }
         m = QTOS((Q)ARG2(arg));          m = QTOS((Q)ARG2(arg));
         create_order_spec(0,ARG3(arg),&ord);          create_order_spec(0,ARG3(arg),&ord);
         find = get_opt("homo",&homo);          homo = retdp = 0;
         nd_gr(f,v,m,find&&homo,0,ord,rp);          if ( get_opt("homo",&val) && val ) homo = 1;
           if ( get_opt("dp",&val) && val ) retdp = 1;
           nd_gr(f,v,m,homo,retdp,0,ord,rp);
         do_weyl = 0;          do_weyl = 0;
 }  }
   
Legend:
Removed from v.1.86  
changed lines
  Added in v.1.88
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>