* algebra/system.spad.pamphlet (System): New package.

	* algebra/Makefile.pamphlet (axiom_algebra_layer_12): Include SYSTEM.
	* src/share/algebra: Update databases.

3 files changed, 54 insertions, 11 deletions

diff --git a/src/algebra/Makefile.in b/src/algebra/Makefile.in
index c936884f..0907ebad 100644
--- a/src/algebra/Makefile.in
+++ b/src/algebra/Makefile.in
@@ -548,10 +548,9 @@ axiom_algebra_layer_11_objects = \
 	$(addprefix $(OUT)/, \
 	   $(addsuffix .$(FASLEXT),$(axiom_algebra_layer_11)))
 axiom_algebra_layer_12 = \
-  DIOPS    DIOPS-      \
-  DIAGG   DIAGG-  BITS    DIRPROD2 IMATRIX  IVECTOR \
- LPOLY   LSMP     LSMP1    MATCAT2 \
- PTCAT   TRIMAT FSAGG    FSAGG-    
+  DIOPS    DIOPS-  DIAGG   DIAGG-   BITS    DIRPROD2 IMATRIX \
+  IVECTOR  LPOLY   LSMP    LSMP1    MATCAT2 PTCAT    TRIMAT  \
+  FSAGG    FSAGG-  SYSTEM
 
 axiom_algebra_layer_12_nrlibs = \
 	$(addsuffix .NRLIB/code.$(FASLEXT),$(axiom_algebra_layer_12))
diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet
index d21d07d9..278c74a7 100644
--- a/src/algebra/Makefile.pamphlet
+++ b/src/algebra/Makefile.pamphlet
@@ -540,10 +540,9 @@ axiom_algebra_layer_11_objects = \
 
 <<layer12>>=
 axiom_algebra_layer_12 = \
-  DIOPS    DIOPS-      \
-  DIAGG   DIAGG-  BITS    DIRPROD2 IMATRIX  IVECTOR \
- LPOLY   LSMP     LSMP1    MATCAT2 \
- PTCAT   TRIMAT FSAGG    FSAGG-    
+  DIOPS    DIOPS-  DIAGG   DIAGG-   BITS    DIRPROD2 IMATRIX \
+  IVECTOR  LPOLY   LSMP    LSMP1    MATCAT2 PTCAT    TRIMAT  \
+  FSAGG    FSAGG-  SYSTEM
 
 axiom_algebra_layer_12_nrlibs = \
 	$(addsuffix .NRLIB/code.$(FASLEXT),$(axiom_algebra_layer_12))
diff --git a/src/algebra/system.spad.pamphlet b/src/algebra/system.spad.pamphlet
index 56050d6c..4dc98339 100644
--- a/src/algebra/system.spad.pamphlet
+++ b/src/algebra/system.spad.pamphlet
@@ -1,15 +1,58 @@
 \documentclass{article}
 \usepackage{axiom}
-\begin{document}
+
 \title{\$SPAD/src/algebra system.spad}
-\author{Timothy Daly}
+\author{Gabriel Dos~Reis \and Timothy Daly}
+
+\begin{document}
 \maketitle
+
 \begin{abstract}
 \end{abstract}
-\eject
 \tableofcontents
 \eject
+
+\section{package SYSTEM System}
+<<package SYSTEM System>>=
+)abbrev package SYSTEM System
+++ Author: Gabriel Dos Reis
+++ Date Created: April 2, 2008.
+++ Related Constructors:
+++ Description:
+++   The package \spadtype{System} provides information about 
+++   the runtime system and its characteristics.
+System(): Public == Private where
+  Public ==> with
+    rootDirectory: () -> String
+      ++ rootDirectory() returns the pathname of the root directory
+      ++ for the running OpenAxiom system.
+    hostPlatform: () -> String
+      ++ hostPlatform() returns a string `triplet' description 
+      ++ of the platform hosting the running OpenAxiom system.
+    nativeModuleExtension: () -> String
+      ++ nativeModuleExtension() returns a string representation
+      ++ of a filename extension for native modules.
+    loadNativeModule: String -> Void
+      ++ loadNativeModule(path) loads the native modile designated
+      ++ by \spadvar{path}.
+
+  Private ==> add
+    rootDirectory() ==
+      systemRootDirectory()$Lisp : String
+
+    hostPlatform() ==
+      _$hostPlatform$Lisp : String
+
+    nativeModuleExtension() ==
+      _$NativeModuleExt$Lisp : String
+
+    loadNativeModule(path) ==
+      loadNativeModule(path)$Lisp
+      
+@
+
 \section{package MSYSCMD MoreSystemCommands}
+
 <<package MSYSCMD MoreSystemCommands>>=
 )abbrev package MSYSCMD MoreSystemCommands
 ++ Author:
@@ -41,7 +84,9 @@ MoreSystemCommands: public == private where
     systemCommand cmd == doSystemCommand(cmd)$Lisp
 
 @
+
 \section{License}
+
 <<license>>=
 --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 --All rights reserved.