ipid.h File Reference

#include <string.h>
#include <Singular/idrec.h>
#include <Singular/subexpr.h>
#include <Singular/lists.h>

Go to the source code of this file.

Data Structures
struct	ip_command
struct	ip_package
class	proclevel
struct	SModulFunctions

Macros
#define	IDROOT   (currPack->idroot)
#define	FLAG_STD   0
#define	FLAG_TWOSTD   3
#define	FLAG_QRING   4
#define	hasFlag(A, F)   Sy_inset((F),(A)->flag)
#define	setFlag(A, F)   (A)->flag|=Sy_bit(F)
#define	resetFlag(A, F)   (A)->flag&=~Sy_bit(F)
#define	IDNEXT(a)   ((a)->next)
#define	IDTYP(a)   ((a)->typ)
#define	IDFLAG(a)   ((a)->flag)
#define	IDLEV(a)   ((a)->lev)
#define	IDID(a)   ((a)->id)
#define	IDATTR(a)   ((a)->attribute)
#define	IDINT(a)   ((int)(long)((a)->data.ustring))
#define	IDDATA(a)   ((a)->data.ustring)
#define	IDRING(a)   ((a)->data.uring)
#define	IDINTVEC(a)   ((a)->data.iv)
#define	IDBIMAT(a)   ((a)->data.bim)
#define	IDPOLY(a)   ((a)->data.p)
#define	IDBIGINT(a)   ((a)->data.n)
#define	IDNUMBER(a)   ((a)->data.n)
#define	IDIDEAL(a)   ((a)->data.uideal)
#define	IDMATRIX(a)   ((a)->data.umatrix)
#define	IDMAP(a)   ((a)->data.umap)
#define	IDSTRING(a)   ((a)->data.ustring)
#define	IDLIST(a)   ((a)->data.l)
#define	IDLINK(a)   ((a)->data.li)
#define	IDPACKAGE(a)   ((a)->data.pack)
#define	IDPROC(a)   ((a)->data.pinf)

Typedefs
typedef ip_command *	command
typedef int(*	SModulFunc_t) (SModulFunctions *)

Functions
package	paCopy (package pack)
void	paKill (package pack)
BOOLEAN	load_builtin (const char *newlib, BOOLEAN autoexport, SModulFunc_t init)
void	module_help_main (const char *newlib, const char *help)
void	module_help_proc (const char *newlib, const char *p, const char *help)
idhdl	enterid (const char *a, int lev, int t, idhdl *root, BOOLEAN init=TRUE, BOOLEAN serach=TRUE)
idhdl	ggetid (const char *n)
idhdl	ggetid (const char *n, BOOLEAN local, idhdl *packhdl)
void	killid (const char *a, idhdl *i)
void	killhdl (idhdl h, package prooti=currPack)
void	killhdl2 (idhdl h, idhdl *ih, ring r)
lists	ipNameList (idhdl root)
lists	ipNameListLev (idhdl root, int lev)
void	ipMoveId (idhdl h)
BOOLEAN	checkPackage (package pack)
idhdl	packFindHdl (package r)
void	jjNormalizeQRingP (poly &p)
void	jjNormalizeQRingId (leftv I)
void *	idrecDataInit (int t)
void	ipListFlag (idhdl h)

Variables
idhdl	currPackHdl
idhdl	basePackHdl
package	currPack
package	basePack
proclevel *	procstack
idhdl	currRingHdl
omBin	sip_command_bin
omBin	sip_package_bin
omBin	idrec_bin
omBin	sleftv_bin
coeffs	coeffs_BIGINT
FILE *	feFilePending

---

Data Structure Documentation

struct sip_command

Definition at line 26 of file ipid.h.

Data Fields
sleftv	arg1
sleftv	arg2
sleftv	arg3
short	argc
short	op

struct sip_package

Definition at line 35 of file ipid.h.

