udp - Create UDP sockets in Tcl
TABLE OF CONTENTS
SYNOPSIS
DESCRIPTION
COMMANDS
EXAMPLES
HISTORY
SEE ALSO
KEYWORDS
COPYRIGHT
package require Tcl 8.0
package require udp 1.0
This package provides support for using UDP through Tcl. The package provides a new channel type and attempts to permit the use of packet oriented UDP over stream oriented Tcl channels. The package defined three commands but udp_conf should be considered depreciated in favour of the standard Tcl command fconfigure.
# Send data to a remote UDP socket
proc udp_puts {host port} {
set s [udp_open]
fconfigure $s -remote [list $host $port]
puts $s "Hello, World"
close $f
}
|
# A simple UDP server
package require udp
proc udpEventHandler {sock} {
set pkt [read $sock]
set peer [fconfigure $sock -peer]
puts "$peer: [string length $pkt] {$pkt}"
return
}
proc udp_listen {port} {
set srv [udp_open $port]
fconfigure $srv -buffering none -translation binary
fileevent $srv readable [list ::udpEventHandler $srv]
puts "Listening on udp port: [fconfigure $srv -myport]"
return $srv
}
set sock [udp_listen 53530]
vwait forever
close $sock
|
# A multicast demo.
proc udpEvent {chan} {
set data [read $chan]
set peer [fconfigure $chan -peer]
puts "$peer [string length $data] '$data'"
if {[string match "QUIT*" $data]} {
close $chan
set ::forever 1
}
return
}
set group 224.5.1.21
set port 7771
set s [udp_open $port]
fconfigure $s -buffering none -blocking 0
fconfigure $s -mcastadd $group -remote [list $group $port]
fileevent $s readable [list udpEvent $s]
puts -nonewline $s "hello, world"
set ::forever 0
vwait ::forever
exit
|
Some of the code in this extension is copied from Michael Miller's tcludp package. (http://www.neosoft.com/tcl/ftparchive/sorted/comm/tcludp-1.0/) Compared with Michael's UDP extension, this extension provides Windows support and provides the ability of using 'gets/puts' to read/write the socket. In addition, it provides more configuration ability.
Enhancements to support binary data and to setup the package for the Tcl Extension Architecture by Pat Thoyts.
socket(n)
networking, socket, udp
Copyright © 1999-2000 Columbia University; all rights reserved