author | Stefan Vogel <sv@exept.de> |
Tue, 28 Jun 2005 15:10:49 +0200 | |
changeset 1559 | 609a0707ab22 |
parent 1452 | 4456e3f3ddb4 |
child 1585 | 32eba58e5498 |
permissions | -rw-r--r-- |
100 | 1 |
" |
2 |
COPYRIGHT (c) 1995 by Claus Gittinger |
|
1164 | 3 |
All Rights Reserved |
100 | 4 |
|
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
||
1023 | 13 |
"{ Package: 'stx:libbasic2' }" |
14 |
||
818 | 15 |
SocketAddress variableByteSubclass:#IPSocketAddress |
1164 | 16 |
instanceVariableNames:'' |
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
17 |
classVariableNames:'' |
488 | 18 |
poolDictionaries:'' |
816 | 19 |
category:'OS-Sockets' |
100 | 20 |
! |
21 |
||
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
22 |
IPSocketAddress class instanceVariableNames:'addrCache nameCache' |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
23 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
24 |
" |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
25 |
No other class instance variables are inherited by this class. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
26 |
" |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
27 |
! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
28 |
|
100 | 29 |
!IPSocketAddress class methodsFor:'documentation'! |
30 |
||
31 |
copyright |
|
32 |
" |
|
33 |
COPYRIGHT (c) 1995 by Claus Gittinger |
|
1164 | 34 |
All Rights Reserved |
100 | 35 |
|
36 |
This software is furnished under a license and may be used |
|
37 |
only in accordance with the terms of that license and with the |
|
38 |
inclusion of the above copyright notice. This software may not |
|
39 |
be provided or otherwise made available to, or used by, any |
|
40 |
other person. No title to or ownership of the software is |
|
41 |
hereby transferred. |
|
42 |
" |
|
43 |
! |
|
44 |
||
45 |
documentation |
|
46 |
" |
|
111 | 47 |
Instances of IPSocketAddress represent tcp/ip-domain socket addresses. |
48 |
These consist of an ip address (4 bytes) and a port number. |
|
49 |
||
100 | 50 |
ST-80 compatibility class. |
51 |
This may be required when existing code has to be ported to ST/X; |
|
52 |
however, it may not be complete and more protocol may be added in the future. |
|
53 |
The code here was created when public domain code (Manchester) had to |
|
54 |
be ported to ST/X and missing classes/methods were encountered, and code added |
|
55 |
by reasoning 'what the original class could probably do there'. |
|
56 |
||
57 |
This is an additional goody class; therefore: |
|
58 |
||
59 |
THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND |
|
60 |
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
|
61 |
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
|
62 |
ARE DISCLAIMED. IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE |
|
63 |
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
|
64 |
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
|
65 |
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
|
66 |
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
|
67 |
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
|
68 |
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
|
69 |
SUCH DAMAGE. |
|
70 |
" |
|
71 |
! ! |
|
72 |
||
1233 | 73 |
!IPSocketAddress class methodsFor:'instance creation'! |
74 |
||
1559
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
75 |
addressString:aString |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
76 |
"convert an address given in a dot notation like 123.456.78.9" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
77 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
78 |
^ self hostAddress:(self hostAddressFromString:aString). |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
79 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
80 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
81 |
" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
82 |
IPSocketAddress addressString:'1.2.3.4' |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
83 |
" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
84 |
! |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
85 |
|
1233 | 86 |
hostName:name serviceName:portNrOrName type:socketTypeSymbol |
1262
d3daddd36a99
no longer callBack into sockets getHostName/getAddress code.
Claus Gittinger <cg@exept.de>
parents:
1261
diff
changeset
|
87 |
"get a new instance given a hostname, port or service and type. |
d3daddd36a99
no longer callBack into sockets getHostName/getAddress code.
Claus Gittinger <cg@exept.de>
parents:
1261
diff
changeset
|
88 |
Redefined to cache the result of the name-lookup." |
1233 | 89 |
|
90 |
|addrBytes sa| |
|
91 |
||
92 |
portNrOrName isString ifTrue:[ |
|
93 |
^ super hostName:name serviceName:portNrOrName type:socketTypeSymbol |
|
94 |
]. |
|
95 |
||
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
96 |
addrBytes := self addressCacheAt:name. |
1233 | 97 |
addrBytes notNil ifTrue:[ |
98 |
sa := self hostAddress:addrBytes. |
|
99 |
portNrOrName notNil ifTrue:[ |
|
100 |
sa port:portNrOrName. |
|
101 |
]. |
|
102 |
] ifFalse:[ |
|
103 |
sa := super hostName:name serviceName:portNrOrName type:socketTypeSymbol. |
|
104 |
||
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
105 |
self addressCacheAt:name put:(sa hostAddress). |
1233 | 106 |
]. |
107 |
^ sa |
|
108 |
||
109 |
" |
|
1333 | 110 |
SocketAddress hostName:'localhost' serviceName:10 type:#stream |
1233 | 111 |
IPSocketAddress hostName:'localhost' serviceName:'echo' type:#datagram |
1333 | 112 |
IPSocketAddress hostName:'localhost' serviceName:'echo' type:nil |
113 |
IPSocketAddress hostName:'localhost' |
|
1559
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
114 |
IPv6SocketAddress hostName:'localhost' |
1233 | 115 |
" |
1559
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
116 |
! |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
117 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
118 |
localHost |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
119 |
"get a new instance representing the local-host address" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
120 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
121 |
^ self hostAddress:(self local) port:self anyPort |
1233 | 122 |
! ! |
123 |
||
1164 | 124 |
!IPSocketAddress class methodsFor:'addressing'! |
125 |
||
126 |
anyAddress |
|
1281 | 127 |
"return the anonymous addresses bytes" |
1164 | 128 |
|
1281 | 129 |
^ #[0 0 0 0] |
1164 | 130 |
! |
131 |
||
132 |
anyPort |
|
133 |
"return the anon port number" |
|
134 |
||
135 |
^ 0 |
|
136 |
! |
|
100 | 137 |
|
1281 | 138 |
broadcastAddress |
139 |
"return the broadcast address" |
|
140 |
||
141 |
^ #[255 255 255 255] |
|
142 |
! |
|
143 |
||
1164 | 144 |
firstUnreservedPort |
145 |
"return the first unreserved port number" |
|
146 |
||
147 |
^ 1024 |
|
148 |
! |
|
149 |
||
150 |
local |
|
151 |
"return IN_ADDR_ANY, the address matching any local address" |
|
152 |
||
153 |
^ #[127 0 0 1] |
|
100 | 154 |
! |
155 |
||
1164 | 156 |
maxPort |
157 |
"return the maximum port number" |
|
100 | 158 |
|
1164 | 159 |
^ 16rffff |
816 | 160 |
! |
161 |
||
1164 | 162 |
thisHost |
1226
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
163 |
"return the bytes of IN_ADDR_ANY, the address matching any local address" |
1164 | 164 |
|
165 |
^ #[0 0 0 0] |
|
166 |
! ! |
|
167 |
||
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
168 |
!IPSocketAddress class methodsFor:'caching'! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
169 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
170 |
addressCacheAt:aHostName |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
171 |
addrCache notNil ifTrue:[ |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
172 |
^ addrCache at:aHostName ifAbsent:nil. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
173 |
]. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
174 |
^ nil |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
175 |
! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
176 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
177 |
addressCacheAt:aName put:aHostAddress |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
178 |
(addrCache isNil or:[addrCache size > 30]) ifTrue:[ |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
179 |
addrCache := Dictionary new. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
180 |
]. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
181 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
182 |
addrCache at:aName put:aHostAddress. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
183 |
! |
1261 | 184 |
|
185 |
flushAddressCache |
|
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
186 |
addrCache := nil |
1261 | 187 |
|
188 |
" |
|
189 |
self flushAddressCache |
|
190 |
" |
|
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
191 |
! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
192 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
193 |
flushNameCache |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
194 |
nameCache := Dictionary new. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
195 |
! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
196 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
197 |
nameCacheAt:aHostAddress |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
198 |
nameCache notNil ifTrue:[ |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
199 |
^ nameCache at:aHostAddress ifAbsent:nil. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
200 |
]. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
201 |
^ nil |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
202 |
! |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
203 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
204 |
nameCacheAt:aHostAddress put:aName |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
205 |
(nameCache isNil or:[nameCache size > 30]) ifTrue:[ |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
206 |
nameCache := Dictionary new. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
207 |
]. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
208 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
209 |
nameCache at:aHostAddress put:aName. |
1261 | 210 |
! ! |
211 |
||
1559
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
212 |
!IPSocketAddress class methodsFor:'conversion'! |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
213 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
214 |
hostAddressFromString:aString |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
215 |
"convert an address given in a dot notation like 123.456.78.9" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
216 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
217 |
|components bytes| |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
218 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
219 |
components := aString asCollectionOfSubstringsSeparatedBy:$.. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
220 |
components size ~~ 4 ifTrue:[ |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
221 |
^ NameLookupError raiseRequestWith:aString errorString:' - bad address string'. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
222 |
]. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
223 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
224 |
bytes := components collect:[:eachComponent| |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
225 |
Integer readFromString:eachComponent onError:[^ NameLookupError raiseRequestWith:aString errorString:' - bad address string']. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
226 |
]. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
227 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
228 |
^ bytes asByteArray. |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
229 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
230 |
|
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
231 |
" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
232 |
IPSocketAddress hostAddressFromString:'1.2.3.4' |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
233 |
IPSocketAddress hostAddressFromString:'255.255.255.255' |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
234 |
" |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
235 |
! ! |
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
236 |
|
1164 | 237 |
!IPSocketAddress class methodsFor:'queries'! |
816 | 238 |
|
1164 | 239 |
domainSymbol |
240 |
||
1226
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
241 |
^ #'AF_INET' |
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
242 |
! |
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
243 |
|
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
244 |
obsoleteDomainSymbol |
1164 | 245 |
^ #inet |
246 |
! |
|
247 |
||
1226
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
248 |
vwDomainSymbol |
0114bd044aa9
vw compatible domainSymbols (afXXX)
Claus Gittinger <cg@exept.de>
parents:
1164
diff
changeset
|
249 |
^ #afInet |
100 | 250 |
! ! |
251 |
||
252 |
!IPSocketAddress methodsFor:'accessing'! |
|
253 |
||
818 | 254 |
hostAddress |
1164 | 255 |
^ (ByteArray new:4) replaceFrom:1 to:4 with:self startingAt:5 |
816 | 256 |
! |
257 |
||
1164 | 258 |
hostAddress:aByteArray |
259 |
^ self replaceFrom:5 to:8 with:aByteArray startingAt:1 |
|
818 | 260 |
! |
261 |
||
262 |
port |
|
1164 | 263 |
^ self unsignedShortAt:3 bigEndian:true |
818 | 264 |
! |
265 |
||
266 |
port:aPortNr |
|
1164 | 267 |
self unsignedShortAt:3 put:aPortNr bigEndian:true |
268 |
! ! |
|
269 |
||
270 |
!IPSocketAddress methodsFor:'obsolete'! |
|
271 |
||
272 |
address |
|
1452 | 273 |
<resource: #obsolete> |
274 |
||
1164 | 275 |
^ self hostAddress |
276 |
! |
|
277 |
||
278 |
portOrName |
|
1452 | 279 |
<resource: #obsolete> |
280 |
||
1164 | 281 |
^ self port |
100 | 282 |
! ! |
283 |
||
770 | 284 |
!IPSocketAddress methodsFor:'printing & storing'! |
285 |
||
1333 | 286 |
printAddressOn:aStream |
287 |
|i1 i2| |
|
100 | 288 |
|
1233 | 289 |
i1 := self adrBytesStart. |
290 |
i2 := i1 + self numAdrBytes - 1. |
|
291 |
i1 to:i2 do:[:i | |
|
292 |
i ~~ i1 ifTrue:[ |
|
293 |
aStream nextPut:$. |
|
294 |
]. |
|
295 |
(self at:i) printOn:aStream |
|
1164 | 296 |
]. |
488 | 297 |
! ! |
298 |
||
1233 | 299 |
!IPSocketAddress methodsFor:'private'! |
300 |
||
301 |
adrBytesStart |
|
302 |
^ 5 |
|
303 |
! |
|
304 |
||
305 |
numAdrBytes |
|
306 |
^ 4 |
|
307 |
! ! |
|
308 |
||
309 |
!IPSocketAddress methodsFor:'queries'! |
|
310 |
||
311 |
hostName |
|
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
312 |
|addr name| |
1233 | 313 |
|
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
314 |
addr := self hostAddress. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
315 |
|
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
316 |
name := self class nameCacheAt:addr. |
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
317 |
name notNil ifTrue:[^ name]. |
1233 | 318 |
|
319 |
name := super hostName. |
|
320 |
name notNil ifTrue:[ |
|
1273
03afdf3f895e
addrCache and nameCache must be separate for
Claus Gittinger <cg@exept.de>
parents:
1262
diff
changeset
|
321 |
self class nameCacheAt:addr put:name. |
1233 | 322 |
]. |
323 |
^ name |
|
1337 | 324 |
! |
325 |
||
326 |
networkAddress |
|
327 |
"Extract and return the network address from the host address." |
|
328 |
||
329 |
|highAddrByte| |
|
330 |
||
331 |
highAddrByte := self at: 5. |
|
332 |
(highAddrByte bitAnd: 16r80) == 0 ifTrue: [^ByteArray with: highAddrByte]. |
|
333 |
(highAddrByte bitAnd: 16rC0) == 16r80 ifTrue: [^ByteArray with: highAddrByte with: (self at: 6)]. |
|
334 |
(highAddrByte bitAnd: 16rC0) == 16rC0 ifTrue: [^ByteArray with: highAddrByte with: (self at: 6) with: (self at: 7)]. |
|
335 |
^ self error: 'unknown network class' |
|
336 |
||
337 |
" |
|
338 |
(IPSocketAddress hostName:'exept.eu.org') networkAddress |
|
339 |
(IPSocketAddress hostName:'exept.exept.de') networkAddress |
|
340 |
(IPSocketAddress hostName:'ibm.com') networkAddress |
|
341 |
(IPSocketAddress hostName:'cnn.com') networkAddress |
|
342 |
" |
|
343 |
! |
|
344 |
||
345 |
networkClass |
|
346 |
"Extract and return the network class (as a symbol) from the host address. |
|
347 |
Returns one of #classA #classB #classC." |
|
348 |
||
349 |
|highAddrByte| |
|
350 |
||
351 |
highAddrByte := self at: 5. |
|
352 |
(highAddrByte bitAnd: 16r80) == 0 ifTrue: [^#classA]. |
|
353 |
(highAddrByte bitAnd: 16rC0) == 16r80 ifTrue: [^#classB]. |
|
354 |
(highAddrByte bitAnd: 16rC0) == 16rC0 ifTrue: [^#classC]. |
|
355 |
^ self error: 'unknown network class' |
|
356 |
||
357 |
" |
|
358 |
(IPSocketAddress hostName:'exept.eu.org') networkClass |
|
359 |
" |
|
1233 | 360 |
! ! |
361 |
||
1366
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
362 |
!IPSocketAddress methodsFor:'testing'! |
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
363 |
|
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
364 |
isLocal |
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
365 |
"answer true, if this address adresses a peer on the same host" |
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
366 |
|
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
367 |
^ self hostAddress first == 127 |
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
368 |
! ! |
e01d0f6c102a
New method #isLocal returning true for local addresses
Stefan Vogel <sv@exept.de>
parents:
1337
diff
changeset
|
369 |
|
488 | 370 |
!IPSocketAddress class methodsFor:'documentation'! |
100 | 371 |
|
488 | 372 |
version |
1559
609a0707ab22
New: #addressString: to create an instance from a numeric string representation like
Stefan Vogel <sv@exept.de>
parents:
1452
diff
changeset
|
373 |
^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.28 2005-06-28 13:10:49 stefan Exp $' |
100 | 374 |
! ! |