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/string.spad.pamphlet | 38 +-------------------------------------
 1 file changed, 1 insertion(+), 37 deletions(-)

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

diff --git a/src/algebra/string.spad.pamphlet b/src/algebra/string.spad.pamphlet
index 2271f92b..6ad08dc3 100644
--- a/src/algebra/string.spad.pamphlet
+++ b/src/algebra/string.spad.pamphlet
@@ -493,7 +493,7 @@ the coercion.
 MINSTRINGINDEX ==> 1	      -- as of 3/14/90.
 
 String(): Public == Private where
-  Public == Join(StringAggregate(), OpenMath) with
+  Public == StringAggregate with
     string: Integer -> %
       ++ \spad{string i} returns the decimal representation of
       ++ \spad{i} in a string
@@ -505,42 +505,6 @@ String(): Public == Private where
     string(n: Integer) == %i2s n
     string(f: DoubleFloat) == %f2s(f)$Foreign(Builtin)
 
-    OMwrite(x: %): String ==
-      s: String := ""
-      sp := OM_-STRINGTOSTRINGPTR(s)$Lisp
-      dev: OpenMathDevice := OMopenString(sp pretend String, OMencodingXML())
-      OMputObject(dev)
-      OMputString(dev, x pretend String)
-      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)
-      OMputString(dev, x pretend String)
-      if wholeObj then
-        OMputEndObject(dev)
-      OMclose(dev)
-      s := OM_-STRINGPTRTOSTRING(sp)$Lisp pretend String
-      s
-
-    OMwrite(dev: OpenMathDevice, x: %): Void ==
-      OMputObject(dev)
-      OMputString(dev, x pretend String)
-      OMputEndObject(dev)
-
-    OMwrite(dev: OpenMathDevice, x: %, wholeObj: Boolean): Void ==
-      if wholeObj then
-        OMputObject(dev)
-      OMputString(dev, x pretend String)
-      if wholeObj then
-        OMputEndObject(dev)
-
 @
 
 \section{License}
-- 
cgit v1.2.3