/usr/share/axiom-20170501/src/algebra/SPECOUT.spad is in axiom-source 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | )abbrev package SPECOUT SpecialOutputPackage
++ Author: Stephen M. Watt
++ Date Created: September 1986
++ Date Last Updated: May 23, 1991
++ Description:
++ SpecialOutputPackage allows FORTRAN, Tex and
++ Script Formula Formatter output from programs.
SpecialOutputPackage() : SIG == CODE where
SIG ==> with
outputAsFortran : (String,OutputForm) -> Void
++ outputAsFortran(v,o) sends output v = o in FORTRAN format
++ to the destination defined by \spadsyscom{set output fortran}.
outputAsFortran : OutputForm -> Void
++ outputAsFortran(o) sends output o in FORTRAN format.
outputAsScript : OutputForm -> Void
++ outputAsScript(o) sends output o in Script Formula Formatter format
++ to the destination defined by \spadsyscom{set output formula}.
outputAsTex : OutputForm -> Void
++ outputAsTex(o) sends output o in Tex format to the destination
++ defined by \spadsyscom{set output tex}.
outputAsFortran : List OutputForm -> Void
++ outputAsFortran(l) sends (for each expression in the list l)
++ output in FORTRAN format to the destination defined by
++ \spadsyscom{set output fortran}.
outputAsScript : List OutputForm -> Void
++ outputAsScript(l) sends (for each expression in the list l)
++ output in Script Formula Formatter format to the destination defined.
++ by \spadsyscom{set output forumula}.
outputAsTex : List OutputForm -> Void
++ outputAsTex(l) sends (for each expression in the list l)
++ output in Tex format to the destination as defined by
++ \spadsyscom{set output tex}.
CODE ==> add
e : OutputForm
l : List OutputForm
var : String
--ExpressionPackage()
juxtaposeTerms: List OutputForm -> OutputForm
juxtaposeTerms l == blankSeparate l
outputAsFortran e ==
dispfortexp$Lisp e
void()$Void
outputAsFortran(var,e) ==
e := var::Symbol::OutputForm = e
dispfortexp(e)$Lisp
void()$Void
outputAsFortran l ==
dispfortexp$Lisp juxtaposeTerms l
void()$Void
outputAsScript e ==
formulaFormat$Lisp e
void()$Void
outputAsScript l ==
formulaFormat$Lisp juxtaposeTerms l
void()$Void
outputAsTex e ==
texFormat$Lisp e
void()$Void
outputAsTex l ==
texFormat$Lisp juxtaposeTerms l
void()$Void
|