Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated to set auto_path in newly created threads |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | cb84926acacb98d6f9ed27b42d62a52b3aa5deb7 |
| User & Date: | rkeene 2014-10-02 20:23:26 |
Context
|
2014-10-04
| ||
| 15:19 | RivetCGI 0.5.1 series (version bump to account for difference in version control system) check-in: fac81abf45 user: rkeene tags: trunk | |
|
2014-10-02
| ||
| 20:23 | Updated to set auto_path in newly created threads check-in: cb84926aca user: rkeene tags: trunk | |
|
2014-07-01
| ||
| 20:17 | Updated to perform a limited form of canonicalization check-in: e249edd4ab user: rkeene tags: trunk | |
Changes
Changes to rivet-starkit/main.tcl.
1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 |
# If none found, create one...
if {![info exists threadId]} {
# Create an empty interpreter in a new thread
set threadId [thread::create]
::rivetstarkit::puts_log $elogfd "Creating thread: $threadId"
# Load the needed packages in the new thread
thread::send $threadId [list package require tclrivet]
thread::send $threadId [list set ::rivet::parsestack [info script]]
# Copy the appropriate namespaces to the new thread
foreach ns [list ::rivetstarkit] {
thread::send $threadId [list namespace eval $ns ""]
}
|
> |
1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 |
# If none found, create one...
if {![info exists threadId]} {
# Create an empty interpreter in a new thread
set threadId [thread::create]
::rivetstarkit::puts_log $elogfd "Creating thread: $threadId"
# Load the needed packages in the new thread
thread::send $threadId [list set ::auto_path $::auto_path]
thread::send $threadId [list package require tclrivet]
thread::send $threadId [list set ::rivet::parsestack [info script]]
# Copy the appropriate namespaces to the new thread
foreach ns [list ::rivetstarkit] {
thread::send $threadId [list namespace eval $ns ""]
}
|