31 lines
506 B
Tcl
31 lines
506 B
Tcl
|
#package require dp 4.0
|
||
|
|
|
||
|
|
dp_MakeRPCServer 2002
|
||
|
|
|
||
|
|
set files {}
|
||
|
|
set log {}
|
||
|
|
|
||
|
|
proc JoinGroup {} {
|
||
|
|
global dp_rpcFile files log
|
||
|
|
lappend files $dp_rpcFile
|
||
|
|
foreach cmd $log {
|
||
|
|
eval dp_RDO $dp_rpcFile $cmd
|
||
|
|
}
|
||
|
|
dp_atclose $dp_rpcFile append "dp_Leave $dp_rpcFile"
|
||
|
|
}
|
||
|
|
|
||
|
|
proc dp_Leave {file} {
|
||
|
|
global files
|
||
|
|
set files [ldelete $files $file]
|
||
|
|
}
|
||
|
|
|
||
|
|
proc BroadCast {args} {
|
||
|
|
global files log
|
||
|
|
lappend log $args
|
||
|
|
foreach i $files {
|
||
|
|
eval "dp_RDO $i $args"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|