aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/data.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/data.spad.pamphlet')
-rw-r--r--src/algebra/data.spad.pamphlet25
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}