From 58a5b5e193d7bc9cdc58b8b012a42f53dabcbb08 Mon Sep 17 00:00:00 2001 From: Julian Noble Date: Tue, 28 May 2024 02:46:23 +1000 Subject: [PATCH] adjust tcl::tm::path for starting with tclsh src/punk86.vfs/main.tcl --- src/punk86.vfs/lib/app-punk/repl.tcl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/punk86.vfs/lib/app-punk/repl.tcl b/src/punk86.vfs/lib/app-punk/repl.tcl index 2bdd09b..420b354 100644 --- a/src/punk86.vfs/lib/app-punk/repl.tcl +++ b/src/punk86.vfs/lib/app-punk/repl.tcl @@ -24,8 +24,11 @@ if {[file isdirectory [pwd]/modules]} { #2) if {[string match "*.vfs/*" [file normalize [info script]]]} { #src/xxx.vfs/lib/app-punk/repl.tcl - #we assume if calling directly into .vfs that the user would prefer to use src/modules - so go up 4 levels - set modulefolder [file dirname [file dirname [file dirname [file dirname [file normalize [info script]]]]]]/modules + # assume if calling directly into .vfs that the user would prefer to use src/modules - so go up 4 levels + #set srcmodulefolder [file dirname [file dirname [file dirname [file dirname [file normalize [info script]]]]]]/modules + # - the src/modules folder doesn't contain important modules such as vendormodules - so the above probably isn't that useful + set srcfolder [file dirname [file dirname [file dirname [file dirname [file normalize [info script]]]]]] + set modulefolder [file join [file dirname $srcfolder] modules] ;#modules folder at same level as src folder } else { # .../bin/punkXX.exe look for ../modules (i.e modules folder at same level as bin folder) set modulefolder [file dirname [file dirname [info nameofexecutable]]]/modules