equal
deleted
inserted
replaced
168 !SocketAddress class methodsFor:'queries'! |
168 !SocketAddress class methodsFor:'queries'! |
169 |
169 |
170 domainCode |
170 domainCode |
171 "answer the numerical domain code used in socket addresses" |
171 "answer the numerical domain code used in socket addresses" |
172 |
172 |
173 ^ OperatingSystem socketAccessor domainCodeOf:self domainSymbol |
173 ^ OperatingSystem socketAccessor domainCodeOf:(self domainSymbol) |
174 ! |
174 ! |
175 |
175 |
176 domainCodeFromName:aNameSymbol |
176 domainCodeFromName:aNameSymbol |
177 "this is a compatibility method; |
177 "this is a compatibility method; |
178 VW returns the internal unix codes here - however, in ST/X, |
178 VW returns the internal unix codes here - however, in ST/X, |
342 ]. |
342 ]. |
343 ]. |
343 ]. |
344 ^ SocketAddress |
344 ^ SocketAddress |
345 |
345 |
346 " |
346 " |
|
347 DomainToClassMapping := nil. |
|
348 |
347 self knownClassFromCode:#'AF_UNIX' |
349 self knownClassFromCode:#'AF_UNIX' |
348 self knownClassFromCode:#'AF_INET' |
350 self knownClassFromCode:#'AF_INET' |
349 |
351 |
350 self knownClassFromCode:1 |
352 self knownClassFromCode:1 |
351 self knownClassFromCode:2 |
353 self knownClassFromCode:2 |
482 ! ! |
484 ! ! |
483 |
485 |
484 !SocketAddress class methodsFor:'documentation'! |
486 !SocketAddress class methodsFor:'documentation'! |
485 |
487 |
486 version |
488 version |
487 ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.19 2003-07-09 15:31:29 cg Exp $' |
489 ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.20 2003-07-14 11:10:36 cg Exp $' |
488 ! ! |
490 ! ! |