From 0a0661e0c50e9c3e160d54b8e0a5b891d419e2bc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 10 Aug 2011 02:33:46 +0000
Subject: 	* interp/setvart.boot: Remoe OpenMath description. 	*
 interp/setvars.boot (setOutputOpenMath): Remove. 
 (describeOutputOpenMath): Likewise. 	* algebra/Makefile.in
 (axiom_algebra_layer_14): Don't include OMSERVER. 	*
 algebra/float.spad.pamphlet (Float): Remove OpenMath exports. 	*
 algebra/fraction.spad.pamphlet (Fraction): Likewise. 	*
 algebra/gaussian.spad.pamphlet (Complex): Likewise. 	*
 algebra/integer.spad.pamphlet (Integer): Likewise. 	*
 algebra/list.spad.pamphlet (List): Likewise. 	* algebra/sf.spad.pamphlet
 (DoubleFloat): Likewise. 	* algebra/si.spad.pamphlet (SingleInteger):
 Likewise. 	* algebra/string.spad.pamphlet (String): Likewise. 	*
 algebra/symbol.spad.pamphlet (Symbol): Likewise.

---
 src/algebra/sf.spad.pamphlet | 38 +-------------------------------------
 1 file changed, 1 insertion(+), 37 deletions(-)

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

diff --git a/src/algebra/sf.spad.pamphlet b/src/algebra/sf.spad.pamphlet
index a6ed7e59..e15fdddd 100644
--- a/src/algebra/sf.spad.pamphlet
+++ b/src/algebra/sf.spad.pamphlet
@@ -250,7 +250,7 @@ FloatingPointSystem(): Category == RealNumberSystem() with
 ++ \spadtype{Float} is that it is much more expensive than small floats when the latter can be used.
 -- I've put some timing comparisons in the notes for the Float
 -- domain about the difference in speed between the two domains.
-DoubleFloat(): Join(FloatingPointSystem, DifferentialRing, OpenMath,
+DoubleFloat(): Join(FloatingPointSystem, DifferentialRing,
    TranscendentalFunctionCategory, ConvertibleTo InputForm) with
       /   : (%, Integer) -> %
         ++ x / i computes the division from x by an integer i.
@@ -330,42 +330,6 @@ DoubleFloat(): Join(FloatingPointSystem, DifferentialRing, OpenMath,
 
    manexp: % -> MER
 
-   OMwrite(x: %): String ==
-     s: String := ""
-     sp := OM_-STRINGTOSTRINGPTR(s)$Lisp
-     dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML())
-     OMputObject(dev)
-     OMputFloat(dev, convert x)
-     OMputEndObject(dev)
-     OMclose(dev)
-     s := OM_-STRINGPTRTOSTRING(sp)$Lisp pretend String
-     s
-
-   OMwrite(x: %, wholeObj: Boolean): String ==
-     s: String := ""
-     sp := OM_-STRINGTOSTRINGPTR(s)$Lisp
-     dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML())
-     if wholeObj then
-       OMputObject(dev)
-     OMputFloat(dev, convert x)
-     if wholeObj then
-       OMputEndObject(dev)
-     OMclose(dev)
-     s := OM_-STRINGPTRTOSTRING(sp)$Lisp pretend String
-     s
-
-   OMwrite(dev: OpenMathDevice, x: %): Void ==
-     OMputObject(dev)
-     OMputFloat(dev, convert x)
-     OMputEndObject(dev)
-
-   OMwrite(dev: OpenMathDevice, x: %, wholeObj: Boolean): Void ==
-     if wholeObj then
-       OMputObject(dev)
-     OMputFloat(dev, convert x)
-     if wholeObj then
-       OMputEndObject(dev)
-
    base()           == %fbase()
    mantissa x       == manexp(x).MANTISSA
    exponent x       == manexp(x).EXPONENT
-- 
cgit v1.2.3