[BACK]Return to poly.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/poly.c between version 1.10 and 1.11

version 1.10, 2001/05/09 01:41:41 version 1.11, 2001/05/28 08:22:00
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/poly.c,v 1.9 2001/05/02 09:03:52 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.10 2001/05/09 01:41:41 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 63  void Pp_mag(),Pmaxblen();
Line 63  void Pp_mag(),Pmaxblen();
 void Pmergelist(), Pch_mv(), Pre_mv(), Pdeglist();  void Pmergelist(), Pch_mv(), Pre_mv(), Pdeglist();
 void Pptomp(),Pmptop();  void Pptomp(),Pmptop();
 void Pptolmp(),Plmptop();  void Pptolmp(),Plmptop();
 void Psfptop();  void Pptosfp(),Psfptop(),Psf_galois_action();
 void Pptogf2n(),Pgf2ntop(),Pgf2ntovect();  void Pptogf2n(),Pgf2ntop(),Pgf2ntovect();
 void Pptogfpn(),Pgfpntop();  void Pptogfpn(),Pgfpntop();
 void Pfind_root_gf2n();  void Pfind_root_gf2n();
Line 150  struct ftab poly_tab[] = {
Line 150  struct ftab poly_tab[] = {
         {"ptolmp",Pptolmp,1},          {"ptolmp",Pptolmp,1},
         {"lmptop",Plmptop,1},          {"lmptop",Plmptop,1},
   
           {"sf_galois_action",Psf_galois_action,2},
           {"ptosfp",Pptosfp,1},
         {"sfptop",Psfptop,1},          {"sfptop",Psfptop,1},
   
         {"ptogf2n",Pptogf2n,1},          {"ptogf2n",Pptogf2n,1},
Line 798  Obj *rp;
Line 800  Obj *rp;
                                         VR(current_gfs_ext),&p);                                          VR(current_gfs_ext),&p);
                                 n0 = mknode(3,q,current_gfs_ext,p);                                  n0 = mknode(3,q,current_gfs_ext,p);
                         } else {                          } else {
                                 STOQ(current_gfs_iton[1],r);                                  if ( current_gfs_p == 2 )
                                           r = ONE;
                                   else
                                           STOQ(current_gfs_iton[1],r);
                                 n0 = mknode(3,q,current_gfs_ext,r);                                  n0 = mknode(3,q,current_gfs_ext,r);
                         }                          }
                         MKLIST(list,n0);                          MKLIST(list,n0);
Line 1174  NODE arg;
Line 1179  NODE arg;
 P *rp;  P *rp;
 {  {
         lmptop((P)ARG0(arg),rp);          lmptop((P)ARG0(arg),rp);
   }
   
   void Psf_galois_action(arg,rp)
   NODE arg;
   P *rp;
   {
           sf_galois_action(ARG0(arg),ARG1(arg),rp);
   }
   
   void Pptosfp(arg,rp)
   NODE arg;
   P *rp;
   {
           ptosfp(ARG0(arg),rp);
 }  }
   
 void Psfptop(arg,rp)  void Psfptop(arg,rp)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>