Data Fields
void *	handle
idhdl	idroot
language_defs	language
char *	libname
BOOLEAN	loaded
short	ref

Macro Definition Documentation

#define FLAG_QRING   4

Definition at line 110 of file ipid.h.

#define FLAG_STD   0

Definition at line 108 of file ipid.h.

#define FLAG_TWOSTD   3

Definition at line 109 of file ipid.h.

#define hasFlag	(		A,
			F
	)		Sy_inset((F),(A)->flag)

Definition at line 111 of file ipid.h.

#define IDATTR

(

a

)

((a)->attribute)

Definition at line 122 of file ipid.h.

#define IDBIGINT

(

a

)

((a)->data.n)

Definition at line 130 of file ipid.h.

#define IDBIMAT

(

a

)

((a)->data.bim)

Definition at line 128 of file ipid.h.

#define IDDATA

(

a

)

((a)->data.ustring)

Definition at line 125 of file ipid.h.

#define IDFLAG

(

a

)

((a)->flag)

Definition at line 119 of file ipid.h.

#define IDID

(

a

)

((a)->id)

Definition at line 121 of file ipid.h.

#define IDIDEAL

(

a

)

((a)->data.uideal)

Definition at line 132 of file ipid.h.

#define IDINT

(

a

)

((int)(long)((a)->data.ustring))

Definition at line 124 of file ipid.h.

#define IDINTVEC

(

a

)

((a)->data.iv)

Definition at line 127 of file ipid.h.

#define IDLEV

(

a

)

((a)->lev)

Definition at line 120 of file ipid.h.

#define IDLINK

(

a

)

((a)->data.li)

Definition at line 137 of file ipid.h.

#define IDLIST

(

a

)

((a)->data.l)

Definition at line 136 of file ipid.h.

#define IDMAP

(

a

)

((a)->data.umap)

Definition at line 134 of file ipid.h.

#define IDMATRIX

(

a

)

((a)->data.umatrix)

Definition at line 133 of file ipid.h.

#define IDNEXT

(

a

)

((a)->next)

Definition at line 117 of file ipid.h.

#define IDNUMBER

(

a

)

((a)->data.n)

Definition at line 131 of file ipid.h.

#define IDPACKAGE

(

a

)

((a)->data.pack)

Definition at line 138 of file ipid.h.

#define IDPOLY

(

a

)

((a)->data.p)

Definition at line 129 of file ipid.h.

#define IDPROC

(

a

)

((a)->data.pinf)

Definition at line 139 of file ipid.h.

#define IDRING

(

a

)

((a)->data.uring)

Definition at line 126 of file ipid.h.

#define IDROOT   (currPack->idroot)

Definition at line 20 of file ipid.h.

#define IDSTRING

(

a

)

((a)->data.ustring)

Definition at line 135 of file ipid.h.

#define IDTYP

(

a

)

((a)->typ)

Definition at line 118 of file ipid.h.

#define resetFlag	(		A,
			F
	)		(A)->flag&=~Sy_bit(F)

Definition at line 113 of file ipid.h.

#define setFlag	(		A,
			F
	)		(A)->flag|=Sy_bit(F)

Definition at line 112 of file ipid.h.

Typedef Documentation

typedef ip_command* command

Definition at line 24 of file ipid.h.

typedef int(* SModulFunc_t) (SModulFunctions *)

Definition at line 84 of file ipid.h.

Function Documentation

BOOLEAN checkPackage

(

package

pack

)

idhdl enterid	(	const char *	a,
		int	lev,
		int	t,
		idhdl *	root,
		BOOLEAN	init = TRUE,
		BOOLEAN	serach = TRUE
	)

Definition at line 259 of file ipid.cc.

