33 lines
808 B
Plaintext
33 lines
808 B
Plaintext
include "NSLog.incl"
|
|
|
|
select ( fn RunningApplicationExecutableArchitecture( fn RunningApplicationCurrentApplication ) )
|
|
case NSBundleExecutableArchitectureI386
|
|
NSLog(@"%@", @"i386 32-bit")
|
|
|
|
case NSBundleExecutableArchitectureX86_64
|
|
NSLog(@"%@", @"x86_64 64-bit")
|
|
|
|
case NSBundleExecutableArchitecturePPC
|
|
NSLog(@"%@", @"PPC 32-bit")
|
|
|
|
case NSBundleExecutableArchitecturePPC64
|
|
NSLog(@"%@", @"PPC64 64-bit")
|
|
|
|
case NSBundleExecutableArchitectureARM64
|
|
NSLog(@"%@", @"ARM64")
|
|
|
|
case else
|
|
NSLog(@"%@", @"Unknown")
|
|
end select
|
|
|
|
select ( fn CFByteOrderGetCurrent )
|
|
case _CFByteOrderBigEndian
|
|
NSLog(@"%@", @"Big Endian")
|
|
case _CFByteOrderLittleEndian
|
|
NSLog(@"%@", @"Little Endian")
|
|
case _CFByteOrderUnknown
|
|
NSLog(@"%@", @"endianness unknown")
|
|
end select
|
|
|
|
HandleEvents
|