Check-in [ce2a7d32dc]
Overview
Comment:Remove unused code
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ce2a7d32dc0b105149bf9aa8c9134cd4cff5d847
User & Date: rkeene on 2024-03-07 19:02:31.253
Other Links: manifest | tags
Context
2024-03-07
19:59
Fix path to services (must be absolute) Leaf check-in: bf33f043ce user: rkeene tags: trunk
19:02
Remove unused code check-in: ce2a7d32dc user: rkeene tags: trunk
2024-03-05
21:04
Merge in TSMF support check-in: 5363d1d42a user: rkeene tags: trunk
Changes
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/env tclsh

lappend auto_path [file join [file dirname [info script]] lib]
lappend auto_path [file join [file dirname [info script]] test-lib]
lappend auto_path [file join [file dirname [info script]] ..]
package require tsmf

proc maxlen {list} {
	set maxlen 0
	foreach item $list {
		set len [string length $item]



<







1
2
3

4
5
6
7
8
9
10
#! /usr/bin/env tclsh

lappend auto_path [file join [file dirname [info script]] lib]

lappend auto_path [file join [file dirname [info script]] ..]
package require tsmf

proc maxlen {list} {
	set maxlen 0
	foreach item $list {
		set len [string length $item]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#! /usr/bin/env tclsh

set workdir [file dirname [info script]]

# For TSMF
lappend auto_path [file join $workdir lib]

# For the Promise package
lappend auto_path [file join $workdir test-lib]

# For the TUAPI package
lappend auto_path [file join $workdir ..]

package require tsmf

# Create a new log directory for this run
set logdir [file join $workdir test-log]







<
<
<







1
2
3
4
5
6
7



8
9
10
11
12
13
14
#! /usr/bin/env tclsh

set workdir [file dirname [info script]]

# For TSMF
lappend auto_path [file join $workdir lib]




# For the TUAPI package
lappend auto_path [file join $workdir ..]

package require tsmf

# Create a new log directory for this run
set logdir [file join $workdir test-log]