Changeset 54ef19 in git for Singular/iparith.cc

Timestamp:

Jun 30, 1999, 4:41:04 PM (24 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

bc4605bbb4d385f31d7d577505aff5628d795356

Parents:

acdc8811826bf6e70ab5914caefe73da2b97572a

Message:

bareiss with 3 arguments


git-svn-id: file:///usr/local/Singular/svn/trunk@3195 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (4 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.154 1999-06-29 14:39:14 Singular Exp $ */
+/* $Id: iparith.cc,v 1.155 1999-06-30 14:41:04 pohl Exp $ */
 
 /*
@@ -3844 +3844 @@
   return r;
 }
+static BOOLEAN jjBAREISS3(leftv res, leftv u, leftv v, leftv w)
+{
+  
+  lists l=smCallNewBareiss((ideal)u->Data(),(int)v->Data(),(int)w->Data());
+  res->data = (char *)l;
+  return FALSE;
+}
 static BOOLEAN jjCOEFFS3_Id(leftv res, leftv u, leftv v, leftv w)
 {
@@ -4232 +4239 @@
 ,{jjPROC3,          '(',        ANY_TYPE,   PROC_CMD,   DEF_CMD,    DEF_CMD }
 ,{atATTRIB3,        ATTRIB_CMD, NONE,       IDHDL,      STRING_CMD, DEF_CMD }
+,{jjBAREISS3,       BAREISS_CMD,LIST_CMD,   MODUL_CMD,  INT_CMD,    INT_CMD }
 ,{jjCOEFFS3_P,      COEFFS_CMD, MATRIX_CMD, POLY_CMD,   POLY_CMD,   MATRIX_CMD }
 ,{jjCOEFFS3_P,      COEFFS_CMD, MATRIX_CMD, VECTOR_CMD, POLY_CMD,   MATRIX_CMD }
@@ -4243 +4251 @@
 //,{jjCALL3MANY,      INTERSECT_CMD,  NONE,   DEF_CMD,    DEF_CMD,    DEF_CMD }
 ,{lInsert3,         INSERT_CMD, LIST_CMD,   LIST_CMD,   DEF_CMD,    INT_CMD }
-,{jjINTMAT3,        INTMAT_CMD, INTMAT_CMD, INTMAT_CMD, INT_CMD,    INT_CMD}
+,{jjINTMAT3,        INTMAT_CMD, INTMAT_CMD, INTMAT_CMD, INT_CMD,    INT_CMD }
 ,{jjCALL3MANY,      INTVEC_CMD, INTVEC_CMD, DEF_CMD,    DEF_CMD,    DEF_CMD }
 ,{jjJET_P_IV,       JET_CMD,    POLY_CMD,   POLY_CMD,   INT_CMD,    INTVEC_CMD }