Cedric Roux
56c66c09aa
Pre-ci test passed git-svn-id: http://svn.eurecom.fr/openair4G/trunk@4000 818b1a75-f10b-46b9-bf7c-635c3b92a50f
67 lines
1.6 KiB
Tcl
67 lines
1.6 KiB
Tcl
#http://wiki.tcl.tk/1968
|
|
#from Jeffrey Hobbs
|
|
|
|
puts -nonewline "vnman (0) % "
|
|
if {!$tcl_interactive} {
|
|
set long_command ""
|
|
set verbose_history 0
|
|
if {![catch {rename unknown tcl_unknown}]} {
|
|
proc unknown {cmdname args} {
|
|
if {[regexp "^!..*" $cmdname]} {
|
|
banghist [string range $cmdname 1 end]
|
|
} else {
|
|
tcl_unknown $cmdname $args
|
|
}
|
|
}
|
|
}
|
|
|
|
proc banghist {val} {
|
|
global verbose_history
|
|
if {![string compare $val "!"]} {set val ""}
|
|
if {$verbose_history} {puts "[history event $val]"}
|
|
history redo $val
|
|
}
|
|
|
|
if {![info exists tcl_prompt1]} {
|
|
set tcl_prompt1 {puts -nonewline "vnman ([history nextid]) % "}
|
|
}
|
|
proc read_stdin {} {
|
|
global eventLoop tcl_prompt1 long_command
|
|
set l [gets stdin]
|
|
if {[eof stdin]} {
|
|
set eventLoop "done" ;# terminate the vwait eventloop
|
|
} else {
|
|
if {[string compare $l {}]} {
|
|
append long_command "\n$l"
|
|
set l $long_command
|
|
if {[info complete $l]} {
|
|
if {[catch {uplevel \#0 history add [list $l] exec} err]} {
|
|
puts stderr $err
|
|
} elseif {[string compare $err {}]} {
|
|
puts $err
|
|
}
|
|
set long_command ""
|
|
catch $tcl_prompt1
|
|
} else {
|
|
puts -nonewline "> "
|
|
}
|
|
} elseif {![string compare $long_command {}]} {
|
|
catch $tcl_prompt1
|
|
} else {
|
|
puts -nonewline "> "
|
|
}
|
|
flush stdout
|
|
}
|
|
}
|
|
|
|
# set up our keyboard read event handler:
|
|
# Vector stdin data to the socket
|
|
fileevent stdin readable read_stdin
|
|
|
|
catch $tcl_prompt1
|
|
flush stdout
|
|
# wait for and handle or stdin events...
|
|
#vwait eventLoop
|
|
}
|
|
|