diff options
Diffstat (limited to 'src/algebra/string.spad.pamphlet')
-rw-r--r-- | src/algebra/string.spad.pamphlet | 38 |
1 files changed, 1 insertions, 37 deletions
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} |