Changeset ce9c2d in git for Singular/ipid.h


Ignore:
Timestamp:
Feb 26, 1999, 4:32:06 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
Children:
f7343f357a06c50ebc347cc64f33a37193d88d12
Parents:
f5cda4654265f877bba8ddba45e4486d7c18a16b
Message:
*hannes: aligne structures


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

Legend:

Unmodified
Added
Removed

  • Singular/ipid.h

    rf5cda4 rce9c2d  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ipid.h,v 1.24 1998-12-16 18:43:39 Singular Exp $ */
     6/* $Id: ipid.h,v 1.25 1999-02-26 15:32:05 Singular Exp $ */
    77/*
    88* ABSTRACT: identfier handling
    … …  
    1111#include "structs.h"
    1212#include "subexpr.h"
    13 
    14 struct sip_sring
    15 {
    16   idhdl      idroot; /* local objects */
    17   int*       order;  /* array of orderings */
    18   int*       block0; /* starting pos.*/
    19   int*       block1; /* ending pos.*/
    20   char**     parameter; /* names of parameters */
    21   number     minpoly;
    22   short**    wvhdl;  /* array of weight vectors */
    23   char **    names;  /* array of variable names */
    24   /* extension to the ring structure: qring */
    25   ideal      qideal;
    26 #ifdef SDRING
    27   short      partN;
    28 #endif
    29   short      ch;     /* characteristic */
    30   short      N;      /* number of vars */
    31 
    32   short      P;      /* number of pars */
    33   short      OrdSgn; /* 1 for polynomial rings, -1 otherwise */
    34 
    35   short      ref;
    36 
    37   // what follows below here should be set by rComplete, _only_
    38   int       *VarOffset;   /* controls indexing of exponents */
    39   short     VarCompIndex; /* location of component in exp vector */
    40   short     VarLowIndex;  /* lowest index of an exponent */
    41   short     VarHighIndex; /* Highest index of an expoentn */
    42 
    43 #ifdef RDEBUG
    44   short      no; /* unique id for rings */
    45 #endif
    46 };
    47 
    48 struct sip_sideal
    49 {
    50   poly*  m;
    51   long rank;
    52   int nrows;
    53   int ncols;
    54   #define IDELEMS(i) ((i)->ncols)
    55   inline int& idelems(void) { return ncols; }
    56 };
    57 
    58 struct sip_smap
    59 {
    60   poly *m;
    61   char *preimage;
    62   int nrows;
    63   int ncols;
    64 };
    6513
    6614struct sip_command
Note: See TracChangeset for help on using the changeset viewer.