fblocked man page on SmartOS

Man page or keyword search:  
man Server   16655 pages
apropos Keyword Search (all sections)
Output format
SmartOS logo
[printable version]

fblocked(n)		     Tcl Built-In Commands		   fblocked(n)

       fblocked	 -  Test whether the last input operation exhausted all avail‐
       able input

       fblocked channelId

       The fblocked command returns 1 if the most recent  input	 operation  on
       channelId  returned  less information than requested because all avail‐
       able input was exhausted.  For example, if gets is invoked  when	 there
       are  only  three	 characters  available	for  input  and no end-of-line
       sequence, gets returns  an  empty  string  and  a  subsequent  call  to
       fblocked will return 1.

       ChannelId must be an identifier for an open channel such as a Tcl stan‐
       dard channel (stdin, stdout, or stderr), the return value from an invo‐
       cation  of  open or socket, or the result of a channel creation command
       provided by a Tcl extension.

       The fblocked  command  is  particularly	useful	when  writing  network
       servers,	 as  it	 allows you to write your code in a line-by-line style
       without preventing the servicing of other  connections.	 This  can  be
       seen in this simple echo-service:

       # This is called whenever a new client connects to the server proc con‐
       nect {chan host port} {
	   set clientName [format <%s:%d> $host $port]
	   puts "connection from $clientName"
	   fconfigure $chan -blocking 0 -buffering line
	   fileevent $chan readable [list echoLine $chan $clientName] }

       # This is called whenever either at least one byte of input #  data  is
       available,  or  the  channel  was  closed by the client.	 proc echoLine
       {chan clientName} {
	   gets $chan line
	   if {[eof $chan]} {
	       puts "finishing connection from $clientName"
	       close $chan
	   } elseif {![fblocked $chan]} {
	       # Didn't block waiting for end-of-line
	       puts "$clientName - $line"
	       puts $chan $line
	   } }

       # Create the server socket and enter  the  event-loop  to  wait	#  for
       incoming connections...	socket -server connect 12345 vwait forever

       gets(n), open(n), read(n), socket(n), Tcl_StandardChannels(3)

       blocking, nonblocking

Tcl				      7.5			   fblocked(n)

List of man pages available for SmartOS

Copyright (c) for man pages and the logo by the respective OS vendor.

For those who want to learn more, the polarhome community provides shell access and support.

[legal] [privacy] [GNU] [policy] [cookies] [netiquette] [sponsors] [FAQ]
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
Vote for polarhome
Free Shell Accounts :: the biggest list on the net