Host introspection: Difference between revisions

=={{header|Icon}} and {{header|Unicon}}==

<lang unicon>procedure main()

write(if 0 = ishift(1,-1) then "little" else "big"," endian")

if match("flags",line := !open("/proc/cpuinfo")) then # Unix-like only

write(if find(" lm ",line) then 64 else 32," bits per word")

else write("Cannot determine word size.")

end</lang>

Sample run:

<pre>

->hi

little endian

64 bits per word

->

</pre>