jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

punk::libunknown ensure source performed in global scope

master
Julian Noble 4 weeks ago
parent
8c71cd4c42
commit
b809905a99
2 changed files with 8 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 6
      src/bootsupport/modules/punk/libunknown-0.1.tm
  2. 6
      src/modules/punk/libunknown-0.1.tm

6
src/bootsupport/modules/punk/libunknown-0.1.tm
Unescape View File

@ -444,6 +444,8 @@ tcl::namespace::eval ::punk::libunknown {
proc zipfs_tclPkgUnknown {name args} { proc zipfs_tclPkgUnknown {name args} {
#puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL" #puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL"
global dir
variable epoch variable epoch
set pkg_epoch [dict get $epoch pkg current] set pkg_epoch [dict get $epoch pkg current]
@ -609,7 +611,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced ;#count as sourced even if source fails; keep before actual source action incr sourced ;#count as sourced even if source fails; keep before actual source action
#::tcl::Pkg::source $file #::tcl::Pkg::source $file
#lappend sourced_files $file #lappend sourced_files $file
tcl_Pkg_source $file namespace eval :: [list ::punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} { } trap {POSIX EACCES} {} {
# $file was not readable; silently ignore # $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)" puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)"
@ -640,7 +642,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced incr sourced
#lappend sourced_files $file #lappend sourced_files $file
#::tcl::Pkg::source $file #::tcl::Pkg::source $file
tcl_Pkg_source $file namespace eval :: [list punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} { } trap {POSIX EACCES} {} {
# $file was not readable; silently ignore # $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)" puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)"

6
src/modules/punk/libunknown-0.1.tm
Unescape View File

@ -444,6 +444,8 @@ tcl::namespace::eval ::punk::libunknown {
proc zipfs_tclPkgUnknown {name args} { proc zipfs_tclPkgUnknown {name args} {
#puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL" #puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL"
global dir
variable epoch variable epoch
set pkg_epoch [dict get $epoch pkg current] set pkg_epoch [dict get $epoch pkg current]
@ -609,7 +611,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced ;#count as sourced even if source fails; keep before actual source action incr sourced ;#count as sourced even if source fails; keep before actual source action
#::tcl::Pkg::source $file #::tcl::Pkg::source $file
#lappend sourced_files $file #lappend sourced_files $file
tcl_Pkg_source $file namespace eval :: [list ::punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} { } trap {POSIX EACCES} {} {
# $file was not readable; silently ignore # $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)" puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)"
@ -640,7 +642,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced incr sourced
#lappend sourced_files $file #lappend sourced_files $file
#::tcl::Pkg::source $file #::tcl::Pkg::source $file
tcl_Pkg_source $file namespace eval :: [list punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} { } trap {POSIX EACCES} {} {
# $file was not readable; silently ignore # $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)" puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)"

Write Preview
Loading…
Cancel
Save