1 # Copyright (C) 2005, Giovanni Bajo

     2 # Based on previous work under copyright (c) 2002 McMillan Enterprises, Inc.

     3 #

     4 # This library is free software; you can redistribute it and/or

     5 # modify it under the terms of the GNU Lesser General Public

     6 # License as published by the Free Software Foundation; either

     7 # version 2.1 of the License, or (at your option) any later version.

     8 #

     9 # This library is distributed in the hope that it will be useful,

    10 # but WITHOUT ANY WARRANTY; without even the implied warranty of

    11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    12 # Lesser General Public License for more details.

    13 #

    14 # You should have received a copy of the GNU Lesser General Public

    15 # License along with this library; if not, write to the Free Software

    16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA

    17 import sys, os

    18 

    19 def empty(dir):

    20     try:

    21         fnms = os.listdir(dir)

    22     except OSError:

    23         return

    24     for fnm in fnms:

    25         path = os.path.join(dir, fnm)

    26         if os.path.isdir(path):

    27             empty(path)

    28             try:

    29                 os.rmdir(path)

    30             except:

    31                 pass

    32         else:

    33             try:

    34                 os.remove(path)

    35             except:

    36                 pass

    37 

    38 tcldir = os.environ['TCL_LIBRARY']

    39 prvtdir = os.path.dirname(tcldir)

    40 if os.path.basename(prvtdir) == '_MEI':

    41     empty(prvtdir)

    42     os.rmdir(prvtdir)

    43