{
  if (s==NULL) return NULL;
  if (root==NULL) return NULL;
  idhdl h;
  s=omStrDup(s);
  // idhdl *save_root=root;
  if (t==PACKAGE_CMD)
  {
    if (root!=&(basePack->idroot))
    {
      root=&(basePack->idroot);
    }
  }
  // is it already defined in root ?
  if ((h=(*root)->get(s,lev))!=NULL)
  {
    if (IDLEV(h)==lev)
    {
      if ((IDTYP(h) == t)||(t==DEF_CMD))
      {
        if ((IDTYP(h)==PACKAGE_CMD)
        && (strcmp(s,"Top")==0))
        {
          goto errlabel;
        }
        if (BVERBOSE(V_REDEFINE))
          Warn("redefining %s **",s);
        if (s==IDID(h)) IDID(h)=NULL;
        killhdl2(h,root,currRing);
      }
      else
        goto errlabel;
    }
  }
  // is it already defined in currRing->idroot ?
  else if (search && (currRing!=NULL)&&((*root) != currRing->idroot))
  {
    if ((h=currRing->idroot->get(s,lev))!=NULL)
    {
      if (IDLEV(h)==lev)
      {
        if ((IDTYP(h) == t)||(t==DEF_CMD))
        {
          if (BVERBOSE(V_REDEFINE))
            Warn("redefining %s **",s);
          if (s==IDID(h)) IDID(h)=NULL;
          killhdl2(h,&currRing->idroot,currRing);
        }
        else
          goto errlabel;
      }
    }
  }
  // is it already defined in idroot ?
  else if (search && (*root != IDROOT))
  {
    if ((h=IDROOT->get(s,lev))!=NULL)
    {
      if (IDLEV(h)==lev)
      {
        if ((IDTYP(h) == t)||(t==DEF_CMD))
        {
          if (BVERBOSE(V_REDEFINE))
            Warn("redefining `%s` **",s);
          if (s==IDID(h)) IDID(h)=NULL;
          killhdl2(h,&IDROOT,NULL);
        }
        else
          goto errlabel;
      }
    }
  }
  *root = (*root)->set(s, lev, t, init);
#ifndef SING_NDEBUG
  checkall();
#endif
  return *root;

  errlabel:
    //Werror("identifier `%s` in use(lev h=%d,typ=%d,t=%d, curr=%d)",s,IDLEV(h),IDTYP(h),t,lev);
    Werror("identifier `%s` in use",s);
    //listall();
    omFree((ADDRESS)s);
    return NULL;
}

idhdl ggetid

(

const char *

n

)

Definition at line 503 of file ipid.cc.

{
  idhdl h = IDROOT->get(n,myynest);
  if ((h!=NULL)&&(IDLEV(h)==myynest)) return h;
  idhdl h2=NULL;
  if (currRing!=NULL)
  {
    h2 = currRing->idroot->get(n,myynest);
  }
  if (h2!=NULL) return h2;
  if (h!=NULL) return h;
  if (basePack!=currPack)
    return basePack->idroot->get(n,myynest);
  return NULL;
}

idhdl ggetid	(	const char *	n,
		BOOLEAN	local,
		idhdl *	packhdl
	)

Definition at line 490 of file ipid.cc.

{
  idhdl h = IDROOT->get(n,myynest);
  idhdl h2=NULL;
  *packhdl = NULL;
  if ((currRing!=NULL) && ((h==NULL)||(IDLEV(h)!=myynest)))
  {
    h2 = currRing->idroot->get(n,myynest);
  }
  if (h2==NULL) return h;
  return h2;
}

void* idrecDataInit

(

int

t

)

Definition at line 132 of file ipid.cc.

