* 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.

2 files changed, 0 insertions, 156 deletions

diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index 2cea7a29..ab05dbed 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -1355,115 +1355,6 @@ describeSetOutputMathml() ==
    '"The current setting is: ",'%b,setOutputMathml "%display%",'%d]
 
 
--- See the subsection output openmath in setvart.boot
--- 
--- ------------------ The openmath Option ------------------------
-
---  Description: create output in OpenMath style
-
---  )set output tex is used to tell AXIOM to turn TeX-style output
--- printing on and off, and where to place the output.  By default,
--- the destination for the output is the screen but printing is 
--- turned off.
-
--- Syntax:   )set output tex <arg>
---     where arg can be one of
---   on          turn TeX printing on
---   off         turn TeX printing off (default state)
---   console     send TeX output to screen (default state)
---   fp<.fe>     send TeX output to file with file prefix fp
---               and file extension .fe. If not given, 
---               .fe defaults to .som.
-
--- If you wish to send the output to a file, you must issue 
--- this command twice: once with on and once with the file name. 
--- For example, to send TeX output to the file polymer.som, 
--- issue the two commands
-
---   )set output tex on
---   )set output tex polymer
-
--- The output is placed in the directory from which you invoked 
--- AXIOM or the one you set with the )cd system command.
--- The current setting is:  Off:CONSOLE 
-
-
-setOutputOpenMath arg ==
-  arg = "%initialize%" =>
-    $openMathOutputStream :=
-      DEFIOSTREAM('((MODE . OUTPUT) (DEVICE . CONSOLE)),255,0)
-    $openMathOutputFile := '"CONSOLE"
-    $openMathFormat := nil
-
-  arg = "%display%" =>
-    if $openMathFormat then label := '"On:" else label := '"Off:"
-    strconc(label,$openMathOutputFile)
-
-  (null arg) or (arg = "%describe%") or (first arg = '_?) =>
-    describeSetOutputOpenMath()
-
-  -- try to figure out what the argument is
-
-  if arg is [fn] and
-    fn in '(Y N YE YES NO O ON OF OFF CONSOLE y n ye yes no o on of off console)
-      then 'ok
-      else arg := [fn,'som]
-
-  arg is [fn] =>
-    UPCASE(fn) in '(Y N YE O OF) =>
-      sayKeyedMsg("S2IV0002",'(OpenMath openmath))
-    UPCASE(fn) in '(NO OFF)  => $openMathFormat := nil
-    UPCASE(fn) in '(YES ON) => $openMathFormat := true
-    UPCASE(fn) = 'CONSOLE =>
-      SHUT $openMathOutputStream
-      $openMathOutputStream :=
-        DEFIOSTREAM('((MODE . OUTPUT) (DEVICE . CONSOLE)),255,0)
-      $openMathOutputFile := '"CONSOLE"
-
-  (arg is [fn,ft]) or (arg is [fn,ft,fm]) => -- aha, a file
-    if (ptype := pathnameType fn) then
-      fn := strconc(pathnameDirectory fn,pathnameName fn)
-      ft := ptype
-    if null fm then fm := 'A
-    filename := $FILEP(fn,ft,fm)
-    null filename =>
-      sayKeyedMsg("S2IV0003",[fn,ft,fm])
-    (testStream := MAKE_-OUTSTREAM(filename,255,0)) =>
-      SHUT $openMathOutputStream
-      $openMathOutputStream := testStream
-      $openMathOutputFile := object2String filename
-      sayKeyedMsg("S2IV0004",['"OpenMath",$openMathOutputFile])
-    sayKeyedMsg("S2IV0003",[fn,ft,fm])
-
-  sayKeyedMsg("S2IV0005",nil)
-  describeSetOutputOpenMath()
-
-
-describeSetOutputOpenMath() ==
-  sayBrightly ['%b,'")set output openmath",'%d,_
-   '"is used to tell AXIOM to turn OpenMath output",'%l,_
-   '"printing on and off, and where to place the output.  By default, the",'%l,_
-   '"destination for the output is the screen but printing is turned off.",'%l,_
-   '%l,_
-   '"Syntax:   )set output openmath <arg>",'%l,_
-  '"    where arg can be one of",'%l,_
-  '"  on          turn OpenMath printing on",'%l,_
-  '"  off         turn OpenMath printing off (default state)",'%l,_
-  '"  console     send OpenMath output to screen (default state)",'%l,_
-  '"  fp<.fe>     send OpenMath output to file with file prefix fp and file",'%l,_
-  '"              extension .fe. If not given, .fe defaults to .som.",'%l,
-  '%l,_
-  '"If you wish to send the output to a file, you must issue this command",'%l,_
-  '"twice: once with",'%b,'"on",'%d,'"and once with the file name. For example, to send",'%l,_
-  '"OpenMath output to the file",'%b,'"polymer.som,",'%d,'"issue the two commands",'%l,_
-  '%l,_
-  '"  )set output openmath on",'%l,_
-  '"  )set output openmath polymer",'%l,_
-  '%l,_
-  '"The output is placed in the directory from which you invoked AXIOM or",'%l,_
-  '"the one you set with the )cd system command.",'%l,_
-  '"The current setting is: ",'%b,setOutputOpenMath "%display%",'%d]
-
 -- See the section tex in setvart.boot
 --
 -- ----------------------- The tex Option ------------------------
diff --git a/src/interp/setvart.boot b/src/interp/setvart.boot
index c19f8688..ab3fb77c 100644
--- a/src/interp/setvart.boot
+++ b/src/interp/setvart.boot
@@ -1341,53 +1341,6 @@ $setOptions := '(
       (10 245)
       77)
 
--- ----------------------- The openmath Option ------------------------
---
---  Description: create output in OpenMath style
---
---  )set output tex is used to tell AXIOM to turn OpenMath output
--- printing on and off, and where to place the output.  By default,
--- the destination for the output is the screen but printing is 
--- turned off.
---
--- Syntax:   )set output tex <arg>
---     where arg can be one of
---   on          turn OpenMath printing on
---   off         turn OpenMath printing off (default state)
---   console     send OpenMath output to screen (default state)
---   fp<.fe>     send OpenMath output to file with file prefix fp
---               and file extension .fe. If not given, 
---               .fe defaults to .sopen.
---
--- If you wish to send the output to a file, you must issue 
--- this command twice: once with on and once with the file name. 
--- For example, to send OpenMath output to the file polymer.sopen, 
--- issue the two commands
---
---   )set output openmath on
---   )set output openmath polymer
---
--- The output is placed in the directory from which you invoked 
--- AXIOM or the one you set with the )cd system command.
--- The current setting is:  Off:CONSOLE 
-     (openmath
-      "create output in OpenMath style"
-      interpreter
-      FUNCTION
-      setOutputOpenMath
-      (("create output in OpenMath format"
-        LITERALS
-        $openMathFormat
-        (off on)
-        off)
-       (break $openMathFormat)
-       ("where TeX output goes (enter {\em console} or a pathname)"
-        FILENAME
-        $openMathOutputFile
-        chkOutputFileName
-        "console"))
-      NIL)
-
 -- --------------------- The scripts Option ----------------------
 --
 --  Description: show subscripts,... linearly