On May 11, 2006, at 10:29 AM, Charles Yeomans wrote:
They aren't; here's a port.
Function IsRosetta() as Boolean
Soft Declare Function sysctl Lib "System.framework" (p1 as Ptr,
p2 as Integer, p3 as Ptr, ByRef p4 as Integer, p5 as Integer, p6 as
Integer) as Integer
Const CTL_HW = 6
Const HW_MODEL = 2
Const Null = 0
dim mib as new MemoryBlock(8)
mib.Long(0) = CTL_HW
mib.Long(4) = HW_MODEL
dim model as new MemoryBlock(32)
dim len as Integer = model.Size
dim theResult as Integer = sysctl(mib, 2, model, len, Null, 0)
Return (theResult = 0) and (len = 9 and StrComp(model,
"PowerMac", 0) = 0)
End Function
Perhaps some of you could test this on your machines.
Interestingly enough on my MacBook Pro model holds "PowerMac"
No Gestalt selector that tells this any more ?
"mach" used to say what machine, cput and cpuf used to tell type and
family
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
