Changeset ce9c2d in git


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


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

Legend:

Unmodified
Added
Removed
  • Singular/febase.h

    rf5cda4 rce9c2d  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: febase.h,v 1.25 1998-12-02 13:57:26 obachman Exp $ */
     6/* $Id: febase.h,v 1.26 1999-02-26 15:32:01 Singular Exp $ */
    77/*
    88* ABSTRACT
     
    148148    procinfo * pi;        // proc info
    149149    void   * oldb;        // internal scanner buffer
     150    // for files only:
     151    FILE * files;         // file handle
     152    // for buffers only:
     153    char * buffer;        // buffer pointer
     154    long   fptr;          // current position in buffer
     155
    150156    int    start_lineno;  // lineno, to restore in recursion
    151157    int    curr_lineno;   // current lineno
     
    159165            */
    160166    feBufferTypes   typ;  // buffer type: see BT_..
    161     // for files only:
    162     FILE * files;         // file handle
    163     // for buffers only:
    164     char * buffer;        // buffer pointer
    165     long   fptr;          // current position in buffer
    166167
    167168  Voice() { memset(this,0,sizeof(*this));}
  • Singular/fglm.h

    rf5cda4 rce9c2d  
    11// emacs edit mode for this file is -*- C++ -*-
    2 // $Id: fglm.h,v 1.9 1998-06-02 15:29:54 Singular Exp $
     2// $Id: fglm.h,v 1.10 1999-02-26 15:32:02 Singular Exp $
    33
    44/****************************************
     
    2828{
    2929public:
     30    int * divisors;
     31    poly monom;
    3032    int numVars;
    31     poly monom;
    32     int * divisors;
    3333    fglmSelem( poly p, int var );
    3434
     
    4141{
    4242public:
    43     int insertions;
    4443    poly monom;
    4544    fglmVector v;
     45    int insertions;
    4646    int var;
    4747    fglmDelem( poly & m, fglmVector mv, int v );
  • Singular/fglmgauss.h

    rf5cda4 rce9c2d  
    11// emacs edit mode for this file is -*- C++ -*-
    2 // $Id: fglmgauss.h,v 1.4 1998-12-16 18:43:37 Singular Exp $
     2// $Id: fglmgauss.h,v 1.5 1999-02-26 15:32:03 Singular Exp $
    33
    44/****************************************
     
    2020{
    2121private:
    22     int size;
    23     int max;
    2422    gaussElem * elems;
    2523    BOOLEAN * isPivot;
     
    2826    fglmVector p;
    2927    number pdenom;
     28    int size;
     29    int max;
    3030public:
    3131    gaussReducer( int dimen );
  • Singular/fglmzero.cc

    rf5cda4 rce9c2d  
    11// emacs edit mode for this file is -*- C++ -*-
    2 // $Id: fglmzero.cc,v 1.18 1998-09-24 09:59:40 Singular Exp $
     2// $Id: fglmzero.cc,v 1.19 1999-02-26 15:32:04 Singular Exp $
    33
    44/****************************************
     
    303303//     The declaration of class fglmSelem is found in fglm.h
    304304
    305 fglmSelem::fglmSelem( poly p, int var ) : numVars( 0 ), monom( p )
     305fglmSelem::fglmSelem( poly p, int var ) : monom( p ), numVars( 0 )
    306306{
    307307    for ( int k = pVariables; k > 0; k-- )
     
    645645//     The declaration of class fglmDelem is found in fglm.h
    646646
    647 fglmDelem::fglmDelem( poly & m, fglmVector mv, int v ) : insertions( 0 ), v( mv ), var( v )
     647fglmDelem::fglmDelem( poly & m, fglmVector mv, int v ) : v( mv ), insertions( 0 ), var( v )
    648648{
    649649    monom= m;
  • Singular/hutil.h

    rf5cda4 rce9c2d  
    1414typedef monh * monp;
    1515typedef monp * monf;
    16 struct monrec{  scfmon mo;
     16struct monrec
     17{
     18  scfmon mo;
    1719  int a;
    1820};
  • 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
  • Singular/mmpage.c

    rf5cda4 rce9c2d  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: mmpage.c,v 1.1 1998-12-02 13:57:35 obachman Exp $ */
     4/* $Id: mmpage.c,v 1.2 1999-02-26 15:32:06 Singular Exp $ */
    55
    66/*
     
    1313#include <stdlib.h>
    1414#include "mod2.h"
     15#include "mmprivate.h"
    1516#ifdef HAVE_MALLOC_H
    1617#include "malloc.h"
  • Singular/structs.h

    rf5cda4 rce9c2d  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: structs.h,v 1.17 1998-12-14 15:32:29 Singular Exp $ */
     6/* $Id: structs.h,v 1.18 1999-02-26 15:32:06 Singular Exp $ */
    77/*
    88* ABSTRACT
     
    106106typedef procinfo *         procinfov;
    107107typedef namerec *          namehdl;
    108 #endif
    109108
    110109struct _scmdnames
     
    117116typedef struct _scmdnames cmdnames;
    118117
     118struct sip_sring
     119{
     120  idhdl      idroot; /* local objects */
     121  int*       order;  /* array of orderings */
     122  int*       block0; /* starting pos.*/
     123  int*       block1; /* ending pos.*/
     124  char**     parameter; /* names of parameters */
     125  number     minpoly;
     126  short**    wvhdl;  /* array of weight vectors */
     127  char **    names;  /* array of variable names */
     128  /* extension to the ring structure: qring */
     129  ideal      qideal;
     130#ifdef SDRING
     131  short      partN;
     132#endif
     133  short      ch;     /* characteristic */
     134  short      N;      /* number of vars */
     135
     136  short      P;      /* number of pars */
     137  short      OrdSgn; /* 1 for polynomial rings, -1 otherwise */
     138
     139  short      ref;
     140
     141  // what follows below here should be set by rComplete, _only_
     142  int       *VarOffset;   /* controls indexing of exponents */
     143  short     VarCompIndex; /* location of component in exp vector */
     144  short     VarLowIndex;  /* lowest index of an exponent */
     145  short     VarHighIndex; /* Highest index of an expoentn */
     146
     147#ifdef RDEBUG
     148  short      no; /* unique id for rings */
     149#endif
     150};
     151
     152struct sip_sideal
     153{
     154  poly*  m;
     155  long rank;
     156  int nrows;
     157  int ncols;
     158  #define IDELEMS(i) ((i)->ncols)
     159  inline int& idelems(void) { return ncols; }
     160};
     161
     162struct sip_smap
     163{
     164  poly *m;
     165  char *preimage;
     166  int nrows;
     167  int ncols;
     168};
     169#endif
     170
    119171/* the function pointer types */
    120172typedef number (*numberfunc)(number a,number b);
Note: See TracChangeset for help on using the changeset viewer.