On Tue, 30 Oct 2007 10:47:02 +0000, Mark Smith wrote:

> Scott, you can test for 'endianness";
> 
> function isIntel
>   return (char 1 of (binaryencode("I",1)) is not null)
> end isIntel

Wow, Mark... that's a lot easier than what I was doing:

function isIntel
  put shell("system_profiler SPHardwareDataType") into tData
  put matchText(tData,"(?s)CPU Type:\W*(.*?)\n",tType) into tIsMatch
  if tIsMatch then
    return (tType contains "Intel")
  else
    return "Error: Can't determine CPU type."
  end if
end isIntel

Cool!

Ken Ray
Sons of Thunder Software, Inc.
Email: [EMAIL PROTECTED]
Web Site: http://www.sonsothunder.com/
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to