{
  switch (t)
  {
    //the type with init routines:
#ifdef SINGULAR_4_1
    case CNUMBER_CMD:
      return (void*)n2Init(0,NULL);
    case CMATRIX_CMD:
#endif
    case BIGINTMAT_CMD:
      return (void *)new bigintmat();
    case INTVEC_CMD:
    case INTMAT_CMD:
      return (void *)new intvec();
    case NUMBER_CMD:
      return (void *) nInit(0);
    case BIGINT_CMD:
      return (void *) n_Init(0, coeffs_BIGINT);
    case IDEAL_CMD:
    case MODUL_CMD:
    case MATRIX_CMD:
      return (void*) idInit(1,1);
    case MAP_CMD:
    {
      map m = (map)idInit(1,1);
      m->preimage = omStrDup(IDID(currRingHdl));
      return (void *)m;
    }
    case STRING_CMD:
      return (void *)omAlloc0(1);
    case LIST_CMD:
    {
      lists l=(lists)omAllocBin(slists_bin);
      l->Init();
      return (void*)l;
    }
    //the types with the standard init: set the struct to zero
    case LINK_CMD:
      return (void*) omAlloc0Bin(sip_link_bin);
    case RING_CMD:
      return (void*) omAlloc0Bin(sip_sring_bin);
    case PACKAGE_CMD:
    {
      package pa=(package)omAlloc0Bin(sip_package_bin);
      pa->language=LANG_NONE;
      pa->loaded = FALSE;
      return (void*)pa;
    }
    case PROC_CMD:
    {
      procinfov pi=(procinfov)omAlloc0Bin(procinfo_bin);
      pi->ref=1;
      pi->language=LANG_NONE;
      return (void*)pi;
    }
    case RESOLUTION_CMD:
      return  (void *)omAlloc0(sizeof(ssyStrategy));
    //other types: without init (int,script,poly,def,package)
    #ifdef SINGULAR_4_1
    case CRING_CMD:
    #endif
    case INT_CMD:
    case DEF_CMD:
    case POLY_CMD:
    case VECTOR_CMD:
    case QRING_CMD:
       return (void*)0L;
    default:
      {
        if (t>MAX_TOK)
        {
#ifdef BLACKBOX_DEVEL
          Print("bb-type %d\n",t);
#endif
          blackbox *bb=getBlackboxStuff(t);
          if (bb!=NULL)
             return (void *)bb->blackbox_Init(bb);
        }
        else
          Werror("unknown type in idrecDataInit:%d",t);
        break;
      }
  }
  return (void *)0L;
}

void ipListFlag

(

idhdl

h

)

Definition at line 519 of file ipid.cc.

{
  if (hasFlag(h,FLAG_STD)) PrintS(" (SB)");
#ifdef HAVE_PLURAL
  if (hasFlag(h,FLAG_TWOSTD)) PrintS(" (2SB)");
#endif
}

void ipMoveId

(

idhdl

h

)

Definition at line 604 of file ipid.cc.

{
  if ((currRing!=NULL)&&(tomove!=NULL))
  {
    if (((QRING_CMD!=IDTYP(tomove)) && RingDependend(IDTYP(tomove)))
    || ((IDTYP(tomove)==LIST_CMD) && (lRingDependend(IDLIST(tomove)))))
    {
      /*move 'tomove' to ring id's*/
      if (ipSwapId(tomove,IDROOT,currRing->idroot))
      ipSwapId(tomove,basePack->idroot,currRing->idroot);
    }
    else
    {
      /*move 'tomove' to global id's*/
      ipSwapId(tomove,currRing->idroot,IDROOT);
    }
  }
}

lists ipNameList

(

idhdl

root

)

Definition at line 527 of file ipid.cc.

{
  idhdl h=root;
  /* compute the length */
  int l=0;
  while (h!=NULL) { l++; h=IDNEXT(h); }
  /* allocate list */
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(l);
  /* copy names */
  h=root;
  l=0;
  while (h!=NULL)
  {
    /* list is initialized with 0 => no need to clear anything */
    L->m[l].rtyp=STRING_CMD;
    L->m[l].data=omStrDup(IDID(h));
    l++;
    h=IDNEXT(h);
  }
  return L;
}

lists ipNameListLev	(	idhdl	root,
		int	lev
	)

