From 97f54bf68c5aefffc94a4935e08fd6449ec501c9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Mar 2008 00:01:40 +0000
Subject: 	* interp/vmlisp.lisp (GETREFV): Set initial elements to NIL. 
 (MAKE-OUTSTREAM): Supersede existing files. 	* interp/template.boot
 (makeTemplate): Use newDomainShell instead 	of GETREFV. 
 (extendVectorSize): Likewise. 	(mkSigPredVectors): Likewise. 
 (list2LongerVec): Likewise. 	(measure): Remove. 	(measureCommon):
 Likewise. 	* interp/sys-utility.boot (loadNativeModule): New. 	*
 interp/sys-os.boot: Import "cfuns" and "sockio". 	(runProgram): New. 
 * interp/sys-globals.boot (/SOURCEFILES): Define here. 	(/SPACELIST):
 Likewise. 	* interp/sys-driver.boot ($OpenAxiomCoreModuleLoaded): New
 global 	variable. 	(AxiomCore::%sysInit): Load libopen-axiom-core
 if necessary. 	($defaultMsgDatabaseName): Define here. 	*
 interp/spad.lisp (|New,ENTRY,1|): Tidy. 	* interp/sockio.lisp: Move
 import declarations to sys-os.boot. 	Remove unused codes. 	*
 interp/server.boot (serverReadLine): Use coreQuit instead of BYE. 	*
 interp/pspad1.boot (formatMDEF): Tidy. 	* interp/pspad2.boot
 (formatIf1): Tidy. 	* interp/patches.lisp: Import "sys-driver".  Remove 
 $CURRENT-DIRECTORY. 	* interp/nruncomp.boot (buildFunctor): Use
 newDomainShell instead 	of GETREFV. 	* interp/nrunopt.boot
 (makeDomainTemplate): Likewise. 	* interp/package.boot
 (processFunctorOrPackage): Likewise. 	* interp/nlib.lisp (rdefiostream):
 Tidy. 	* interp/monitor.lisp (monitor-autoload): Define when GCL. 	*
 interp/interop.boot (oldAxiomCategoryDevaluate): Tidy. 	*
 interp/i-toplev.boot (start): Don't set $CURRENT-DIRECTORY. 	*
 interp/i-syscmd.boot (close): Use newDomainShell. 	(leaveScratchpad): Use
 coreQuit instead of BYE. 	(compileAsharpArchiveCmd): Use
 GET-CURRENT-DIRECTORY. 	* interp/g-util.boot (newDomainShell): Define.
 	* interp/functor.boot (NewbFVectorCopy): Use newDomainShell. 	*
 interp/daase.lisp (asharp): Use runProgram. 	* interp/cfuns.lisp: Remove
 unused codes. 	(directoryp): Move import declaration to sys-os.bot. 
 (writeablep): Likewise. 	* interp/buildom.boot (Record0): Use
 newDomainShell instead of 	GETREFV. 	(coerceRe2E): Likewise. 
 (Union): Likewise. 	(Mapping): Likewise. 	(Enumeration): Likewise. 
 * interp/category.boot (mkCategory): Likewise. 	*
 interp/Makefile.pamphlet (patches.$(FASLEXT)): Require 
 sys-driver.$(FASLEXT). 	(sys-os.$(FASLEXT)): Require cfuns.$(FASLEXT),
 sockio.$(FASLEXT). 	* algebra/view2D.spad.pamphlet: Use $ViewportServer
 instead of 	VIEWPORTSERVER.  Use sockSendInt instead of SOCK-SEND-INT. 
 Use sockSendFloat instead of SEND-SEND-FLOAT.  Use sockSendString 
 instead of SOCK-SEND-STRING.  Use sockGetInt instead of 	SOCK-GET-INT.
 Use sockGetFloat instead of SOCK-SEND-FLOAT. 	*
 algebra/view3D.spad.pamphlet: Likewise. 	* interp/util.lisp (fe):
 Remove. 	(fc): Likewise. 	(interp-make-directory): Simplify. 
 (OLD-BOOT::BOOT): Don't declare *PRINT-PRETTY* and *PRINT-LENGTH* 
 special.

---
 src/algebra/view2D.spad.pamphlet | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'src/algebra/view2D.spad.pamphlet')

diff --git a/src/algebra/view2D.spad.pamphlet b/src/algebra/view2D.spad.pamphlet
index 5676019e..858de376 100644
--- a/src/algebra/view2D.spad.pamphlet
+++ b/src/algebra/view2D.spad.pamphlet
@@ -25,12 +25,12 @@
 ++ (to be displayed on TwoDimensionalViewports).
 GraphImage (): Exports == Implementation where
 
-  VIEW    ==> VIEWPORTSERVER$Lisp
-  sendI   ==> SOCK_-SEND_-INT
-  sendSF  ==> SOCK_-SEND_-FLOAT
-  sendSTR ==> SOCK_-SEND_-STRING
-  getI    ==> SOCK_-GET_-INT
-  getSF   ==> SOCK_-GET_-FLOAT
+  VIEW    ==> _$ViewportServer$Lisp
+  sendI   ==> sockSendInt
+  sendSF  ==> sockSendFloat
+  sendSTR ==> sockSendString
+  getI    ==> sockGetInt
+  getSF   ==> sockGetFloat
 
   typeGRAPH  ==> 2
   typeVIEW2D ==> 3
@@ -490,12 +490,12 @@ vp:=makeViewport2D(y1)
 ++ Description: TwoDimensionalViewport creates viewports to display graphs.
 TwoDimensionalViewport ():Exports == Implementation where
 
-  VIEW    ==> VIEWPORTSERVER$Lisp
-  sendI   ==> SOCK_-SEND_-INT
-  sendSF  ==> SOCK_-SEND_-FLOAT
-  sendSTR ==> SOCK_-SEND_-STRING
-  getI    ==> SOCK_-GET_-INT
-  getSF   ==> SOCK_-GET_-FLOAT
+  VIEW    ==> _$ViewportServer$Lisp
+  sendI   ==> sockSendInt
+  sendSF  ==> sockSendFloat
+  sendSTR ==> sockSendString
+  getI    ==> sockGetInt
+  getSF   ==> sockGetFloat
 
   typeGRAPH  ==> 2
   typeVIEW2D ==> 3
-- 
cgit v1.2.3