Changeset 939cb2 in git for kernel

Timestamp:

Jan 6, 2009, 2:59:59 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b9642b1524d4ca8baf1a96bdb46325fe010f9911

Parents:

cfd4a838c712db187faa46eb4ef99d3e4e88ecaf

Message:

*hannes: comment for ring


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

File:

• kernel/structs.h (modified) (8 diffs)

kernel/structs.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: structs.h,v 1.58 2008-12-09 17:32:52 levandov Exp $ */
+/* $Id: structs.h,v 1.59 2009-01-06 13:59:59 Singular Exp $ */
 /*
 * ABSTRACT
@@ -569 +569 @@
 struct sip_sring
 {
-  idhdl      idroot; /* local objects */
-  int*       order;  /* array of orderings */
-  int*       block0; /* starting pos.*/
-  int*       block1; /* ending pos.*/
-  char**     parameter; /* names of parameters */
-  number     minpoly;
+// each entry must have a description and a procedure defining it,
+// general ordering: pointer/structs, long, int, short, BOOLEAN/char/enum
+// general defining procedures: rInit, rComplete, interpreter, ??
+  idhdl      idroot; /* local objects , interpreter*/
+  int*       order;  /* array of orderings, rInit/rSleftvOrdering2Ordering */
+  int*       block0; /* starting pos., rInit/rSleftvOrdering2Ordering*/
+  int*       block1; /* ending pos., rInit/rSleftvOrdering2Ordering*/
+  char**     parameter; /* names of parameters, rInit */
+  number     minpoly;  /* for Q_a/Zp_a, rInit */
   ideal      minideal;
-  int**      wvhdl;  /* array of weight vectors */
-  char **    names;  /* array of variable names */
-
-  unsigned long options; /* ring dependent options */
+  int**      wvhdl;  /* array of weight vectors, rInit/rSleftvOrdering2Ordering */
+  char **    names;  /* array of variable names, rInit */
 
   // what follows below here should be set by rComplete, _only_
@@ -587 +588 @@
   // is NULL for lp or N == 1, otherwise non-NULL (with OrdSize > 0 entries) */
   sro_ord*   typ;   /* array of orderings + sizes, OrdSize entries */
-
-  ideal      qideal; /* extension to the ring structure: qring */
+  /* if NegWeightL_Size > 0, then NegWeightL_Offset[0..size_1] is index of longs
+  in ExpVector whose values need an offset due to negative weights */
+  /* array of NegWeigtL_Size indicies */
+  int*      NegWeightL_Offset;
+
+
+  ideal      qideal; /* extension to the ring structure: qring, rInit */
 
 
@@ -595 +601 @@
 
   struct omBin_s*   PolyBin; /* Bin from where monoms are allocated */
-  int        ch;     /* characteristic */
 #ifdef HAVE_RINGS
   unsigned int  ringtype;  /* cring = 0 => coefficient field, cring = 1 => coeffs from Z/2^m */
@@ -601 +606 @@
   unsigned long ringflagb;
 #endif
-  int        ref; /* reference counter to the ring */
-
-  short      float_len; /* additional char-flags */
-  short      float_len2; /* additional char-flags */
-
-  short      N;      /* number of vars */
-
-  short      P;      /* number of pars */
-  short      OrdSgn; /* 1 for polynomial rings, -1 otherwise */
+  unsigned long options; /* ring dependent options */
+
+  int        ch;  /* characteristic, rInit */
+  int        ref; /* reference counter to the ring, interpreter */
+
+  short      float_len; /* additional char-flags, rInit */
+  short      float_len2; /* additional char-flags, rInit */
+
+  short      N;      /* number of vars, rInit */
+
+  short      P;      /* number of pars, rInit */
+  short      OrdSgn; /* 1 for polynomial rings, -1 otherwise, rInit */
 
   short     firstBlockEnds;
@@ -626 +634 @@
   // TRUE if the monomial ordering has polynomial and power series blocks
   BOOLEAN   MixedOrder;
-  // 1 for lex ordering (except ls), -1 otherwise
+  // TRUE for global/local mixed orderings, FALSE otherwise
   BOOLEAN   ComponentOrder;
 
@@ -638 +646 @@
      occupied by variables, only */
   short     VarL_Size;
-
   short      BitsPerExp; /* number of bits per exponent */
   short      ExpPerLong; /* maximal number of Exponents per long */
-
   short      pCompIndex; /* p->exp.e[pCompIndex] is the component */
   short      pOrdIndex; /* p->exp[pOrdIndex] is pGetOrd(p) */
-
   short      OrdSize; /* size of ord vector (in sro_ord) */
-
 
   /* if >= 0, long vars in exp vector are consecutive and start there
@@ -655 +659 @@
   short     MinExpPerLong;
 
-  /* if this is > 0, then NegWeightL_Offset[0..size_1] is index of longs in
-   ExpVector whose values need an offset due to negative weights */
   short     NegWeightL_Size;
-  /* array of NegWeigtL_Size indicies */
-  int*      NegWeightL_Offset;
-
   /* array of size VarL_Size,
      VarL_Offset[i] gets i-th long var in exp vector */