Changeset ad4bc9 in git for Singular/ipid.cc
- Timestamp:
- May 6, 1999, 6:53:35 PM (25 years ago)
- Branches:
- (u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')
- Children:
- c59d88ee06883f262adb708e6846ac13d54018e3
- Parents:
- 8d4732632f41e8c44b6ae3e871af2513fba44823
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ipid.cc
r8d4732 rad4bc9 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipid.cc,v 1.3 1 1999-03-16 15:33:13Singular Exp $ */4 /* $Id: ipid.cc,v 1.32 1999-05-06 16:53:24 Singular Exp $ */ 5 5 6 6 /* … … 65 65 { 66 66 return h; 67 } 67 } 68 68 #endif 69 69 // ============================================================= … … 89 89 l=IDLEV(h); 90 90 if ((l==0)||(l==lev)) 91 { 91 { 92 92 id=IDID(h); 93 93 if (*(short *)s==*(short *)id) … … 350 350 if(t==PACKAGE_CMD) { 351 351 killhdl(h,&NSROOT(namespaceroot->root)); 352 } else 352 } else 353 353 #endif /* HAVE_NAMESPACES */ 354 354 { … … 416 416 #ifdef HAVE_NAMESPACES 417 417 // 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 { 420 422 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 { 423 428 if(!paKill(IDPACKAGE(h))) return; 424 429 } 425 else { 430 else 431 { 426 432 if(!paKill(IDPACKAGE(h), TRUE)) return; 427 433 } … … 857 863 ns->name = mstrdup(name); 858 864 ns->myynest = nesting; 859 865 860 866 //ns->currRing = currRing; 861 867 //ns->currRingHdl = currRingHdl; … … 915 921 { 916 922 namehdl nshdl = namespaceroot; 917 923 918 924 for(nshdl=namespaceroot; nshdl->isroot != TRUE; nshdl = nshdl->next) { 919 925 //Print("NSstack: %s:%d, nesting=%d\n", nshdl->name, nshdl->lev, nshdl->myynest); … … 931 937 } 932 938 return TRUE; 933 934 } 935 #endif /* HAVE_NAMESPACES */ 939 940 } 941 #endif /* HAVE_NAMESPACES */
Note: See TracChangeset
for help on using the changeset viewer.