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/algebra/data.spad.pamphlet | |
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/algebra/data.spad.pamphlet')
-rw-r--r-- | src/algebra/data.spad.pamphlet | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/algebra/data.spad.pamphlet b/src/algebra/data.spad.pamphlet index d52ee479..f40d8b1a 100644 --- a/src/algebra/data.spad.pamphlet +++ b/src/algebra/data.spad.pamphlet @@ -49,6 +49,31 @@ Byte(): Public == Private where @ +<<domain BYTEORD ByteOrder>>= +)abbrev domain BYTEORD ByteOrder +++ Author: Gabriel Dos Reis +++ Date Created: February 06, 2009 +++ Date Last Modified: +++ Description: +++ This datatype describes byte order of machine values stored memory. +ByteOrder(): Public == Private where + Public == SetCategory with + littleEndian: % ++ \spad{littleEndian} describes little endian host + bigEndian: % ++ \spad{bigEndian} describes big endian host + unknownEndian: % ++ \spad{unknownEndian} for none of the above. + Private == add + unknownEndian == %unknownEndian$Lisp + littleEndian == %littleEndian$Lisp + bigEndian == %bigEndian$Lisp + x = y == EQ(x,y)$Lisp + coerce(x: %): OutputForm == + outputForm + x = littleEndian => 'litteEndian + x = bigEndian => 'bigEndian + 'unknownEndian + +@ + \section{Sized System Integer datatypes} |