Changeset 6b32990 in git for Singular/p_Procs_Impl.h

Timestamp:

Dec 12, 2000, 9:44:55 AM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

de7793b9aaa39c2f00b6e30ee4ad5c82915497aa

Parents:

52ea3f939ec0aa2915d2d6a747bab3976eb9bfb7

Message:

* dynamic kernel modules for MP and DBM links
* p_Procs improvements


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

File:

• Singular/p_Procs_Impl.h (modified) (5 diffs)

Singular/p_Procs_Impl.h

@@ -6 +6 @@
  *  Purpose: implementation of primitive procs for polys
  *  Author:  obachman (Olaf Bachmann)
- *  Created: 8/00
- *  Version: $Id: p_Procs_Impl.h,v 1.1 2000-12-07 15:04:00 obachman Exp $
+ *  Created: 12/00
+ *  Version: $Id: p_Procs_Impl.h,v 1.2 2000-12-12 08:44:50 obachman Exp $
  *******************************************************************/
 #ifndef P_PROCS_IMPL_H
@@ -102 +102 @@
 
 // If you add/remove things from here, also remeber to adjust the
-// respective *_2_String 
+// respective *_2_String
 typedef enum p_Field
 {
   FieldGeneral = 0,
   FieldZp,          
+  FieldQ,
   FieldR,
   FieldGF,
-  FieldQ,
 #if HAVE_MORE_FIELDS_IMPLEMENTED
   FieldLong_R,
@@ -199 +199 @@
       case FieldGeneral: return "FieldGeneral";
       case FieldZp: return "FieldZp";          
+      case FieldQ: return "FieldQ";
       case FieldR: return "FieldR";
       case FieldGF: return "FieldGF";
-      case FieldQ: return "FieldQ";
 #if HAVE_MORE_FIELDS_IMPLEMENTED
       case FieldLong_R: return "FieldLong_R";
@@ -284 +284 @@
 }
 
+static inline int p_ProcDependsOn_Field(p_Proc proc)
+{
+  if (proc == p_ShallowCopyDelete_Proc ||
+      proc == p_Merge_q_Proc)
+    return 0;
+  return 1;
+}
+
+static inline int p_ProcDependsOn_Ord(p_Proc proc)
+{
+  switch(proc)
+  {
+      case p_Add_q_Proc:
+      case p_Minus_mm_Mult_qq_Proc:
+      case pp_Mult_mm_Noether_Proc:
+      case p_kBucketSetLm_Proc:
+      case p_Merge_q_Proc:
+        return 1;
+        
+      default:
+        return 0;
+  }
+}
+
+static inline int p_ProcDependsOn_Length(p_Proc proc)
+{
+  switch(proc)
+  {
+      case p_Delete_Proc:
+      case p_Mult_nn_Proc:
+      case p_Neg_Proc:
+        return 0;
+        
+      default:
+        return 1;
+  }
+}
+  
+// returns string specifying the module into which the p_Proc
+// should go
+static inline const char* p_ProcField_2_Module(p_Proc proc,  p_Field field)
+{
+  if (! p_ProcDependsOn_Field(proc))
+    return "FieldIndep";
+  else
+  {
+    if (field > FieldQ) field = FieldGeneral;
+    return p_FieldEnum_2_String(field);
+  }
+}
+
 /***************************************************************
  *  
@@ -454 +505 @@
         break;
         
-      case p_kBucketSetLm_Proc:
-      {
-        if (field != FieldZp)
-        {
-          field = FieldGeneral;
-          length = LengthGeneral;
-          ord = OrdGeneral;
-          return;
-        }
-      }
-
       default: break;
   }