diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-02-07 22:10:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-02-07 22:10:17 +0000 |
| commit | 2fbcd8bc4f97cc3e534e11414f5a12dbc08edf2d (patch) | |
| tree | 25f9002df4057d8e967d22c6f66a2d84378b3bcd /src/interp/sys-utility.boot | |
| parent | 85f1c4d3dc7dc34ae4436d3ef0ffe0b6c6039b5a (diff) | |
| download | open-axiom-2fbcd8bc4f97cc3e534e11414f5a12dbc08edf2d.tar.gz | |
* algebra/system.spad.pamphlet (hostByteOrder$System): New.
* algebra/data.spad.pamphlet (ByteOrder): New.
* algebra/Makefile.pamphlet (axiom_algebra_layer_1): Include BYTEORD.
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 11 |
1 files changed, 11 insertions, 0 deletions
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 |