Changeset ce9c2d in git for Singular/structs.h

Timestamp:

Feb 26, 1999, 4:32:06 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

f7343f357a06c50ebc347cc64f33a37193d88d12

Parents:

f5cda4654265f877bba8ddba45e4486d7c18a16b

Message:

*hannes: aligne structures


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

File:

• Singular/structs.h (modified) (3 diffs)

Singular/structs.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: structs.h,v 1.17 1998-12-14 15:32:29 Singular Exp $ */
+/* $Id: structs.h,v 1.18 1999-02-26 15:32:06 Singular Exp $ */
 /*
 * ABSTRACT
@@ -106 +106 @@
 typedef procinfo *         procinfov;
 typedef namerec *          namehdl;
-#endif
 
 struct _scmdnames
@@ -117 +116 @@
 typedef struct _scmdnames cmdnames;
 
+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;
+  short**    wvhdl;  /* array of weight vectors */
+  char **    names;  /* array of variable names */
+  /* extension to the ring structure: qring */
+  ideal      qideal;
+#ifdef SDRING
+  short      partN;
+#endif
+  short      ch;     /* characteristic */
+  short      N;      /* number of vars */
+
+  short      P;      /* number of pars */
+  short      OrdSgn; /* 1 for polynomial rings, -1 otherwise */
+
+  short      ref;
+
+  // what follows below here should be set by rComplete, _only_
+  int       *VarOffset;   /* controls indexing of exponents */
+  short     VarCompIndex; /* location of component in exp vector */
+  short     VarLowIndex;  /* lowest index of an exponent */
+  short     VarHighIndex; /* Highest index of an expoentn */
+
+#ifdef RDEBUG
+  short      no; /* unique id for rings */
+#endif
+};
+
+struct sip_sideal
+{
+  poly*  m;
+  long rank;
+  int nrows;
+  int ncols;
+  #define IDELEMS(i) ((i)->ncols)
+  inline int& idelems(void) { return ncols; }
+};
+
+struct sip_smap
+{
+  poly *m;
+  char *preimage;
+  int nrows;
+  int ncols;
+};
+#endif
+
 /* the function pointer types */
 typedef number (*numberfunc)(number a,number b);