languages/tcl/runtime/builtin/socket.pir

   1 =head1 [socket]
   2
   3 Sockets!
   4
   5 =cut
   6
   7 .HLL 'Tcl', 'tcl_group'
   8 .namespace []
   9
  10 .sub '&socket'
  11     .param pmc argv :slurpy
  12
  13     .local int argc
  14     argc = elements argv
  15     if argc < 2 goto bad_args
  16     if argc > 2 goto bad_args
  17
  18     .local string host
  19     .local int port
  20     host = argv[0]
  21     port = argv[1]
  22
  23     load_bytecode 'library/tcpstream.pir'
  24     .local pmc stream
  25     stream = new 'TCPStream'
  26     stream.'connect'(host, port)
  27
  28     .local pmc channels, next_channel_id
  29     channels        = get_root_global ['_tcl'], 'channels'
  30     next_channel_id = get_root_global ['_tcl'], 'next_channel_id'
  31
  32     .local string channel_id
  33     channel_id = 'sock'
  34     # get a new file channel name
  35     $S0 = next_channel_id
  36     channel_id .= $S0
  37     inc next_channel_id
  38
  39     channels[channel_id] = stream
  40
  41     .return(channel_id)
  42
  43 bad_args:
  44     tcl_error 'wrong # args: should be "socket ?-myaddr addr? ?-myport myport? ?-async? host port" or "socket -server command ?-myaddr addr? port"'
  45 .end
  46
  47
  48 # Local Variables:
  49 #   mode: pir
  50 #   fill-column: 100
  51 # End:
  52 # vim: expandtab shiftwidth=4 ft=pir: