File: xnetserv-send.tcl

package info (click to toggle)
netmaze 0.81+jpg0.82-14.1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,208 kB
  • ctags: 915
  • sloc: ansic: 8,277; tcl: 1,223; makefile: 66; sh: 26
file content (19 lines) | stat: -rw-r--r-- 294 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/wish8.5 -f

puts $argv

set cmdlist [split "$argv" "!"]

set i [expr [llength $cmdlist] -1]
set x 0

while {$x<=$i} {
  set sendcommand "[lindex $cmdlist $x]"
  eval send xnetserv.tcl {$sendcommand}
  incr x
}

# set sendcommand "$argv"
# eval send xnetserv.tcl {$sendcommand}

exit