1 files changed, 48 insertions, 3 deletions

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.