1 puts "TODO ?OCC24296 ALL: OCC309: Error 2"
3 puts "================"
5 puts "================"
12 set ll [llength ${result}]
14 puts "result = ${result}"
16 puts "OCC309: Error 0"
18 set result1 [lindex ${result} 0]
19 set result2 [lindex ${result} 1]
20 set CurrentDirectory [pwd]
21 set UpTrek "[file join [file dirname [file dirname ${CurrentDirectory}]] [file tail ${CurrentDirectory}]]"
22 if { [string compare $tcl_platform(platform) "windows"] != 0} {
23 set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
24 set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
26 set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
27 set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
28 set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]]
29 set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]]
31 if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
34 puts "result1 = ${result1}"
36 puts "CurrentDirectory = ${CurrentDirectory}"
37 puts "OCC309: Error 1"
39 if {[string compare ${res2} "${UpTrek}"] == 0} {
42 puts "result2 = ${result2}"
44 puts "UpTrek = ${UpTrek}"
45 puts "OCC309: Error 2"