[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.24 and 1.25

version 1.24, 2002/01/28 00:54:41 version 1.25, 2002/06/06 01:18:05
Line 45 
Line 45 
  * 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.23 2001/11/19 01:40:04 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.24 2002/01/28 00:54:41 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 89  void Pdp_set_weight();
Line 89  void Pdp_set_weight();
 void Pdp_nf_f(),Pdp_weyl_nf_f();  void Pdp_nf_f(),Pdp_weyl_nf_f();
 void Pdp_lnf_f();  void Pdp_lnf_f();
   
   LIST remove_zero_from_list(LIST);
   
 struct ftab dp_tab[] = {  struct ftab dp_tab[] = {
         /* content reduction */          /* content reduction */
         {"dp_ptozp",Pdp_ptozp,1},          {"dp_ptozp",Pdp_ptozp,1},
Line 1246  LIST *rp;
Line 1248  LIST *rp;
         asir_assert(ARG2(arg),O_N,"dp_gr_main");          asir_assert(ARG2(arg),O_N,"dp_gr_main");
         asir_assert(ARG3(arg),O_N,"dp_gr_main");          asir_assert(ARG3(arg),O_N,"dp_gr_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg);          homo = (Num)ARG2(arg);
         m = (Q)ARG3(arg);          m = (Q)ARG3(arg);
         if ( !m )          if ( !m )
Line 1271  LIST *rp;
Line 1277  LIST *rp;
         asir_assert(ARG1(arg),O_LIST,"dp_gr_f_main");          asir_assert(ARG1(arg),O_LIST,"dp_gr_f_main");
         asir_assert(ARG2(arg),O_N,"dp_gr_f_main");          asir_assert(ARG2(arg),O_N,"dp_gr_f_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg);          homo = (Num)ARG2(arg);
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
         dp_gr_main(f,v,homo,0,1,&ord,rp);          dp_gr_main(f,v,homo,0,1,&ord,rp);
Line 1287  LIST *rp;
Line 1297  LIST *rp;
         asir_assert(ARG0(arg),O_LIST,"dp_f4_main");          asir_assert(ARG0(arg),O_LIST,"dp_f4_main");
         asir_assert(ARG1(arg),O_LIST,"dp_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_f4_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         create_order_spec(ARG2(arg),&ord);          create_order_spec(ARG2(arg),&ord);
         dp_f4_main(f,v,&ord,rp);          dp_f4_main(f,v,&ord,rp);
 }  }
Line 1324  LIST *rp;
Line 1338  LIST *rp;
         asir_assert(ARG1(arg),O_LIST,"dp_f4_mod_main");          asir_assert(ARG1(arg),O_LIST,"dp_f4_mod_main");
         asir_assert(ARG2(arg),O_N,"dp_f4_mod_main");          asir_assert(ARG2(arg),O_N,"dp_f4_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         if ( !m )          if ( !m )
                 error("dp_f4_mod_main : invalid argument");                  error("dp_f4_mod_main : invalid argument");
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
Line 1345  LIST *rp;
Line 1363  LIST *rp;
         asir_assert(ARG2(arg),O_N,"dp_gr_mod_main");          asir_assert(ARG2(arg),O_N,"dp_gr_mod_main");
         asir_assert(ARG3(arg),O_N,"dp_gr_mod_main");          asir_assert(ARG3(arg),O_N,"dp_gr_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));          homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));
         if ( !m )          if ( !m )
                 error("dp_gr_mod_main : invalid argument");                  error("dp_gr_mod_main : invalid argument");
Line 1369  LIST *rp;
Line 1391  LIST *rp;
         asir_assert(ARG2(arg),O_N,"dp_weyl_gr_main");          asir_assert(ARG2(arg),O_N,"dp_weyl_gr_main");
         asir_assert(ARG3(arg),O_N,"dp_weyl_gr_main");          asir_assert(ARG3(arg),O_N,"dp_weyl_gr_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg);          homo = (Num)ARG2(arg);
         m = (Q)ARG3(arg);          m = (Q)ARG3(arg);
         if ( !m )          if ( !m )
Line 1396  LIST *rp;
Line 1422  LIST *rp;
         asir_assert(ARG2(arg),O_N,"dp_weyl_gr_main");          asir_assert(ARG2(arg),O_N,"dp_weyl_gr_main");
         asir_assert(ARG3(arg),O_N,"dp_weyl_gr_main");          asir_assert(ARG3(arg),O_N,"dp_weyl_gr_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg);          homo = (Num)ARG2(arg);
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
         do_weyl = 1;          do_weyl = 1;
Line 1413  LIST *rp;
Line 1443  LIST *rp;
         asir_assert(ARG0(arg),O_LIST,"dp_weyl_f4_main");          asir_assert(ARG0(arg),O_LIST,"dp_weyl_f4_main");
         asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         create_order_spec(ARG2(arg),&ord);          create_order_spec(ARG2(arg),&ord);
         do_weyl = 1;          do_weyl = 1;
         dp_f4_main(f,v,&ord,rp);          dp_f4_main(f,v,&ord,rp);
Line 1431  LIST *rp;
Line 1465  LIST *rp;
         asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");
         asir_assert(ARG2(arg),O_N,"dp_f4_main");          asir_assert(ARG2(arg),O_N,"dp_f4_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         if ( !m )          if ( !m )
                 error("dp_weyl_f4_mod_main : invalid argument");                  error("dp_weyl_f4_mod_main : invalid argument");
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
Line 1453  LIST *rp;
Line 1491  LIST *rp;
         asir_assert(ARG2(arg),O_N,"dp_weyl_gr_mod_main");          asir_assert(ARG2(arg),O_N,"dp_weyl_gr_mod_main");
         asir_assert(ARG3(arg),O_N,"dp_weyl_gr_mod_main");          asir_assert(ARG3(arg),O_N,"dp_weyl_gr_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
           f = remove_zero_from_list(f);
           if ( !BDY(f) ) {
                   *rp = f; return;
           }
         homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));          homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));
         if ( !m )          if ( !m )
                 error("dp_weyl_gr_mod_main : invalid argument");                  error("dp_weyl_gr_mod_main : invalid argument");
Line 1512  VECT *rp;
Line 1554  VECT *rp;
                         current_weyl_weight_vector[i] = QTOS((Q)v->body[i]);                          current_weyl_weight_vector[i] = QTOS((Q)v->body[i]);
                 *rp = v;                  *rp = v;
         }          }
   }
   
   LIST remove_zero_from_list(LIST l)
   {
           NODE n,r0,r;
           LIST rl;
   
           asir_assert(l,O_LIST,"remove_zero_from_list");
           n = BDY(l);
           for ( r0 = 0; n; n = NEXT(n) )
                   if ( BDY(n) ) {
                           NEXTNODE(r0,r);
                           BDY(r) = BDY(n);
                   }
           if ( r0 )
                   NEXT(r) = 0;
           MKLIST(rl,r0);
           return rl;
 }  }
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>