source command returns file not found. How can I specify 'search' lib

[Jim78]

New user question. I am working with a tcl script that source'es additional scripts. However, the source command fails with 'file not found'. What environment variable, library, path, etc., do I need to configure to have this and all future 'source' commands find the additional scripts.
If I modify the script and specifically state the directory structure, the script is found, but I can't do this for each and every module.

Thanks in advance for any help you can provide.

 

[marsd]

You could use something like glob and specify your
source files with a special extension.
Something like:

proc findsrcfiles {dir {ext ".txt"}} {
            foreach instance [glob -nocomplain $dir/*$ext] {
                           source [file nativename $instance]
            }
}

 

[Jim78]

Thanks marsd.
However, I'm not looking for any code, nor should I need any.
I simply need to understand how 'tcl' works.
When 'tcl' needs to 'source' some code, how does it know where to look (search) to find the new code?
There has got to be some environment variable, or something that directs this. Does anyone know?

Again, thanks in advance.

 

[marsd]

No, there is no variable.
You specify the sourced files directly, by path.
That is why when you said 'search' I assumed that
you had some understanding that tcl does not do any
deep magic in finding files to source. It is up
to the programmer to create a method by which
files may be sourced dynamically if that is what
you want.
See here:

http://mini.net/tcl/1113