1881 " |
1881 " |
1882 Socket networkShortOrderIsMSB |
1882 Socket networkShortOrderIsMSB |
1883 " |
1883 " |
1884 ! |
1884 ! |
1885 |
1885 |
1886 peerFromDomain:domain name:peerName andPort:port |
1886 peerFromDomain:domain name:peerName port:port |
1887 domain == #unix ifTrue:[ |
1887 |addrClass| |
1888 ^ UDSocketAddress name:peerName |
1888 |
1889 ]. |
1889 addrClass := self socketAddressClassForDomain:domain. |
1890 domain == #inet ifTrue:[ |
1890 ^ addrClass peerName:peerName port:port |
1891 ^ IPSocketAddress hostAddress:(self ipAddressOfHost:peerName) port:port |
|
1892 ]. |
|
1893 domain == #inet6 ifTrue:[ |
|
1894 ^ IPv6SocketAddress hostAddress:(self ipV6AddressOfHost:peerName) port:port |
|
1895 ]. |
|
1896 domain == #appletalk ifTrue:[ |
|
1897 ^ AppletalkSocketAddress hostAddress:(self appletalkAddressOfHost:peerName) port:port |
|
1898 ]. |
|
1899 domain == #decnet ifTrue:[ |
|
1900 ^ DecNetSocketAddress hostAddress:(self decnetAddressOfHost:peerName) port:port |
|
1901 ]. |
|
1902 self error:'unsupported domain'. |
|
1903 ! |
1891 ! |
1904 |
1892 |
1905 peerNameFromDomain:domain peer:peer |
1893 peerNameFromDomain:domain peer:peer |
1906 ^ peer hostName |
1894 |addrClass| |
|
1895 |
|
1896 addrClass := self socketAddressClassForDomain:domain. |
|
1897 ^ addrClass peerNameFromPeer:peer |
1907 ! |
1898 ! |
1908 |
1899 |
1909 portOfService:aNameOrNumber |
1900 portOfService:aNameOrNumber |
1910 "returns the port-number for a given IP-service |
1901 "returns the port-number for a given IP-service |
1911 or nil if no such service exists; |
1902 or nil if no such service exists; |
2012 socketAddressClassForDomain:domain |
2003 socketAddressClassForDomain:domain |
2013 ^ SocketAddress knownClassFromCode:domain |
2004 ^ SocketAddress knownClassFromCode:domain |
2014 |
2005 |
2015 " |
2006 " |
2016 self socketAddressClassForDomain:#inet |
2007 self socketAddressClassForDomain:#inet |
|
2008 self socketAddressClassForDomain:#unix |
2017 " |
2009 " |
2018 ! |
2010 ! |
2019 |
2011 |
2020 supportedProtocolFamilies |
2012 supportedProtocolFamilies |
2021 "return a collection of supported protocol families. |
2013 "return a collection of supported protocol families. |