Changeset ad4bc9 in git for Singular/ipid.cc


Ignore:
Timestamp:
May 6, 1999, 6:53:35 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')
Children:
c59d88ee06883f262adb708e6846ac13d54018e3
Parents:
8d4732632f41e8c44b6ae3e871af2513fba44823
Message:
* hannes: Debugger-changes, typo fixes


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

Legend:

Unmodified
Added
Removed
  • Singular/ipid.cc

    r8d4732 rad4bc9  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipid.cc,v 1.31 1999-03-16 15:33:13 Singular Exp $ */
     4/* $Id: ipid.cc,v 1.32 1999-05-06 16:53:24 Singular Exp $ */
    55
    66/*
     
    6565    {
    6666      return h;
    67     } 
     67    }
    6868#endif
    6969// =============================================================
     
    8989    l=IDLEV(h);
    9090    if ((l==0)||(l==lev))
    91     { 
     91    {
    9292      id=IDID(h);
    9393      if (*(short *)s==*(short *)id)
     
    350350    if(t==PACKAGE_CMD) {
    351351      killhdl(h,&NSROOT(namespaceroot->root));
    352     } else 
     352    } else
    353353#endif /* HAVE_NAMESPACES */
    354354    {
     
    416416#ifdef HAVE_NAMESPACES
    417417  // package -------------------------------------------------------------
    418   else if (IDTYP(h) == PACKAGE_CMD) {
    419     if(IDPACKAGE(h)->language!=LANG_TOP) {
     418  else if (IDTYP(h) == PACKAGE_CMD)
     419  {
     420    if(IDPACKAGE(h)->language!=LANG_TOP)
     421    {
    420422      if(!paKill(IDPACKAGE(h))) return;
    421     } else {
    422       if(strcmp(IDID(h), "Top")!=0) {
     423    }
     424    else
     425    {
     426      if(strcmp(IDID(h), "Top")!=0)
     427      {
    423428        if(!paKill(IDPACKAGE(h))) return;
    424429      }
    425       else {
     430      else
     431      {
    426432        if(!paKill(IDPACKAGE(h), TRUE)) return;
    427433      }
     
    857863  ns->name    = mstrdup(name);
    858864  ns->myynest = nesting;
    859  
     865
    860866  //ns->currRing = currRing;
    861867  //ns->currRingHdl = currRingHdl;
     
    915921{
    916922  namehdl nshdl = namespaceroot;
    917      
     923
    918924  for(nshdl=namespaceroot; nshdl->isroot != TRUE; nshdl = nshdl->next) {
    919925    //Print("NSstack: %s:%d, nesting=%d\n", nshdl->name, nshdl->lev, nshdl->myynest);
     
    931937  }
    932938  return TRUE;
    933  
    934 }
    935 #endif /* HAVE_NAMESPACES */
     939
     940}
     941#endif /* HAVE_NAMESPACES */
Note: See TracChangeset for help on using the changeset viewer.