File: ns_openssl_socknread.tcl

package info (click to toggle)
aolserver4-nsopenssl 3.0beta22-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 448 kB
  • ctags: 310
  • sloc: ansic: 3,166; tcl: 1,080; makefile: 172
file content (20 lines) | stat: -rwxr-xr-x 551 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
# nsopenssl socket testing setup
# Copyright (c) 2001 by Scott S. Goodwin
# See http://scottg.net for more information

ns_log notice "loading test-socknread.tcl"

#proc do_socknread {timeout sock} {
#    set p "do_socknread"
#    set nread [ns_socknread $sock]
#    if !$nread {
#        set sel [ns_sockselect -timeout $timeout $sock {} {}]
#        if [string match "" [lindex $sel 0]] {
#            return -code error "ns_sockreadwait: Timeout waiting for remote"
#        }
#        set nread [ns_socknread $sock]
#    }
#    return $nread
#}