[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.89 and 1.90

version 1.89, 2013/09/09 07:29:25 version 1.90, 2013/09/09 09:47:09
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.88 2013/06/14 04:47:17 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.89 2013/09/09 07:29:25 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 168  struct ftab dp_tab[] = {
Line 168  struct ftab dp_tab[] = {
 #if  0  #if  0
         {"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5},          {"nd_gr_recompute_trace",Pnd_gr_recompute_trace,5},
 #endif  #endif
         {"nd_btog",Pnd_btog,5},          {"nd_btog",Pnd_btog,-6},
         {"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 2232  LIST *rp;
Line 2232  LIST *rp;
 }  }
 #endif  #endif
   
   Obj nd_btog_one(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist,int pos);
   Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist);
   
 void Pnd_btog(arg,rp)  void Pnd_btog(arg,rp)
 NODE arg;  NODE arg;
 MAT *rp;  Obj *rp;
 {  {
         LIST f,v,tlist;          LIST f,v,tlist;
         int m;          int m,ac,pos;
         struct order_spec *ord;          struct order_spec *ord;
   
         do_weyl = 0;          do_weyl = 0;
Line 2248  MAT *rp;
Line 2251  MAT *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);
         tlist = (LIST)ARG4(arg);          tlist = (LIST)ARG4(arg);
         *rp = nd_btog(f,v,m,ord,tlist);          if ( (ac = argc(arg)) == 6 ) {
                   asir_assert(ARG5(arg),O_N,"nd_btog");
                   pos = QTOS((Q)ARG5(arg));
                   *rp = nd_btog_one(f,v,m,ord,tlist,pos);
           } else if ( ac == 5 )
                   *rp = nd_btog(f,v,m,ord,tlist);
           else
                   error("nd_btog : argument mismatch");
 }  }
   
 void Pnd_weyl_gr_postproc(arg,rp)  void Pnd_weyl_gr_postproc(arg,rp)
Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>