diff options
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 113 |
1 files changed, 0 insertions, 113 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index 561793c3..4b459db5 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -1464,119 +1464,6 @@ describeSetOutputOpenMath() == '"the one you set with the )cd system command.",'%l,_ '"The current setting is: ",'%b,setOutputOpenMath "%display%",'%d] --- See the subsection output script in setvart.boot --- --- ---------------------- The script Option ---------------------- - --- Description: display output in SCRIPT formula format - --- )set output script is used to tell AXIOM to turn IBM Script --- formula-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 script <arg> --- where arg can be one of --- on turn IBM Script formula printing on --- off turn IBM Script formula printing off --- (default state) --- console send IBM Script formula output to screen --- (default state) --- fp<.fe> send IBM Script formula output to file with file --- prefix fp and file extension .fe. If not given, --- .fe defaults to .sform. - --- 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 IBM Script formula output to --- the file polymer.sform, issue the two commands - --- )set output script on --- )set output script 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 --- - - -setOutputFormula arg == - arg = "%initialize%" => - $formulaOutputStream := - DEFIOSTREAM('((MODE . OUTPUT) (DEVICE . CONSOLE)),255,0) - $formulaOutputFile := '"CONSOLE" - $formulaFormat := nil - - arg = "%display%" => - if $formulaFormat then label := '"On:" else label := '"Off:" - strconc(label,$formulaOutputFile) - - (null arg) or (arg = "%describe%") or (first arg = '_?) => - describeSetOutputFormula() - - -- 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,'sform] - - arg is [fn] => - UPCASE(fn) in '(Y N YE O OF) => - sayKeyedMsg("S2IV0002",'(script script)) - UPCASE(fn) in '(NO OFF) => $formulaFormat := nil - UPCASE(fn) in '(YES ON) => $formulaFormat := true - UPCASE(fn) = 'CONSOLE => - SHUT $formulaOutputStream - $formulaOutputStream := - DEFIOSTREAM('((MODE . OUTPUT) (DEVICE . CONSOLE)),255,0) - $formulaOutputFile := '"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 $formulaOutputStream - $formulaOutputStream := testStream - $formulaOutputFile := object2String filename - sayKeyedMsg("S2IV0004",['"IBM Script formula",$formulaOutputFile]) - sayKeyedMsg("S2IV0003",[fn,ft,fm]) - - sayKeyedMsg("S2IV0005",nil) - describeSetOutputFormula() - - -describeSetOutputFormula() == - sayBrightly ['%b,'")set output script",'%d,_ - '"is used to tell AXIOM to turn IBM Script formula-style",'%l,_ - '"output 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 script <arg>",'%l,_ - '" where arg can be one of",'%l,_ - '" on turn IBM Script formula printing on",'%l,_ - '" off turn IBM Script formula printing off (default state)",'%l,_ - '" console send IBM Script formula output to screen (default state)",'%l,_ - '" fp<.fe> send IBM Script formula output to file with file prefix fp",'%l,_ - '" and file extension .fe. If not given, .fe defaults to .sform.",'%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,_ - '"IBM Script formula output to the file",'%b,'"polymer.sform,",'%d,'"issue the two commands",'%l,_ - '%l,_ - '" )set output script on",'%l,_ - '" )set output script 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,setOutputFormula "%display%",'%d] - - -- See the section tex in setvart.boot -- -- ----------------------- The tex Option ------------------------ |