langs a-z

Task/Host-introspection/PureBasic/host-introspection.purebasic

@@ -0,0 +1,24 @@
+Enumeration
+  #LittleEndian
+  #BigEndian
+EndEnumeration
+
+ProcedureDLL EndianTest()
+  Protected Endian = #LittleEndian
+  Protected dummy.l= 'ABCD'
+  If "A"=Chr(PeekA(@dummy))
+    Endian=#BigEndian
+  EndIf
+  ProcedureReturn Endian
+EndProcedure
+
+;- *** Start of test code
+If OpenConsole()
+  PrintN("Your word size is "+Str(SizeOf(Integer)) +" bytes,")
+  Select EndianTest()
+    Case #LittleEndian
+      PrintN("and you use Little Endian.")
+    Default
+      PrintN("and you use Big Endian.")
+  EndSelect
+EndIf