Changeset 3095a1 in git for Singular/iparith.cc

Timestamp:

Dec 13, 2000, 6:49:40 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2c2db37cb61af0e417d395151cd3c532d9ff1482

Parents:

c17dd0f48fd2feb7f00ed95eb94b394157c1d7ba

Message:

*hannes: repart/impart


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.239 2000-12-08 14:57:19 Singular Exp $ */
+/* $Id: iparith.cc,v 1.240 2000-12-13 17:49:37 Singular Exp $ */
 
 /*
@@ -189 +189 @@
   { "if",          0, IF_CMD ,            IF_CMD},
   { "imap",        0, IMAP_CMD ,          CMD_2},
+  { "impart",      0, IMPART_CMD ,        CMD_1},
 #ifdef HAVE_NAMESPACES
   { "importfrom",  0, IMPORTFROM_CMD ,    CMD_M},
@@ -276 +277 @@
   { "reduce",      0, REDUCE_CMD ,        CMD_M},
   { "regularity",  0, REGULARITY_CMD ,    CMD_1},
+  { "repart",      0, REPART_CMD ,        CMD_1},
   { "reservedName",0, RESERVEDNAME_CMD ,  CMD_M},
   { "resolution",  0, RESOLUTION_CMD ,    RING_DECL},
@@ -2846 +2848 @@
   return FALSE;
 }
+static BOOLEAN jjIMPART(leftv res, leftv v)
+{
+  res->data = (char *)nImPart((number)v->Data());
+  return FALSE;
+}
 static BOOLEAN jjINDEPSET(leftv res, leftv v)
 {
@@ -3132 +3139 @@
 {
   res->data = (char *)iiRegularity((lists)v->Data());
+  return FALSE;
+}
+static BOOLEAN jjREPART(leftv res, leftv v)
+{
+  res->data = (char *)nRePart((number)v->Data());
   return FALSE;
 }
@@ -3632 +3644 @@
 ,{jjIDEAL_Map,  IDEAL_CMD,       IDEAL_CMD,      MAP_CMD }
 ,{jjDUMMY,      IDEAL_CMD,       IDEAL_CMD,      IDEAL_CMD }
+,{jjIMPART,     IMPART_CMD,      NUMBER_CMD,     NUMBER_CMD }
 ,{jjINDEPSET,   INDEPSET_CMD,    INTVEC_CMD,     IDEAL_CMD }
 ,{jjDUMMY,      INT_CMD,         INT_CMD,        INT_CMD }
@@ -3715 +3728 @@
 ,{jjREAD,       READ_CMD,        STRING_CMD,     LINK_CMD }
 ,{jjREGULARITY, REGULARITY_CMD,  INT_CMD,        LIST_CMD }
+,{jjREPART,     REPART_CMD,      NUMBER_CMD,     NUMBER_CMD }
 ,{jjRESERVEDNAME,RESERVEDNAME_CMD, INT_CMD,      STRING_CMD }
 ,{jjL2R,        RESOLUTION_CMD,  RESOLUTION_CMD, LIST_CMD }