Definition at line 550 of file ipid.cc.

{
  idhdl h=root;
  /* compute the length */
  int l=0;
  while (h!=NULL) { if (IDLEV(h)==lev) l++; h=IDNEXT(h); }
  /* allocate list */
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(l);
  /* copy names */
  h=root;
  l=0;
  while (h!=NULL)
  {
    if (IDLEV(h)==lev)
    {
      /* list is initialized with 0 => no need to clear anything */
      L->m[l].rtyp=STRING_CMD;
      L->m[l].data=omStrDup(IDID(h));
      l++;
    }
    h=IDNEXT(h);
  }
  return L;
}

void jjNormalizeQRingId

(

leftv

I

)

Definition at line 2127 of file ipassign.cc.

{
  if ((currRing->qideal!=NULL) && (!hasFlag(I,FLAG_QRING)))
  {
    if (I->e==NULL)
    {
      ideal I0=(ideal)I->Data();
      switch (I->Typ())
      {
        case IDEAL_CMD:
        case MODUL_CMD:
        {
          ideal F=idInit(1,1);
          ideal II=kNF(F,currRing->qideal,I0);
          idDelete(&F);
          if (I->rtyp!=IDHDL)
          {
            idDelete((ideal*)&(I0));
            I->data=II;
          }
          else
          {
            idhdl h=(idhdl)I->data;
            idDelete((ideal*)&IDIDEAL(h));
            IDIDEAL(h)=II;
            setFlag(h,FLAG_QRING);
          }
          break;
        }
        default: break;
      }
      setFlag(I,FLAG_QRING);
    }
  }
}

void jjNormalizeQRingP

(

poly &

p

)

Definition at line 2162 of file ipassign.cc.

{
  if((p!=NULL) && (currRing->qideal!=NULL))
  {
    ideal F=idInit(1,1);
    poly p2=kNF(F,currRing->qideal,p);
    pNormalize(p2);
    idDelete(&F);
    pDelete(&p);
    p=p2;
  }
}

void killhdl	(	idhdl	h,
		package	prooti = currPack
	)

Definition at line 372 of file ipid.cc.

{
  int t=IDTYP(h);
  if (((BEGIN_RING<t) && (t<END_RING) && (t!=QRING_CMD))
  || ((t==LIST_CMD) && (lRingDependend((lists)IDDATA(h)))))
    killhdl2(h,&currRing->idroot,currRing);
  else
  {
    if(t==PACKAGE_CMD)
    {
      killhdl2(h,&(basePack->idroot),NULL);
    }
    else
    {
      idhdl s=proot->idroot;
      while ((s!=h) && (s!=NULL)) s=s->next;
      if (s!=NULL)
        killhdl2(h,&(proot->idroot),NULL);
      else if (basePack!=proot)
      {
        idhdl s=basePack->idroot;
        while ((s!=h) && (s!=NULL)) s=s->next;
        if (s!=NULL)
          killhdl2(h,&(basePack->idroot),currRing);
        else
          killhdl2(h,&(currRing->idroot),currRing);
       }
    }
  }
}

void killhdl2	(	idhdl	h,
		idhdl *	ih,
		ring	r
	)

Definition at line 403 of file ipid.cc.

