[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.87

version 1.86, 2012/04/10 07:15:07 version 1.87, 2012/08/27 05:38:00
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.86 2012/04/10 07:15:07 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 2137  NODE arg;
Line 2137  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 2152  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 2163  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 2178  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 2303  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 2318  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.87
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>