Changeset 48c165a in git


Ignore:
Timestamp:
Mar 26, 2001, 4:05:30 PM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
1bd25e34e1c021af2213fdd6edb61b9aa82fa6ca
Parents:
825addcda79702d1225adaa7933ff767320e06a0
Message:
*hannes: kilall and NS


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/general.lib

    r825add r48c165a  
    22//anne, added deleteSublist and watchdog 12.12.2000
    33///////////////////////////////////////////////////////////////////////////////
    4 version="$Id: general.lib,v 1.38 2001-01-16 13:03:54 Singular Exp $";
     4version="$Id: general.lib,v 1.39 2001-03-26 14:05:30 Singular Exp $";
    55category="General purpose";
    66info="
     
    426426"
    427427{
    428   list @marie=names();
     428  if (system("with","Namespaces"))
     429  {
     430    list @marie=names(Top);
     431  }
     432  else
     433  {
     434    list @marie=names();
     435  }
    429436  int j, no_kill, @joni;
    430437  for ( @joni=1; @joni<=size(#);  @joni++)
     
    441448    for ( @joni=size(@marie); @joni>0; @joni-- )
    442449    {
    443       if( @marie[@joni]!="LIB" and typeof(`@marie[@joni]`)!="proc" )
     450      if( @marie[@joni]!="LIB" and typeof(`@marie[@joni]`)!="proc"
     451      and typeof(`@marie[@joni]`)!="package")
    444452      { kill `@marie[@joni]`; }
    445453    }
     
    455463        for ( @joni=size(@marie); @joni>0; @joni-- )
    456464        {
    457           if((@marie[@joni]!="killall") and (@marie[@joni]=="LIB" or
    458                                        typeof(`@marie[@joni]`)=="proc"))
    459           { kill `@marie[@joni]`; }
     465          if((@marie[@joni]!="General")
     466          and (@marie[@joni]!="Top")
     467          and (@marie[@joni]!="killall")
     468          and (@marie[@joni]=="LIB" or
     469              typeof(`@marie[@joni]`)=="package" or
     470              typeof(`@marie[@joni]`)=="proc"))
     471          { kill `@marie[@joni]`;
     472          if (defined(`@marie[@joni]`)) {kill `@marie[@joni]`;}}
     473        }
     474        if (system("with","Namespaces"))
     475        {
     476          @marie=names(General);
     477          for ( @joni=size(@marie); @joni>0; @joni-- )
     478          {
     479            if(@marie[@joni]!="killall"
     480            and typeof(`@marie[@joni]`)=="proc")
     481            { kill General::`@marie[@joni]`; }
     482          }
     483          kill General::killall;
    460484        }
    461485      }
Note: See TracChangeset for help on using the changeset viewer.