David T. Lewis uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-dtl.126.mcz==================== Summary ====================
Name: Network-dtl.126
Author: dtl
Time: 6 June 2012, 8:07:34.782 am
UUID: f6ad35b2-fac8-4cc8-8ca8-1742bd941685
Ancestors: Network-dtl.125
Set the UseOldNetwork flag at image startup if ipv6 primitives are not present in the VM.
=============== Diff against Network-dtl.125 ===============
Item was added:
+ ----- Method: NetNameResolver class>>hasIpv6PrimSupport (in category 'system startup') -----
+ hasIpv6PrimSupport
+ "True if the VM includes the ipv6 primitives"
+ ^[NetNameResolver primHostNameSize. true]
+ on: Error
+ do: [false]
+ !
Item was changed:
----- Method: NetNameResolver class>>initialize (in category 'class initialization') -----
initialize
"NetNameResolver initialize"
"Note: On the Mac, the name resolver is asynchronous (i.e., Squeak can do other things while it is working), but can only handle one request at a time. On other platforms, such as Unix, the resolver is synchronous; a call to, say, the name lookup primitive will block all Squeak processes until it returns."
"Resolver Status Values"
ResolverUninitialized := 0. "network is not initialized"
ResolverReady := 1. "resolver idle, last request succeeded"
ResolverBusy := 2. "lookup in progress"
ResolverError := 3. "resolver idle, last request failed"
DefaultHostName := ''.
+
+ UseOldNetwork := self hasIpv6PrimSupport not.
+ Smalltalk addToStartUpList: self.
+
!
Item was added:
+ ----- Method: NetNameResolver class>>startUp: (in category 'system startup') -----
+ startUp: resuming
+ "Set the UseOldNetwork flag if ipv6 primitives are not present"
+
+ resuming ifTrue: [UseOldNetwork := self hasIpv6PrimSupport not]!