[Tcl-bugs] [ tcl-Bugs-420186 ] namespace import

[<no...@so...>]

Bugs item #420186, was updated on 2001-04-30 09:02
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=420186&group_id=10894

>Category: Init - Library - Autoload
>Group: 8.4a3
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
>Assigned to: Don Porter (dgp)
Summary: namespace import

Initial Comment:

Linux SuSE7.1

example:

==> Test1.tcl
>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#!/bin/sh
#exec tclsh "$0"

lappend auto_path [ pwd ]

puts [ ::Args::Test::Main ]
<<<<<<<<<<<<<<<<<<<<<<<<<<<<

==> Test2.tcl
>>>>>>>>>>>>>>>>>>>>>>>>>>>
namespace eval ::Args {
    namespace export *
}
proc ::Args::P1 {} { return P1 }

namespace eval ::Args::Test {
    namespace import ::Args::*
}

proc ::Args::Test::Main {} {
    return "P1<[P1]>"
}
<<<<<<<<<<<<<<<<<<<<<<<<<<<

==> tclIndex
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
# Tcl autoload index file, version 2.0
# This file is generated by the "auto_mkindex" command
# and sourced to set up indexing information for one or
# more commands.  Typically each line is a command that
# sets an element in the auto_index array, where the
# element name is the name of a command and the value is
# a script that loads the command.

set auto_index(::Args::P1) [list source [file join $dir Test2.tcl]]
set auto_index(::Args::Test::Main) [list source [file join $dir Test2.tcl]]
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

If you run:

  ./Test1.tcl

you get:

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
too many nested calls to Tcl_Eval (infinite loop?)
    while executing
"namespace current"
    ("uplevel" body line 1)
    invoked from within
"uplevel namespace current"
    (procedure "auto_import" line 4)
    invoked from within
"namespace import ::Args::*"
    (in namespace eval "::Args::Test" script line 2)
    invoked from within
"namespace eval ::Args::Test {
    namespace import ::Args::*
}"
    (file "/alt/home/dev1usr/Project/Compiler2/test/Config/Test/Test2.tcl" 
line 7)
    invoked from within
"source /alt/home/dev1usr/Project/Compiler2/test/Config/Test/Test2.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 $auto_index($name)"
    (procedure "auto_import" line 12)
    invoked from within
"namespace import ::Args::*"
    (in namespace eval "::Args::Test" script line 2)

...


<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


----------------------------------------------------------------------

>Comment By: Don Porter (dgp)
Date: 2001-04-30 12:58

Message:
Logged In: YES 
user_id=80530

Attaching a simplified test script, test.tcl

Exercise the bug:
$ tclsh
% auto_mkindex . test.tcl
% lappend auto_path .
% Args::Test::Main
too many nested calls to Tcl_Eval (infinite loop?)

The problem seems to be in [auto_import].  It is using
a full [string match $pattern] to filter the names in
auto_index, but [namespace import] is only interested in
matches according to its stricter matching rules.  The
wildcards should only match on command names, not parent
namespaces.


----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=420186&group_id=10894