[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.88 and 1.89

version 1.88, 2013/06/14 04:47:17 version 1.89, 2013/09/09 07:29:25
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.87 2012/08/27 05:38:00 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.88 2013/06/14 04:47:17 ohara Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 96  void Pdp_nf_f(),Pdp_weyl_nf_f();
Line 96  void Pdp_nf_f(),Pdp_weyl_nf_f();
 void Pdp_lnf_f();  void Pdp_lnf_f();
 void Pnd_gr(),Pnd_gr_trace(),Pnd_f4(),Pnd_f4_trace();  void Pnd_gr(),Pnd_gr_trace(),Pnd_f4(),Pnd_f4_trace();
 void Pnd_gr_postproc(), Pnd_weyl_gr_postproc();  void Pnd_gr_postproc(), Pnd_weyl_gr_postproc();
 void Pnd_gr_recompute_trace();  void Pnd_gr_recompute_trace(), Pnd_btog();
 void Pnd_weyl_gr(),Pnd_weyl_gr_trace();  void Pnd_weyl_gr(),Pnd_weyl_gr_trace();
 void Pnd_nf(),Pnd_weyl_nf();  void Pnd_nf(),Pnd_weyl_nf();
 void Pdp_initial_term();  void Pdp_initial_term();
Line 165  struct ftab dp_tab[] = {
Line 165  struct ftab dp_tab[] = {
         {"nd_gr_trace",Pnd_gr_trace,5},          {"nd_gr_trace",Pnd_gr_trace,5},
         {"nd_f4_trace",Pnd_f4_trace,5},          {"nd_f4_trace",Pnd_f4_trace,5},
         {"nd_gr_postproc",Pnd_gr_postproc,5},          {"nd_gr_postproc",Pnd_gr_postproc,5},
   #if  0
         {"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5},          {"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5},
   #endif
           {"nd_btog",Pnd_btog,5},
         {"nd_weyl_gr_postproc",Pnd_weyl_gr_postproc,5},          {"nd_weyl_gr_postproc",Pnd_weyl_gr_postproc,5},
         {"nd_weyl_gr",Pnd_weyl_gr,4},          {"nd_weyl_gr",Pnd_weyl_gr,4},
         {"nd_weyl_gr_trace",Pnd_weyl_gr_trace,5},          {"nd_weyl_gr_trace",Pnd_weyl_gr_trace,5},
Line 2208  LIST *rp;
Line 2211  LIST *rp;
         nd_gr_postproc(f,v,m,ord,do_check,rp);          nd_gr_postproc(f,v,m,ord,do_check,rp);
 }  }
   
   #if 0
 void Pnd_gr_recompute_trace(arg,rp)  void Pnd_gr_recompute_trace(arg,rp)
 NODE arg;  NODE arg;
 LIST *rp;  LIST *rp;
Line 2225  LIST *rp;
Line 2229  LIST *rp;
         create_order_spec(0,ARG3(arg),&ord);          create_order_spec(0,ARG3(arg),&ord);
         tlist = (LIST)ARG4(arg);          tlist = (LIST)ARG4(arg);
         nd_gr_recompute_trace(f,v,m,ord,tlist,rp);          nd_gr_recompute_trace(f,v,m,ord,tlist,rp);
   }
   #endif
   
   void Pnd_btog(arg,rp)
   NODE arg;
   MAT *rp;
   {
           LIST f,v,tlist;
           int m;
           struct order_spec *ord;
   
           do_weyl = 0;
           asir_assert(ARG0(arg),O_LIST,"nd_btog");
           asir_assert(ARG1(arg),O_LIST,"nd_btog");
           asir_assert(ARG2(arg),O_N,"nd_btog");
           f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           m = QTOS((Q)ARG2(arg));
           create_order_spec(0,ARG3(arg),&ord);
           tlist = (LIST)ARG4(arg);
           *rp = nd_btog(f,v,m,ord,tlist);
 }  }
   
 void Pnd_weyl_gr_postproc(arg,rp)  void Pnd_weyl_gr_postproc(arg,rp)
Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>