← Back to branch summary

~ubuntu-branches/ubuntu/raring/tcl8.5/raring

« back to all changes in this revision

Viewing changes to library/safe.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-11-22 14:23:53 UTC
  • mfrom: (10.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20091122142353-a0awlv6cays5y50f
Tags: 8.5.8-2
Fixed building on MIPS architectures. The upstream changes in 8.5.8
include changing FPU settings which isn't possible in Debian GNU/Linux
(and isn't required also).

Show diffs side-by-side

added added

removed removed

Lines of Context:
library/safe.tcl
12
12
# See the file "license.terms" for information on usage and redistribution
13
13
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14
14
#
15
 
# RCS: @(#) $Id: safe.tcl,v 1.16.4.1 2008/06/25 16:42:05 andreas_kupries Exp $
 
15
# RCS: @(#) $Id: safe.tcl,v 1.16.4.2 2009/11/04 04:47:59 dgp Exp $
16
16
 
17
17
#
18
18
# The implementation is based on namespaces. These naming conventions
373
373
        # Modules. We safe the virtual form separately as well, as
374
374
        # syncing it with the slave has to be defered until the
375
375
        # necessary commands are present for setup.
376
 
        foreach dir [::tcl::tm::list] {
 
376
 
 
377
        set morepaths [::tcl::tm::list]
 
378
        while {[llength $morepaths]} {
 
379
            set addpaths $morepaths
 
380
            set morepaths {}
 
381
 
 
382
            foreach dir $addpaths {
377
383
            lappend access_path $dir
378
384
            Set [PathToken $i $slave] $dir
379
385
            lappend slave_auto_path "\$[PathToken $i]"
380
386
            lappend slave_tm_path   "\$[PathToken $i]"
381
387
            incr i
382
 
        }
 
388
 
 
389
                # [Bug 2854929]
 
390
                # Recursively find deeper paths which may contain
 
391
                # modules. Required to handle modules with names like
 
392
                # 'platform::shell', which translate into
 
393
                # 'platform/shell-X.tm', i.e arbitrarily deep
 
394
                # subdirectories. The catch prevents complaints when
 
395
                # no paths are added. Do nothing gracefully is 8.6+.
 
396
 
 
397
                catch {
 
398
                    lappend morepaths {*}[glob -nocomplain -directory $dir -type d *]
 
399
        }
 
400
            }
 
401
        }
 
402
 
383
403
        Set [TmPathListName      $slave] $slave_tm_path
384
404
        Set $nname $i
385
405
        Set [PathListName        $slave] $access_path