From 0a0661e0c50e9c3e160d54b8e0a5b891d419e2bc Mon Sep 17 00:00:00 2001 From: dos-reis 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/interp/setvars.boot | 109 ------------------------------------------------ src/interp/setvart.boot | 47 --------------------- 2 files changed, 156 deletions(-) (limited to 'src/interp') 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 --- 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 ",'%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 --- 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 -- cgit v1.2.3