Changeset fe9ee1 in git


Ignore:
Timestamp:
Feb 23, 2012, 4:29:38 PM (12 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '3720ae8bfcff4a4649ee98a15552089151d2d59b')
Children:
f2d314f4a0cdb2af36b90c37a45c9c938310b60c
Parents:
b311aa82c685773a7295a82de2a309194f00f7c0
Message:
chg: allow pacakges only within Top (basePack) (from master)
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipid.cc

    rb311aa rfe9ee1  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id$ */
    5 
    64/*
    75* ABSTRACT: identfier handling
     
    238236  idhdl h;
    239237  s=omStrDup(s);
     238  idhdl *save_root=root;
     239  if (t==PACKAGE_CMD) root=&(basePack->idroot);
    240240  // is it already defined in root ?
    241241  if ((h=(*root)->get(s,lev))!=NULL)
     
    301301  checkall();
    302302#endif
     303  if (t==PACKAGE_CMD) root=save_root;
    303304  return *root;
    304305
     
    308309    //listall();
    309310    omFree((ADDRESS)s);
     311    if (t==PACKAGE_CMD) root=save_root;
    310312    return NULL;
    311313}
  • Singular/ipshell.cc

    rb311aa rfe9ee1  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id$ */
    54/*
    65* ABSTRACT:
     
    169168                    PrintS(")");
    170169                    break;
    171     case PROC_CMD: if(strlen(IDPROC(h)->libname)>0)
     170    case PROC_CMD: if((IDPROC(h)->libname!=NULL)
     171                   && (strlen(IDPROC(h)->libname)>0))
    172172                     Print(" from %s",IDPROC(h)->libname);
    173173                   if(IDPROC(h)->is_static)
     
    17691769    if ( rField_is_Extension(r) )// nCoeff_is_algExt(r->cf))
    17701770    {
    1771       assume( r->cf != NULL );   
     1771      assume( r->cf != NULL );
    17721772      assume( r->cf->extRing != NULL );
    1773      
     1773
    17741774      rDecomposeCF(&(L->m[0]), r->cf->extRing, r);
    17751775    }
     
    17771777    {
    17781778      assume( nCoeff_is_GF(r->cf) );
    1779        
     1779
    17801780      lists Lc=(lists)omAlloc0Bin(slists_bin);
    17811781      Lc->Init(4);
     
    17831783      Lc->m[0].rtyp=INT_CMD;
    17841784      Lc->m[0].data=(void*)r->cf->m_nfCharQ;
    1785       // var:     
     1785      // var:
    17861786      lists Lv=(lists)omAlloc0Bin(slists_bin);
    17871787      Lv->Init(1);
    17881788      Lv->m[0].rtyp=STRING_CMD;
    1789       Lv->m[0].data=(void *)omStrDup(*rParameter(r));     
     1789      Lv->m[0].data=(void *)omStrDup(*rParameter(r));
    17901790      Lc->m[1].rtyp=LIST_CMD;
    17911791      Lc->m[1].data=(void*)Lv;
     
    17971797      Loo->m[0].rtyp=STRING_CMD;
    17981798      Loo->m[0].data=(void *)omStrDup(rSimpleOrdStr(ringorder_lp));
    1799        
     1799
    18001800      intvec *iv=new intvec(1); (*iv)[0]=1;
    18011801      Loo->m[1].rtyp=INTVEC_CMD;
    18021802      Loo->m[1].data=(void *)iv;
    1803        
     1803
    18041804      Lo->m[0].rtyp=LIST_CMD;
    18051805      Lo->m[0].data=(void*)Loo;
     
    50395039    }
    50405040    assume( float_len <= float_len2 );
    5041      
     5041
    50425042    if( !complex_flag && (float_len2 <= (short)SHORT_REAL_LENGTH) )
    50435043       cf=nInitChar(n_R, NULL);
    50445044    else // longR or longC?
    5045     { 
     5045    {
    50465046       LongComplexInfo param;
    5047        
     5047
    50485048       param.float_len = float_len;
    50495049       param.float_len2 = float_len2;
    5050        
     5050
    50515051       // set the parameter name
    50525052       if (complex_flag)
     
    50595059
    50605060       cf = nInitChar(complex_flag ? n_long_C: n_long_R, (void*)&param);
    5061     }   
     5061    }
    50625062    assume( cf != NULL );
    50635063  }
Note: See TracChangeset for help on using the changeset viewer.