Account Options

  1. Sign in
The old Google Groups will be going away soon, but your browser is incompatible with the new version.
Google Groups Home
« Groups Home
comp.lang.tcl
+ new post
About this group
Subscribe to this group
This is a Usenet group - learn more
Tcl Socket help
Options
There are currently too many topics in this group that display first. To make this topic appear first, remove this option from another topic.
There was an error processing your request. Please try again.
flag
   2 messages - Collapse all  -  Translate all to Translated (View all originals)
The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 
From:
To:
Cc:
Followup To:
Add Cc | Add Followup-to | Edit Subject
Subject:
Validation:
For verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear
 
Charlie Bursell  
View profile  
 More options Feb 9, 10:05 am
Newsgroups: comp.lang.tcl
From: Charlie Bursell <cburs...@geusnet.com>
Date: Thu, 9 Feb 2012 07:05:53 -0800 (PST)
Local: Thurs, Feb 9 2012 10:05 am
Subject: Tcl Socket help
Print | Individual message | Show original | Report this message | Find messages by this author
I haven't done much (anything) with Tcl sockets and woul like some
ideas

The problem.

Connect to a server, send a message, get response, send another
message, get response then finished

After sending the message I don't want to wait more that 20 seconds or
so for a response, in other words time out.  Depending on the size of
the message each response may require several reads.

I assume I would do this with a combination of the after command and
vwait?  All my trial thius far have not worked as required.

Any ideas or even pointers to examples would be greatly appreciated


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Harald Oehlmann  
View profile  
 More options Feb 9, 11:12 am
Newsgroups: comp.lang.tcl
From: Harald Oehlmann <wortka...@yahoo.de>
Date: Thu, 9 Feb 2012 08:12:31 -0800 (PST)
Local: Thurs, Feb 9 2012 11:12 am
Subject: Re: Tcl Socket help
Print | Individual message | Show original | Report this message | Find messages by this author
Here is an example (untested):

# !/bin/sh
# \
exec tclsh8.5 "$0" "$@"

# > Cmd-Line
set Pos 0
# > Problems with an empty phantom argument on win98
if {$argc == 1} {
        set argv [lindex $argv 0]

}

puts "Argv=$argv [llength $argv]"
set Config(Indexes) {IP Port}
foreach Index $Config(Indexes)\
        Default {127.0.0.1 5000}\
{
        if {$Pos  < [llength $argv]} {
                set Config($Index) [lindex $argv $Pos]
        } else {
                set Config($Index) $Default
        }
        incr Pos
}

puts "emulspc [array get Config]"
proc ShowState {Text} {
        puts "State:$Text"
}

proc ShowError {Msg} {
        puts stderr $Msg
        exit
}

proc OpenSocket {} {
        variable Config
        if {[info exists Config(SId)]} {
                CloseSocket
        }
        if {"" eq $Config(IP) || "" eq $Config(Port)} {
                return
        }
        # > Socket
        if {[catch {
                set SId [socket -async $Config(IP) $Config(Port)]
                fconfigure $SId -blocking 0 -buffering none -translation binary\
                        -encoding binary
                fileevent $SId readable [list ReadSocket]
                fileevent $SId writable [list WritableSocket]
        } Err]} {
                ShowError "Error opening socket $Config(IP):$Config(Port): $Err"
        } else {
                set Config(SId) $SId
                ShowState "Socket $Config(IP):$Config(Port) opened"
        }
}

proc CloseSocket {} {
        variable Config
        if {[info exists Config(SId)]} {
                if {[catch {
                        close $Config(SId)
                } Err]} {
                        ShowError "Error closing socket $Config(IP):$Config(Port): $Err"
                }
                ShowState "Socket $Config(IP):$Config(Port) closed"
                unset Config(SId)
        }
}

proc WritableSocket {} {
        variable Config
        TimeoutCancel
        if {![info exists Config(SId)]} {
                return
        }
        if {[catch { fileevent $Config(SId) writable "" } Err]} {
                ShowError "Error canceling write socket $Config(IP):$Config(Port):
$Err"
        }
        puts "Socket connected"
        ShowState "Socket $Config(IP):$Config(Port) connected"
        TimeoutStart
        Send "First message"
}

# > Read Socket
proc ReadSocket {} {
        variable Config
        if {[ catch {
                set Data [read $Config(SId)]
        } Err]} {
                CloseSocket
                ShowError "Error reading socket $Config(IP):$Config(Port): $Err"
                return
        }
        puts "Received:$Data"
        append Config(SocketData) $Data
        # Update
        while { [regexp -- {([^\x0d]*)\x0d(.*)$} $Config(SocketData) match\
                                Data Config(SocketData)]
        } {
                TimeoutCancel
                TimeoutStart
                Send "Consecutive message"
        }
        if {[eof $Config(SId)]} {
                CloseSocket
                ShowError "Server closed socket"
        }

}

# > Send data
proc Send {Data} {
        variable Config
        append Data \x0d
        if {![info exists Config(SId)]} {
                OpenSocket
                if {![info exists Config(SId)]} {
                        return
                }
        }
        ShowState "Send $Data"
        if {[ catch {
                puts -nonewline $Config(SId) $Data
                flush $Config(SId)
        } Err]} {
                ShowError "Error writing socket $Config(IP):$Config(Port): $Err"
                CloseSocket
                return
        }
}

proc Timeout {} {
        variable Config
        unset Config(TId)
        ShowError "Timeout"
        return
}

proc TimeoutStart {{Time 5000}} {
        variable Config
        TimeoutCancel
        set Config(TId) [after 5000 Timeout]
}

proc TimeoutCancel {} {
        variable Config
        if {[info exists Config(TId)]} {
                after cancel $Config(TId)
                unset Config(TId)
        }
}

# > Connect timeout
TimeoutStart
OpenSocket

vwait forever


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
End of messages
« Back to Discussions « Newer topic     Older topic »

Create a group - Google Groups - Google Home - Terms of Service - Privacy Policy
©2012 Google