{
  //printf("kill %s, id %x, typ %d lev: %d\n",IDID(h),(int)IDID(h),IDTYP(h),IDLEV(h));
  idhdl hh;

  if (TEST_V_ALLWARN
  && (IDLEV(h)!=myynest)
  &&(IDLEV(h)==0))
  {
    if (((*ih)==basePack->idroot)
    || ((currRing!=NULL)&&((*ih)==currRing->idroot)))
      Warn("kill global `%s` at line >>%s<<\n",IDID(h),my_yylinebuf);
  }
  if (h->attribute!=NULL)
  {
    //h->attribute->killAll(r); MEMORY LEAK!
    h->attribute=NULL;
  }
  if (IDTYP(h) == PACKAGE_CMD)
  {
    if (strcmp(IDID(h),"Top")==0)
    {
      WarnS("can not kill `Top`");
      return;
    }
    // any objects defined for this package ?
    if ((IDPACKAGE(h)->ref<=0)  &&  (IDPACKAGE(h)->idroot!=NULL))
    {
      if (currPack==IDPACKAGE(h))
      {
        currPack=basePack;
        currPackHdl=NULL;
      }
      idhdl * hd = &IDRING(h)->idroot;
      idhdl  hdh = IDNEXT(*hd);
      idhdl  temp;
      while (hdh!=NULL)
      {
        temp = IDNEXT(hdh);
        killhdl2(hdh,&(IDPACKAGE(h)->idroot),NULL);
        hdh = temp;
      }
      killhdl2(*hd,hd,NULL);
      if (IDPACKAGE(h)->libname!=NULL) omFree((ADDRESS)(IDPACKAGE(h)->libname));
    }
    paKill(IDPACKAGE(h));
    if (currPackHdl==h) currPackHdl=packFindHdl(currPack);
    iiCheckPack(currPack);
  }
  else if ((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
    rKill(h);
  else if (IDDATA(h)!=NULL)
    s_internalDelete(IDTYP(h),IDDATA(h),r);
  //  general  -------------------------------------------------------------
  // now dechain it and delete idrec
  if (IDID(h)!=NULL) // OB: ?????
    omFree((ADDRESS)IDID(h));
  IDID(h)=NULL;
  IDDATA(h)=NULL;
  if (h == (*ih))
  {
    // h is at the beginning of the list
    *ih = IDNEXT(h) /* ==*ih */;
  }
  else if (ih!=NULL)
  {
    // h is somethere in the list:
    hh = *ih;
    loop
    {
      if (hh==NULL)
      {
        PrintS(">>?<< not found for kill\n");
        return;
      }
      idhdl hhh = IDNEXT(hh);
      if (hhh == h)
      {
        IDNEXT(hh) = IDNEXT(hhh);
        break;
      }
      hh = hhh;
    }
  }
  omFreeBin((ADDRESS)h, idrec_bin);
}

void killid	(	const char *	a,
		idhdl *	i
	)

Definition at line 345 of file ipid.cc.

{
  if (id!=NULL)
  {
    idhdl h = (*ih)->get(id,myynest);

    // id not found in global list, is it defined in current ring ?
    if (h==NULL)
    {
      if ((currRing!=NULL) && (*ih != (currRing->idroot)))
      {
        h = currRing->idroot->get(id,myynest);
        if (h!=NULL)
        {
          killhdl2(h,&(currRing->idroot),currRing);
          return;
        }
      }
      Werror("`%s` is not defined",id);
      return;
    }
    killhdl2(h,ih,currRing);
  }
  else
    Werror("kill what ?");
}

BOOLEAN load_builtin	(	const char *	newlib,
		BOOLEAN	autoexport,
		SModulFunc_t	init
	)

Definition at line 1147 of file iplib.cc.

{
  int iiAddCproc(const char *libname, const char *procname, BOOLEAN pstatic,
                 BOOLEAN(*func)(leftv res, leftv v));
/*
  typedef int (*fktn_t)(int(*iiAddCproc)(const char *libname, const char *procname,
                               BOOLEAN pstatic,
                               BOOLEAN(*func)(leftv res, leftv v)));
*/
  // SModulFunc_t fktn;
  idhdl pl;
  char *plib = iiConvName(newlib);
  // BOOLEAN RET=TRUE;
  // int token;

  pl = IDROOT->get(plib,0);
  if (pl!=NULL)
  {
    if (BVERBOSE(V_LOAD_LIB)) Warn( "(builtin) %s already loaded", newlib);
    omFree(plib);
    return FALSE;
  }

  pl = enterid( plib,0, PACKAGE_CMD, &IDROOT,
                TRUE );
  IDPACKAGE(pl)->language = LANG_C;
  IDPACKAGE(pl)->libname=omStrDup(newlib);

  IDPACKAGE(pl)->handle=(void *)NULL;
  SModulFunctions sModulFunctions;

  package s=currPack;
  currPack=IDPACKAGE(pl);
  if( init!= NULL)
  {
    sModulFunctions.iiArithAddCmd = iiArithAddCmd;
    if (autoexport) sModulFunctions.iiAddCproc = iiAddCprocTop;
    else            sModulFunctions.iiAddCproc = iiAddCproc;
    (*init)(&sModulFunctions);
  }
  if (BVERBOSE(V_LOAD_LIB)) Print( "// ** loaded (builtin) %s \n", newlib);
  currPack->loaded=1;
  currPack=s;

  return FALSE;
}

void module_help_main	(	const char *	newlib,
		const char *	help
	)

Definition at line 1194 of file iplib.cc.

{
  char *plib = iiConvName(newlib);
  idhdl pl = basePack->idroot->get(plib,0);
  if ((pl==NULL)||(IDTYP(pl)!=PACKAGE_CMD))
    Werror(">>%s<< is not a package (trying to add package help)",plib);
  else
  {
    package s=currPack;
    currPack=IDPACKAGE(pl);
    idhdl h=enterid(omStrDup("info"),0,STRING_CMD,&IDROOT,FALSE);
    IDSTRING(h)=omStrDup(help);
    currPack=s;
  }
}

void module_help_proc	(	const char *	newlib,
		const char *	p,
		const char *	help
	)

Definition at line 1209 of file iplib.cc.

{
  char *plib = iiConvName(newlib);
  idhdl pl = basePack->idroot->get(plib,0);
  if ((pl==NULL)||(IDTYP(pl)!=PACKAGE_CMD))
    Werror(">>%s<< is not a package(trying to add help for %s)",plib,p);
  else
  {
    package s=currPack;
    currPack=IDPACKAGE(pl);
    char buff[256];
    buff[255]='\0';
    strncpy(buff,p,255);
    strncat(buff,"_help",255-strlen(p));
    idhdl h=enterid(omStrDup(buff),0,STRING_CMD,&IDROOT,FALSE);
    IDSTRING(h)=omStrDup(help);
    currPack=s;
  }
}

idhdl packFindHdl

(

package

r

)

Definition at line 732 of file ipid.cc.

{
  idhdl h=basePack->idroot;
  while (h!=NULL)
  {
    if ((IDTYP(h)==PACKAGE_CMD)
        && (IDPACKAGE(h)==r))
      return h;
    h=IDNEXT(h);
  }
  return NULL;
}

package paCopy ( package  pack )

inline

Definition at line 45 of file ipid.h.

{
  pack->ref++;
  return pack;
}

void paKill ( package  pack )

inline

Definition at line 51 of file ipid.h.

{
  pack->ref--;
}

Variable Documentation

package basePack

Definition at line 64 of file ipid.cc.

idhdl basePackHdl

Definition at line 62 of file ipid.cc.

coeffs coeffs_BIGINT

Definition at line 54 of file ipid.cc.

package currPack

Definition at line 63 of file ipid.cc.

idhdl currPackHdl

Definition at line 61 of file ipid.cc.

idhdl currRingHdl

Definition at line 65 of file ipid.cc.

FILE* feFilePending

Definition at line 56 of file ipid.cc.

omBin idrec_bin

Definition at line 52 of file ipid.cc.

proclevel* procstack

Definition at line 58 of file ipid.cc.

omBin sip_command_bin

Definition at line 49 of file ipid.cc.

omBin sip_package_bin

Definition at line 50 of file ipid.cc.

omBin sleftv_bin

Definition at line 50 of file subexpr.cc.