From 995635ce5ff9ad89b6b79a25da3d9dae6596e66c Mon Sep 17 00:00:00 2001 From: Andreas Kupries Date: Tue, 19 Jun 2007 16:28:45 +0000 Subject: [PATCH] * library/starkit.tcl (header): See last entry. Simplified the helper command 'fullnormalize', replaced complex file split/lrange/join/eval operation with 'file dirname'. --- ChangeLog | 6 ++++++ library/starkit.tcl | 3 +-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 985a7a6..10a4fc2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-06-19 Andreas Kupries + + * library/starkit.tcl (header): See last entry. Simplified the + helper command 'fullnormalize', replaced complex file + split/lrange/join/eval operation with 'file dirname'. + 2007-05-28 Andreas Kupries * library/starkit.tcl (header): Added helper command diff --git a/library/starkit.tcl b/library/starkit.tcl index 6e48f1c..17743d2 100644 --- a/library/starkit.tcl +++ b/library/starkit.tcl @@ -54,8 +54,7 @@ namespace eval starkit { # return [file join {expand}[lrange [file split # [file normalize [file join $path __dummy__]]] 0 end-1]] - return [eval [list file join] [lrange [file split \ - [file normalize [file join $path __dummy__]]] 0 end-1]] + return [file dirname [file normalize [file join $path __dummy__]]] } # called from the startup script of a starkit to init topdir and auto_path -- 2.23.0