#include <idrec.h>

Public Member Functions
	idrec ()

void	Init ()

idhdl	get (const char *s, int lev)

idhdl	get_level (const char *s, int lev)

idhdl	set (const char *s, int lev, int t, BOOLEAN init=TRUE)

char *	String (BOOLEAN typed=FALSE)

Data Fields
idhdl	next

const char *	id

utypes	data

attr	attribute

BITSET	flag

int	typ

short	lev

short	ref

unsigned long	id_i

Detailed Description

Definition at line 34 of file idrec.h.

Constructor & Destructor Documentation

◆ idrec()

idrec::idrec ( )

inline

Definition at line 49 of file idrec.h.

49{ memset(this,0,sizeof(*this)); }

Member Function Documentation

◆ get()

idhdl idrec::get	(	const char *	s,
		int	lev
	)

Definition at line 72 of file ipid.cc.

{
  assume(s!=NULL);
  assume((level>=0) && (level<=1000)); //not really, but if it isnt in that bounds..
  idhdl h = this;
  idhdl found=NULL;
  int l;
  const char *id_;
  unsigned long i=iiS2I(s);
  char *dummy=(char*)&i;
  BOOLEAN less4=(dummy[SIZEOF_LONG-1]=='\0');
  while (h!=NULL)
  {
    omCheckAddr((ADDRESS)IDID(h));
    l=IDLEV(h);
    if ((l==0)||(l==level))
    {
      if (i==h->id_i)
      {
        id_=IDID(h);
        if (less4 || (0 == strcmp(s+SIZEOF_LONG,id_+SIZEOF_LONG)))
        {
          if(l==level) return h;
          found=h;
        }
      }
    }
    h = IDNEXT(h);
  }
  return found;
}

◆ get_level()

idhdl idrec::get_level	(	const char *	s,
		int	lev
	)

Definition at line 104 of file ipid.cc.

{
  assume(s!=NULL);
  assume((level>=0) && (level<=1000)); //not really, but if it isnt in that bounds..
  idhdl h = this;
  int l;
  const char *id_;
  unsigned long i=iiS2I(s);
  int less4=(i < (1L<<((SIZEOF_LONG-1)*8)));
  while (h!=NULL)
  {
    omCheckAddr((ADDRESS)IDID(h));
    l=IDLEV(h);
    if ((l==level)&&(i==h->id_i))
    {
      id_=IDID(h);
      if (less4 || (0 == strcmp(s+SIZEOF_LONG,id_+SIZEOF_LONG)))
      {
        return h;
      }
    }
    h = IDNEXT(h);
  }
  return NULL;
}

◆ Init()

void idrec::Init ( )

inline

Definition at line 50 of file idrec.h.

50{ memset(this,0,sizeof(*this)); }

◆ set()

idhdl idrec::set	(	const char *	s,
		int	lev,
		int	t,
		BOOLEAN	init = `TRUE`
	)

Definition at line 237 of file ipid.cc.

{
  //printf("define %s, %x, level: %d, typ: %d\n", s,s,level,t);
  idhdl h = (idrec *)omAlloc0Bin(idrec_bin);
  IDID(h)   = s;
  IDTYP(h)  = t;
  IDLEV(h)  = level;
  IDNEXT(h) = this;
  BOOLEAN at_start=(this==IDROOT);
  h->id_i=iiS2I(s);
  if (t==BUCKET_CMD) WarnS("defining polyBucket");
  if (init)
  {
    if ((t==IDEAL_CMD)||(t==MODUL_CMD))
      IDFLAG(h) = Sy_bit(FLAG_STD);
    IDSTRING(h)=(char *)idrecDataInit(t);
    // additional settings:--------------------------------------
#if 0
    // this leads to a memory leak
    if (t == QRING_CMD)
    {
      // IDRING(h)=rCopy(currRing);
      /* QRING_CMD is ring dep => currRing !=NULL */
    }
#endif
  }
  // --------------------------------------------------------
  if (at_start)
    IDNEXT(h) = IDROOT;
  return  h;
}

◆ String()

char * idrec::String ( BOOLEAN typed = FALSE )

Definition at line 269 of file ipid.cc.

{
  sleftv tmp;
  tmp.Init();
  tmp.rtyp=IDTYP(this);
  tmp.data=IDDATA(this);
  tmp.name=IDID(this);
  return tmp.String(NULL, typed);
}

Field Documentation

◆ attribute

attr idrec::attribute

Definition at line 41 of file idrec.h.

◆ data

utypes idrec::data

Definition at line 40 of file idrec.h.

◆ flag

BITSET idrec::flag

Definition at line 42 of file idrec.h.

◆ id

const char* idrec::id

Definition at line 39 of file idrec.h.

◆ id_i

unsigned long idrec::id_i

Definition at line 47 of file idrec.h.

◆ lev

short idrec::lev

Definition at line 45 of file idrec.h.

◆ next

idhdl idrec::next

Definition at line 38 of file idrec.h.

◆ ref

short idrec::ref

Definition at line 46 of file idrec.h.

◆ typ

int idrec::typ

Definition at line 43 of file idrec.h.

The documentation for this class was generated from the following files:

Singular/idrec.h
Singular/ipid.cc

Public Member Functions

Data Fields