--- a/Socket.st Thu Nov 14 22:56:27 2002 +0100
+++ b/Socket.st Fri Nov 22 17:12:19 2002 +0100
@@ -1452,7 +1452,7 @@
This is the reverse operation to #hostWithAppletalkAddress:.
WARNING: untested code - I have no appletalk to test this."
-%{
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_APPLETALK)
struct sockaddr_at sa;
struct hostent *hp ;
@@ -1508,7 +1508,8 @@
b1 := anAddress at:1. "/ net-hi
b2 := anAddress at:2. "/ net-low
b3 := anAddress at:3. "/ node
-%{
+
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_APPLETALK)
struct sockaddr_at sa ;
struct hostent *hp ;
@@ -1565,7 +1566,8 @@
b2 := anAddress at:2.
b3 := anAddress at:3.
b4 := anAddress at:4.
-%{
+
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_INET)
struct sockaddr_in sa ;
struct hostent *hp ;
@@ -1626,7 +1628,7 @@
Nil is returned for an unknown host or if its not an internet host.
This is the reverse operation to #ipV6AddressOfHost:."
-%{
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_INET6)
struct sockaddr_in6 sa ;
struct hostent *hp ;
@@ -1686,7 +1688,7 @@
If the host is unknown, return nil.
This is the reverse operation to #hostWithIpAddress:."
-%{
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_INET)
struct sockaddr_in sa ;
struct hostent *hp ;
@@ -1750,7 +1752,7 @@
If the host is unknown, return nil.
This is the reverse operation to #hostWithIpV6Address:."
-%{
+%{ /* STACK: 100000 */
#if !defined(NO_SOCKET) && defined(AF_INET6)
struct sockaddr_in6 sa;
struct hostent *hp ;
@@ -2989,7 +2991,7 @@
filePointer isNil ifTrue:[
^ self errorNotOpen
].
-%{
+%{ /* STACK: 100000 */
#ifndef NO_SOCKET
OBJ t = __INST(filePointer);
OBJ myDomain;
@@ -3605,7 +3607,7 @@
(serverSocketFd isMemberOf:SmallInteger) ifFalse:[
^ self error:'invalid server socket'
].
-%{
+%{ /* STACK: 100000 */
#ifndef NO_SOCKET
FILE *fp;
int flags;
@@ -4016,7 +4018,7 @@
filePointer isNil ifTrue:[
^ self errorNotOpen
].
-%{
+%{ /* STACK: 100000 */
#ifndef NO_SOCKET
OBJ t = __INST(filePointer);
@@ -4806,7 +4808,7 @@
(portNr isMemberOf:SmallInteger) ifFalse:[
self error:'invalid portNr'
].
-%{
+%{ /* STACK: 100000 */
#ifndef NO_SOCKET
struct sockaddr_in sa ;
struct hostent *hp ;
@@ -4953,7 +4955,7 @@
(portNr isMemberOf:SmallInteger) ifFalse:[
self error:'invalid portNr'
].
-%{
+%{ /* STACK: 100000 */
#ifndef NO_SOCKET
struct sockaddr_in sa ;
struct hostent *hp ;
@@ -5133,5 +5135,5 @@
!Socket class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.165 2002-11-14 21:56:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.166 2002-11-22 16:12:19 martin Exp $'
! !