blob: 230f411d55e3b6fdb207360bff052d018a21ddb2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#
# The following procedures are creted to replace the
# procedures defined in expect incase expect is not used as the
# test framework
#
proc send_user args {
set newline 1
set logfile 0
set i 0
if { [string index [lindex $args 0] 0] == "-" } {
for { set i 0 } { $i < [llength $args] } { incr i } {
if { [lindex $args $i] == "--" } {
incr i
break
} elseif { [lindex $args $i] == "-n" } {
set newline 0
} elseif { [lindex $args $i] == "-log" } {
set logfile 1
} elseif { [string index [lindex $args $i] 0] == "-" } {
::BlueGnu::clone_output "ERROR: verbose:\
illegal argument: [lindex $args $i]"
return
} else {
break
}
}
if { [llength $args] == $i } {
::BlueGnu::clone_output "ERROR: send_user: nothing to print"
return
}
}
puts -nonewline [lindex $args $i]
}
proc send_error msg {
puts -nonewline stderr $msg
}
proc send_log msg {
global log_file
if {[info exists log_file]} {
puts -nonewline $log_file $msg
} else {
send_user "####### No log file has been defined\n"
puts -nonewline stderr $msg
}
}
proc log_file {args} {
global log_file
if {[info exists log_file]} {
catch {close $log_file}
unset log_file
}
set eAppend w
foreach arg $args {
switch -- $arg {
-a {
set eAppend a
}
default {
set log_file $arg
}
}
}
if {[info exist log_file]} {
set log_file [open $log_file $eAppend]
} else {
set log_file stderr
}
}
|