The Trunk: Network-bf.157.mcz

Bert Freudenberg uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-bf.157.mcz

==================== Summary ====================

Name: Network-bf.157
Author: bf
Time: 8 December 2014, 1:57:48.396 am
UUID: f8529b69-72e6-4dec-bd3c-408fecda17eb
Ancestors: Network-cmm.156

Restore timestamps lost in assignment conversion.

=============== Diff against Network-cmm.156 ===============

Item was changed:
  ----- Method: FileStream class>>httpPostDocument:args: (in category '*network') -----
  httpPostDocument: url args: argsDict
  | argString |
  argString := argsDict
  ifNotNil: [argString := HTTPSocket argString: argsDict]
  ifNil: [''].
  ^self post: argString url: url , argString ifError: [self halt]!

Item was changed:
  ----- Method: FileStream class>>requestURL:target: (in category '*network') -----
  requestURL: url target: target
  "FileStream requestURL:'http://isgwww.cs.uni-magdeburg.de/~raab' target: ':=blank' "
  ^self concreteStream new requestURL: url target: target!

Item was changed:
  ----- Method: ProtocolClient>>ensureConnection (in category 'private') -----
  ensureConnection
  self isConnected
  ifTrue: [^self].
  self stream
  ifNotNil: [self stream close].
 
  self stream: (SocketStream openConnectionToHost: self host port: self port).
  self checkResponse.
  self login!

Item was changed:
  ----- Method: Socket>>getOption: (in category 'other') -----
  getOption: aName
  "Get options on this socket, see Unix man pages for values for
  sockets, IP, TCP, UDP. IE SO_KEEPALIVE
  returns an array, element one is an status number (0 ok, -1 read only option)
  element two is the resulting of the requested option"
 
  (socketHandle == nil or: [self isValid not])
  ifTrue: [InvalidSocketStatusException signal: 'Socket status must valid before getting an option'].
  ^self primSocket: socketHandle getOption: aName
 
  "| foo options |
  Socket initializeNetwork.
  foo := Socket newTCP.
  foo connectTo: (NetNameResolver addressFromString: '192.168.1.1') port: 80.
  foo waitForConnectionUntil: (Socket standardDeadline).
 
  options := {
  'SO_DEBUG'. 'SO_REUSEADDR'. 'SO_REUSEPORT'. 'SO_DONTROUTE'.
  'SO_BROADCAST'. 'SO_SNDBUF'. 'SO_RCVBUF'. 'SO_KEEPALIVE'.
  'SO_OOBINLINE'. 'SO_PRIORITY'. 'SO_LINGER'. 'SO_RCVLOWAT'.
  'SO_SNDLOWAT'. 'IP_TTL'. 'IP_HDRINCL'. 'IP_RCVOPTS'.
  'IP_RCVDSTADDR'. 'IP_MULTICAST_IF'. 'IP_MULTICAST_TTL'.
  'IP_MULTICAST_LOOP'. 'UDP_CHECKSUM'. 'TCP_MAXSEG'.
  'TCP_NODELAY'. 'TCP_ABORT_THRESHOLD'. 'TCP_CONN_NOTIFY_THRESHOLD'.
  'TCP_CONN_ABORT_THRESHOLD'. 'TCP_NOTIFY_THRESHOLD'.
  'TCP_URGENT_PTR_TYPE'}.
 
  1 to: options size do: [:i | | fum |
  fum :=foo getOption: (options at: i).
  Transcript show: (options at: i),fum printString;cr].
 
  foo := Socket newUDP.
  foo setPeer: (NetNameResolver addressFromString: '192.168.1.9') port: 7.
  foo waitForConnectionUntil: (Socket standardDeadline).
 
  1 to: options size do: [:i | | fum |
  fum :=foo getOption: (options at: i).
  Transcript show: (options at: i),fum printString;cr].
  "!

Item was changed:
  ----- Method: SocketStream class>>openConnectionToHost:port: (in category 'instance creation') -----
  openConnectionToHost: hostIP port: portNumber
  | socket |
  socket := Socket new.
  socket connectTo: hostIP port: portNumber.
  ^self on: socket!

Item was changed:
  ----- Method: SocketStream>>cr (in category 'stream out') -----
  cr
  self nextPutAll: String cr!

Item was changed:
  ----- Method: SocketStream>>crlf (in category 'stream out') -----
  crlf
  self nextPutAll: String crlf!

Item was changed:
  ----- Method: SocketStream>>isBinary (in category 'testing') -----
  isBinary
  ^binary!

Item was changed:
  ----- Method: SocketStream>>nextLine (in category 'stream in') -----
  nextLine
  ^self nextLineCrLf!

Item was changed:
  ----- Method: SocketStream>>nextLineLf (in category 'stream in') -----
  nextLineLf
  | nextLine |
  nextLine := self upToAll: String lf.
  ^nextLine!

Item was changed:
  ----- Method: SocketStream>>shouldTimeout (in category 'testing') -----
  shouldTimeout
  ^self timeout > 0!

Item was changed:
  ----- Method: SocketStream>>socket (in category 'configuration') -----
  socket
  ^socket!

Item was changed:
  ----- Method: SocketStream>>socket: (in category 'configuration') -----
  socket: aSocket
  socket := aSocket!

Item was changed:
  ----- Method: SocketStream>>space (in category 'stream out') -----
  space
  self nextPut: Character space!

Item was changed:
  ----- Method: String>>asUrl (in category '*network-url') -----
  asUrl
  "convert to a Url"
  "'http://www.cc.gatech.edu/' asUrl"
  "msw://chaos.resnet.gatech.edu:9000/' asUrl"
  ^Url absoluteFromText: self!

Item was changed:
  ----- Method: String>>asUrlRelativeTo: (in category '*network-url') -----
  asUrlRelativeTo: aUrl
  ^aUrl newFromRelativeText: self!