path normalisation in "base"

[Gustaf Neumann]

Am 11.10.16 um 16:38 schrieb René J.V. Bertin:
> On Tuesday October 11 2016 16:04:21 René J.V. Bertin wrote:
>
>> {{{
>> proc macports::normalize { filename } {
>>     set nprefix [file dirname [file normalize "${macports::prefix}/foo"]]
>>     return [string map {${nprefix} ${macports::prefix}} [file normalize $filename]]
>> }
>> }}}
probably, the following works:

    proc macports::normalize { filename } {
       set nprefix [file dirname [file normalize "${macports::prefix}/foo"]]
       return [string map [list $nprefix ${macports::prefix}] [file normalize $filename]]
    }

The curly braces prevent variable substitution.
-g