aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/data.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-09-08 13:16:28 +0000
committerdos-reis <gdr@axiomatics.org>2009-09-08 13:16:28 +0000
commit5ab1bb2721c9fdf77e6fa530523f5044b8445880 (patch)
treefb7fc8c5c0a9a73f4d7ccd486b53630f4c69ece2 /src/algebra/data.spad.pamphlet
parent7fb7062638f05c3748a7aaace55d50cb1ac87fb0 (diff)
downloadopen-axiom-5ab1bb2721c9fdf77e6fa530523f5044b8445880.tar.gz
* boot/ast.boot: Support "pointer" as simple datatype.
* interp/compiler.boot (getBasicFFIType): SystemPointer is an FFI type. * algebra/data.spad.pamphlet (SystemPointer): New. * algebra/Makefile.pamphlet (axiom_algebra_layer_0): Include SYSPTR.
Diffstat (limited to 'src/algebra/data.spad.pamphlet')
-rw-r--r--src/algebra/data.spad.pamphlet18
1 files changed, 18 insertions, 0 deletions
diff --git a/src/algebra/data.spad.pamphlet b/src/algebra/data.spad.pamphlet
index 95feee21..2d84ac59 100644
--- a/src/algebra/data.spad.pamphlet
+++ b/src/algebra/data.spad.pamphlet
@@ -235,6 +235,22 @@ UInt64() == SystemNonNegativeInteger 64
@
+\section{System-level Pointer Datatype.}
+
+<<domain SYSPTR SystemPointer>>=
+)abbrev domain SYSPTR SystemPointer
+++ Author: Gabriel Dos Reis
+++ Date Created: September 8, 2009
+++ Date Last Modified: September 8, 2009
+++ Description:
+++ This domain is a datatype system-level pointer values.
+SystemPointer(): SetCategory
+ == add
+ x = y == EQL(x,y)$Foreign(Builtin)
+ coerce(x:%): OutputForm ==
+ FORMAT(NIL$Foreign(Builtin),"~A",x)$Foreign(Builtin)
+@
+
\section{The ByteBuffer domain}
@@ -432,6 +448,8 @@ DataArray(N: PositiveInteger, T: SetCategory): Public == Private where
<<domain UINT32 UInt32>>
<<domain UINT64 UInt64>>
+<<domain SYSPTR SystemPointer>>
+
@
\end{document}