Changeset 938688 in git for Singular/ipid.h


Ignore:
Timestamp:
Nov 4, 2003, 5:43:50 PM (20 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
f2109c3093e6bb6775ec1f877280c8269b723df8
Parents:
65dea380b7de468a9f3050f10c6134b1ee5e6257
Message:
*hannes:2-1 new dir:kernel


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

Legend:

Unmodified
Added
Removed

  • Singular/ipid.h

    r65dea3 r938688  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ipid.h,v 1.38 2003-03-10 16:43:51 Singular Exp $ */
     6/* $Id: ipid.h,v 1.39 2003-11-04 16:43:29 Singular Exp $ */
    77/*
    88* ABSTRACT: identfier handling
    … …  
    4242}
    4343
    44 union uutypes;
    45 
    46 union uutypes
    47 {
    48   int           i;
    49   ring          uring;
    50   poly          p;
    51   number        n;
    52   ideal         uideal;
    53   map           umap;
    54   matrix        umatrix;
    55   char *        ustring;
    56   intvec *      iv;
    57   lists         l;
    58   si_link       li;
    59   package       pack;
    60   procinfo *    pinf;
    61 };
    62 
    63 class idrec
    64 {
    65   public:
    66   /* !! do not change the first 6 entries !! (see subexpr.h: sleftv) */
    67   idhdl      next;
    68   char *     id;
    69   utypes     data;
    70   attr       attribute;
    71   BITSET     flag;
    72   idtyp      typ;
    73 
    74   short      lev;
    75   short      ref;
    76 
    77 #define IDNEXT(a)    ((a)->next)
    78 #define IDTYP(a)     ((a)->typ)
    79 #define IDFLAG(a)    ((a)->flag)
    80 #define IDLEV(a)     ((a)->lev)
    81 #define IDID(a)      ((a)->id)
    82 #define IDATTR(a)    ((a)->attribute)
    83 
    84 #define IDINT(a)    ((a)->data.i)
    85 #define IDDATA(a)   ((a)->data.ustring)
    86 #define IDRING(a)   ((a)->data.uring)
    87 #define IDINTVEC(a) ((a)->data.iv)
    88 #define IDPOLY(a)   ((a)->data.p)
    89 #define IDNUMBER(a) ((a)->data.n)
    90 #define IDIDEAL(a)  (((a)->data).uideal)
    91 #define IDMATRIX(a) (((a)->data).umatrix)
    92 #define IDMAP(a)    (((a)->data).umap)
    93 #define IDSTRING(a) ((a)->data.ustring)
    94 #define IDLIST(a)   ((a)->data.l)
    95 #define IDLINK(a)   ((a)->data.li)
    96 #define IDPACKAGE(a) ((a)->data.pack)
    97 #define IDPROC(a)   ((a)->data.pinf)
    98 
    99   idrec() { memset(this,0,sizeof(*this)); }
    100   idhdl get(const char * s, int lev);
    101   idhdl set(char * s, int lev, idtyp t, BOOLEAN init=TRUE);
    102   char * String();
    103 //  ~idrec();
    104 };
    105 
    10644class proclevel {
    10745  public:
    … …  
    12058extern proclevel *procstack;
    12159
    122 #ifndef HAVE_NS
    123 extern idhdl      idroot;
    124 #define IDROOT idroot
    125 #endif /* HAVE_NS */
    126 
    127 #ifdef HAVE_NS
    128 extern idhdl currPackHdl;
    129 extern idhdl basePackHdl;
    130 extern package currPack;
    131 extern package basePack;
    132 #define IDROOT (currPack->idroot)
    133 #endif /* HAVE_NS */
    134 
    135 extern idhdl      currRingHdl;
     60/*extern idhdl      currRingHdl; in structs.h */
    13661/*extern ring     currRing;  in structs.h */
    137 extern ideal      currQuotient;
     62/*extern ideal      currQuotient; in structs.h */
    13863
    13964char *idhdl2id(idhdl pck, idhdl h);
Note: See TracChangeset for help on using the changeset viewer.