[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.90 and 1.92

version 1.90, 2013/09/09 09:47:09 version 1.92, 2014/08/19 06:35:01
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.89 2013/09/09 07:29:25 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.91 2013/09/12 06:46:16 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
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,-6},          {"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},
Line 2211  LIST *rp;
Line 2209  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 2230  LIST *rp;
Line 2227  LIST *rp;
         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  
   
 Obj nd_btog_one(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist,int pos);  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);  Obj nd_btog(LIST f,LIST v,int m,struct order_spec *ord,LIST tlist);
Line 2640  VECT *rp;
Line 2636  VECT *rp;
         }          }
 }  }
   
 VECT current_top_weight_vector_obj;  Obj current_top_weight;
 N *current_top_weight_vector;  extern Obj nd_top_weight;
   
 void Pdp_set_top_weight(arg,rp)  void Pdp_set_top_weight(NODE arg,Obj *rp)
 NODE arg;  
 VECT *rp;  
 {  {
         VECT v;          VECT v;
         int i,n;          MAT m;
           Obj obj;
           int i,j,n,id,row,col;
           Q *mi;
         NODE node;          NODE node;
   
         if ( !arg )          if ( !arg )
                 *rp = current_top_weight_vector_obj;                  *rp = current_top_weight;
         else if ( !ARG0(arg) ) {          else if ( !ARG0(arg) ) {
                 current_top_weight_vector = 0;                  nd_top_weight = 0;
                 current_top_weight_vector_obj = 0;                  current_top_weight = 0;
                 *rp = 0;                  *rp = 0;
         } else {          } else {
                 if ( OID(ARG0(arg)) != O_VECT && OID(ARG0(arg)) != O_LIST )                  id = OID(ARG0(arg));
                   if ( id != O_VECT && id != O_MAT && id != O_LIST )
                         error("dp_set_top_weight : invalid argument");                          error("dp_set_top_weight : invalid argument");
                 if ( OID(ARG0(arg)) == O_VECT )                  if ( id == O_LIST ) {
                         v = (VECT)ARG0(arg);  
                 else {  
                         node = (NODE)BDY((LIST)ARG0(arg));                          node = (NODE)BDY((LIST)ARG0(arg));
                         n = length(node);                          n = length(node);
                         MKVECT(v,n);                          MKVECT(v,n);
                         for ( i = 0; i < n; i++, node = NEXT(node) )                          for ( i = 0; i < n; i++, node = NEXT(node) )
                                 BDY(v)[i] = BDY(node);                                  BDY(v)[i] = BDY(node);
                       obj = v;
                   } else
                       obj = ARG0(arg);
                   if ( OID(obj) == O_VECT ) {
                           v = (VECT)obj;
                       for ( i = 0; i < v->len; i++ )
                               if ( !INT(BDY(v)[i]) || (BDY(v)[i] && SGN((Q)BDY(v)[i]) < 0) )
                                       error("dp_set_top_weight : each element must be a non-negative integer");
                   } else {
                           m = (MAT)obj; row = m->row; col = m->col;
                       for ( i = 0; i < row; i++ )
                                   for ( j = 0, mi = (Q *)BDY(m)[i]; j < col; j++ )
                                   if ( !INT(mi[j]) || (mi[j] && SGN((Q)mi[j]) < 0) )
                                           error("dp_set_top_weight : each element must be a non-negative integer");
                 }                  }
                 for ( i = 0; i < v->len; i++ )          current_top_weight = obj;
                         if ( !INT(BDY(v)[i]) || (BDY(v)[i] && SGN((Q)BDY(v)[i]) < 0) )                  nd_top_weight = obj;
                                 error("dp_set_top_weight : each element must be a non-negative integer");                  *rp = current_top_weight;
                 current_top_weight_vector_obj = v;  
                 current_top_weight_vector = (N *)MALLOC(v->len*sizeof(N));  
                 for ( i = 0; i < v->len; i++ ) {  
                         current_top_weight_vector[i] = !BDY(v)[i]?0:NM((Q)BDY(v)[i]);  
                 }  
                 *rp = current_top_weight_vector_obj;  
         }          }
 }  }
   
Line 2972  int get_opt(char *key0,Obj *r) {
Line 2976  int get_opt(char *key0,Obj *r) {
    }     }
    return 0;     return 0;
 }  }
   
Legend:
Removed from v.1.90  
changed lines
  Added in v.1.92
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>