From 2fbcd8bc4f97cc3e534e11414f5a12dbc08edf2d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 7 Feb 2009 22:10:17 +0000
Subject: 	* algebra/system.spad.pamphlet (hostByteOrder$System): New. 
 * algebra/data.spad.pamphlet (ByteOrder): New. 	*
 algebra/Makefile.pamphlet (axiom_algebra_layer_1): Include BYTEORD.

---
 src/interp/sys-utility.boot | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/interp/sys-utility.boot')

diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 2d334946..31781fae 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -47,6 +47,17 @@ $COMBLOCKLIST := nil
 %nothing == KEYWORD::%OpenAxiomNoValue
 
 
+++ Constants describing byte order
+%littleEndian == KEYWORD::%littleEndian
+%bigEndian == KEYWORD::%bigEndian
+%unknownEndian == KEYWORD::%unknownEndian
+
+++ The byte order of the host machine running OpenAxiom.
+%hostByteOrder ==
+  getHostByteOrder() = 1 => %littleEndian
+  getHostByteOrder() = 2 => %bigEndian
+  %unknownEndian
+
 --%
 
 ++ getVMType returns an approximation of the underlying object type
-- 
cgit v1.2.3