diff --git a/books/bookvol10.3.pamphlet b/books/bookvol10.3.pamphlet index 014f47c..2a4d9e4 100644 --- a/books/bookvol10.3.pamphlet +++ b/books/bookvol10.3.pamphlet @@ -1596,7 +1596,7 @@ Any(): SetCategory with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASTACK ArrayStack} <>= --- stack.spad.pamphlet Stack.input +)set break resume )sys rm -f ArrayStack.output )spool ArrayStack.output )set message test on @@ -7484,7 +7484,7 @@ AssociatedLieAlgebra(R:CommutativeRing,A:NonAssociativeAlgebra R): %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ALIST AssociationList} <>= --- list.spad.pamphlet AssociationList.input +)set break resume )sys rm -f AssociationList.output )spool AssociationList.output )set message test on @@ -8211,7 +8211,7 @@ Automorphism(R:Ring): Join(Group, Eltable(R, R)) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BBTREE BalancedBinaryTree} <>= --- tree.spad.pamphlet BalancedBinaryTree.input +)set break resume )sys rm -f BalancedBinaryTree.output )spool BalancedBinaryTree.output )set message test on @@ -8868,7 +8868,7 @@ BasicFunctions(): E == I where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BOP BasicOperator} <>= --- op.spad.pamphlet BasicOperator.input +)set break resume )sys rm -f BasicOperator.output )spool BasicOperator.output )set message test on @@ -9403,7 +9403,7 @@ BasicOperator(): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BINARY BinaryExpansion} <>= --- radix.spad.pamphlet BinaryExpansion.input +)set break resume )sys rm -f BinaryExpansion.output )spool BinaryExpansion.output )set message test on @@ -9838,7 +9838,7 @@ BinaryFile: Cat == Def where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BSTREE BinarySearchTree} <>= --- tree.spad.pamphlet BinarySearchTree.input +)set break resume )sys rm -f BinarySearchTree.output )spool BinarySearchTree.output )set message test on @@ -10645,7 +10645,7 @@ Boolean(): Join(OrderedSet, Finite, Logic, ConvertibleTo InputForm) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CARD CardinalNumber} <>= --- card.spad.pamphlet CardinalNumber.input +)set break resume )sys rm -f CardinalNumber.output )spool CardinalNumber.output )set message test on @@ -11192,7 +11192,7 @@ CardinalNumber: Join(OrderedSet, AbelianMonoid, Monoid, %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CARTEN CartesianTensor} <>= --- carten.spad.pamphlet CartesianTensor.input +)set break resume )sys rm -f CartesianTensor.output )spool CartesianTensor.output )set message test on @@ -12787,7 +12787,7 @@ CartesianTensor(minix, dim, R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CHAR Character} <>= --- string.spad.pamphlet Character.input +)set break resume )sys rm -f Character.output )spool Character.output )set message test on @@ -13178,7 +13178,7 @@ Character: OrderedFinite() with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CCLASS CharacterClass} <>= --- string.spad.pamphlet CharacterClass.input +)set break resume )sys rm -f CharacterClass.output )spool CharacterClass.output )set message test on @@ -13791,7 +13791,7 @@ $\mathbb{R}_{m,m}$ & --------$>$ & $\mathbb{R}^{4^m}$ \\ & reshape & \\ \end{tabular} <>= --- clifford.spad.pamphlet CliffordAlgebra.input +)set break resume )sys rm -f CliffordAlgebra.output )spool CliffordAlgebra.output )set message test on @@ -14846,7 +14846,7 @@ Commutator: Export == Implement where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain COMPLEX Complex} <>= --- gaussian.spad.pamphlet Complex.input +)set break resume )sys rm -f Complex.output )spool Complex.output )set message test on @@ -15363,7 +15363,7 @@ Complex(R:CommutativeRing): ComplexCategory(R) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CONTFRAC ContinuedFraction} <>= --- contfrac.spad.pamphlet ContinuedFraction.input +)set break resume )sys rm -f ContinuedFraction.output )spool ContinuedFraction.output )set message test on @@ -16534,7 +16534,7 @@ DataList(S:OrderedSet) : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DECIMAL DecimalExpansion} <>= --- radix.spad.pamphlet DecimalExpansion.input +)set break resume )sys rm -f DecimalExpansion.output )spool DecimalExpansion.output )set message test on @@ -18585,6 +18585,7 @@ DenavitHartenbergMatrix(R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DEQUEUE Dequeue} <>= +)set break resume )sys rm -f Dequeue.output )spool Dequeue.output )set message test on @@ -19795,7 +19796,7 @@ Dequeue(S:SetCategory): DequeueAggregate S with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DERHAM DeRhamComplex} <>= --- derham.spad.pamphlet DeRhamComplex.input +)set break resume )sys rm -f DeRhamComplex.output )spool DeRhamComplex.output )set message test on @@ -21134,7 +21135,7 @@ DirectProductModule(n, R, S): DPcategory == DPcapsule where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DMP DistributedMultivariatePolynomial} <>= --- gdpoly.spad.pamphlet DistributedMultivariatePolynomial.input +)set break resume )sys rm -f DistributedMultivariatePolynomial.output )spool DistributedMultivariatePolynomial.output )set message test on @@ -21624,7 +21625,7 @@ complex number.) \end{quote} <>= --- sf.spad.pamphlet DoubleFloat.input +)set break resume )sys rm -f DoubleFloat.output )spool DoubleFloat.output )set message test on @@ -24227,7 +24228,7 @@ d03fafAnnaType():PartialDifferentialEquationsSolverCategory == Result add %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EQ Equation} <>= --- equation2.spad.pamphlet Equation.input +)set break resume )sys rm -f Equation.output )spool Equation.output )set message test on @@ -24684,7 +24685,7 @@ Equation(S: Type): public == private where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EQTBL EqTable} <>= --- table.spad.pamphlet EqTable.input +)set break resume )sys rm -f EqTable.output )spool EqTable.output )set message test on @@ -25048,7 +25049,7 @@ EuclideanModularRing(S,R,Mod,reduction:(R,Mod) -> R, %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXIT Exit} <>= --- void.spad.pamphlet Exit.input +)set break resume )sys rm -f Exit.output )spool Exit.output )set message test on @@ -25441,7 +25442,7 @@ ExponentialExpansion(R,FE,var,cen): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXPR Expression} <>= --- expr.spad.pamphlet Expression.input +)set break resume )sys rm -f Expression.output )spool Expression.output )set message test on @@ -27648,7 +27649,7 @@ e04ucfAnnaType(): NumericalOptimizationCategory == Result add %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FR Factored} <>= --- fr.spad.pamphlet Factored.input +)set break resume )sys rm -f Factored.output )spool Factored.output )set message test on @@ -28889,7 +28890,7 @@ Factored(R: IntegralDomain): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FILE File} <>= --- files.spad.pamphlet File.input +)set break resume )sys rm -f File.output )spool File.output )set message test on @@ -29201,7 +29202,7 @@ File(S:SetCategory): FileCategory(FileName, S) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FNAME FileName} <>= --- fname.spad.pamphlet FileName.input +)set break resume )sys rm -f FileName.output )spool FileName.output )set message test on @@ -31803,7 +31804,7 @@ divisor of the order of the multiplicative group" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FARRAY FlexibleArray} <>= --- array1.spad.pamphlet FlexibleArray.input +)set break resume )sys rm -f FlexibleArray.output )spool FlexibleArray.output )set message test on @@ -32211,6 +32212,7 @@ It is currently unknown whether the unexpected behaviour of shift for negative arguments will cause bugs in other parts of Axiom. <>= +)set break resume )sys rm -f Float.output )spool Float.output )set message test on @@ -36304,7 +36306,7 @@ FourierSeries(R:Join(CommutativeRing,Algebra(Fraction Integer)), %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FRAC Fraction} <>= --- fraction.spad.pamphlet Fraction.input +)set break resume )sys rm -f Fraction.output )spool Fraction.output )set message test on @@ -38240,7 +38242,7 @@ FreeNilpotentLie(n:NNI,class:NNI,R: CommutativeRing): Export == Implement where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FPARFRAC FullPartialFractionExpansion} <>= --- fparfrac.spad.pamphlet FullPartialFractionExpansion.input +)set break resume )sys rm -f FullPartialFractionExpansion.output )spool FullPartialFractionExpansion.output )set message test on @@ -38956,7 +38958,7 @@ FunctionCalled(f:Symbol): SetCategory with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GDMP GeneralDistributedMultivariatePolynomial} <>= --- gdpoly.spad.pamphlet GeneralDistributedMultivariatePolynomial.input +)set break resume )sys rm -f GeneralDistributedMultivariatePolynomial.output )spool GeneralDistributedMultivariatePolynomial.output )set message test on @@ -40176,7 +40178,7 @@ GeneralPolynomialSet(R,E,VarSet,P) : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GSTBL GeneralSparseTable} <>= --- table.spad.pamphlet GeneralSparseTable.input +)set break resume )sys rm -f GeneralSparseTable.output )spool GeneralSparseTable.output )set message test on @@ -41545,6 +41547,7 @@ HashTable(Key, Entry, hashfn): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HEAP Heap} <>= +)set break resume )sys rm -f Heap.output )spool Heap.output )set message test on @@ -42417,7 +42420,7 @@ Heap(S:OrderedSet): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HEXADEC HexadecimalExpansion} <>= --- radix.spad.pamphlet HexadecimalExpansion.input +)set break resume )sys rm -f HexadecimalExpansion.output )spool HexadecimalExpansion.output )set message test on @@ -42826,7 +42829,7 @@ HomogeneousDirectProduct(dim,S) : T == C where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HDMP HomogeneousDistributedMultivariatePolynomial} <>= --- gdpoly.spad.pamphlet HomogeneousDistributedMultivariatePolynomial.input +)set break resume )sys rm -f HomogeneousDistributedMultivariatePolynomial.output )spool HomogeneousDistributedMultivariatePolynomial.output )set message test on @@ -48574,7 +48577,7 @@ The function {\bf one?} has been rewritten back to its original form. The NAG version called a lisp primitive that exists only in Codemist Common Lisp and is not defined in Common Lisp. <>= --- integer.spad.pamphlet Integer.input +)set break resume )sys rm -f Integer.output )spool Integer.output )set message test on @@ -50515,7 +50518,7 @@ Interval(R:Join(FloatingPointSystem,TranscendentalFunctionCategory)): IntervalCa %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain KERNEL Kernel} <>= --- kl.spad.pamphlet Kernel.input +)set break resume )sys rm -f Kernel.output )spool Kernel.output )set message test on @@ -51004,7 +51007,7 @@ Kernel(S:OrderedSet): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain KAFILE KeyedAccessFile} <>= --- files.spad.pamphlet KeyedAccessFile.input +)set break resume )sys rm -f KeyedAccessFile.output )spool KeyedAccessFile.output )set message test on @@ -51574,7 +51577,7 @@ LaurentPolynomial(R, UP): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LIB Library} <>= --- files.spad.pamphlet Library.input +)set break resume )sys rm -f Library.output )spool Library.output )set message test on @@ -51757,7 +51760,7 @@ Library(): TableAggregate(String, Any) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LEXP LieExponentials} <>= --- xlpoly.spad.pamphlet LieExponentials.input +)set break resume )sys rm -f LieExponentials.output )spool LieExponentials.output )set message test on @@ -52152,7 +52155,7 @@ LieExponentials(VarSet, R, Order): XDPcat == XDPdef where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LPOLY LiePolynomial} <>= --- xlpoly.spad.pamphlet LiePolynomial.input +)set break resume )sys rm -f LiePolynomial.output )spool LiePolynomial.output )set message test on @@ -53031,7 +53034,7 @@ LieSquareMatrix(n,R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO LinearOrdinaryDifferentialOperator} <>= --- lodo.spad.pamphlet LinearOrdinaryDifferentialOperator.input +)set break resume )sys rm -f LinearOrdinaryDifferentialOperator.output )spool LinearOrdinaryDifferentialOperator.output )set message test on @@ -53622,7 +53625,7 @@ LinearOrdinaryDifferentialOperator(A:Ring, diff: A -> A): %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO1 LinearOrdinaryDifferentialOperator1} <>= --- lodo.spad.pamphlet LinearOrdinaryDifferentialOperator1.input +)set break resume )sys rm -f LinearOrdinaryDifferentialOperator1.output )spool LinearOrdinaryDifferentialOperator1.output )set message test on @@ -54102,7 +54105,7 @@ LinearOrdinaryDifferentialOperator1(A:DifferentialRing) == %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO2 LinearOrdinaryDifferentialOperator2} <>= --- lodo.spad.pamphlet LinearOrdinaryDifferentialOperator2.input +)set break resume )sys rm -f LinearOrdinaryDifferentialOperator2.output )spool LinearOrdinaryDifferentialOperator2.output )set message test on @@ -54721,7 +54724,7 @@ LinearOrdinaryDifferentialOperator2(A, M): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LIST List} <>= --- list.spad.pamphlet List.input +)set break resume )sys rm -f List.output )spool List.output )set message test on @@ -56133,7 +56136,7 @@ Localize(M:Module R, %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LWORD LyndonWord} <>= --- xlpoly.spad.pamphlet LyndonWord.input +)set break resume )sys rm -f LyndonWord.output )spool LyndonWord.output )set message test on @@ -57429,7 +57432,7 @@ MachineInteger(): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MAGMA Magma} <>= --- xlpoly.spad.pamphlet Magma.input +)set break resume )sys rm -f Magma.output )spool Magma.output )set message test on @@ -57978,7 +57981,7 @@ MakeCachableSet(S:SetCategory): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MATRIX Matrix} <>= --- matrix.spad.pamphlet Matrix.input +)set break resume )sys rm -f Matrix.output )spool Matrix.output )set message test on @@ -60533,7 +60536,7 @@ MonoidRing(R: Ring, M: Monoid): MRcategory == MRdefinition where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MSET Multiset} <>= --- mset.spad.pamphlet Multiset.input +)set break resume )sys rm -f Multiset.output )spool Multiset.output )set message test on @@ -61094,7 +61097,7 @@ Multiset(S: SetCategory): MultisetAggregate S with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MPOLY MultivariatePolynomial} <>= --- multpoly.spad.pamphlet MultivariatePolynomial.input +)set break resume )sys rm -f MultivariatePolynomial.output )spool MultivariatePolynomial.output )set message test on @@ -62713,7 +62716,7 @@ NewSparseUnivariatePolynomial(R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NONE None} <>= --- any.spad.pamphlet None.input +)set break resume )sys rm -f None.output )spool None.output )set message test on @@ -62915,6 +62918,7 @@ NonNegativeInteger: Join(OrderedAbelianMonoidSup,Monoid) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NOTTING NottinghamGroup} <>= +)set break resume )sys rm -f NottinghamGroup.output )spool NottinghamGroup.output )set message test on @@ -63475,7 +63479,7 @@ associative, since $I*(J*K) \ne (I*J)*K$. \includegraphics{ps/v103octoniongraph.eps} <>= --- oct.spad.pamphlet Octonion.input +)set break resume )sys rm -f Octonion.output )spool Octonion.output )set message test on @@ -63945,7 +63949,7 @@ ODEIntensityFunctionsTable(): E == I where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ARRAY1 OneDimensionalArray} <>= --- array1.spad.pamphlet OneDimensionalArray.input +)set break resume )sys rm -f OneDimensionalArray.output )spool OneDimensionalArray.output )set message test on @@ -64876,7 +64880,7 @@ OpenMathErrorKind() : SetCategory with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OP Operator} <>= --- opalg.spad.pamphlet Operator.input +)set break resume )sys rm -f Operator.output )spool Operator.output )set message test on @@ -65918,7 +65922,7 @@ OrderedFreeMonoid(S: OrderedSet): OFMcategory == OFMdefinition where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OVAR OrderedVariableList} <>= --- variable.spad.pamphlet OrderedVariableList.input +)set break resume )sys rm -f OrderedVariableList.output )spool OrderedVariableList.output )set message test on @@ -66080,7 +66084,7 @@ OrderedVariableList(VariableList:List Symbol): \pageto{DifferentialSparseMultivariatePolynomial}{DSMP} \pageto{SequentialDifferentialPolynomial}{SDPOL} <>= --- dpolcat.spad.pamphlet OrderlyDifferentialPolynomial.input +)set break resume )sys rm -f OrderlyDifferentialPolynomial.output )spool OrderlyDifferentialPolynomial.output )set message test on @@ -68498,7 +68502,7 @@ ParametricSurface(ComponentFunction): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PFR PartialFraction} <>= --- pfr.spad.pamphlet PartialFraction.input +)set break resume )sys rm -f PartialFraction.output )spool PartialFraction.output )set message test on @@ -70261,7 +70265,7 @@ Note that this was not respected in versions before [[patch--50]] of this domain. <>= --- perm.spad.pamphlet Permutation.input +)set break resume )sys rm -f Permutation.output )spool Permutation.output )set message test on @@ -71603,7 +71607,7 @@ Pi(): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ACPLOT PlaneAlgebraicCurvePlot} <>= --- acplot.spad.pamphlet PlaneAlgebraicCurvePlot.input +)set break resume )sys rm -f PlaneAlgebraicCurvePlot.output )spool PlaneAlgebraicCurvePlot.output )set message test on @@ -72868,7 +72872,7 @@ PlaneAlgebraicCurvePlot(): PlottablePlaneCurveCategory _ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLOT Plot} <>= --- plot.spad.pamphlet Plot.input +)set break resume )sys rm -f Plot.output )spool Plot.output )set message test on @@ -74355,7 +74359,7 @@ Point(R:Ring) : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain POLY Polynomial} <>= --- multpoly.spad.pamphlet Polynomial.input +)set break resume )sys rm -f Polynomial.output )spool Polynomial.output )set message test on @@ -76867,7 +76871,7 @@ QuasiAlgebraicSet(R, Var,Expon,Dpoly) : C == T %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QUAT Quaternion} <>= --- quat.spad.pamphlet Quaternion.input +)set break resume )sys rm -f Quaternion.output )spool Quaternion.output )set message test on @@ -77250,6 +77254,7 @@ QueryEquation(): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QUEUE Queue} <>= +)set break resume )sys rm -f Queue.output )spool Queue.output )set message test on @@ -78484,7 +78489,7 @@ RadicalFunctionField(F, UP, UPUP, radicnd, n): Exports == Impl where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RADIX RadixExpansion} <>= --- radix.spad.pamphlet RadixExpansion.input +)set break resume )sys rm -f RadixExpansion.output )spool RadixExpansion.output )set message test on @@ -79154,7 +79159,7 @@ Be aware that approximations behave as post-processing and that all computations are done excatly. They can thus be quite time consuming when depending on several "real roots". <>= --- reclos.spad.pamphlet RealClosure.input +)set break resume )sys rm -f RealClosure.output )spool RealClosure.output )set message test on @@ -81120,7 +81125,7 @@ by Marc Moreno Maza for computing triangular decompositions of polynomial systems. This method is refined in the package {\bf LazardSetSolvingPackage} in order to produce decompositions by means of Lazard triangular sets. <>= --- regset.spad.pamphlet RegularTriangularSet.input +)set break resume )sys rm -f RegularTriangularSet.output )spool RegularTriangularSet.output )set message test on @@ -83921,7 +83926,7 @@ RightOpenIntervalRootCharacterization(TheField,ThePolDom) : PUB == PRIV where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ROMAN RomanNumeral} <>= --- integer.spad.pamphlet RomanNumeral.input +)set break resume )sys rm -f RomanNumeral.output )spool RomanNumeral.output )set message test on @@ -85372,7 +85377,7 @@ ScriptFormulaFormat(): public == private where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEG Segment} <>= --- seg.spad.pamphlet Segment.input +)set break resume )sys rm -f Segment.output )spool Segment.output )set message test on @@ -85653,7 +85658,7 @@ Segment(S:Type): SegmentCategory(S) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEGBIND SegmentBinding} <>= --- seg.spad.pamphlet SegmentBinding.input +)set break resume )sys rm -f SegmentBinding.output )spool SegmentBinding.output )set message test on @@ -85835,7 +85840,7 @@ SegmentBinding(S:Type): Type with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SET Set} <>= --- sets.spad.pamphlet Set.input +)set break resume )sys rm -f Set.output )spool Set.output )set message test on @@ -87323,7 +87328,7 @@ The definition of {\bf one?} has been rewritten as it relies on calling {\bf ONEP} which is a function specific to Codemist Common Lisp but is not defined in Common Lisp. <>= --- si.spad.pamphlet SingleInteger.input +)set break resume )sys rm -f SingleInteger.output )spool SingleInteger.output )set message test on @@ -88887,7 +88892,7 @@ SparseMultivariateTaylorSeries(Coef,Var,SMP):_ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STBL SparseTable} <>= --- table.spad.pamphlet SparseTable.input +)set break resume )sys rm -f SparseTable.output )spool SparseTable.output )set message test on @@ -91626,7 +91631,7 @@ SplittingTree(V,C) : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SREGSET SquareFreeRegularTriangularSet} <>= --- sregset.spad.pamphlet SquareFreeRegularTriangularSet.input +)set break resume )sys rm -f SquareFreeRegularTriangularSet.output )spool SquareFreeRegularTriangularSet.output )set message test on @@ -92602,7 +92607,7 @@ SquareFreeRegularTriangularSet(R,E,V,P) : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SQMATRIX SquareMatrix} <>= --- matrix.spad.pamphlet SquareMatrix.input +)set break resume )sys rm -f SquareMatrix.output )spool SquareMatrix.output )set message test on @@ -92977,7 +92982,7 @@ SquareMatrix(ndim,R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STACK Stack} <>= --- stack.spad.pamphlet Stack.input +)set break resume )sys rm -f Stack.output )spool Stack.output )set message test on @@ -93801,7 +93806,7 @@ Stack(S:SetCategory): StackAggregate S with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STREAM Stream} <>= --- stream.spad.pamphlet Stream.input +)set break resume )sys rm -f Stream.output )spool Stream.output )set message test on @@ -94749,7 +94754,7 @@ Stream(S): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STRING String} <>= --- string.spad.pamphlet String.input +)set break resume )sys rm -f String.output )spool String.output )set message test on @@ -95395,7 +95400,7 @@ String(): StringCategory == IndexedString(MINSTRINGINDEX) add %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STRTBL StringTable} <>= --- table.spad.pamphlet StringTable.input +)set break resume )sys rm -f StringTable.output )spool StringTable.output )set message test on @@ -96327,7 +96332,7 @@ Switch():public == private where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SYMBOL Symbol} <>= --- symbol.spad.pamphlet Symbol.input +)set break resume )sys rm -f Symbol.output )spool Symbol.output )set message test on @@ -97372,7 +97377,7 @@ SymmetricPolynomial(R:Ring) == PolynomialRing(R,Partition) add %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TABLE Table} <>= --- table.spad.pamphlet Table.input +)set break resume )sys rm -f Table.output )spool Table.output )set message test on @@ -98648,7 +98653,7 @@ TexFormat(): public == private where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TEXTFILE TextFile} <>= --- files.spad.pamphlet TextFile.input +)set break resume )sys rm -f TextFile.output )spool TextFile.output )set message test on @@ -101424,7 +101429,7 @@ Tuple(S:Type): CoercibleTo(PrimitiveArray S) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ARRAY2 TwoDimensionalArray} <>= --- array2.spad.pamphlet TwoDimensionalArray.input +)set break resume )sys rm -f TwoDimensionalArray.output )spool TwoDimensionalArray.output )set message test on @@ -103805,7 +103810,7 @@ UnivariateLaurentSeriesConstructor(Coef,UTS):_ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UP UnivariatePolynomial} <>= --- poly.spad.pamphlet UnivariatePolynomial.input +)set break resume )sys rm -f UnivariatePolynomial.output )spool UnivariatePolynomial.output )set message test on @@ -105691,6 +105696,7 @@ UnivariatePuiseuxSeriesWithExponentialSingularity(R,FE,var,cen):_ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OREUP UnivariateSkewPolynomial} <>= +)set break resume )sys rm -f UnivariateSkewPolynomial.output )spool UnivariateSkewPolynomial.output )set message test on @@ -106825,7 +106831,7 @@ UnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UNISEG UniversalSegment} <>= --- seg.spad.pamphlet UniversalSegment.input +)set break resume )sys rm -f UniversalSegment.output )spool UniversalSegment.output )set message test on @@ -107170,7 +107176,7 @@ Variable(sym:Symbol): Join(SetCategory, CoercibleTo Symbol) with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VECTOR Vector} <>= --- vector.spad.pamphlet Vector.input +)set break resume )sys rm -f Vector.output )spool Vector.output )set message test on @@ -107484,7 +107490,7 @@ Vector(R:Type): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VOID Void} <>= --- void.spad.pamphlet Void.input +)set break resume )sys rm -f Void.output )spool Void.output )set message test on @@ -107770,7 +107776,7 @@ WeightedPolynomials(R:Ring,VarSet: OrderedSet, E:OrderedAbelianMonoidSup, %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain WUTSET WuWenTsunTriangularSet} <>= --- triset.spad.pamphlet WuWenTsunTriangularSet.input +)set break resume )sys rm -f WuWenTsunTriangularSet.output )spool WuWenTsunTriangularSet.output )set message test on @@ -108601,7 +108607,7 @@ XDistributedPolynomial(vl:OrderedSet,R:Ring): XDPcat == XDPdef where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPBWPOLY XPBWPolynomial} <>= --- xlpoly.spad.pamphlet XPBWPolynomial.input +)set break resume )sys rm -f XPBWPolynomial.output )spool XPBWPolynomial.output )set message test on @@ -109738,7 +109744,7 @@ XPBWPolynomial(VarSet:OrderedSet,R:CommutativeRing): XDPcat == XDPdef where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPOLY XPolynomial} <>= --- xpoly.spad.pamphlet XPolynomial.input +)set break resume )sys rm -f XPolynomial.output )spool XPolynomial.output )set message test on @@ -110072,7 +110078,7 @@ XPolynomial(R:Ring) == XRecursivePolynomial(Symbol, R) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPR XPolynomialRing} <>= --- xpoly.spad.pamphlet XPolynomialRing.input +)set break resume )sys rm -f XPolynomialRing.output )spool XPolynomialRing.output )set message test on diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet index 68dc386..0e014b7 100644 --- a/books/bookvol10.4.pamphlet +++ b/books/bookvol10.4.pamphlet @@ -3643,6 +3643,7 @@ AnyFunctions1(S:Type): with %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package API ApplicationProgramInterface} <>= +)set break resume )sys rm -f ApplicationProgramInterface.output )spool ApplicationProgramInterface.output )set message test on @@ -8587,7 +8588,7 @@ CRApackage(R:EuclideanDomain): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CYCLES CycleIndicators} <>= --- cycles.spad.pamphlet CycleIndicators.input +)set break resume )sys rm -f CycleIndicators.output )spool CycleIndicators.output )set message test on @@ -19124,6 +19125,7 @@ ErrorFunctions() : Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GBEUCLID EuclideanGroebnerBasisPackage} <>= +)set break resume )sys rm -f EuclideanGroebnerBasisPackage.output )spool EuclideanGroebnerBasisPackage.output )set message test on @@ -23305,7 +23307,7 @@ FactoredFunctions(M:IntegralDomain): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FR2 FactoredFunctions2} <>= --- fr.spad.pamphlet FactoredFunctions2.input +)set break resume )sys rm -f FactoredFunctions2.output )spool FactoredFunctions2.output )set message test on @@ -33867,7 +33869,7 @@ GrayCode: public == private where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GBF GroebnerFactorizationPackage} <>= --- groebf.spad.pamphlet GroebnerFactorizationPackage.input +)set break resume )sys rm -f GroebnerFactorizationPackage.output )spool GroebnerFactorizationPackage.output )set message test on @@ -34920,6 +34922,7 @@ GroebnerInternalPackage(Dom, Expon, VarSet, Dpol): T == C where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GB GroebnerPackage} <>= +)set break resume )sys rm -f GroebnerPackage.output )spool GroebnerPackage.output )set message test on @@ -43684,7 +43687,7 @@ factor t6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ZLINDEP IntegerLinearDependence} <>= --- lindep.spad.pamphlet IntegerLinearDependence.input +)set break resume )spool IntegerLinearDependence.output )set message test on )set message auto off @@ -43899,7 +43902,7 @@ IntegerLinearDependence(R): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTHEORY IntegerNumberTheoryFunctions} <>= --- numtheor.spad.pamphlet IntegerNumberTheoryFunctions.input +)set break resume )spool IntegerNumberTheoryFunctions.output )set message test on )set message auto off @@ -47673,7 +47676,7 @@ LeadingCoefDetermination(OV,E,Z,P) : C == T %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LEXTRIPK LexTriangularPackage} <>= --- zerodim.spad.pamphlet LexTriangularPackage.input +)set break resume )spool LexTriangularPackage.output )set message test on )set message auto off @@ -53004,7 +53007,7 @@ MakeFloatCompiledFunction(S): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MKFUNC MakeFunction} <>= --- mkfunc.spad.pamphlet MakeFunction.input +)set break resume )spool MakeFunction.output )set message test on )set message auto off @@ -53461,7 +53464,7 @@ MappingPackageInternalHacks3(A: SetCategory, B: SetCategory, C: SetCategory):_ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG1 MappingPackage1} <>= --- mappkg.spad.pamphlet MappingPackage1.input +)set break resume )spool MappingPackage1.output )set message test on )set message auto off @@ -53976,7 +53979,7 @@ MappingPackage1(A:SetCategory): MPcat == MPdef where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG2 MappingPackage2} <>= --- mappkg.spad.pamphlet MappingPackage2.input +)set break resume )spool MappingPackage2.output )set message test on )set message auto off @@ -54453,7 +54456,7 @@ MappingPackage2(A:SetCategory, C:SetCategory): MPcat == MPdef where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG3 MappingPackage3} <>= --- mappkg.spad.pamphlet MappingPackage3.input +)set break resume )spool MappingPackage3.output )set message test on )set message auto off @@ -54951,7 +54954,7 @@ MappingPackage3(A:SetCategory, B:SetCategory, C:SetCategory):_ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG4 MappingPackage4} <>= --- mappkg.spad.pamphlet MappingPackage4.input +)set break resume )spool MappingPackage4.output )set message test on )set message auto off @@ -119322,7 +119325,7 @@ PatternMatchTools(S, R, P): Exports == Implementation where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PERMAN Permanent} <>= --- perman.spad.pamphlet Permanent.input +)set break resume )spool Permanent.output )set message test on )set message auto off @@ -130589,7 +130592,7 @@ RealPolynomialUtilitiesPackage(TheField,ThePols) : PUB == PRIV where %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REALSOLV RealSolvePackage} <>= --- acplot.spad.pamphlet RealSolvePackage.input +)set break resume )sys rm -f RealSolvePackage.output )spool RealSolvePackage.output )set message test on @@ -147286,7 +147289,7 @@ the pacakge {\bf ZeroDimensionalSolvePackage} provides operations for computing symbolically the real or complex roots of polynomial systems with finitely many solutions. <>= --- zerodim.spad.pamphlet ZeroDimensionalSolvePackage.input +)set break resume )spool ZeroDimensionalSolvePackage.output )set message test on )set message auto off diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet index 056019a..6c47b62 100644 --- a/books/bookvol5.pamphlet +++ b/books/bookvol5.pamphlet @@ -34,6 +34,47 @@ \index{#1!manpage}} %% +%% defun marks a function definition and adds it to the index +%% +\newcommand{\defun}[1]{% e.g. \defun{functionname} +\subsection{defun #1}% +\label{#1}% +\index{#1}% +\index{defun!#1}% +\index{#1!defun}} + +%% +%% defmacro marks a macro definition and adds it to the index +%% +\newcommand{\defmacro}[1]{% e.g. \defmacro{functionname} +\subsection{defmacro {#1}}% +\label{#1}% +\index{#1}% +\index{defmacro!#1}% +\index{#1!defmacro}} + +%% +%% defvar marks a var definition and adds it to the index +%% +\newcommand{\defvar}[1]{% e.g. \def{functionname} +\subsection{defvar \${#1}}% +\label{#1}% +\index{#1}% +\index{defvar!#1}% +\index{#1!defvar}} + + +%% +%% defdollar marks a var definition (with leading $) and adds it to the index +%% +\newcommand{\defdollar}[1]{% e.g. \defdollar{functionname} +\subsection{defvar \${#1}}% +\label{#1}% +\index{\${#1}}% +\index{defvar!\${#1}}% +\index{\${#1}!defvar}} + +%% %% pagehead consolidates standard page indexing %% \newcommand{\pagehead}[2]{% e.g. \pagehead{name}{abb} @@ -261,7 +302,7 @@ itself (don't break this) and never exits. \section{Variables Used} \section{Data Structures} \section{Functions} -\subsection{defun set-restart-hook} +\defun{set-restart-hook} When a lisp image containing code is reloaded there is a hook to allow a function to be called. In our case it is the [[restart]] function which is the entry to the Axiom interpreter. @@ -360,7 +401,7 @@ information is initialized. (|spad|)) @ -\subsection{defun spad} +\defun{spad} Starts the interpreter but does not read in profiles, etc. <>= (defun |spad| () @@ -373,7 +414,7 @@ Starts the interpreter but does not read in profiles, etc. '|EndOfSpad|)) @ -\subsection{defun runspad} +\defun{runspad} <>= (defun |runspad| () (prog (mode) @@ -392,7 +433,7 @@ Starts the interpreter but does not read in profiles, etc. (setq mode (catch '|top_level| (|ncTopLevel|)))))))))))))) @ -\subsection{defun ncTopLevel} +\defun{ncTopLevel} Top-level read-parse-eval-print loop for the interpreter. Uses the Bill Burge's parser. <>= @@ -410,7 +451,7 @@ the Bill Burge's parser. (|ncIntLoop|))) @ -\subsection{defun ncIntLoop} +\defun{ncIntLoop} <>= (defun |ncIntLoop| () (let ((curinstream *standard-output*) @@ -419,7 +460,7 @@ the Bill Burge's parser. (|intloop|))) @ -\subsection{defun intloop} +\defun{intloop} Note that the [[SpadInterpretStream]] function uses a list of three strings as an argument. The values in the list seem to have no use and can eventually be removed. @@ -453,7 +494,7 @@ intloop () == (list 'tim 'daly '?) t))))))))))))) @ -\subsection{defun SpadInterpretStream} +\defun{SpadInterpretStream} The [[SpadInterpretStream]] function takes three arguments \begin{list}{} \item [[str]] This is passed as an argument to [[intloopReadConsole]] @@ -505,7 +546,7 @@ Thus, when a system command is entered this function is called. @ \section{The Read-Eval-Print Loop} -\subsection{defun intloopReadConsole} +\defun{intloopReadConsole} Note that this function relies on the fact that lisp can do tail-recursion. The function recursively invokes itself. @@ -565,7 +606,7 @@ will end up as a recursive call to ourselves. @ \section{Helper Functions} -\subsection{defun getenviron} +\defun{getenviron} <>= (defun getenviron (shellvar) #+allegro (sys::getenv (string var)) @@ -581,7 +622,7 @@ will end up as a recursive call to ourselves. ) @ -\subsection{defun init-memory-config} +\defun{init-memory-config} Austin-Kyoto Common Lisp (AKCL), now known as Gnu Common Lisp (GCL) requires some changes to the default memory setup to run Axiom efficently. This function performs those setup commands. @@ -627,7 +668,7 @@ Called from \fnref{restart}. @ -\subsection{defun intloopPrefix?} +\defun{intloopPrefix?} If the prefix string is the same as the whole string initial characters (ignoring spaces in the whole string) then we return the whole string minus any leading spaces. @@ -641,7 +682,7 @@ minus any leading spaces. @ -\subsection{defun make-absolute-filename} +\defun{make-absolute-filename} Prefix a filename with the {\bf AXIOM} shell variable. <>= (defun make-absolute-filename (name) @@ -649,14 +690,14 @@ Prefix a filename with the {\bf AXIOM} shell variable. @ -\subsection{defun makeInitialModemapFrame} +\defun{makeInitialModemapFrame} <>= (defun |makeInitialModemapFrame| () (copy |$InitialModemapFrame|)) @ -\subsection{defun ncloopEscaped} +\defun{ncloopEscaped} The ncloopEscaped function will return true if the last non-blank character of a line is an underscore, the Axiom line-continuation character. Otherwise, it returns nil. @@ -669,7 +710,7 @@ character. Otherwise, it returns nil. @ -\subsection{defun reclaim} +\defun{reclaim} Call the garbage collector on various platforms. <>= #+abcl @@ -694,7 +735,7 @@ Call the garbage collector on various platforms. (defun reclaim () (sb-ext::gc)) @ -\subsection{defun reroot} +\defun{reroot} The reroot function is used to reset the important variables used by the system. In particular, these variables are sensitive to the {\bf AXIOM} shell variable. That variable is renamed internally to @@ -724,7 +765,7 @@ where the [[${SYS}]] variable is the same one set at build time. @ -\subsection{defun setCurrentLine} +\defun{setCurrentLine} Remember the current line. The cases are: \begin{itemize} \item If there is no \$currentLine set it to the input @@ -764,7 +805,7 @@ this is what the current code does so I won't change it. @ \chapter{System Command Handling} -\subsection{defvar \$systemCommands} +\defdollar{systemCommands} The system commands are the top-level commands available in Axiom that can all be invoked by prefixing the symbol with a closed-paren. Thus, to see they copyright you type: @@ -860,7 +901,7 @@ See:\\ @ -\subsection{defvar \$SYSCOMMANDS} +\defdollar{SYSCOMMANDS} This table is used to look up a symbol to see if it might be a command. <>= (defvar $SYSCOMMANDS nil) @@ -868,7 +909,7 @@ This table is used to look up a symbol to see if it might be a command. (setq $SYSCOMMANDS (mapcar #'car |$systemCommands|))) @ -\subsection{defvar \$noParseCommands} +\defdollar{noParseCommands} This is a list of the commands which have their arguments passed verbatim. Certain functions, such as the lisp function need to be able to handle all kinds of input that will not be acceptable to the interpreter. @@ -889,7 +930,7 @@ all kinds of input that will not be acceptable to the interpreter. ))) @ -\subsection{defvar \$tokenCommands} +\defdollar{tokenCommands} This is a list of the commands that expect the interpreter to parse their arguments. Thus the history command expects that Axiom will have tokenized and validated the input before calling the history function. @@ -926,7 +967,7 @@ tokenized and validated the input before calling the history function. @ -\subsection{defvar \$InitialCommandSynonymAlist} +\defdollar{InitialCommandSynonymAlist} Axiom can create ``synonyms'' for commands. We create an initial table of synonyms which are in common use. <>= @@ -986,7 +1027,7 @@ of synonyms which are in common use. ))) @ -\subsection{defvar \$CommandSynonymAlist} +\defdollar{CommandSynonymAlist} The actual list of synonyms is initialized to be the same as the above initial list of synonyms. The user synonyms that are added during a session are pushed onto this list for later lookup. @@ -997,7 +1038,7 @@ during a session are pushed onto this list for later lookup. @ -\subsection{defun ncloopCommand} +\defun{ncloopCommand} The \$systemCommandFunction is set in SpadInterpretStream to point to the function InterpExecuteSpadSystemCommand. The system commands are handled by the function kept in the ``hook'' @@ -1020,7 +1061,7 @@ for processing \verb|)read| of input files. n)))) @ -\subsection{defun ncloopPrefix?} +\defun{ncloopPrefix?} If we find the prefix string in the whole string starting at position zero we return the remainder of the string without the leading prefix. <>= @@ -1119,13 +1160,13 @@ constructor name {\tt VectorFunctions2} from the system: )abbreviation remove VectorFunctions2 \end{verbatim} -\subsection{defun abbreviations} +\defun{abbreviations} <>= (defun |abbreviations| (l) (|abbreviationsSpad2Cmd| l)) @ -\subsection{defun abbreviationsSpad2Cmd} +\defun{abbreviationsSpad2Cmd} \begin{verbatim} ;abbreviationsSpad2Cmd l == ; null l => helpSpad2Cmd '(abbreviations) @@ -1158,69 +1199,68 @@ constructor name {\tt VectorFunctions2} from the system: <>= (defun |abbreviationsSpad2Cmd| (arg) - (prog (abopts quiet opt key type constructor t2 a b al) - (return - (seq + (let (abopts quiet opt key type constructor t2 a b al) + (declare (special |$options|)) + (if (null arg) + (|helpSpad2Cmd| '(|abbreviations|)) + (progn + (setq abopts '(|query| |domain| |category| |package| |remove|)) + (setq quiet nil) + (do ((t0 |$options| (cdr t0)) (t1 nil)) + ((or (atom t0) + (progn (setq t1 (car t0)) nil) + (progn (progn (setq opt (car t1)) t1) nil)) + nil) + (seq + (exit + (progn + (setq opt + (|selectOptionLC| opt '(|quiet|) '|optionError|)) + (cond ((eq opt '|quiet|) + (setq quiet t))))))) (cond - ((null arg) (|helpSpad2Cmd| '(|abbreviations|))) - (t - (setq abopts '(|query| |domain| |category| |package| |remove|)) - (setq quiet NIL) - (do ((t0 |$options| (cdr t0)) (t1 nil)) - ((or (atom t0) - (progn (setq t1 (car t0)) nil) - (progn (progn (setq opt (car t1)) t1) nil)) - nil) - (seq - (exit - (progn - (setq opt - (|selectOptionLC| opt '(|quiet|) '|optionError|)) - (cond ((eq opt '|quiet|) - (setq quiet t))))))) - (cond - ((and (pairp arg) - (progn - (setq opt (qcar arg)) - (setq al (qcdr arg)) - t)) - (setq key (|opOf| (car al))) - (setq type - (|selectOptionLC| opt abopts '|optionError|)) - (cond - ((eq type '|query|) - (cond - ((null al) (|listConstructorAbbreviations|)) - ((setq constructor (|abbreviation?| key)) - (|abbQuery| constructor)) - (t (|abbQuery| key)))) - ((eq type '|remove|) - (deldatabase key 'abbreviation)) - ((oddp (size al)) - (|sayKeyedMsg| 's2iz0002 (cons type nil))) - (t - (do () (nil nil) - (seq - (exit - (cond - ((null al) (return '|fromLoop|)) - (t - (setq t2 al) - (setq a (CAR t2)) - (setq b (CADR t2)) - (setq al (CDDR t2)) - (|mkUserConstructorAbbreviation| b a type) - (setdatabase b 'abbreviation a) - (setdatabase b 'constructorkind type)))))) - (cond ((null quiet) - (progn - (|sayKeyedMsg| 's2iz0001 - (cons a (cons type (cons (|opOf| b) nil)))) nil)))))) - (t nil)))))))) + ((and (pairp arg) + (progn + (setq opt (qcar arg)) + (setq al (qcdr arg)) + t)) + (setq key (|opOf| (car al))) + (setq type + (|selectOptionLC| opt abopts '|optionError|)) + (cond + ((eq type '|query|) + (cond + ((null al) (|listConstructorAbbreviations|)) + ((setq constructor (|abbreviation?| key)) + (|abbQuery| constructor)) + (t (|abbQuery| key)))) + ((eq type '|remove|) + (deldatabase key 'abbreviation)) + ((oddp (size al)) + (|sayKeyedMsg| 's2iz0002 (cons type nil))) + (t + (do () (nil nil) + (seq + (exit + (cond + ((null al) (return '|fromLoop|)) + (t + (setq t2 al) + (setq a (car t2)) + (setq b (cadr t2)) + (setq al (cddr t2)) + (|mkUserConstructorAbbreviation| b a type) + (setdatabase b 'abbreviation a) + (setdatabase b 'constructorkind type)))))) + (cond ((null quiet) + (progn + (|sayKeyedMsg| 's2iz0001 + (cons a (cons type (cons (|opOf| b) nil)))) nil)))))) + (t nil)))))) @ -\subsection{defun listConstructorAbbreviations} +\defun{listConstructorAbbreviations} \begin{verbatim} ;listConstructorAbbreviations() == ; x := UPCASE queryUserKeyedMsg("S2IZ0056",NIL) @@ -1233,17 +1273,14 @@ constructor name {\tt VectorFunctions2} from the system: <>= (defun |listConstructorAbbreviations| () - (prog (x) - (return + (let (x) + (setq x (upcase (|queryUserKeyedMsg| 's2iz0056 nil))) + (if (memq (string2id-n x 1) '(Y YES)) (progn - (setq x (upcase (|queryUserKeyedMsg| 's2iz0056 nil))) - (cond - ((memq (string2id-n x 1) '(Y YES)) - (|whatSpad2Cmd| '(|categories|)) - (|whatSpad2Cmd| '(|domains|)) - (|whatSpad2Cmd| '(|packages|))) - (t - (|sayKeyedMsg| 's2iz0057 nil))))))) + (|whatSpad2Cmd| '(|categories|)) + (|whatSpad2Cmd| '(|domains|)) + (|whatSpad2Cmd| '(|packages|))) + (|sayKeyedMsg| 's2iz0057 nil)))) @ @@ -1621,14 +1658,14 @@ system function and constructor caches. \fnref{frame}, and \fnref{undo} -\subsection{defun clear} +\defun{clear} <>= (defun |clear| (l) (|clearSpad2Cmd| l)) @ -\subsection{defun clearSpad2Cmd} +\defun{clearSpad2Cmd} \begin{verbatim} ;clearSpad2Cmd l == ; -- new version which changes the environment and updates history @@ -1703,7 +1740,7 @@ system function and constructor caches. @ -\subsection{defun clearCmdSortedCaches} +\defun{clearCmdSortedCaches} \begin{verbatim} ;clearCmdSortedCaches() == ; $lookupDefaults: local := false @@ -1735,7 +1772,7 @@ system function and constructor caches. @ -\subsection{defun clearCmdCompletely} +\defun{clearCmdCompletely} \begin{verbatim} ;clearCmdCompletely() == ; clearCmdAll() @@ -1779,7 +1816,7 @@ system function and constructor caches. @ -\subsection{defun clearCmdAll} +\defun{clearCmdAll} \begin{verbatim} ;clearCmdAll() == ; clearCmdSortedCaches() @@ -1825,7 +1862,7 @@ system function and constructor caches. @ -\subsection{defun clearCmdExcept} +\defun{clearCmdExcept} \begin{verbatim} ;clearCmdExcept(l is [opt,:vl]) == ; --clears elements of vl of all options EXCEPT opt @@ -1855,7 +1892,7 @@ system function and constructor caches. @ -\subsection{defun clearCmdParts} +\defun{clearCmdParts} \begin{verbatim} ;clearCmdParts(l is [opt,:vl]) == ; -- clears the bindings indicated by opt of all variables in vl @@ -2014,7 +2051,7 @@ the entire Axiom session. \fnref{quit} and \fnref{pquit} -\subsection{defun queryClients} +\defun{queryClients} Returns the number of active scratchpad clients <>= (defun |queryClients| () @@ -2024,7 +2061,7 @@ Returns the number of active scratchpad clients @ -\section{defun close} +\defun{close} \begin{verbatim} ;close args == ; $saturn => @@ -2414,7 +2451,7 @@ The value of the {\tt )set break} variable then controls what happens. {\tt )edit}, and {\tt )library} -\subsection{defun compiler} +\defun{compiler} \begin{verbatim} ;compiler args == ; $newConlist: local := nil --reset by compDefineLisplib and astran @@ -2604,7 +2641,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun compileAsharpCmd} +\defun{compileAsharpCmd} <>= (defun |compileAsharpCmd| (args) (|compileAsharpCmd1| args) @@ -2613,7 +2650,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun compileAsharpCmd1} +\defun{compileAsharpCmd1} \begin{verbatim} ;compileAsharpCmd1 args == ; -- Assume we entered from the "compiler" function, so args ^= nil @@ -2808,7 +2845,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun compileAsharpArchiveCmd} +\defun{compileAsharpArchiveCmd} \begin{verbatim} ;compileAsharpArchiveCmd args == ; -- Assume we entered from the "compiler" function, so args ^= nil @@ -2909,7 +2946,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun compileAsharpLispCmd} +\defun{compileAsharpLispCmd} \begin{verbatim} ;compileAsharpLispCmd args == ; -- Assume we entered from the "compiler" function, so args ^= nil @@ -3004,7 +3041,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun compileSpadLispCmd} +\defun{compileSpadLispCmd} \begin{verbatim} ;compileSpadLispCmd args == ; -- Assume we entered from the "compiler" function, so args ^= nil @@ -3100,7 +3137,7 @@ The value of the {\tt )set break} variable then controls what happens. @ -\subsection{defun withAsharpCmd} +\defun{withAsharpCmd} <>= (defun |withAsharpCmd| (args) (let (|$options|) @@ -3112,7 +3149,7 @@ The value of the {\tt )set break} variable then controls what happens. \cmdhead{copyright} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\subsection{defun copyright} +\defun{copyright} <>= (defun |copyright| () (obey (strconc "cat " (|getEnv| "AXIOM") "/lib/copyright"))) @@ -3123,7 +3160,7 @@ The value of the {\tt )set break} variable then controls what happens. \cmdhead{credits} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\subsection{defun credits} +\defun{credits} <>= (defun |credits| () (mapcar #'(lambda (x) (princ x) (terpri)) credits)) @@ -3228,7 +3265,7 @@ To just show the value (and the type) of ``d'', issue )display value d \end{verbatim} \section{Variables Used} -\subsection{defvar \$displayOptions} +\defdollar{displayOptions} The current value of \$displayOptions is <>= @@ -3240,7 +3277,7 @@ The current value of \$displayOptions is \section{Data Structures} \section{Functions} -\subsection{defun display} +\defun{display} This trivial function satisfies the standard pattern of making a user command match the name of the function which implements the command. That command immediatly invokes a ``Spad2Cmd'' version. @@ -3296,7 +3333,7 @@ and tell the user what options are available. (format nil "~% or abbreviations thereof")))))) @ -\subsection{defun displayOperations} +\defun{displayOperations} This function takes a list of operation names. If the list is null we query the user to see if they want all operations printed. Otherwise we print the information for the requested symbols. @@ -3309,7 +3346,7 @@ we print the information for the requested symbols. (|sayKeyedMsg| 's2iz0059 nil)))) @ -\subsection{defun yesanswer} +\defun{yesanswer} This is a trivial function to simplify the logic of displaySpad2Cmd. If the user didn't supply an argument to the )display op command we ask if they wish to have all information about all Axiom operations @@ -3320,7 +3357,7 @@ displayed. If the answer is either Y or YES we return true else nil. @ -\subsection{defun displayMacros} +\defun{displayMacros} ;displayMacros names == ; imacs := getInterpMacroNames() ; pmacs := getParserMacroNames() @@ -3768,7 +3805,7 @@ The parts of a frame and their initial, default values are: These could be macros but we wish to export them to the API code in the algebra so we keep them as functions. \subsection{0th Frame Component -- frameName} -\subsection{defun frameName} +\defun{frameName} <>= (defun frameName (frame) (car frame)) @@ -3854,7 +3891,7 @@ initial values. @ \subsection{Creating a List of all of the Frame Names} -\subsection{defun frameNames} +\defun{frameNames} This function simply walks across the frame in the frame ring and returns a list of the name of each frame. <>= @@ -3868,7 +3905,7 @@ If the frame is found we return the environment portion of the frame otherwise we construct an empty environment and return it. The initial values of an empty frame are created here. This function returns a single frame that will be placed in the frame ring. -\subsection{defun frameEnvironment} +\defun{frameEnvironment} <>= (defun |frameEnvironment| (fname) (let ((frame (|findFrameInRing| fname))) @@ -3877,7 +3914,7 @@ returns a single frame that will be placed in the frame ring. (list (list nil))))) @ -\subsection{defun emptyInterpreterFrame} +\defun{emptyInterpreterFrame} \begin{verbatim} emptyInterpreterFrame(name) == LIST(name, -- frame name @@ -3912,7 +3949,7 @@ We can collect up all the current environment information into one frame element with this call. It creates a list of the current values of the global variables and returns this as a frame element. -\subsection{defun createCurrentInterpreterFrame} +\defun{createCurrentInterpreterFrame} <>= (defun |createCurrentInterpreterFrame| () (list @@ -3934,7 +3971,7 @@ The frames are kept on a circular list. The first element on that list is known as ``the current frame''. This will initialize all of the interesting interpreter data structures from that frame. -\subsection{defun updateFromCurrentInterpreterFrame} +\defun{updateFromCurrentInterpreterFrame} \begin{verbatim} updateFromCurrentInterpreterFrame() == [$interpreterFrameName, _ @@ -3975,7 +4012,7 @@ updateFromCurrentInterpreterFrame() == \subsection{Find a Frame in the Frame Ring by Name} Each frame contains its name as the 0th element. We simply walk all the frames and if we find one we return it. -\subsection{defun findFrameInRing} +\defun{findFrameInRing} \begin{verbatim} findFrameInRing(name) == val := NIL @@ -3998,7 +4035,7 @@ This function collects the normal contents of the world into a frame object, places it first on the frame list, and then sets the current values of the world from the frame object. -\subsection{defun updateCurrentInterpreterFrame} +\defun{updateCurrentInterpreterFrame} \begin{verbatim} updateCurrentInterpreterFrame() == RPLACA($interpreterFrameRing,createCurrentInterpreterFrame()) @@ -4012,7 +4049,7 @@ updateCurrentInterpreterFrame() == nil) @ -\subsection{defun nextInterpreterFrame} +\defun{nextInterpreterFrame} This function updates the current frame to make sure all of the current information is recorded. If there are more frame elements @@ -4039,7 +4076,7 @@ nextInterpreterFrame() == (|updateFromCurrentInterpreterFrame|))) @ -\subsection{defun changeToNamedInterpreterFrame} +\defun{changeToNamedInterpreterFrame} \begin{verbatim} changeToNamedInterpreterFrame(name) == updateCurrentInterpreterFrame() @@ -4064,7 +4101,7 @@ changeToNamedInterpreterFrame(name) == (|updateFromCurrentInterpreterFrame|))))))) @ -\subsection{defun previousInterpreterFrame} +\defun{previousInterpreterFrame} \begin{verbatim} previousInterpreterFrame() == updateCurrentInterpreterFrame() @@ -4090,7 +4127,7 @@ previousInterpreterFrame() == (|updateFromCurrentInterpreterFrame|))))))) @ -\subsection{defun addNewInterpreterFrame} +\defun{addNewInterpreterFrame} \begin{verbatim} addNewInterpreterFrame(name) == null name => throwKeyedMsg("S2IZ0018",NIL) @@ -4106,31 +4143,22 @@ addNewInterpreterFrame(name) == \end{verbatim} <>= (defun |addNewInterpreterFrame| (name) - (seq - (cond - ((null name) - (|throwKeyedMsg| 'S2IZ0018 nil)) ; you must provide a name for new frame - (t + (declare (special |$interpreterFrameRing|)) + (if (null name) + (|throwKeyedMsg| 's2iz0018 nil) ; you must provide a name for new frame + (progn (|updateCurrentInterpreterFrame|) - (seq - (do ((tmp0 |$interpreterFrameRing| (cdr tmp0)) (f nil)) - ((or (atom tmp0) - (progn (setq f (car tmp0)) nil)) - nil) - (seq - (exit - (when (boot-equal name (frameName f)) - (exit - (|throwKeyedMsg| 'S2IZ0019 ; existing frame with same name - (cons name nil))))))) - (|initHistList|) - (setq |$interpreterFrameRing| + (dolist (f |$interpreterFrameRing|) + (when (boot-equal name (frameName f)) ; existing frame with same name + (|throwKeyedMsg| 's2iz0019 (list name)))) + (|initHistList|) + (setq |$interpreterFrameRing| (cons (|emptyInterpreterFrame| name) |$interpreterFrameRing|)) - (|updateFromCurrentInterpreterFrame|) - ($erase (|histFileName|))))))) + (|updateFromCurrentInterpreterFrame|) + ($erase (|histFileName|))))) @ -\subsection{defun closeInterpreterFrame} +\defun{closeInterpreterFrame} \begin{verbatim} closeInterpreterFrame(name) == -- if name = NIL then it means the current frame @@ -4152,42 +4180,32 @@ closeInterpreterFrame(name) == \end{verbatim} <>= (defun |closeInterpreterFrame| (name) - (prog (ifr found) - (return - (seq - (cond - ((null (cdr |$interpreterFrameRing|)) - (cond - ((and name (nequal name |$interpreterFrameName|)) - (|throwKeyedMsg| 'S2IZ0020 ; 1 frame left. not the correct name. - (cons |$interpreterFrameName| nil))) - (t (|throwKeyedMsg| 'S2IZ0021 nil)))) ; only 1 frame left, not closed - (t - (cond - ((null name) - (setq |$interpreterFrameRing| (cdr |$interpreterFrameRing|))) - (t + (declare (special |$interpreterFrameRing| |$interpreterFrameName|)) + (let (ifr found) + (if (null (cdr |$interpreterFrameRing|)) + (if (and name (nequal name |$interpreterFrameName|)) + (|throwKeyedMsg| 's2iz0020 ; 1 frame left. not the correct name. + (cons |$interpreterFrameName| nil)) + (|throwKeyedMsg| 's2iz0021 nil)) ; only 1 frame left, not closed + (progn + (if (null name) + (setq |$interpreterFrameRing| (cdr |$interpreterFrameRing|)) + (progn (setq found nil) (setq ifr nil) - (do ((tmp0 |$interpreterFrameRing| (cdr tmp0)) (f nil)) - ((or (atom tmp0) (progn (setq f (car tmp0)) nil)) nil) - (seq - (exit - (cond - ((or found (nequal name (frameName f))) - (setq ifr (cons f ifr))) - (t - (setq found t)))))) - (cond - ((null found) - (|throwKeyedMsg| 'S2IZ0022 (cons name nil))) - (t - ($erase (|makeHistFileName| name)) - (setq |$interpreterFrameRing| (nreverse ifr)))))) - (|updateFromCurrentInterpreterFrame|))))))) + (dolist (f |$interpreterFrameRing|) + (if (or found (nequal name (frameName f))) + (setq ifr (cons f ifr))) + (setq found t)) + (if (null found) + (|throwKeyedMsg| 's2iz0022 (cons name nil)) + (progn + ($erase (|makeHistFileName| name)) + (setq |$interpreterFrameRing| (nreverse ifr)))))) + (|updateFromCurrentInterpreterFrame|))))) @ -\subsection{defun displayFrameNames} +\defun{displayFrameNames} \begin{verbatim} displayFrameNames() == fs := "append"/[ ['%l,'" ",:bright frameName f] for f in @@ -4196,27 +4214,15 @@ displayFrameNames() == \end{verbatim} <>= (defun |displayFrameNames| () - (prog (fs) - (return - (seq - (progn - (setq fs - (prog (tmp0) - (setq tmp0 nil) - (return - (do ((tmp1 |$interpreterFrameRing| (cdr tmp1)) (f nil)) - ((or (atom tmp1) - (progn (setq f (car tmp1)) nil)) - tmp0) - (seq - (exit - (setq tmp0 - (append tmp0 (cons '|%l| - (cons " " (|bright| (frameName f)))))))))))) - (|sayKeyedMsg| 'S2IZ0024 (cons fs nil))))))) ; frame names are ... + (declare (special |$interpreterFrameRing|)) + (let (t1) + (setq t1 + (mapcar #'(lambda (f) `(|%l| " " ,@(|bright| (frameName f)))) + |$interpreterFrameRing|)) + (|sayKeyedMsg| 's2iz0024 (list (apply #'append t1))))) @ -\subsection{defun importFromFrame} +\defun{importFromFrame} \begin{verbatim} importFromFrame args == -- args should have the form [frameName,:varNames] @@ -4340,7 +4346,7 @@ importFromFrame args == (cons fname nil))))))))))))) @ -\subsection{defun frame} +\defun{frame} \begin{verbatim} -- the system command @@ -4351,7 +4357,7 @@ frame l == frameSpad2Cmd l (|frameSpad2Cmd| l)) @ -\subsection{defun frameSpad2Cmd} +\defun{frameSpad2Cmd} \begin{verbatim} frameSpad2Cmd args == frameArgs := '(drop import last names new next) @@ -4509,14 +4515,14 @@ and in HyperDoc. In HyperDoc, choose the {\bf Commands} item from the {\bf Reference} menu. -\subsection{defun help} +\defun{help} <>= (defun |help| (l) (|helpSpad2Cmd| l)) @ -\subsection{defun helpSpad2Cmd} +\defun{helpSpad2Cmd} <>= (defun |helpSpad2Cmd| (|args|) (unless (|newHelpSpad2Cmd| |args|) @@ -4524,7 +4530,7 @@ In HyperDoc, choose the {\bf Commands} item from the @ -\subsection{defun newHelpSpad2Cmd} +\defun{newHelpSpad2Cmd} \begin{verbatim} ;newHelpSpad2Cmd args == ; if null args then args := ["?"] @@ -4818,7 +4824,7 @@ into a call of [[fetchOutput(n)]]. The @ \section{Data Structures} \section{Functions} -\subsection{defun makeHistFileName} +\defun{makeHistFileName} \begin{verbatim} makeHistFileName(fname) == makePathname(fname,$historyFileType,$historyDirectory) @@ -4828,7 +4834,7 @@ makeHistFileName(fname) == (|makePathname| fname |$historyFileType| |$historyDirectory|)) @ -\subsection{defun oldHistFileName} +\defun{oldHistFileName} \begin{verbatim} oldHistFileName() == makeHistFileName($oldHistoryFileName) @@ -4838,7 +4844,7 @@ oldHistFileName() == (|makeHistFileName| |$oldHistoryFileName|)) @ -\subsection{defun histFileName} +\defun{histFileName} \begin{verbatim} histFileName() == makeHistFileName($interpreterFrameName) @@ -4848,7 +4854,7 @@ histFileName() == (|makeHistFileName| |$interpreterFrameName|)) @ -\subsection{defun histInputFileName} +\defun{histInputFileName} \begin{verbatim} histInputFileName(fn) == null fn => @@ -4862,7 +4868,7 @@ histInputFileName(fn) == (|makePathname| fn 'input |$historyDirectory|))) @ -\subsection{defun initHist} +\defun{initHist} \begin{verbatim} initHist() == $useInternalHistoryTable => initHistList() @@ -4891,7 +4897,7 @@ initHist() == (|initHistList|)))))) @ -\subsection{defun initHistList} +\defun{initHistList} \begin{verbatim} initHistList() == -- creates $HistList as a circular list of length $HistListLen @@ -4923,7 +4929,7 @@ initHistList() == (setq |$HistRecord| nil)))))) @ -\subsection{defun history} +\defun{history} \begin{verbatim} history l == l or null $options => sayKeyedMsg("S2IH0006",NIL) @@ -4938,7 +4944,7 @@ history l == (|historySpad2Cmd|)))) @ -\subsection{defun historySpad2Cmd} +\defun{historySpad2Cmd} \begin{verbatim} historySpad2Cmd() == -- history is a system command which can call resetInCoreHist @@ -5074,7 +5080,7 @@ historySpad2Cmd() == '|done|))))) @ -\subsection{defun setHistoryCore} +\defun{setHistoryCore} We [[case]] on the [[inCore]] argument value \begin{list}{} \item If history is already on and is kept in the same location as requested @@ -5183,7 +5189,7 @@ setHistoryCore inCore == (|sayKeyedMsg| 'S2IH0031 nil))))) ; use file history @ -\subsection{defun writeInputLines} +\defun{writeInputLines} \begin{verbatim} writeInputLines(fn,initial) == -- writes all input lines into file histInputFileName() @@ -5298,7 +5304,7 @@ writeInputLines(fn,initial) == nil)))))) @ -\subsection{defun resetInCoreHist} +\defun{resetInCoreHist} \begin{verbatim} resetInCoreHist() == -- removes all pointers from $HistList @@ -5321,7 +5327,7 @@ resetInCoreHist() == (rplaca |$HistList| nil)))))))) @ -\subsection{defun changeHistListLen} +\defun{changeHistListLen} \begin{verbatim} changeHistListLen(n) == -- changes the length of $HistList. n must be nonnegative @@ -5371,7 +5377,7 @@ changeHistListLen(n) == '|done|)))))) @ -\subsection{defun updateHist} +\defun{updateHist} \begin{verbatim} updateHist() == -- updates the history file and calls updateInCoreHist @@ -5404,7 +5410,7 @@ updateHist() == (|stopTimingProcess| '|history|)))) @ -\subsection{defun updateInCoreHist} +\defun{updateInCoreHist} \begin{verbatim} updateInCoreHist() == -- updates $HistList and $IOindex @@ -5423,7 +5429,7 @@ updateInCoreHist() == (t nil)))) @ -\subsection{defun putHist} +\defun{putHist} \begin{verbatim} putHist(x,prop,val,e) == -- records new value to $HistRecord and old value to $HistList @@ -5442,7 +5448,7 @@ putHist(x,prop,val,e) == (|putIntSymTab| x prop val e))) @ -\subsection{defun recordNewValue} +\defun{recordNewValue} \begin{verbatim} recordNewValue(x,prop,val) == startTimingProcess 'history @@ -5457,7 +5463,7 @@ recordNewValue(x,prop,val) == (|stopTimingProcess| '|history|))) @ -\subsection{defun recordNewValue0} +\defun{recordNewValue0} \begin{verbatim} recordNewValue0(x,prop,val) == -- writes (prop . val) into $HistRecord @@ -5483,7 +5489,7 @@ recordNewValue0(x,prop,val) == (setq |$HistRecord| (cons p |$HistRecord|))))))) @ -\subsection{defun recordOldValue} +\defun{recordOldValue} \begin{verbatim} recordOldValue(x,prop,val) == startTimingProcess 'history @@ -5498,7 +5504,7 @@ recordOldValue(x,prop,val) == (|stopTimingProcess| '|history|))) @ -\subsection{defun recordOldValue0} +\defun{recordOldValue0} \begin{verbatim} recordOldValue0(x,prop,val) == -- writes (prop . val) into $HistList @@ -5522,7 +5528,7 @@ recordOldValue0(x,prop,val) == (rplaca |$HistList| (cons p (car |$HistList|))))))) @ -\subsection{defun undoInCore} +\defun{undoInCore} \begin{verbatim} undoInCore(n) == -- undoes the last n>0 steps using $HistList @@ -5572,7 +5578,7 @@ undoInCore(n) == (|updateHist|)))))) @ -\subsection{defun undoChanges} +\defun{undoChanges} \begin{verbatim} undoChanges(li) == -- undoes all changes of list 'li' @@ -5604,7 +5610,7 @@ undoChanges(li) == )))))))))))) @ -\subsection{defun undoFromFile} +\defun{undoFromFile} \begin{verbatim} undoFromFile(n) == -- makes a clear and redoes all the assignments until step n @@ -5687,7 +5693,7 @@ undoFromFile(n) == (|updateHist|)))))) @ -\subsection{defun saveHistory} +\defun{saveHistory} \begin{verbatim} saveHistory(fn) == $seen: local := MAKE_-HASHTABLE 'EQ @@ -5763,7 +5769,7 @@ saveHistory(fn) == nil))))))) @ -\subsection{defun restoreHistory} +\defun{restoreHistory} \begin{verbatim} restoreHistory(fn) == -- uses fn $historyFileType to recover an old session @@ -5898,7 +5904,7 @@ restoreHistory(fn) == nil)))))))) @ -\subsection{defun showHistory} +\defun{showHistory} \begin{verbatim} -- the following used to be the show command when that was used to -- show history. @@ -5991,7 +5997,7 @@ showHistory(arg) == (t (|showInput| mini maxi)))))))))) @ -\subsection{defun setIOindex} +\defun{setIOindex} \begin{verbatim} setIOindex(n) == -- set $IOindex to n @@ -6002,7 +6008,7 @@ setIOindex(n) == (setq |$IOindex| n)) @ -\subsection{defun showInput} +\defun{showInput} \begin{verbatim} showInput(mini,maxi) == -- displays all input lines from mini to maxi @@ -6053,7 +6059,7 @@ showInput(mini,maxi) == (cons " " (cons |ln| nil)))))))))))))))) @ -\subsection{defun showInOut} +\defun{showInOut} \begin{verbatim} showInOut(mini,maxi) == -- displays all steps from mini to maxi @@ -6086,7 +6092,7 @@ showInOut(mini,maxi) == (|objValUnwrap| triple) (|objMode| triple))))))))))))) @ -\subsection{defun fetchOutput} +\defun{fetchOutput} \begin{verbatim} fetchOutput(n) == -- result is the output of step n @@ -6135,7 +6141,7 @@ fetchOutput(n) == (t (|throwKeyedMsg| 'S2IH0004 nil)))))) ; history not on @ -\subsection{defun readHiFi} +\defun{readHiFi} \begin{verbatim} readHiFi(n) == -- reads the file using index n @@ -6175,7 +6181,7 @@ readHiFi(n) == vec)))) @ -\subsection{defun writeHiFi} +\defun{writeHiFi} \begin{verbatim} writeHiFi() == -- writes the information of the current step out to history file @@ -6210,7 +6216,7 @@ writeHiFi() == (rshut HiFi)))))) @ -\subsection{defun disableHist} +\defun{disableHist} \begin{verbatim} disableHist() == -- disables the history mechanism if an error occurred in the protected @@ -6226,7 +6232,7 @@ disableHist() == (t nil))) @ -\subsection{defun writeHistModesAndValues} +\defun{writeHistModesAndValues} \begin{verbatim} writeHistModesAndValues() == for [a,:.] in CAAR $InteractiveFrame repeat @@ -6268,7 +6274,7 @@ writeHistModesAndValues() == -- Some types of objects cannot be saved by LISP/VM in lisplibs. -- These functions transform an object to a writable form and back. -- SMW -\subsection{defun SPADRWRITE0} +\defun{SPADRWRITE0} \begin{verbatim} SPADRWRITE0(vec, item, stream) == val := safeWritify item @@ -6287,7 +6293,7 @@ SPADRWRITE0(vec, item, stream) == (t (|rwrite| vec val stream) item)))))) @ -\subsection{defun SPADRWRITE} +\defun{SPADRWRITE} \begin{verbatim} SPADRWRITE(vec, item, stream) == val := SPADRWRITE0(vec, item, stream) @@ -6307,7 +6313,7 @@ SPADRWRITE(vec, item, stream) == (t item)))))) @ -\subsection{defun SPADRREAD} +\defun{SPADRREAD} \begin{verbatim} SPADRREAD(vec, stream) == dewritify rread(vec, stream, nil) @@ -6317,7 +6323,7 @@ SPADRREAD(vec, stream) == (|dewritify| (|rread| vec stream nil))) @ -\subsection{defun unwritable?} +\defun{unwritable?} \begin{verbatim} unwritable? ob == PAIRP ob or VECP ob => false -- first for speed @@ -6336,7 +6342,7 @@ unwritable? ob == (t nil))) @ -\subsection{defun writifyComplain} +\defun{writifyComplain} \begin{verbatim} -- Create a full isomorphic object which can be saved in a lisplib. -- Note that dewritify(writify(x)) preserves UEQUALity of hashtables. @@ -6357,7 +6363,7 @@ writifyComplain s == (|sayKeyedMsg| 'S2IH0027 (cons s nil))))) ; cannot save value @ -\subsection{defun safeWritify} +\defun{safeWritify} \begin{verbatim} safeWritify ob == CATCH('writifyTag, writify ob) @@ -6367,7 +6373,7 @@ safeWritify ob == (catch '|writifyTag| (|writify| ob))) @ -\subsection{defun writify} +\defun{writify} \begin{verbatim} writify ob == not ScanOrPairVec(function(unwritable?), ob) => ob @@ -6613,7 +6619,7 @@ writify ob == (|writify,writifyInner| ob)))))) @ -\subsection{defun spadClosure?} +\defun{spadClosure?} \begin{verbatim} spadClosure? ob == fun := QCAR ob @@ -6637,7 +6643,7 @@ spadClosure? ob == (t name)))))))) @ -\subsection{defun dewritify} +\defun{dewritify} \begin{verbatim} dewritify ob == (not ScanOrPairVec(function is?, ob) @@ -6869,7 +6875,7 @@ dewritify ob == (|dewritify,dewritifyInner| ob)))))) @ -\subsection{defun ScanOrPairVec} +\defun{ScanOrPairVec} \begin{verbatim} ScanOrPairVec(f, ob) == $seen: local := MAKE_-HASHTABLE 'EQ @@ -6925,7 +6931,7 @@ ScanOrPairVec(f, ob) == (catch '|ScanOrPairVecAnswer| (|ScanOrPairVec,ScanOrInner| f ob)))))) @ -\subsection{defun gensymInt} +\defun{gensymInt} \begin{verbatim} gensymInt g == not GENSYMP g => error '"Need a GENSYM" @@ -6953,7 +6959,7 @@ gensymInt g == n)))))) @ -\subsection{defun charDigitVal} +\defun{charDigitVal} \begin{verbatim} charDigitVal c == digits := '"0123456789" @@ -6983,7 +6989,7 @@ charDigitVal c == (t n))))))) @ -\subsection{defun histFileErase} +\defun{histFileErase} \begin{verbatim} histFileErase file == --OBEY STRCONC('"rm -rf ", file) @@ -7098,7 +7104,7 @@ The \verb|)include| command can be used in \verb|.input| files to place the contents of another file inline with the current file. The path can be an absolute or relative pathname. -\subsection{defun ncloopInclude1} +\defun{ncloopInclude1} <>= (defun |ncloopInclude1| (name n) (let (a) @@ -7107,7 +7113,7 @@ The path can be an absolute or relative pathname. n))) @ -\subsection{defun ncloopIncFileName} +\defun{ncloopIncFileName} Returns the first non-blank substring of the given string. <>= (defun |ncloopIncFileName| (string) @@ -7118,7 +7124,7 @@ Returns the first non-blank substring of the given string. @ -\subsection{defun ncloopInclude} +\defun{ncloopInclude} Open the file and read it in. The ncloopInclude0 function is part of the parser and lives in int-top.boot. <>= @@ -7127,7 +7133,7 @@ of the parser and lives in int-top.boot. @ -\subsection{defun incFileName} +\defun{incFileName} Given a string we return the first token from the string which is the first non-blank substring. <>= @@ -7136,7 +7142,7 @@ the first non-blank substring. @ -\subsection{defun incBiteOff} +\defun{incBiteOff} Takes a sequence and returns the a list of the first token and the remaining string characters. If there are no remaining string characters the second string is of length 0. Effectively it "bites off" the first @@ -7337,13 +7343,13 @@ will be displayed and, indeed, Axiom would still be running. \fnref{quit}, and \fnref{system} -\subsection{defun pquit} +\defun{pquit} <>= (defun |pquit| () (|pquitSpad2Cmd|)) @ -\subsection{defun pquitSpad2Cmd} +\defun{pquitSpad2Cmd} <>= (defun |pquitSpad2Cmd| () (let ((|$quitCommandType| '|protected|)) @@ -7403,12 +7409,12 @@ executed when you press, say, a function key. \fnref{pquit}, and \fnref{system} -\subsection{defun quit} +\defun{quit} <>= (defun |quit| () (|quitSpad2Cmd|)) @ -\subsection{defun quitSpad2Cmd} +\defun{quitSpad2Cmd} <>= (defun |quitSpad2Cmd| () (if (eq |$quitCommandType| '|protected|) @@ -7422,7 +7428,7 @@ executed when you press, say, a function key. @ -\subsection{defun leaveScratchpad} +\defun{leaveScratchpad} <>= (defun |leaveScratchpad| () (bye)) @@ -7598,7 +7604,7 @@ for system. For more information, issue )help set . \end{verbatim} \section{)set list functions} -\subsection{defun initializeSetVariables} +\defun{initializeSetVariables} The argument settree is initially the \verb|$setOption| variable. The fourth element is a union-style switch symbol. The fifth element is usually a variable to set. @@ -7621,7 +7627,7 @@ explanations see the list structure section \ref{Theliststructure}. @ -\subsection{defun resetWorkspaceVariables} +\defun{resetWorkspaceVariables} <>= (defun |resetWorkspaceVariables| () (setq /countlist nil) @@ -7652,7 +7658,7 @@ explanations see the list structure section \ref{Theliststructure}. @ -\subsection{defun displaySetOptionInformation} +\defun{displaySetOptionInformation} <>= (defun |displaySetOptionInformation| (arg setdata) (let (current) @@ -7668,10 +7674,9 @@ explanations see the list structure section \ref{Theliststructure}. (case (fourth setdata) (FUNCTION (terpri) - (cond - ((|functionp| (fifth setdata)) - (funcall (fifth setdata) '|%describe%|)) - (t (|sayMSG| " Function not implemented.")))) + (if (|functionp| (fifth setdata)) + (funcall (fifth setdata) '|%describe%|) + (|sayMSG| " Function not implemented."))) (INTEGER (|sayMessage| `(" The" ,@(|bright| arg) "option" @@ -7699,13 +7704,13 @@ explanations see the list structure section \ref{Theliststructure}. @ -\subsection{defun displaySetVariableSettings} +\defun{displaySetVariableSettings} <>= (defun |displaySetVariableSettings| (settree label) - (let (setoption st opt subtree subname) - (cond - ((eq label '||) (setq label ")set")) - (t (setq label (strconc " " (|object2String| label) " ")))) + (let (setoption opt subtree subname) + (if (eq label '||) + (setq label ")set") + (setq label (strconc " " (|object2String| label) " "))) (|centerAndHighlight| (strconc "Current Values of" label " Variables") $linelength '| |) (terpri) @@ -7724,7 +7729,6 @@ explanations see the list structure section \ref{Theliststructure}. (setq setoption (strconc setoption (|fillerSpaces| (spaddifference 55 (|#| setoption)) " "))) - (setq st (fourth setdata)) (case (fourth setdata) (FUNCTION (setq opt @@ -7764,7 +7768,7 @@ explanations see the list structure section \ref{Theliststructure}. @ -\subsection{defun translateYesNo2TrueFalse} +\defun{translateYesNo2TrueFalse} <>= (defun |translateYesNo2TrueFalse| (x) (cond @@ -7774,7 +7778,7 @@ explanations see the list structure section \ref{Theliststructure}. @ -\subsection{defun translateTrueFalse2YesNo} +\defun{translateTrueFalse2YesNo} <>= (defun |translateTrueFalse2YesNo| (x) (cond @@ -7905,7 +7909,7 @@ args arguments for compiling AXIOM code |htSetOutputLibrary| ) @ -\subsection{defun setOutputLibrary} +\defun{setOutputLibrary} <>= (defun |setOutputLibrary| (arg) (let (fn) @@ -7921,7 +7925,7 @@ args arguments for compiling AXIOM code @ -\subsection{defun describeOutputLibraryArgs} +\defun{describeOutputLibraryArgs} <>= (defun |describeOutputLibraryArgs| () (|sayBrightly| (list @@ -7934,7 +7938,7 @@ args arguments for compiling AXIOM code @ -\subsection{defun openOutputLibrary} +\defun{openOutputLibrary} The input-libraries and output-library are now truename based. <>= (defun |openOutputLibrary| (lib) @@ -7967,7 +7971,7 @@ The input-libraries and output-library are now truename based. |htSetInputLibrary|) @ -\subsection{defun setInputLibrary} +\defun{setInputLibrary} The input-libraries is now maintained as a list of truenames. <>= (defun |setInputLibrary| (arg) @@ -7995,7 +7999,7 @@ The input-libraries is now maintained as a list of truenames. @ -\subsection{defun describeInputLibraryArgs} +\defun{describeInputLibraryArgs} <>= (defun |describeInputLibraryArgs| () (|sayBrightly| (list @@ -8013,7 +8017,7 @@ The input-libraries is now maintained as a list of truenames. @ -\subsection{defun addInputLibrary} +\defun{addInputLibrary} The input-libraries variable is now maintained as a list of truenames. <>= (defun |addInputLibrary| (lib) @@ -8023,7 +8027,7 @@ The input-libraries variable is now maintained as a list of truenames. @ -\subsection{defun dropInputLibrary} +\defun{dropInputLibrary} <>= (defun |dropInputLibrary| (lib) (declare (special input-libraries)) @@ -8060,7 +8064,7 @@ The input-libraries variable is now maintained as a list of truenames. NIL) @ -\subsection{defun setAsharpArgs} +\defun{setAsharpArgs} <>= (defun |setAsharpArgs| (arg) (cond @@ -8074,7 +8078,7 @@ The input-libraries variable is now maintained as a list of truenames. @ -\subsection{defun describeAsharpArgs} +\defun{describeAsharpArgs} <>= (defun |describeAsharpArgs| () (|sayBrightly| (list @@ -8129,6 +8133,258 @@ The input-libraries variable is now maintained as a list of truenames. NIL |htSetExpose|) @ + +\defun{setExpose} +<>= +(defun |setExpose| (arg) + (let (fnargs fn) + (cond + ((eq arg '|%initialize%|) (|loadExposureGroupData|)) + ((eq arg '|%display%|) "...") + ((or (null arg) (eq arg '|%describe%|) (eq (car arg) '?)) + (|displayExposedGroups|) + (|sayMSG| " ") + (|displayExposedConstructors|) + (|sayMSG| " ") + (|displayHiddenConstructors|) + (|sayMSG| " ") + (|sayKeyedMsg| 's2iz0049d + (list (|namestring| (|pathname| (list '|interp| '|exposed|)))))) + ((and (pairp arg) + (progn (setq fn (qcar arg)) (setq fnargs (qcdr arg)) t) + (setq fn (|selectOptionLC| fn '(|add| |drop| |initialize|) nil))) + (cond + ((eq fn '|add|) (|setExposeAdd| fnargs)) + ((eq fn '|drop|) (|setExposeDrop| fnargs)) + ((eq fn '|initialize|) (|setExpose| '|%initialize%|)) + (t nil))) + (t (|setExpose| nil))))) + +@ + +\defun{setExposeAdd} +<>= +(defun |setExposeAdd| (arg) + (declare (special $linelength)) + (let (fnargs fn) + (cond + ((null arg) + (|centerAndHighlight| + '|The add Option| $linelength (|specialChar| '|hbar|)) + (|displayExposedGroups|) + (|sayMSG| " ") + (|displayExposedConstructors|) + (|sayMSG| " ") + (|sayKeyedMsg| 's2iz0049e nil)) + ((and (pairp arg) + (progn (setq fn (qcar arg)) (setq fnargs (qcdr arg)) t) + (setq fn (|selectOptionLC| fn '(|group| |constructor|) nil))) + (cond + ((eq fn '|group|) (|setExposeAddGroup| fnargs)) + ((eq fn '|constructor|) (|setExposeAddConstr| fnargs)) + (t nil))) + (t (|setExposeAdd| nil))))) + +@ + +\defun{setExposeAddGroup} +Note that \verb|$localExposureData| is a vector of lists. +It consists of [exposed groups,exposed constructors,hidden constructors] +<>= +(defun |setExposeAddGroup| (arg) + (declare (special |$globalExposureGroupAlist| |$localExposureData| + |$interpreterFrameName| $linelength)) + (if (null arg) + (progn + (|centerAndHighlight| + '|The group Option| $linelength (|specialChar| '|hbar|)) + (|displayExposedGroups|) + (|sayMSG| " ") + (|sayKeyedMsg| 's2iz0049g + (list (|namestring| (|pathname| (list '|interp| '|exposed| ))))) + (|sayMSG| " ") + (|sayAsManyPerLineAsPossible| + (mapcar #'(lambda (x) (|object2String| (first x))) + |$globalExposureGroupAlist|))) + (dolist (x arg) + (when (pairp x) (setq x (qcar x))) + (cond + ((eq x '|all|) + (setelt |$localExposureData| 0 + (mapcar #'first |$globalExposureGroupAlist|)) + (setelt |$localExposureData| 1 nil) + (setelt |$localExposureData| 2 nil) + (|displayExposedGroups|) + (|sayMSG| " ") + (|displayExposedConstructors|) + (|sayMSG| " ") + (|displayHiddenConstructors|) + (|clearClams|)) + ((null (getalist |$globalExposureGroupAlist| x)) + (|sayKeyedMsg| 's2iz0049h (cons x nil))) + ((|member| x (elt |$localExposureData| 0)) + (|sayKeyedMsg| 's2iz0049i (list x |$interpreterFrameName|))) + (t + (setelt |$localExposureData| 0 + (msort (cons x (elt |$localExposureData| 0)))) + (|sayKeyedMsg| 's2iz0049r (list x |$interpreterFrameName|)) + (|clearClams|)))))) + +@ + +\defun{setExposeAddConstr} +<>= +(defun |setExposeAddConstr| (arg) + (declare (special $linelength |$localExposureData| |$interpreterFrameName|)) + (if (null arg) + (progn + (|centerAndHighlight| + '|The constructor Option| $linelength (|specialChar| '|hbar|)) + (|displayExposedConstructors|)) + (dolist (x arg) + (setq x (|unabbrev| x)) + (when (pairp x) (setq x (qcar x))) + (cond + ((null (getdatabase x 'constructorkind)) + (|sayKeyedMsg| 's2iz0049j (list x))) + ((|member| x (elt |$localExposureData| 1)) + (|sayKeyedMsg| 's2iz0049k (list x |$interpreterFrameName| ))) + (t + (when (|member| x (elt |$localExposureData| 2)) + (setelt |$localExposureData| 2 + (|delete| x (elt |$localExposureData| 2)))) + (setelt |$localExposureData| 1 + (msort (cons x (elt |$localExposureData| 1)))) + (|clearClams|) + (|sayKeyedMsg| 's2iz0049p (list x |$interpreterFrameName| ))))))) + +@ + +\defun{setExposeDrop} +<>= +(defun |setExposeDrop| (arg) + (declare (special $linelength)) + (let (fnargs fn) + (cond + ((null arg) + (|centerAndHighlight| + '|The drop Option| $linelength (|specialChar| '|hbar|)) + (|displayHiddenConstructors|) + (|sayMSG| " ") + (|sayKeyedMsg| 's2iz0049f nil)) + ((and (pairp arg) + (progn (setq fn (qcar arg)) (setq fnargs (qcdr arg)) t) + (setq fn (|selectOptionLC| fn '(|group| |constructor|) nil))) + (cond + ((eq fn '|group|) (|setExposeDropGroup| fnargs)) + ((eq fn '|constructor|) (|setExposeDropConstr| fnargs)) + (t nil))) + (t (|setExposeDrop| nil))))) + +@ + +\defun{setExposeDropGroup} +<>= +(defun |setExposeDropGroup| (arg) + (declare (special $linelength |$localExposureData| |$interpreterFrameName| + |$globalExposureGroupAlist|)) + (if (null arg) + (progn + (|centerAndHighlight| + '|The group Option| $linelength (|specialChar| '|hbar|)) + (|sayKeyedMsg| 's2iz0049l nil) + (|sayMSG| " ") + (|displayExposedGroups|)) + (dolist (x arg) + (when (pairp x) (setq x (qcar x))) + (cond + ((eq x '|all|) + (setelt |$localExposureData| 0 nil) + (setelt |$localExposureData| 1 nil) + (setelt |$localExposureData| 2 nil) + (|displayExposedGroups|) + (|sayMSG| " ") + (|displayExposedConstructors|) + (|sayMSG| " ") + (|displayHiddenConstructors|) + (|clearClams|)) + ((|member| x (elt |$localExposureData| 0)) + (setelt |$localExposureData| 0 + (|delete| x (elt |$localExposureData| 0))) + (|clearClams|) + (|sayKeyedMsg| 's2iz0049s (list x |$interpreterFrameName| ))) + ((getalist |$globalExposureGroupAlist| x) + (|sayKeyedMsg| 's2iz0049i) (list x |$interpreterFrameName| )) + (t (|sayKeyedMsg| 's2iz0049h (list x ))))))) + +@ +\defun{setExposeDropConstr} +<>= +(defun |setExposeDropConstr| (arg) + (declare (special $linelength |$localExposureData| |$interpreterFrameName|)) + (if (null arg) + (progn + (|centerAndHighlight| + '|The constructor Option| $linelength (|specialChar| '|hbar|)) + (|sayKeyedMsg| 's2iz0049n nil) + (|sayMSG| " ") + (|displayExposedConstructors|) + (|sayMSG| " ") + (|displayHiddenConstructors|)) + (dolist (x arg) + (setq x (|unabbrev| x)) + (when (pairp x) (setq x (qcar x))) + (cond + ((null (getdatabase x 'constructorkind)) + (|sayKeyedMsg| 's2iz0049j (list x))) + ((|member| x (elt |$localExposureData| 2)) + (|sayKeyedMsg| 's2iz0049o (list x |$interpreterFrameName|))) + (t + (when (|member| x (elt |$localExposureData| 1)) + (setelt |$localExposureData| 1 + (|delete| x (elt |$localExposureData| 1)))) + (setelt |$localExposureData| 2 + (msort (cons x (elt |$localExposureData| 2)))) + (|clearClams|) + (|sayKeyedMsg| 's2iz0049q (list x |$interpreterFrameName|))))))) + +@ + +\defun{displayExposedGroups} +<>= +(defun |displayExposedGroups| () + (declare (special |$interpreterFrameName| |$localExposureData|)) + (|sayKeyedMsg| 's2iz0049a (list |$interpreterFrameName|)) + (if (null (elt |$localExposureData| 0)) + (|centerAndHighlight| "there are no exposed groups") + (dolist (c (elt |$localExposureData| 0)) + (|centerAndHighlight| c)))) + +@ + +\defun{displayExposedConstructors} +<>= +(defun |displayExposedConstructors| () + (declare (special |$localExposureData|)) + (|sayKeyedMsg| 's2iz0049b nil) + (if (null (elt |$localExposureData| 1)) + (|centerAndHighlight| "there are no explicitly exposed constructors") + (dolist (c (elt |$localExposureData| 1)) + (|centerAndHighlight| c)))) + +@ + +\defun{displayHiddenConstructors} +<>= +(defun |displayHiddenConstructors| () + (declare (special |$localExposureData|)) + (|sayKeyedMsg| 's2iz0049c nil) + (if (null (elt |$localExposureData| 2)) + (|centerAndHighlight| "there are no explicitly hidden constructors") + (dolist (c (elt |$localExposureData| 2)) + (|centerAndHighlight| c)))) + +@ \section{functions} \begin{verbatim} Current Values of functions Variables @@ -10306,13 +10562,13 @@ prettyprint prettyprint BOOT func's as they compile off \section{Set code} -\subsection{defun set} +\defun{set} <>= (defun |set| (l) (|set1| l |$setOptions|)) @ -\subsection{defun set1} +\defun{set1} This function will be called with the top level arguments to )set. For instance, given the command \begin{verbatim} @@ -10538,7 +10794,7 @@ Axiom or is the directory you specified using the \cmdhead{summary} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\subsection{defun summary} +\defun{summary} <>= (defun |summary| (l) (obey (strconc "cat " (|getEnv| "AXIOM") "/lib/summary"))) @@ -10958,14 +11214,14 @@ This reports the traced functions @ -\subsection{defun trace} +\defun{trace} <>= (defun |trace| (l) (|traceSpad2Cmd| l)) @ -\subsection{defun traceSpad2Cmd} +\defun{traceSpad2Cmd} \begin{verbatim} ;traceSpad2Cmd l == ; if l is ['Tuple, l1] then l := l1 @@ -10994,7 +11250,7 @@ This reports the traced functions @ -\subsection{defun trace1} +\defun{trace1} \begin{verbatim} ;trace1 l == ; $traceNoisely: local := NIL @@ -11222,7 +11478,7 @@ This reports the traced functions @ -\subsection{defun getTraceOptions} +\defun{getTraceOptions} \begin{verbatim} ;getTraceOptions options == ; $traceErrorStack: local := nil @@ -11269,7 +11525,7 @@ This reports the traced functions @ -\subsection{defun saveMapSig} +\defun{saveMapSig} \begin{verbatim} ;saveMapSig(funNames) == ; for name in funNames repeat @@ -11296,7 +11552,7 @@ This reports the traced functions @ -\subsection{defun getMapSig} +\defun{getMapSig} \begin{verbatim} ;getMapSig(mapName,subName) == ; lmms:= get(mapName,'localModemap,$InteractiveFrame) => @@ -11326,7 +11582,7 @@ This reports the traced functions @ -\subsection{defun getTraceOption} +\defun{getTraceOption} \begin{verbatim} ;getTraceOption (x is [key,:l]) == ; key:= selectOptionLC(key,$traceOptionList,'traceOptionError) @@ -11537,7 +11793,7 @@ This reports the traced functions @ -\subsection{defun traceOptionError} +\defun{traceOptionError} \begin{verbatim} ;traceOptionError(opt,keys) == ; null keys => stackTraceOptionError ["S2IT0007",[opt]] @@ -11554,7 +11810,7 @@ This reports the traced functions @ -\subsection{defun resetTimers} +\defun{resetTimers} \begin{verbatim} ;resetTimers () == ; for timer in _/TIMERLIST repeat @@ -11572,7 +11828,7 @@ This reports the traced functions @ -\subsection{defun resetSpacers} +\defun{resetSpacers} \begin{verbatim} ;resetSpacers () == ; for spacer in _/SPACELIST repeat @@ -11589,7 +11845,7 @@ This reports the traced functions (set (intern (strconc |spacer| ",SPACE")) 0)))))) @ -\subsection{defun resetCounters} +\defun{resetCounters} \begin{verbatim} ;resetCounters () == ; for k in _/COUNTLIST repeat @@ -11607,7 +11863,7 @@ This reports the traced functions @ -\subsection{defun ptimers} +\defun{ptimers} \begin{verbatim} ;ptimers() == ; null _/TIMERLIST => sayBrightly '" no functions are timed" @@ -11640,7 +11896,7 @@ This reports the traced functions @ -\subsection{defun pspacers} +\defun{pspacers} \begin{verbatim} ;pspacers() == ; null _/SPACELIST => sayBrightly '" no functions have space monitored" @@ -11671,7 +11927,7 @@ This reports the traced functions @ -\subsection{defun pcounters} +\defun{pcounters} \begin{verbatim} ;pcounters() == ; null _/COUNTLIST => sayBrightly '" no functions are being counted" @@ -11702,7 +11958,7 @@ This reports the traced functions @ -\subsection{defun transOnlyOption} +\defun{transOnlyOption} \begin{verbatim} ;transOnlyOption l == ; l is [n,:y] => @@ -11733,7 +11989,7 @@ This reports the traced functions @ -\subsection{defun stackTraceOptionError} +\defun{stackTraceOptionError} <>= (defun |stackTraceOptionError| (x) (push x |$traceErrorStack|) @@ -11741,7 +11997,7 @@ This reports the traced functions @ -\subsection{defun removeOption} +\defun{removeOption} \begin{verbatim} ;removeOption(op,options) == ; [optEntry for (optEntry:=[opt,:.]) in options | opt ^= op] @@ -11767,7 +12023,7 @@ This reports the traced functions @ -\subsection{defun domainToGenvar} +\defun{domainToGenvar} \begin{verbatim} ;domainToGenvar x == ; $doNotAddEmptyModeIfTrue: local:= true @@ -11793,7 +12049,7 @@ This reports the traced functions @ -\subsection{defun genDomainTraceName} +\defun{genDomainTraceName} \begin{verbatim} ;genDomainTraceName y == ; u:= LASSOC(y,$domainTraceNameAssoc) => u @@ -11816,7 +12072,7 @@ This reports the traced functions @ -\subsection{defun untrace} +\defun{untrace} \begin{verbatim} ;--this is now called from trace with the )off option ;untrace l == @@ -11860,7 +12116,7 @@ This reports the traced functions @ -\subsection{defun transTraceItem} +\defun{transTraceItem} \begin{verbatim} ;transTraceItem x == ; $doNotAddEmptyModeIfTrue: local:=true @@ -11913,7 +12169,7 @@ This reports the traced functions @ -\subsection{defun removeTracedMapSigs} +\defun{removeTracedMapSigs} \begin{verbatim} ;removeTracedMapSigs untraceList == ; for name in untraceList repeat @@ -11931,7 +12187,7 @@ This reports the traced functions @ -\subsection{defun coerceTraceArgs2E} +\defun{coerceTraceArgs2E} \begin{verbatim} ;coerceTraceArgs2E(traceName,subName,args) == ; MEMQ(name:= subName,$mathTraceList) => @@ -11989,7 +12245,7 @@ This reports the traced functions @ -\subsection{defun coerceSpadArgs2E} +\defun{coerceSpadArgs2E} \begin{verbatim} ;coerceSpadArgs2E(args) == ; -- following binding is to prevent forcing calculation of stream elements @@ -12039,7 +12295,7 @@ This reports the traced functions @ -\subsection{defun subTypes} +\defun{subTypes} \begin{verbatim} ;subTypes(mm,sublist) == ; ATOM mm => @@ -12068,7 +12324,7 @@ This reports the traced functions @ -\subsection{defun coerceTraceFunValue2E} +\defun{coerceTraceFunValue2E} \begin{verbatim} ;coerceTraceFunValue2E(traceName,subName,value) == ; MEMQ(name:= subName,$mathTraceList) => @@ -12097,7 +12353,7 @@ This reports the traced functions @ -\subsection{defun coerceSpadFunValue2E} +\defun{coerceSpadFunValue2E} \begin{verbatim} ;coerceSpadFunValue2E(value) == ; -- following binding is to prevent forcing calculation of stream elements @@ -12120,7 +12376,7 @@ This reports the traced functions @ -\subsection{defun isListOfIdentifiers} +\defun{isListOfIdentifiers} \begin{verbatim} ;isListOfIdentifiers l == and/[IDENTP x for x in l] \end{verbatim} @@ -12141,7 +12397,7 @@ This reports the traced functions @ -\subsection{defun isListOfIdentifiersOrStrings} +\defun{isListOfIdentifiersOrStrings} \begin{verbatim} ;isListOfIdentifiersOrStrings l == and/[IDENTP x or STRINGP x for x in l] \end{verbatim} @@ -12162,7 +12418,7 @@ This reports the traced functions @ -\subsection{defun getMapSubNames} +\defun{getMapSubNames} \begin{verbatim} ;getMapSubNames(l) == ; subs:= nil @@ -12206,7 +12462,7 @@ This reports the traced functions @ -\subsection{defun getPreviousMapSubNames} +\defun{getPreviousMapSubNames} \begin{verbatim} ;getPreviousMapSubNames(traceNames) == ; subs:= nil @@ -12248,7 +12504,7 @@ This reports the traced functions @ -\subsection{defun lassocSub} +\defun{lassocSub} \begin{verbatim} ;lassocSub(x,subs) == ; y:= LASSQ(x,subs) => y @@ -12265,7 +12521,7 @@ This reports the traced functions @ -\subsection{defun rassocSub} +\defun{rassocSub} \begin{verbatim} ;rassocSub(x,subs) == ; y:= RASSOC(x,subs) => y @@ -12282,7 +12538,7 @@ This reports the traced functions @ -\subsection{defun isUncompiledMap} +\defun{isUncompiledMap} \begin{verbatim} ;isUncompiledMap(x) == ; y:= get(x,'value,$InteractiveFrame) => @@ -12303,7 +12559,7 @@ This reports the traced functions @ -\subsection{defun isInterpOnlyMap} +\defun{isInterpOnlyMap} \begin{verbatim} ;isInterpOnlyMap(map) == ; x:= get(map,'localModemap,$InteractiveFrame) => @@ -12322,7 +12578,7 @@ This reports the traced functions @ -\subsection{defun augmentTraceNames} +\defun{augmentTraceNames} \begin{verbatim} ;augmentTraceNames(l,mapSubNames) == ; res:= nil @@ -12364,7 +12620,7 @@ This reports the traced functions |res|))))) @ -\subsection{defun isSubForRedundantMapName} +\defun{isSubForRedundantMapName} \begin{verbatim} ;isSubForRedundantMapName(subName) == ; mapName:= rassocSub(subName,$mapSubNameAlist) => @@ -12388,7 +12644,7 @@ This reports the traced functions @ -\subsection{defun untraceMapSubNames} +\defun{untraceMapSubNames} \begin{verbatim} ;untraceMapSubNames traceNames == ; null($mapSubNameAlist:local:= getPreviousMapSubNames traceNames) => nil @@ -12423,7 +12679,7 @@ This reports the traced functions @ -\subsection{defmacro funfind} +\defmacro{funfind} \begin{verbatim} ;funfind("functor","opname") == ; ops:= isFunctor functor @@ -12455,12 +12711,13 @@ This reports the traced functions <>= (defmacro |funfind| (&whole t0 &rest notused &aux t1) + (declare (ignore notused)) (dsetq t1 t0) (cons '|funfind,LAM| (vmlisp::wrap (cdr t1) '(quote quote)))) @ -\subsection{defun isDomainOrPackage} +\defun{isDomainOrPackage} \begin{verbatim} ;isDomainOrPackage dom == ; REFVECP dom and #dom>0 and isFunctor opOf dom.(0) @@ -12475,14 +12732,14 @@ This reports the traced functions @ -\subsection{defun isTraceGensym} +\defun{isTraceGensym} <>= (defun |isTraceGensym| (x) (gensymp x)) @ -\subsection{defun spadTrace} +\defun{spadTrace} \begin{verbatim} ;spadTrace(domain,options) == ; $fromSpadTrace:= true @@ -12724,7 +12981,7 @@ This reports the traced functions @ -\subsection{defun traceDomainLocalOps} +\defun{traceDomainLocalOps} \begin{verbatim} ;traceDomainLocalOps(dom,lops,options) == ; sayMSG ['" ",'"The )local option has been withdrawn"] @@ -12741,7 +12998,7 @@ This reports the traced functions @ -\subsection{defun untraceDomainLocalOps} +\defun{untraceDomainLocalOps} \begin{verbatim} ;-- abb := abbreviate dom ;-- loadLibIfNotLoaded abb @@ -12773,7 +13030,7 @@ This reports the traced functions @ -\subsection{defun untraceAllDomainLocalOps} +\defun{untraceAllDomainLocalOps} \begin{verbatim} ;-- lops = "all" => untraceAllDomainLocalOps(dom) ;-- abb := abbreviate dom @@ -12798,7 +13055,7 @@ This reports the traced functions @ -\subsection{defun traceDomainConstructor} +\defun{traceDomainConstructor} \begin{verbatim} ;-- abb := abbreviate dom ;-- actualLops := getLocalOpsFromLisplib abb @@ -12895,7 +13152,7 @@ This reports the traced functions @ -\subsection{defun untraceDomainConstructor} +\defun{untraceDomainConstructor} \begin{verbatim} ;untraceDomainConstructor domainConstructor == ; --untrace all the domains in domainConstructor, and unembed it @@ -12956,7 +13213,7 @@ This reports the traced functions @ -\subsection{defun flattenOperationAlist} +\defun{flattenOperationAlist} \begin{verbatim} ;flattenOperationAlist(opAlist) == ; res:= nil @@ -12996,7 +13253,7 @@ This reports the traced functions @ -\subsection{defun mapLetPrint} +\defun{mapLetPrint} \begin{verbatim} ;mapLetPrint(x,val,currentFunction) == ; x:= getAliasIfTracedMapParameter(x,currentFunction) @@ -13012,7 +13269,7 @@ This reports the traced functions @ -\subsection{defun letPrint} +\defun{letPrint} \begin{verbatim} ;-- This is the version for use when we have no idea ;-- what print representation to use for the data object @@ -13067,7 +13324,7 @@ This reports the traced functions @ -\subsection{defun letPrint2} +\defun{letPrint2} \begin{verbatim} ;-- This is the version for use when we have already ;-- converted the data into type "Expression" @@ -13129,7 +13386,7 @@ This reports the traced functions @ -\subsection{defun letPrint3} +\defun{letPrint3} \begin{verbatim} ;-- This is the version for use when we have our hands on a function ;-- to convert the data into type "Expression" @@ -13193,7 +13450,7 @@ This reports the traced functions x)))) @ -\subsection{defun getAliasIfTracedMapParameter} +\defun{getAliasIfTracedMapParameter} \begin{verbatim} ;getAliasIfTracedMapParameter(x,currentFunction) == ; isSharpVarWithNum x => @@ -13220,7 +13477,7 @@ This reports the traced functions @ -\subsection{defun getBpiNameIfTracedMap} +\defun{getBpiNameIfTracedMap} \begin{verbatim} ;getBpiNameIfTracedMap(name) == ; lmm:= get(name,'localModemap,$InteractiveFrame) => @@ -13242,7 +13499,7 @@ This reports the traced functions @ -\subsection{defun hasPair} +\defun{hasPair} \begin{verbatim} ;hasPair(key,l) == ; atom l => nil @@ -13267,7 +13524,7 @@ This reports the traced functions @ -\subsection{defun shortenForPrinting} +\defun{shortenForPrinting} \begin{verbatim} ;shortenForPrinting val == ; isDomainOrPackage val => devaluate val @@ -13282,7 +13539,7 @@ This reports the traced functions @ -\subsection{defun spadTraceAlias} +\defun{spadTraceAlias} \begin{verbatim} ;spadTraceAlias(domainId,op,n) == ; INTERNL(domainId,".",op,",",STRINGIMAGE n) @@ -13294,7 +13551,7 @@ This reports the traced functions @ -\subsection{defun getOption} +\defun{getOption} \begin{verbatim} ;getOption(opt,l) == ; y:= ASSOC(opt,l) => rest y @@ -13309,7 +13566,7 @@ This reports the traced functions @ -\subsection{defun reportSpadTrace} +\defun{reportSpadTrace} \begin{verbatim} ;reportSpadTrace(header,[op,sig,n,:t]) == ; null $traceNoisely => nil @@ -13358,7 +13615,7 @@ This reports the traced functions @ -\subsection{defun orderBySlotNumber} +\defun{orderBySlotNumber} \begin{verbatim} ;orderBySlotNumber l == ; ASSOCRIGHT orderList [ [n,:x] for (x:= [.,.,n,:.]) in l] @@ -13385,7 +13642,7 @@ This reports the traced functions @ -\subsection{defun /tracereply} +\defun{/tracereply} \begin{verbatim} ;_/TRACEREPLY() == ; null _/TRACENAMES => MAKESTRING '" Nothing is traced." @@ -13420,7 +13677,7 @@ This reports the traced functions @ -\subsection{defun spadReply} +\defun{spadReply} \begin{verbatim} ;spadReply() == ; [printName x for x in _/TRACENAMES] where @@ -13457,7 +13714,7 @@ This reports the traced functions @ -\subsection{defun spadUntrace} +\defun{spadUntrace} \begin{verbatim} ;spadUntrace(domain,options) == ; not isDomainOrPackage domain => userError '"bad argument to untrace" @@ -13553,7 +13810,7 @@ This reports the traced functions (|spadReply|))))))))))) @ -\subsection{defun prTraceNames} +\defun{prTraceNames} \begin{verbatim} ;prTraceNames() == ; (for x in _/TRACENAMES repeat PRINT fn x; nil) where @@ -13587,7 +13844,7 @@ This reports the traced functions @ -\subsection{defun traceReply} +\defun{traceReply} \begin{verbatim} ;traceReply() == ; $domains: local:= nil @@ -13745,7 +14002,7 @@ This reports the traced functions @ -\subsection{defun addTraceItem} +\defun{addTraceItem} \begin{verbatim} ;addTraceItem d == ; constructor? d => $constructors:=[d,:$constructors] @@ -13765,7 +14022,7 @@ This reports the traced functions @ -\subsection{defun ?t} +\defun{?t} \begin{verbatim} ;_?t() == ; null _/TRACENAMES => sayMSG bright '"nothing is traced" @@ -13830,7 +14087,7 @@ This reports the traced functions (terpri))))))))))))) @ -\subsection{defun tracelet} +\defun{tracelet} \begin{verbatim} ;tracelet(fn,vars) == ; if GENSYMP fn and stupidIsSpadFunction EVAL fn then @@ -13888,7 +14145,7 @@ This reports the traced functions (|delete| |fn| |$traceletFunctions|))))))))))) @ -\subsection{defun breaklet} +\defun{breaklet} \begin{verbatim} ;breaklet(fn,vars) == ; --vars is "all" or a list of variables @@ -13953,7 +14210,7 @@ This reports the traced functions (|delete| |fn| |$traceletFunctions|))))))))))) @ -\subsection{defun stupidIsSpadFunction} +\defun{stupidIsSpadFunction} \begin{verbatim} ;stupidIsSpadFunction fn == ; -- returns true if the function pname has a semi-colon in it @@ -13967,7 +14224,7 @@ This reports the traced functions @ -\subsection{defun break} +\defun{break} \begin{verbatim} ;break msg == ; condition:= MONITOR_,EVALTRAN(_/BREAKCONDITION,nil) @@ -13991,7 +14248,7 @@ This reports the traced functions (cond ((eval |condition|) (progn (|sayBrightly| |msg|) (interrupt)))))))) @ -\subsection{defun compileBoot} +\defun{compileBoot} \begin{verbatim} ;compileBoot fn == _/D_,1(LIST fn,'(_/COMP),nil,nil) \end{verbatim} @@ -14112,7 +14369,7 @@ $previousBindings := nil (defvar |$previousBindings| nil "a copy of Interactive Frame info for undo") (defvar |$reportUndo| nil "t means we report the steps undo takes") @ -\subsection{defun undo} +\defun{undo} \begin{verbatim} undo(l) == --undo takes one option ")redo" which simply reads "redo.input", @@ -14170,7 +14427,7 @@ undo(l) == nil)))) @ -\subsection{defun recordFrame} +\defun{recordFrame} \begin{verbatim} recordFrame(systemNormal) == null $undoFlag => nil --do nothing if facility is turned off @@ -14231,7 +14488,7 @@ recordFrame(systemNormal) == (car |$frameRecord|))))))) @ -\subsection{defun diffAlist} +\defun{diffAlist} \begin{verbatim} diffAlist(new,old) == --record only those properties which are different @@ -14373,7 +14630,7 @@ diffAlist(new,old) == (exit res))))))) @ -\subsection{defun reportUndo} +\defun{reportUndo} This function is enabled by setting [[|$reportUndo]] to a non-nil value. An example of the output generated is: \begin{verbatim} @@ -14445,7 +14702,7 @@ reportUndo acc == (|pp| (lassoc prop curproplist)))))))))))))) @ -\subsection{defun clearFrame} +\defun{clearFrame} \begin{verbatim} clearFrame() == clearCmdAll() @@ -14460,7 +14717,7 @@ clearFrame() == (setq |$previousBindings| nil))) @ -\subsection{defun undoCount} +\defun{undoCount} \begin{verbatim} --======================================================================= -- Undoing previous m commands @@ -14490,7 +14747,7 @@ undoCount(n) == --computes the number of undo's, given $IOindex (t m)))))) @ -\subsection{defun undoSteps} +\defun{undoSteps} \begin{verbatim} undoSteps(m,beforeOrAfter) == -- undoes m previous commands; if )before option, then undo one extra at end @@ -14560,7 +14817,7 @@ undoSteps(m,beforeOrAfter) == (setq |$InteractiveFrame| (list (list env)))))))) @ -\subsection{defun undoSingleStep} +\defun{undoSingleStep} \begin{verbatim} undoSingleStep(changes,env) == --Each change is a name-proplist pair. For each change: @@ -14633,7 +14890,7 @@ undoSingleStep(changes,env) == env))))) @ -\subsection{defun undoLocalModemapHack} +\defun{undoLocalModemapHack} \begin{verbatim} undoLocalModemapHack changeList == [newPair for (pair := [name,:value]) in changeList | newPair] where newPair == @@ -14671,7 +14928,7 @@ undoLocalModemapHack changeList == (t pair)) tmp0))))))))))))) @ -\subsection{defun removeUndoLines} +\defun{removeUndoLines} Removing undo lines from [[)hist )write linelist]] \begin{verbatim} removeUndoLines u == --called by writeInputLines @@ -14916,7 +15173,7 @@ The command synonym {\tt )apropos} is equivalent to \fnref{set}, and \fnref{show} -\subsection{defun what} +\defun{what} \begin{verbatim} what l == whatSpad2Cmd l \end{verbatim} @@ -14926,7 +15183,7 @@ what l == whatSpad2Cmd l @ -\subsection{defun whatSpad2Cmd} +\defun{whatSpad2Cmd} \begin{verbatim} whatSpad2Cmd l == $e:local := $EmptyEnvironment @@ -14955,7 +15212,7 @@ whatSpad2Cmd l == printSynonyms(args) \end{verbatim} -\subsection{defun whatSpad2Cmd,fixpat} +\defun{whatSpad2Cmd,fixpat} <>= (defun |whatSpad2Cmd,fixpat| (x) (prog (|x'|) @@ -14967,7 +15224,7 @@ whatSpad2Cmd l == @ -\subsection{defun whatSpad2Cmd} +\defun{whatSpad2Cmd} <>= (defun |whatSpad2Cmd| (arg) (prog (|$e| |key0| key args) @@ -15021,7 +15278,7 @@ whatSpad2Cmd l == @ -\subsection{defun filterAndFormatConstructors} +\defun{filterAndFormatConstructors} \begin{verbatim} filterAndFormatConstructors(constrType,label,patterns) == centerAndHighlight(label,$LINELENGTH,specialChar 'hbar) @@ -15071,7 +15328,7 @@ filterAndFormatConstructors(constrType,label,patterns) == @ -\subsection{defun whatConstructors} +\defun{whatConstructors} \begin{verbatim} whatConstructors constrType == -- here constrType should be one of 'category, 'domain, 'package @@ -15105,7 +15362,7 @@ whatConstructors constrType == @ -\subsection{defun apropos} +\defun{apropos} \begin{verbatim} apropos l == -- l is a list of operation name fragments @@ -15158,7 +15415,7 @@ apropos l == ; )library top level command -- soon to be obsolete -\subsection{defun with} +\defun{with} <>= (defun |with| (args) (|library| args)) @@ -15168,7 +15425,7 @@ apropos l == %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \cmdhead{workfiles} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\subsection{defun workfiles} +\defun{workfiles} \begin{verbatim} workfiles l == workfilesSpad2Cmd l \end{verbatim} @@ -15178,7 +15435,7 @@ workfiles l == workfilesSpad2Cmd l @ -\subsection{defun workfilesSpad2Cmd} +\defun{workfilesSpad2Cmd} \begin{verbatim} workfilesSpad2Cmd args == args => throwKeyedMsg("S2IZ0047",NIL) @@ -15281,7 +15538,7 @@ workfilesSpad2Cmd args == %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \cmdhead{zsystemdevelopment} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\subsection{defun zsystemdevelopment} +\defun{zsystemdevelopment} \begin{verbatim} zsystemdevelopment l == zsystemDevelopmentSpad2Cmd l \end{verbatim} @@ -15291,7 +15548,7 @@ zsystemdevelopment l == zsystemDevelopmentSpad2Cmd l @ -\subsection{defun zsystemDevelopmentSpad2Cmd} +\defun{zsystemDevelopmentSpad2Cmd} \begin{verbatim} zsystemDevelopmentSpad2Cmd l == zsystemdevelopment1 (l,$InteractiveMode) \end{verbatim} @@ -15301,7 +15558,7 @@ zsystemDevelopmentSpad2Cmd l == zsystemdevelopment1 (l,$InteractiveMode) @ -\subsection{defun zsystemdevelopment1} +\defun{zsystemdevelopment1} \begin{verbatim} zsystemdevelopment1(l,im) == $InteractiveMode : local := im @@ -15460,7 +15717,7 @@ This is a cover function for the C code used for communication interface. @ \chapter{Axiom Build-time Functions} -\subsection{defun spad-save} +\defun{spad-save} The {\bf spad-save} function is just a cover function for more lisp system specific save functions. There is no standard name for saving a lisp image so we make one and conditionalize it @@ -15615,7 +15872,10 @@ load the file \verb|exposed.lsp| to set up the exposure group information. <> <> <> +<> +<> <> +<> <> <> <> @@ -15763,6 +16023,13 @@ load the file \verb|exposed.lsp| to set up the exposure group information. <> <> <> +<> +<> +<> +<> +<> +<> +<> <> <> <> diff --git a/changelog b/changelog index 1f1e54b..63cc00a 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,340 @@ +20090316 tpd src/axiom-website/patches.html 20090316.01.tpd.patch +20090316 tpd src/input/wester.input add )set break resume +20090316 tpd src/input/void.input add )set break resume +20090316 tpd src/input/unittest1.input add )set break resume +20090316 tpd src/input/uniseg.input add )set break resume +20090316 tpd src/input/typetower.input add )set break resume +20090316 tpd src/input/tutchap1.input add )set break resume +20090316 tpd src/input/tsetcatvermeer.input add )set break resume +20090316 tpd src/input/triglim.input add )set break resume +20090316 tpd src/input/tree.input add )set break resume +20090316 tpd src/input/torus.input add )set break resume +20090316 tpd src/input/textfile.input add )set break resume +20090316 tpd src/input/tbagg.input add )set break resume +20090316 tpd src/input/tanhcoth.input add )set break resume +20090316 tpd src/input/tancot.input add )set break resume +20090316 tpd src/input/tanatan.input add )set break resume +20090316 tpd src/input/table.input add )set break resume +20090316 tpd src/input/t111293.input add )set break resume +20090316 tpd src/input/symbol.input add )set break resume +20090316 tpd src/input/summation.input add )set break resume +20090316 tpd src/input/strtbl.input add )set break resume +20090316 tpd src/input/string.input add )set break resume +20090316 tpd src/input/streams.input add )set break resume +20090316 tpd src/input/stream2.input add )set break resume +20090316 tpd src/input/stream.input add )set break resume +20090316 tpd src/input/stbl.input add )set break resume +20090316 tpd src/input/sregset.input add )set break resume +20090316 tpd src/input/sqrt3.input add )set break resume +20090316 tpd src/input/sqmatrix.input add )set break resume +20090316 tpd src/input/space3.input add )set break resume +20090316 tpd src/input/solvetra.input add )set break resume +20090316 tpd src/input/slowint.input add )set break resume +20090316 tpd src/input/skew.input add )set break resume +20090316 tpd src/input/sint.input add )set break resume +20090316 tpd src/input/sinhcosh.input add )set break resume +20090316 tpd src/input/sincosex.input add )set break resume +20090316 tpd src/input/sincos.input add )set break resume +20090316 tpd src/input/setcmd.input add )set break resume +20090316 tpd src/input/set.input add )set break resume +20090316 tpd src/input/sersolve.input add )set break resume +20090316 tpd src/input/series2.input add )set break resume +20090316 tpd src/input/series.input add )set break resume +20090316 tpd src/input/segbind.input add )set break resume +20090316 tpd src/input/seg.input add )set break resume +20090316 tpd src/input/seccsc.input add )set break resume +20090316 tpd src/input/scope.input add )set break resume +20090316 tpd src/input/scherk.input add )set break resume +20090316 tpd src/input/schaum9.input add )set break resume +20090316 tpd src/input/schaum8.input add )set break resume +20090316 tpd src/input/schaum7.input add )set break resume +20090316 tpd src/input/schaum6.input add )set break resume +20090316 tpd src/input/schaum5.input add )set break resume +20090316 tpd src/input/schaum4.input add )set break resume +20090316 tpd src/input/schaum34.input add )set break resume +20090316 tpd src/input/schaum33.input add )set break resume +20090316 tpd src/input/schaum32.input add )set break resume +20090316 tpd src/input/schaum31.input add )set break resume +20090316 tpd src/input/schaum30.input add )set break resume +20090316 tpd src/input/schaum3.input add )set break resume +20090316 tpd src/input/schaum29.input add )set break resume +20090316 tpd src/input/schaum28.input add )set break resume +20090316 tpd src/input/schaum27.input add )set break resume +20090316 tpd src/input/schaum26.input add )set break resume +20090316 tpd src/input/schaum25.input add )set break resume +20090316 tpd src/input/schaum24.input add )set break resume +20090316 tpd src/input/schaum23.input add )set break resume +20090316 tpd src/input/schaum22.input add )set break resume +20090316 tpd src/input/schaum21.input add )set break resume +20090316 tpd src/input/schaum20.input add )set break resume +20090316 tpd src/input/schaum2.input add )set break resume +20090316 tpd src/input/schaum19.input add )set break resume +20090316 tpd src/input/schaum18.input add )set break resume +20090316 tpd src/input/schaum17.input add )set break resume +20090316 tpd src/input/schaum16.input add )set break resume +20090316 tpd src/input/schaum15.input add )set break resume +20090316 tpd src/input/schaum14.input add )set break resume +20090316 tpd src/input/schaum13.input add )set break resume +20090316 tpd src/input/schaum12.input add )set break resume +20090316 tpd src/input/schaum11.input add )set break resume +20090316 tpd src/input/schaum10.input add )set break resume +20090316 tpd src/input/schaum1.input add )set break resume +20090316 tpd src/input/sae.input add )set break resume +20090316 tpd src/input/ruleset.input add )set break resume +20090316 tpd src/input/rules.input add )set break resume +20090316 tpd src/input/roots.input add )set break resume +20090316 tpd src/input/roman.input add )set break resume +20090316 tpd src/input/robidoux.input add )set break resume +20090316 tpd src/input/repa6.input add )set break resume +20090316 tpd src/input/regset.input add )set break resume +20090316 tpd src/input/reclos2.input add )set break resume +20090316 tpd src/input/reclos.input add )set break resume +20090316 tpd src/input/realclos.input add )set break resume +20090316 tpd src/input/radix.input add )set break resume +20090316 tpd src/input/radff.input add )set break resume +20090316 tpd src/input/r21bugsbig.input add )set break resume +20090316 tpd src/input/r21bugs.input add )set break resume +20090316 tpd src/input/r20bugs.input add )set break resume +20090316 tpd src/input/r20abugs.input add )set break resume +20090316 tpd src/input/quat1.input add )set break resume +20090316 tpd src/input/quat.input add )set break resume +20090316 tpd src/input/psgenfcn.input add )set break resume +20090316 tpd src/input/polycoer.input add )set break resume +20090316 tpd src/input/poly1.input add )set break resume +20090316 tpd src/input/poly.input add )set break resume +20090316 tpd src/input/pmint.input add )set break resume +20090316 tpd src/input/pfr1.input add )set break resume +20090316 tpd src/input/pfr.input add )set break resume +20090316 tpd src/input/pfaffian.input add )set break resume +20090316 tpd src/input/perman.input add )set break resume +20090316 tpd src/input/perm.input add )set break resume +20090316 tpd src/input/patmatch.input add )set break resume +20090316 tpd src/input/patch51.input add )set break resume +20090316 tpd src/input/pat.input add )set break resume +20090316 tpd src/input/pascal1.input add )set break resume +20090316 tpd src/input/pascal.input add )set break resume +20090316 tpd src/input/parabola.input add )set break resume +20090316 tpd src/input/page.input add )set break resume +20090316 tpd src/input/padic.input add )set break resume +20090316 tpd src/input/overload.input add )set break resume +20090316 tpd src/input/ovar.input add )set break resume +20090316 tpd src/input/operator.input add )set break resume +20090316 tpd src/input/opalg.input add )set break resume +20090316 tpd src/input/op1.input add )set break resume +20090316 tpd src/input/op.input add )set break resume +20090316 tpd src/input/odpol.input add )set break resume +20090316 tpd src/input/ode.input add )set break resume +20090316 tpd src/input/octonion.input add )set break resume +20090316 tpd src/input/oct.input add )set break resume +20090316 tpd src/input/numbers.input add )set break resume +20090316 tpd src/input/nsfip.input add )set break resume +20090316 tpd src/input/nqip.input add )set break resume +20090316 tpd src/input/noptip.input add )set break resume +20090316 tpd src/input/noonburg.input add )set break resume +20090316 tpd src/input/none.input add )set break resume +20090316 tpd src/input/nlode.input add )set break resume +20090316 tpd src/input/newton.input add )set break resume +20090316 tpd src/input/newlodo.input add )set break resume +20090316 tpd src/input/nepip.input add )set break resume +20090316 tpd src/input/negfloats.input add )set break resume +20090316 tpd src/input/ndftip.input add )set break resume +20090316 tpd src/input/multiple.input add )set break resume +20090316 tpd src/input/multfact.input add )set break resume +20090316 tpd src/input/mset2.input add )set break resume +20090316 tpd src/input/mset.input add )set break resume +20090316 tpd src/input/mpoly.input add )set break resume +20090316 tpd src/input/mkfunc.input add )set break resume +20090316 tpd src/input/mfinfact.input add )set break resume +20090316 tpd src/input/matrix22.input add )set break resume +20090316 tpd src/input/matrix1.input add )set break resume +20090316 tpd src/input/matrix.input add )set break resume +20090316 tpd src/input/mathml.input add )set break resume +20090316 tpd src/input/matbug.input add )set break resume +20090316 tpd src/input/marcbench.input add )set break resume +20090316 tpd src/input/mappkg1.input add )set break resume +20090316 tpd src/input/magma.input add )set break resume +20090316 tpd src/input/macros.input add )set break resume +20090316 tpd src/input/macbug.input add )set break resume +20090316 tpd src/input/lword.input add )set break resume +20090316 tpd src/input/lupfact.input add )set break resume +20090316 tpd src/input/lpoly.input add )set break resume +20090316 tpd src/input/log.input add )set break resume +20090316 tpd src/input/lodof.input add )set break resume +20090316 tpd src/input/lodo3.input add )set break resume +20090316 tpd src/input/lodo2.input add )set break resume +20090316 tpd src/input/lodo1.input add )set break resume +20090316 tpd src/input/lodo.input add )set break resume +20090316 tpd src/input/lodesys.input add )set break resume +20090316 tpd src/input/lode.input add )set break resume +20090316 tpd src/input/liu.input add )set break resume +20090316 tpd src/input/list.input add )set break resume +20090316 tpd src/input/lindep.input add )set break resume +20090316 tpd src/input/linalg.input add )set break resume +20090316 tpd src/input/limit.input add )set break resume +20090316 tpd src/input/leg.input add )set break resume +20090316 tpd src/input/laplace.input add )set break resume +20090316 tpd src/input/kuipers.input add )set break resume +20090316 tpd src/input/kovacic.input add )set break resume +20090316 tpd src/input/knot2.input add )set break resume +20090316 tpd src/input/kernel.input add )set break resume +20090316 tpd src/input/kafile.input add )set break resume +20090316 tpd src/input/isprime.input add )set break resume +20090316 tpd src/input/is.input add )set break resume +20090316 tpd src/input/iprntpk.input add )set break resume +20090316 tpd src/input/ipftest.input add )set break resume +20090316 tpd src/input/intrf.input add )set break resume +20090316 tpd src/input/intmix2.input add )set break resume +20090316 tpd src/input/intmix.input add )set break resume +20090316 tpd src/input/intlf.input add )set break resume +20090316 tpd src/input/intheory.input add )set break resume +20090316 tpd src/input/intg0.input add )set break resume +20090316 tpd src/input/intef2.input add )set break resume +20090316 tpd src/input/intef.input add )set break resume +20090316 tpd src/input/intdeq.input add )set break resume +20090316 tpd src/input/intbypart.input add )set break resume +20090316 tpd src/input/intaf.input add )set break resume +20090316 tpd src/input/int.input add )set break resume +20090316 tpd src/input/infprod.input add )set break resume +20090316 tpd src/input/ifthenelse.input add )set break resume +20090316 tpd src/input/ifact.input add )set break resume +20090316 tpd src/input/ideal.input add )set break resume +20090316 tpd src/input/ico.input add )set break resume +20090316 tpd src/input/hyperbolicrules.input add )set break resume +20090316 tpd src/input/hexadec.input add )set break resume +20090316 tpd src/input/heugcd.input add )set break resume +20090316 tpd src/input/herm.input add )set break resume +20090316 tpd src/input/help.input add )set break resume +20090316 tpd src/input/heat.input add )set break resume +20090316 tpd src/input/heap.input add )set break resume +20090316 tpd src/input/gstbl.input add )set break resume +20090316 tpd src/input/grpthry.input add )set break resume +20090316 tpd src/input/gonshor.input add )set break resume +20090316 tpd src/input/genups.input add )set break resume +20090316 tpd src/input/gbf.input add )set break resume +20090316 tpd src/input/gamma.input add )set break resume +20090316 tpd src/input/galois.input add )set break resume +20090316 tpd src/input/function.input add )set break resume +20090316 tpd src/input/free.input add )set break resume +20090316 tpd src/input/frame.input add )set break resume +20090316 tpd src/input/frac.input add )set break resume +20090316 tpd src/input/fr2.input add )set break resume +20090316 tpd src/input/fr1.input add )set break resume +20090316 tpd src/input/fr.input add )set break resume +20090316 tpd src/input/fparfrc.input add )set break resume +20090316 tpd src/input/fparfrac.input add )set break resume +20090316 tpd src/input/fns.input add )set break resume +20090316 tpd src/input/fnla.input add )set break resume +20090316 tpd src/input/fname1.input add )set break resume +20090316 tpd src/input/fname.input add )set break resume +20090316 tpd src/input/float2.input add )set break resume +20090316 tpd src/input/float1.input add )set break resume +20090316 tpd src/input/float.input add )set break resume +20090316 tpd src/input/file.input add )set break resume +20090316 tpd src/input/fib.input add )set break resume +20090316 tpd src/input/ffx72.input add )set break resume +20090316 tpd src/input/fferr.input add )set break resume +20090316 tpd src/input/ffdemo.input add )set break resume +20090316 tpd src/input/farray.input add )set break resume +20090316 tpd src/input/exsum.input add )set break resume +20090316 tpd src/input/exseries.input add )set break resume +20090316 tpd src/input/exprpoly.input add )set break resume +20090316 tpd src/input/exprode.input add )set break resume +20090316 tpd src/input/expr1.input add )set break resume +20090316 tpd src/input/expr.input add )set break resume +20090316 tpd src/input/explim.input add )set break resume +20090316 tpd src/input/expexpan.input add )set break resume +20090316 tpd src/input/exp.input add )set break resume +20090316 tpd src/input/exlimit.input add )set break resume +20090316 tpd src/input/exlap.input add )set break resume +20090316 tpd src/input/exit.input add )set break resume +20090316 tpd src/input/exint.input add )set break resume +20090316 tpd src/input/exdiff.input add )set break resume +20090316 tpd src/input/evalex.input add )set break resume +20090316 tpd src/input/eval.input add )set break resume +20090316 tpd src/input/equation2.input add )set break resume +20090316 tpd src/input/equation.input add )set break resume +20090316 tpd src/input/eqtbl.input add )set break resume +20090316 tpd src/input/eq.input add )set break resume +20090316 tpd src/input/en.input add )set break resume +20090316 tpd src/input/elt.input add )set break resume +20090316 tpd src/input/elfuts.input add )set break resume +20090316 tpd src/input/elemfun.input add )set break resume +20090316 tpd src/input/eigen.input add )set break resume +20090316 tpd src/input/ei.input add )set break resume +20090316 tpd src/input/efi.input add )set break resume +20090316 tpd src/input/e1.input add )set break resume +20090316 tpd src/input/dpol.input add )set break resume +20090316 tpd src/input/dop.input add )set break resume +20090316 tpd src/input/dmp.input add )set break resume +20090316 tpd src/input/divisor.input add )set break resume +20090316 tpd src/input/directproduct.input add )set break resume +20090316 tpd src/input/dhtri.input add )set break resume +20090316 tpd src/input/dhmatrix.input add )set break resume +20090316 tpd src/input/dfloat.input add )set break resume +20090316 tpd src/input/derham.input add )set break resume +20090316 tpd src/input/defintrf.input add )set break resume +20090316 tpd src/input/defintef.input add )set break resume +20090316 tpd src/input/decimal.input add )set break resume +20090316 tpd src/input/cyfactor.input add )set break resume +20090316 tpd src/input/cycles1.input add )set break resume +20090316 tpd src/input/cycles.input add )set break resume +20090316 tpd src/input/cwmmt.input add )set break resume +20090316 tpd src/input/curl.input add )set break resume +20090316 tpd src/input/contfrc.input add )set break resume +20090316 tpd src/input/contfrac.input add )set break resume +20090316 tpd src/input/constant.input add )set break resume +20090316 tpd src/input/conformal.input add )set break resume +20090316 tpd src/input/complex.input add )set break resume +20090316 tpd src/input/collect.input add )set break resume +20090316 tpd src/input/coercels.input add )set break resume +20090316 tpd src/input/cmds.input add )set break resume +20090316 tpd src/input/clifford.input add )set break resume +20090316 tpd src/input/clif.input add )set break resume +20090316 tpd src/input/chtheorem.input add )set break resume +20090316 tpd src/input/char.input add )set break resume +20090316 tpd src/input/ch.input add )set break resume +20090316 tpd src/input/cclass.input add )set break resume +20090316 tpd src/input/carten.input add )set break resume +20090316 tpd src/input/cardinal.input add )set break resume +20090316 tpd src/input/card.input add )set break resume +20090316 tpd src/input/calculus2.input add )set break resume +20090316 tpd src/input/calculus.input add )set break resume +20090316 tpd src/input/calcprob.input add )set break resume +20090316 tpd src/input/bugs.input add )set break resume +20090316 tpd src/input/bug9057.input add )set break resume +20090316 tpd src/input/bug6357.input add )set break resume +20090316 tpd src/input/bug10312.input add )set break resume +20090316 tpd src/input/bug103.input add )set break resume +20090316 tpd src/input/bug101.input add )set break resume +20090316 tpd src/input/bug10069.input add )set break resume +20090316 tpd src/input/bug100.input add )set break resume +20090316 tpd src/input/bstree.input add )set break resume +20090316 tpd src/input/bouquet.input add )set break resume +20090316 tpd src/input/bop.input add )set break resume +20090316 tpd src/input/biquat.input add )set break resume +20090316 tpd src/input/bini.input add )set break resume +20090316 tpd src/input/binary.input add )set break resume +20090316 tpd src/input/besselk.input add )set break resume +20090316 tpd src/input/bbtree.input add )set break resume +20090316 tpd src/input/atansqrt.input add )set break resume +20090316 tpd src/input/assign.input add )set break resume +20090316 tpd src/input/asinhatanh.input add )set break resume +20090316 tpd src/input/asinatan.input add )set break resume +20090316 tpd src/input/arrows.input add )set break resume +20090316 tpd src/input/array2.input add )set break resume +20090316 tpd src/input/array1.input add )set break resume +20090316 tpd src/input/arith.input add )set break resume +20090316 tpd src/input/antoine.input add )set break resume +20090316 tpd src/input/allfact.input add )set break resume +20090316 tpd src/input/alist.input add )set break resume +20090316 tpd src/input/algfacob.input add )set break resume +20090316 tpd src/input/algbrbf.input add )set break resume +20090316 tpd src/input/algaggr.input add )set break resume +20090316 tpd books/bookvol10.4 add )set break resume +20090316 tpd books/bookvol10.3 add )set break resume +20090316 tpd src/interp/setvars.boot move )expose code +20090316 tpd src/interp/database.boot move )expose code +20090316 tpd books/bookvol5 add )expose code 20090315 tpd src/axiom-website/patches.html 20090315.01.tpd.patch 20090315 tpd src/interp/setvars.boot remove set and library handling 20090315 tpd src/interp/daase.lisp fix input-libraries diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index fcaf084..2c8ff7d 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -1005,5 +1005,7 @@ bookvol5 add quit, pquit roots
bookvol5 document )set, include root code
20090315.01.tpd.patch bookvol5 document collect set support functions
+20090316.01.tpd.patch +bookvol5 add )expose, add )set break resume
diff --git a/src/input/algaggr.input.pamphlet b/src/input/algaggr.input.pamphlet index 8eea34e..85a9143 100644 --- a/src/input/algaggr.input.pamphlet +++ b/src/input/algaggr.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool algaggr.output )set message test on )set message auto off diff --git a/src/input/algbrbf.input.pamphlet b/src/input/algbrbf.input.pamphlet index c9c8de1..4924367 100644 --- a/src/input/algbrbf.input.pamphlet +++ b/src/input/algbrbf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool algbrbf.output )set message test on )set message auto off diff --git a/src/input/algfacob.input.pamphlet b/src/input/algfacob.input.pamphlet index 59dbd8d..6753bed 100644 --- a/src/input/algfacob.input.pamphlet +++ b/src/input/algfacob.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool algfacob.output )set message test on )set message auto off diff --git a/src/input/alist.input.pamphlet b/src/input/alist.input.pamphlet index bd21f1b..6af19e9 100644 --- a/src/input/alist.input.pamphlet +++ b/src/input/alist.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool alist.output )set message test on )set message auto off diff --git a/src/input/allfact.input.pamphlet b/src/input/allfact.input.pamphlet index 922170d..77c84a8 100644 --- a/src/input/allfact.input.pamphlet +++ b/src/input/allfact.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool allfact.output )set message test on )set message auto off diff --git a/src/input/antoine.input.pamphlet b/src/input/antoine.input.pamphlet index 5fa96b4..fc6fe5a 100644 --- a/src/input/antoine.input.pamphlet +++ b/src/input/antoine.input.pamphlet @@ -19,6 +19,7 @@ for the idea. Bring DH matrices into the environment <<*>>= +)set break resume )spool antoine.output )set message test on )set message auto off diff --git a/src/input/arith.input.pamphlet b/src/input/arith.input.pamphlet index e8c2f75..aee2ba6 100644 --- a/src/input/arith.input.pamphlet +++ b/src/input/arith.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool arith.output )set message test on )set message auto off diff --git a/src/input/array1.input.pamphlet b/src/input/array1.input.pamphlet index 7789bf1..2e00c18 100644 --- a/src/input/array1.input.pamphlet +++ b/src/input/array1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool array1.output )set message test on )set message auto off diff --git a/src/input/array2.input.pamphlet b/src/input/array2.input.pamphlet index ef9e74f..1794a90 100644 --- a/src/input/array2.input.pamphlet +++ b/src/input/array2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool array2.output )set message test on )set message auto off diff --git a/src/input/arrows.input.pamphlet b/src/input/arrows.input.pamphlet index fe65633..a098869 100644 --- a/src/input/arrows.input.pamphlet +++ b/src/input/arrows.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool arrows.output )set message test on )set message auto off diff --git a/src/input/asinatan.input.pamphlet b/src/input/asinatan.input.pamphlet index a468c88..0e3ed67 100644 --- a/src/input/asinatan.input.pamphlet +++ b/src/input/asinatan.input.pamphlet @@ -17,6 +17,7 @@ second column is the reference value of tan from the book Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp203-212 <<*>>= +)set break resume )spool asinatan.output )set message test on )set message auto off diff --git a/src/input/asinhatanh.input.pamphlet b/src/input/asinhatanh.input.pamphlet index b0c7783..3a032a2 100644 --- a/src/input/asinhatanh.input.pamphlet +++ b/src/input/asinhatanh.input.pamphlet @@ -17,6 +17,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp221 <<*>>= +)set break resume )spool asinhatanh.output )set message test on )set message auto off diff --git a/src/input/assign.input.pamphlet b/src/input/assign.input.pamphlet index adfc652..a645570 100644 --- a/src/input/assign.input.pamphlet +++ b/src/input/assign.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool assign.output )set message test on )set message auto off diff --git a/src/input/atansqrt.input.pamphlet b/src/input/atansqrt.input.pamphlet index 3a51942..83b4827 100644 --- a/src/input/atansqrt.input.pamphlet +++ b/src/input/atansqrt.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1994. @ <<*>>= +)set break resume )spool atansqrt.output )set message test on )set message auto off diff --git a/src/input/bbtree.input.pamphlet b/src/input/bbtree.input.pamphlet index cdc2c72..67d03cd 100644 --- a/src/input/bbtree.input.pamphlet +++ b/src/input/bbtree.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bbtree.output )set message test on )set message auto off diff --git a/src/input/besselk.input.pamphlet b/src/input/besselk.input.pamphlet index f0af678..721567c 100644 --- a/src/input/besselk.input.pamphlet +++ b/src/input/besselk.input.pamphlet @@ -15,6 +15,7 @@ second column is the reference value of Gamma from the book Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp417-419 <<*>>= +)set break resume )spool besselk.output )set message test on )set message auto off diff --git a/src/input/binary.input.pamphlet b/src/input/binary.input.pamphlet index a6d0aab..41e33a7 100644 --- a/src/input/binary.input.pamphlet +++ b/src/input/binary.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool binary.output )set message test on )set message auto off diff --git a/src/input/bini.input.pamphlet b/src/input/bini.input.pamphlet index b03ce88..2c8abb7 100644 --- a/src/input/bini.input.pamphlet +++ b/src/input/bini.input.pamphlet @@ -11,6 +11,7 @@ The POSSO multivariate polynomial test suite. \tableofcontents \eject <<*>>= +)set break resume )spool bini.output )set message test on )set message type off diff --git a/src/input/biquat.input.pamphlet b/src/input/biquat.input.pamphlet index 2290150..185f877 100644 --- a/src/input/biquat.input.pamphlet +++ b/src/input/biquat.input.pamphlet @@ -11,6 +11,7 @@ \eject @ <<*>>= +)set break resume )spool biquat.output )set message test on )set message auto off diff --git a/src/input/bop.input.pamphlet b/src/input/bop.input.pamphlet index 5021bd3..97e8476 100644 --- a/src/input/bop.input.pamphlet +++ b/src/input/bop.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bop.output )set message test on )set message auto off diff --git a/src/input/bouquet.input.pamphlet b/src/input/bouquet.input.pamphlet index 42aa735..3d5b3c4 100644 --- a/src/input/bouquet.input.pamphlet +++ b/src/input/bouquet.input.pamphlet @@ -15,6 +15,7 @@ @ relative size of the arrow head compared to the length of the arrow <<*>>= +)set break resume )spool bouquet.output )set message test on )set message auto off diff --git a/src/input/bstree.input.pamphlet b/src/input/bstree.input.pamphlet index 7a47ffa..0bff6c5 100644 --- a/src/input/bstree.input.pamphlet +++ b/src/input/bstree.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bstree.output )set message test on )set message auto off diff --git a/src/input/bug100.input.pamphlet b/src/input/bug100.input.pamphlet index 799d339..3c2828a 100644 --- a/src/input/bug100.input.pamphlet +++ b/src/input/bug100.input.pamphlet @@ -44,6 +44,7 @@ putting the same term back on the list and we loop. Waldek's solution is to remove the union call. <<*>>= +)set break resume )spool bug100.output )set message test on )set message auto off diff --git a/src/input/bug10069.input.pamphlet b/src/input/bug10069.input.pamphlet index 4fc7729..4290024 100644 --- a/src/input/bug10069.input.pamphlet +++ b/src/input/bug10069.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bug10069.output )set message test on )set message auto off diff --git a/src/input/bug101.input.pamphlet b/src/input/bug101.input.pamphlet index b82caf0..42d0ba2 100644 --- a/src/input/bug101.input.pamphlet +++ b/src/input/bug101.input.pamphlet @@ -26,6 +26,7 @@ A more reasonable return value, not supported by Axiom, would be: \end{verbatim} <<*>>= +)set break resume )spool bug101.output )set message test on )set message auto off diff --git a/src/input/bug103.input.pamphlet b/src/input/bug103.input.pamphlet index 59e6838..5cce18b 100644 --- a/src/input/bug103.input.pamphlet +++ b/src/input/bug103.input.pamphlet @@ -48,6 +48,7 @@ succeeds with: Type: List Equation Fraction Polynomial Integer \end{verbatim} <<*>>= +)set break resume )spool bug103.output )set message test on )set message auto off diff --git a/src/input/bug10312.input.pamphlet b/src/input/bug10312.input.pamphlet index bb9fdec..b8bdf2c 100644 --- a/src/input/bug10312.input.pamphlet +++ b/src/input/bug10312.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bug10312.output )set message test on )set message auto off diff --git a/src/input/bug6357.input.pamphlet b/src/input/bug6357.input.pamphlet index d67cd17..794584d 100644 --- a/src/input/bug6357.input.pamphlet +++ b/src/input/bug6357.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bug6357.output )set message test on )set message auto off diff --git a/src/input/bug9057.input.pamphlet b/src/input/bug9057.input.pamphlet index 78b1194..065d52a 100644 --- a/src/input/bug9057.input.pamphlet +++ b/src/input/bug9057.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bug9057.output )set message test on )set message auto off diff --git a/src/input/bugs.input.pamphlet b/src/input/bugs.input.pamphlet index 161e380..1ac2c27 100644 --- a/src/input/bugs.input.pamphlet +++ b/src/input/bugs.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool bugs.output )set message test on )set message auto off diff --git a/src/input/calcprob.input.pamphlet b/src/input/calcprob.input.pamphlet index 3835a03..1087643 100644 --- a/src/input/calcprob.input.pamphlet +++ b/src/input/calcprob.input.pamphlet @@ -11,6 +11,7 @@ Cover a range of calculus problems \tableofcontents \eject <<*>>= +)set break resume )spool calcprob.output )set message test on )set message auto off diff --git a/src/input/calculus.input.pamphlet b/src/input/calculus.input.pamphlet index 6673f10..f919e35 100644 --- a/src/input/calculus.input.pamphlet +++ b/src/input/calculus.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool calculus.output )set message test on )set message auto off diff --git a/src/input/calculus2.input.pamphlet b/src/input/calculus2.input.pamphlet index 031f0ec..be27eb1 100644 --- a/src/input/calculus2.input.pamphlet +++ b/src/input/calculus2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool calculus2.output )set message test on )set message auto off diff --git a/src/input/card.input.pamphlet b/src/input/card.input.pamphlet index 8b36cf0..af4daed 100644 --- a/src/input/card.input.pamphlet +++ b/src/input/card.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool card.output )set message test on )set message auto off diff --git a/src/input/cardinal.input.pamphlet b/src/input/cardinal.input.pamphlet index 8df2614..f751f65 100644 --- a/src/input/cardinal.input.pamphlet +++ b/src/input/cardinal.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool cardinal.output )set message test on )set message auto off diff --git a/src/input/carten.input.pamphlet b/src/input/carten.input.pamphlet index 25777cd..e553efb 100644 --- a/src/input/carten.input.pamphlet +++ b/src/input/carten.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool carten.output )set message test on )set message auto off diff --git a/src/input/cclass.input.pamphlet b/src/input/cclass.input.pamphlet index 5edc4dc..a4ce8e0 100644 --- a/src/input/cclass.input.pamphlet +++ b/src/input/cclass.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool cclass.output )set message test on )set message auto off diff --git a/src/input/ch.input.pamphlet b/src/input/ch.input.pamphlet index e9a9d41..a7a93f8 100644 --- a/src/input/ch.input.pamphlet +++ b/src/input/ch.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ch.output )set message test on )set message auto off diff --git a/src/input/char.input.pamphlet b/src/input/char.input.pamphlet index b1549a5..030135c 100644 --- a/src/input/char.input.pamphlet +++ b/src/input/char.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool char.output )set message test on )set message auto off diff --git a/src/input/chtheorem.input.pamphlet b/src/input/chtheorem.input.pamphlet index ace75cf..a756a18 100644 --- a/src/input/chtheorem.input.pamphlet +++ b/src/input/chtheorem.input.pamphlet @@ -59,6 +59,7 @@ $$A^3=(5A+2I_2)A = 5A^2+2A = 5(5A+2I_2)+2A = 27A+10I_2$$ $$A^4=A^3A=(27A+10I_2)A = 27A^2+10A = 27(5A+2I_2)+10A$$ $$A^4=145A+54I_2$$ <<*>>= +)set break resume )spool chtheorem.output )set message test on )set message auto off diff --git a/src/input/clif.input.pamphlet b/src/input/clif.input.pamphlet index 966fdaa..f97e491 100644 --- a/src/input/clif.input.pamphlet +++ b/src/input/clif.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool clif.output )set message test on )set message auto off diff --git a/src/input/clifford.input.pamphlet b/src/input/clifford.input.pamphlet index 226214f..ed87a03 100644 --- a/src/input/clifford.input.pamphlet +++ b/src/input/clifford.input.pamphlet @@ -31,6 +31,7 @@ Choose rational functions as the ground field. --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool clifford.output )set message test on )set message auto off diff --git a/src/input/cmds.input.pamphlet b/src/input/cmds.input.pamphlet index ba7844d..29c2766 100644 --- a/src/input/cmds.input.pamphlet +++ b/src/input/cmds.input.pamphlet @@ -10,81 +10,82 @@ \tableofcontents \eject <<*>>= +)set break resume )spool cmds.output )set message test on )set message auto off )clear all ---S 1 of 15 +--S 1 of 23 )abbreviation domain TIM TimDaly )quiet --R --E 1 ---S 2 of 15 +--S 2 of 23 )abbreviation domain TIMD TimDalyDomain --R --R TIMD abbreviates domain TimDalyDomain --E 2 ---S 3 of 15 +--S 3 of 23 )abbreviation category TIMC TimDalyCategory --R --R TIMC abbreviates category TimDalyCategory --E 3 ---S 4 of 15 +--S 4 of 23 )abbreviation package TIMP TimDalyPackage --R --R TIMP abbreviates package TimDalyPackage --E 4 ---S 5 of 15 +--S 5 of 23 )abbreviation query LIST --R --R LIST abbreviates domain List --E 5 ---S 6 of 15 +--S 6 of 23 )abbreviation query List --R --R LIST abbreviates domain List --E 6 ---S 7 of 15 +--S 7 of 23 )abbreviation query TIMD --R --R TIMD abbreviates domain TimDalyDomain --E 7 ---S 8 of 15 +--S 8 of 23 )abbreviation remove TIMD --R --E 8 ---S 9 of 15 +--S 9 of 23 )abbreviation query TIMD --R --R TIMD is neither a constructor name nor a constructor abbreviation. --E 9 ---S 10 of 15 +--S 10 of 23 )abbreviation query TimDalyPackage --R --R TIMP abbreviates package TimDalyPackage --E 10 ---S 11 of 15 +--S 11 of 23 )abbreviation remove TimDalyPackage --R --E 11 ---S 12 of 15 +--S 12 of 23 )abbreviation query TimDalyPackage --R --R TIMP abbreviates package TimDalyPackage --E 12 ---S 13 of 15 +--S 13 of 23 )what categories --R --R------------------------------- Categories -------------------------------- @@ -215,7 +216,7 @@ --R XFALG XFreeAlgebra XPOLYC XPolynomialsCat --E 13 ---S 14 of 15 +--S 14 of 23 )what domains --R--------------------------------- Domains --------------------------------- --R A1AGG- OneDimensionalArrayAggregate& @@ -507,7 +508,7 @@ --R XRPOLY XRecursivePolynomial ZMOD IntegerMod --E 14 ---S 15 of 15 +--S 15 of 23 )what packages --R-------------------------------- Packages --------------------------------- --R AF AlgebraicFunction ALGFACT AlgFactor @@ -837,13 +838,14 @@ @ This exercises setOutputLibrary, setInputLibrary, and setAsharpArgs <<*>>= ---S 16 +--S 16 of 23 )set compiler +--R --R Current Values of compiler Variables --R --RVariable Description Current Value --R----------------------------------------------------------------------------- ---Routput library in which to place compiled code +--Routput library in which to place compiled code user.lib --Rinput controls libraries from which to load compiled code --Rargs arguments for compiling AXIOM code -O -Fasy -Fao -Flsp -laxiom -Mno-AXL_W_WillObsolete -DAxiom -Y $AXIOM/algebra --R @@ -852,38 +854,36 @@ This exercises setOutputLibrary, setInputLibrary, and setAsharpArgs @ This exercises setInputLibrary, describeInputLibraryArgs <<*>>= ---S 17 +--S 17 of 23 )set compiler input +--R --R---------------------------- The input Option ----------------------------- --R --R Description: controls libraries from which to load compiled code --R --R )set compiler input add library is used to tell AXIOM to add library to ---Rthe front of the path which determines where compiled code is loaded from. +--Rthe front of the path used to find compile code. --R )set compiler input drop library is used to tell AXIOM to remove library --Rfrom this path. --E 17 ---S +--S 18 of 23 )set compiler input add +--R --R )set compiler input add library is used to tell AXIOM to add library to ---Rthe front of the path which determines where compiled code is loaded from. +--Rthe front of the path used to find compile code. --R )set compiler input drop library is used to tell AXIOM to remove library --Rfrom this path. ---E +--E 18 ---S +--S 19 of 23 )set compiler input add foo ---R ---R >> System error: ---R OPEN-LIBRARY is invalid as a function. ---R ---E +--E 19 @ This exercises setOutputLibrary <<*>>= ---S 18 +--S 20 of 23 )set compiler output --R---------------------------- The output Option ---------------------------- --R @@ -892,12 +892,12 @@ This exercises setOutputLibrary --R )set compiler output library is used to tell the compiler where to place --Rcompiled code generated by the library compiler. By default it goes --Rin a file called user.lib in the current directory. ---E 18 +--E 20 @ This exercises setAsharpArgs <<*>>= ---S 19 +--S 21 of 23 )set compiler args --R----------------------------- The args Option ----------------------------- --R @@ -909,15 +909,16 @@ This exercises setAsharpArgs --R --R The current setting is --R "-O -Fasy -Fao -Flsp -laxiom -Mno-AXL_W_WillObsolete -DAxiom -Y $AXIOM/algebra" ---E 19 +--E 21 +@ This exercises setAsharpArgs <<*>>= ---S 20 +--S 22 of 23 )set compiler args "-TPD" ---E 20 +--E 22 ---S 21 +--S 23 of 23 )set compiler args --R----------------------------- The args Option ----------------------------- --R @@ -929,8 +930,7 @@ This exercises setAsharpArgs --R --R The current setting is --R "-TPD" ---E 21 - +--E 23 )spool )lisp (bye) diff --git a/src/input/coercels.input.pamphlet b/src/input/coercels.input.pamphlet index f1d3571..cbdc7e9 100644 --- a/src/input/coercels.input.pamphlet +++ b/src/input/coercels.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool coercels.output )set message test on )set message auto off diff --git a/src/input/collect.input.pamphlet b/src/input/collect.input.pamphlet index 9e07896..d8e0e09 100644 --- a/src/input/collect.input.pamphlet +++ b/src/input/collect.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool collect.output )set message test on )set message auto off diff --git a/src/input/complex.input.pamphlet b/src/input/complex.input.pamphlet index 3c79bab..565175d 100644 --- a/src/input/complex.input.pamphlet +++ b/src/input/complex.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool complex.output )set message test on )set message auto off diff --git a/src/input/conformal.input.pamphlet b/src/input/conformal.input.pamphlet index 135e5e6..0a4a878 100644 --- a/src/input/conformal.input.pamphlet +++ b/src/input/conformal.input.pamphlet @@ -20,6 +20,7 @@ complex plane and on the Riemann sphere. Compile, don't interpret functions. <<*>>= +)set break resume )set fun comp on )spool conformal.output )set message test on diff --git a/src/input/constant.input.pamphlet b/src/input/constant.input.pamphlet index 8a646e2..e517232 100644 --- a/src/input/constant.input.pamphlet +++ b/src/input/constant.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool constant.output )set message test on )set message auto off diff --git a/src/input/contfrac.input.pamphlet b/src/input/contfrac.input.pamphlet index 05c4442..0044f79 100644 --- a/src/input/contfrac.input.pamphlet +++ b/src/input/contfrac.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool contfrac.output )set message test on )set message auto off diff --git a/src/input/contfrc.input.pamphlet b/src/input/contfrc.input.pamphlet index 6db0268..d519ee7 100644 --- a/src/input/contfrc.input.pamphlet +++ b/src/input/contfrc.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool contfrc.output )set message test on )set message auto off diff --git a/src/input/curl.input.pamphlet b/src/input/curl.input.pamphlet index 871b9ef..7366aa8 100644 --- a/src/input/curl.input.pamphlet +++ b/src/input/curl.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool curl.output )set message test on )set message auto off diff --git a/src/input/cwmmt.input.pamphlet b/src/input/cwmmt.input.pamphlet index 2179513..c8c8a69 100644 --- a/src/input/cwmmt.input.pamphlet +++ b/src/input/cwmmt.input.pamphlet @@ -97,6 +97,7 @@ CompWithMappingModeTest() : Exports == Implementation where \end{chunk} <<*>>= +)set break resume )spool cwmmt.output )sys cp $AXIOM/../../src/input/cwmmt.input.pamphlet . )lisp (tangle "cwmmt.input.pamphlet" "cwmmt.spad" "cwmmt.spad" ) diff --git a/src/input/cycles.input.pamphlet b/src/input/cycles.input.pamphlet index 596669e..0940275 100644 --- a/src/input/cycles.input.pamphlet +++ b/src/input/cycles.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool cycles.output )set message test on )set message auto off diff --git a/src/input/cycles1.input.pamphlet b/src/input/cycles1.input.pamphlet index d75a3cd..e13b113 100644 --- a/src/input/cycles1.input.pamphlet +++ b/src/input/cycles1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool cycles1.output )set message test on )set message auto off diff --git a/src/input/cyfactor.input.pamphlet b/src/input/cyfactor.input.pamphlet index 11e9ea0..17e8ae5 100644 --- a/src/input/cyfactor.input.pamphlet +++ b/src/input/cyfactor.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool cyfactor.output )set message test on )set message auto off diff --git a/src/input/decimal.input.pamphlet b/src/input/decimal.input.pamphlet index b05c15c..2f239b0 100644 --- a/src/input/decimal.input.pamphlet +++ b/src/input/decimal.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool decimal.output )set message test on )set message auto off diff --git a/src/input/defintef.input.pamphlet b/src/input/defintef.input.pamphlet index 19d6155..61dea1d 100644 --- a/src/input/defintef.input.pamphlet +++ b/src/input/defintef.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool defintef.output )set message test on )set message auto off diff --git a/src/input/defintrf.input.pamphlet b/src/input/defintrf.input.pamphlet index cfee6eb..fd02023 100644 --- a/src/input/defintrf.input.pamphlet +++ b/src/input/defintrf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool defintrf.output )set message test on )set message auto off diff --git a/src/input/derham.input.pamphlet b/src/input/derham.input.pamphlet index 49e95d2..3aa17e0 100644 --- a/src/input/derham.input.pamphlet +++ b/src/input/derham.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool derham.output )set message test on )set message auto off diff --git a/src/input/dfloat.input.pamphlet b/src/input/dfloat.input.pamphlet index 75eeb5f..1ea68a1 100644 --- a/src/input/dfloat.input.pamphlet +++ b/src/input/dfloat.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool dfloat.output )set message test on )set message auto off diff --git a/src/input/dhmatrix.input.pamphlet b/src/input/dhmatrix.input.pamphlet index 2725a36..70a2b13 100644 --- a/src/input/dhmatrix.input.pamphlet +++ b/src/input/dhmatrix.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool dhmatrix.output )set message test on )set message auto off diff --git a/src/input/dhtri.input.pamphlet b/src/input/dhtri.input.pamphlet index 4e08a51..37a0c7d 100644 --- a/src/input/dhtri.input.pamphlet +++ b/src/input/dhtri.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool dhtri.output )set message test on )set message auto off diff --git a/src/input/directproduct.input.pamphlet b/src/input/directproduct.input.pamphlet index 5fedb6c..0d313a2 100644 --- a/src/input/directproduct.input.pamphlet +++ b/src/input/directproduct.input.pamphlet @@ -18,6 +18,7 @@ as a monoid. On the other hand, if R is a ring, then the direct product is a ring. (Bug report 117). This is fixed by patch 20080620.01.wxh.patch. <<*>>= +)set break resume )spool directproduct.output )set message auto off )set message test on diff --git a/src/input/divisor.input.pamphlet b/src/input/divisor.input.pamphlet index d5cc55a..8c105b9 100644 --- a/src/input/divisor.input.pamphlet +++ b/src/input/divisor.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool divisor.output )set message test on )set message auto off diff --git a/src/input/dmp.input.pamphlet b/src/input/dmp.input.pamphlet index b6b7d12..70b8475 100644 --- a/src/input/dmp.input.pamphlet +++ b/src/input/dmp.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool dmp.output )set message test on )set message auto off diff --git a/src/input/dop.input.pamphlet b/src/input/dop.input.pamphlet index 887f4bc..1b2158b 100644 --- a/src/input/dop.input.pamphlet +++ b/src/input/dop.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool dop.output )set message test on )set message auto off diff --git a/src/input/dpol.input.pamphlet b/src/input/dpol.input.pamphlet index eba3e22..7e0b8f7 100644 --- a/src/input/dpol.input.pamphlet +++ b/src/input/dpol.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool dpol.output )set message test on )set message auto off diff --git a/src/input/e1.input.pamphlet b/src/input/e1.input.pamphlet index 329cb01..4df75da 100644 --- a/src/input/e1.input.pamphlet +++ b/src/input/e1.input.pamphlet @@ -11,6 +11,7 @@ This is a regression test for E1(x) \tableofcontents \eject <<*>>= +)set break resume )spool e1.output )set message test on )set message auto off diff --git a/src/input/efi.input.pamphlet b/src/input/efi.input.pamphlet index 0e61d9c..5cc6dba 100644 --- a/src/input/efi.input.pamphlet +++ b/src/input/efi.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool efi.output )set message test on )set message auto off diff --git a/src/input/ei.input.pamphlet b/src/input/ei.input.pamphlet index 9c84341..e870a5e 100644 --- a/src/input/ei.input.pamphlet +++ b/src/input/ei.input.pamphlet @@ -16,6 +16,7 @@ here but kept here for reference purposes. The values generated are compared against the values in Abramowitz and Stegun\cite{2}. <<*>>= +)set break resume )spool ei.output )set message test on )set message auto off diff --git a/src/input/eigen.input.pamphlet b/src/input/eigen.input.pamphlet index 447c15f..b9e1976 100644 --- a/src/input/eigen.input.pamphlet +++ b/src/input/eigen.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool eigen.output )set message test on )set message auto off diff --git a/src/input/elemfun.input.pamphlet b/src/input/elemfun.input.pamphlet index 57964c0..4b71ea2 100644 --- a/src/input/elemfun.input.pamphlet +++ b/src/input/elemfun.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool elemfun.output )set message test on )set message auto off diff --git a/src/input/elfuts.input.pamphlet b/src/input/elfuts.input.pamphlet index 6ac403f..b5d0daa 100644 --- a/src/input/elfuts.input.pamphlet +++ b/src/input/elfuts.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool elfuts.output )set message test on )set message auto off diff --git a/src/input/elt.input.pamphlet b/src/input/elt.input.pamphlet index 0e1cdaa..f0c3333 100644 --- a/src/input/elt.input.pamphlet +++ b/src/input/elt.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool elt.output )set message test on )set message auto off diff --git a/src/input/en.input.pamphlet b/src/input/en.input.pamphlet index 1ae9749..4bb63b2 100644 --- a/src/input/en.input.pamphlet +++ b/src/input/en.input.pamphlet @@ -18,6 +18,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp245-248 <<*>>= +)set break resume )spool en.output )set message test on )set message auto off diff --git a/src/input/eq.input.pamphlet b/src/input/eq.input.pamphlet index 43bd53c..7c4fff2 100644 --- a/src/input/eq.input.pamphlet +++ b/src/input/eq.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool eq.output )set message test on )set message auto off diff --git a/src/input/eqtbl.input.pamphlet b/src/input/eqtbl.input.pamphlet index ee31864..2045488 100644 --- a/src/input/eqtbl.input.pamphlet +++ b/src/input/eqtbl.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool eqtbl.output )set message test on )set message auto off diff --git a/src/input/equation.input.pamphlet b/src/input/equation.input.pamphlet index fbafae5..e927fc5 100644 --- a/src/input/equation.input.pamphlet +++ b/src/input/equation.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool equation.output )set message test on )set message auto off diff --git a/src/input/equation2.input.pamphlet b/src/input/equation2.input.pamphlet index 6962f79..0bd29b6 100644 --- a/src/input/equation2.input.pamphlet +++ b/src/input/equation2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool equation2.output )set message test on )set message auto off diff --git a/src/input/eval.input.pamphlet b/src/input/eval.input.pamphlet index 4b762b8..a5dd20c 100644 --- a/src/input/eval.input.pamphlet +++ b/src/input/eval.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool eval.output )set message test on )set message auto off diff --git a/src/input/evalex.input.pamphlet b/src/input/evalex.input.pamphlet index 990eb66..6f5a3b2 100644 --- a/src/input/evalex.input.pamphlet +++ b/src/input/evalex.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool evalex.output )set message test on )set message auto off diff --git a/src/input/exdiff.input.pamphlet b/src/input/exdiff.input.pamphlet index 670ded8..b0690a9 100644 --- a/src/input/exdiff.input.pamphlet +++ b/src/input/exdiff.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exdiff.output )set message test on )set message auto off diff --git a/src/input/exint.input.pamphlet b/src/input/exint.input.pamphlet index b54caa3..3e32686 100644 --- a/src/input/exint.input.pamphlet +++ b/src/input/exint.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exint.output )set message test on )set message auto off diff --git a/src/input/exit.input.pamphlet b/src/input/exit.input.pamphlet index 31e0c69..cfe73b5 100644 --- a/src/input/exit.input.pamphlet +++ b/src/input/exit.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exit.output )set message test on )set message auto off diff --git a/src/input/exlap.input.pamphlet b/src/input/exlap.input.pamphlet index d290295..2c6293a 100644 --- a/src/input/exlap.input.pamphlet +++ b/src/input/exlap.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exlap.output )set message test on )set message auto off diff --git a/src/input/exlimit.input.pamphlet b/src/input/exlimit.input.pamphlet index 367df53..362aa7d 100644 --- a/src/input/exlimit.input.pamphlet +++ b/src/input/exlimit.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exlimit.output )set message test on )set message auto off diff --git a/src/input/exp.input.pamphlet b/src/input/exp.input.pamphlet index 88b3759..3cc5602 100644 --- a/src/input/exp.input.pamphlet +++ b/src/input/exp.input.pamphlet @@ -18,6 +18,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp136-137 <<*>>= +)set break resume )spool exp.output )set message test on )set message auto off diff --git a/src/input/expexpan.input.pamphlet b/src/input/expexpan.input.pamphlet index 8215112..67525e9 100644 --- a/src/input/expexpan.input.pamphlet +++ b/src/input/expexpan.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool expexpan.output )set message test on )set message auto off diff --git a/src/input/explim.input.pamphlet b/src/input/explim.input.pamphlet index 80b92ab..f16c32d 100644 --- a/src/input/explim.input.pamphlet +++ b/src/input/explim.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool explim.output )set message test on )set message auto off diff --git a/src/input/expr.input.pamphlet b/src/input/expr.input.pamphlet index f8c26b9..c0311d5 100644 --- a/src/input/expr.input.pamphlet +++ b/src/input/expr.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool expr.output )set message test on )set message auto off diff --git a/src/input/expr1.input.pamphlet b/src/input/expr1.input.pamphlet index d972b45..fe1ca00 100644 --- a/src/input/expr1.input.pamphlet +++ b/src/input/expr1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool expr1.output )set message test on )set message auto off diff --git a/src/input/exprode.input.pamphlet b/src/input/exprode.input.pamphlet index dd07129..9a5cf78 100644 --- a/src/input/exprode.input.pamphlet +++ b/src/input/exprode.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exprode.output )set message test on )set message auto off diff --git a/src/input/exprpoly.input.pamphlet b/src/input/exprpoly.input.pamphlet index 6ff87a7..0dfb630 100644 --- a/src/input/exprpoly.input.pamphlet +++ b/src/input/exprpoly.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exprpoly.output )set message test on )set message auto off diff --git a/src/input/exseries.input.pamphlet b/src/input/exseries.input.pamphlet index a05df60..ef60679 100644 --- a/src/input/exseries.input.pamphlet +++ b/src/input/exseries.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exseries.output )set message test on )set message auto off diff --git a/src/input/exsum.input.pamphlet b/src/input/exsum.input.pamphlet index df444c0..0756a47 100644 --- a/src/input/exsum.input.pamphlet +++ b/src/input/exsum.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool exsum.output )set message test on )set message auto off diff --git a/src/input/farray.input.pamphlet b/src/input/farray.input.pamphlet index 68426e2..44a38f5 100644 --- a/src/input/farray.input.pamphlet +++ b/src/input/farray.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool farray.output )set message test on )set message auto off diff --git a/src/input/ffdemo.input.pamphlet b/src/input/ffdemo.input.pamphlet index 16b1964..2df7bfe 100644 --- a/src/input/ffdemo.input.pamphlet +++ b/src/input/ffdemo.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ffdemo.output )set message test on )set message auto off diff --git a/src/input/fferr.input.pamphlet b/src/input/fferr.input.pamphlet index 9ebe33b..607b253 100644 --- a/src/input/fferr.input.pamphlet +++ b/src/input/fferr.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fferr.output )set message test on )set message auto off diff --git a/src/input/ffx72.input.pamphlet b/src/input/ffx72.input.pamphlet index 0e40969..cdf9c40 100644 --- a/src/input/ffx72.input.pamphlet +++ b/src/input/ffx72.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ffx72.output )set message test on )set message auto off diff --git a/src/input/fib.input.pamphlet b/src/input/fib.input.pamphlet index b009a74..1fd5de6 100644 --- a/src/input/fib.input.pamphlet +++ b/src/input/fib.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fib.output )set message test on )set message auto off diff --git a/src/input/file.input.pamphlet b/src/input/file.input.pamphlet index fbe5ebf..ddd7e00 100644 --- a/src/input/file.input.pamphlet +++ b/src/input/file.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool file.output )set message test on )set message auto off diff --git a/src/input/float.input.pamphlet b/src/input/float.input.pamphlet index ea2426c..6f1f1cc 100644 --- a/src/input/float.input.pamphlet +++ b/src/input/float.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool float.output )set message test on )set message auto off diff --git a/src/input/float1.input.pamphlet b/src/input/float1.input.pamphlet index 441af18..18fddc7 100644 --- a/src/input/float1.input.pamphlet +++ b/src/input/float1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool float1.output )set message test on )set message auto off diff --git a/src/input/float2.input.pamphlet b/src/input/float2.input.pamphlet index b32493d..6c400cf 100644 --- a/src/input/float2.input.pamphlet +++ b/src/input/float2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool float2.output )set message test on )set message auto off diff --git a/src/input/fname.input.pamphlet b/src/input/fname.input.pamphlet index d86beaa..637c56c 100644 --- a/src/input/fname.input.pamphlet +++ b/src/input/fname.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fname.output )set message test on )set message auto off diff --git a/src/input/fname1.input.pamphlet b/src/input/fname1.input.pamphlet index a858971..19f5c8c 100644 --- a/src/input/fname1.input.pamphlet +++ b/src/input/fname1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fname1.output )set message test on )set message auto off diff --git a/src/input/fnla.input.pamphlet b/src/input/fnla.input.pamphlet index 21b6f53..3b8026c 100644 --- a/src/input/fnla.input.pamphlet +++ b/src/input/fnla.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fnla.output )set message test on )set message auto off diff --git a/src/input/fns.input.pamphlet b/src/input/fns.input.pamphlet index 5f427a0..4ea65f2 100644 --- a/src/input/fns.input.pamphlet +++ b/src/input/fns.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fns.output )set message test on )set message auto off diff --git a/src/input/fparfrac.input.pamphlet b/src/input/fparfrac.input.pamphlet index 117ffac..5d03eeb 100644 --- a/src/input/fparfrac.input.pamphlet +++ b/src/input/fparfrac.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fparfrac.output )set message test on )set message auto off diff --git a/src/input/fparfrc.input.pamphlet b/src/input/fparfrc.input.pamphlet index fab63dc..513135a 100644 --- a/src/input/fparfrc.input.pamphlet +++ b/src/input/fparfrc.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fparfrc.output )set message test on )set message auto off diff --git a/src/input/fr.input.pamphlet b/src/input/fr.input.pamphlet index b96261c..22fb8b6 100644 --- a/src/input/fr.input.pamphlet +++ b/src/input/fr.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fr.output )set message test on )set message auto off diff --git a/src/input/fr1.input.pamphlet b/src/input/fr1.input.pamphlet index e057204..4b6b128 100644 --- a/src/input/fr1.input.pamphlet +++ b/src/input/fr1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fr1.output )set message test on )set message auto off diff --git a/src/input/fr2.input.pamphlet b/src/input/fr2.input.pamphlet index f6d0229..1e2f473 100644 --- a/src/input/fr2.input.pamphlet +++ b/src/input/fr2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool fr2.output )set message test on )set message auto off diff --git a/src/input/frac.input.pamphlet b/src/input/frac.input.pamphlet index 23c6094..31a5ce5 100644 --- a/src/input/frac.input.pamphlet +++ b/src/input/frac.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool frac.output )set message test on )set message auto off diff --git a/src/input/frame.input.pamphlet b/src/input/frame.input.pamphlet index 75ce1a2..f3f97d2 100644 --- a/src/input/frame.input.pamphlet +++ b/src/input/frame.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool frame.output )set message test on )set message auto off diff --git a/src/input/free.input.pamphlet b/src/input/free.input.pamphlet index a65daf6..42db6f1 100644 --- a/src/input/free.input.pamphlet +++ b/src/input/free.input.pamphlet @@ -11,6 +11,7 @@ We expect that $-b < z < a < b$ \tableofcontents \eject <<*>>= +)set break resume )spool free.output )set message test on )set message auto off diff --git a/src/input/function.input.pamphlet b/src/input/function.input.pamphlet index 52c3385..0397d6c 100644 --- a/src/input/function.input.pamphlet +++ b/src/input/function.input.pamphlet @@ -11,6 +11,7 @@ \eject Input for page RationatFunctionPage <<*>>= +)set break resume )spool function.output )set message test on )set message auto off diff --git a/src/input/galois.input.pamphlet b/src/input/galois.input.pamphlet index e79f79c..7d3e13c 100644 --- a/src/input/galois.input.pamphlet +++ b/src/input/galois.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool galois.output )set message test on )set message auto off diff --git a/src/input/gamma.input.pamphlet b/src/input/gamma.input.pamphlet index 6ccd4a5..b4a4a72 100644 --- a/src/input/gamma.input.pamphlet +++ b/src/input/gamma.input.pamphlet @@ -18,6 +18,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp267-270 <<*>>= +)set break resume )spool gamma.output )set message test on )set message auto off diff --git a/src/input/gbf.input.pamphlet b/src/input/gbf.input.pamphlet index 287ae50..653722a 100644 --- a/src/input/gbf.input.pamphlet +++ b/src/input/gbf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool gbf.output )set message test on )set message auto off diff --git a/src/input/genups.input.pamphlet b/src/input/genups.input.pamphlet index 66c159f..bc17846 100644 --- a/src/input/genups.input.pamphlet +++ b/src/input/genups.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool genups.output )set message test on )set message auto off diff --git a/src/input/gonshor.input.pamphlet b/src/input/gonshor.input.pamphlet index 748192c..8767646 100644 --- a/src/input/gonshor.input.pamphlet +++ b/src/input/gonshor.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool gonshor.output )set message test on )set message auto off diff --git a/src/input/grpthry.input.pamphlet b/src/input/grpthry.input.pamphlet index e713c5c..d0fd173 100644 --- a/src/input/grpthry.input.pamphlet +++ b/src/input/grpthry.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool grpthry.output )set message test on )set message auto off diff --git a/src/input/gstbl.input.pamphlet b/src/input/gstbl.input.pamphlet index 109bda5..7ba8d7b 100644 --- a/src/input/gstbl.input.pamphlet +++ b/src/input/gstbl.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool gstbl.output )set message test on )set message auto off @@ -26,7 +27,10 @@ patrons: GeneralSparseTable(String, Integer, KeyedAccessFile(Integer), 0) := tab --RDaly Bug --R >> Error detected within library code: --R File is not readable ---R "kaf1406.sdata" +--R "kaf1413.sdata" +--R +--R Continuing to read the file... +--R --E 1 )spool )lisp (bye) diff --git a/src/input/heap.input.pamphlet b/src/input/heap.input.pamphlet index 2ab444e..e0f38b6 100644 --- a/src/input/heap.input.pamphlet +++ b/src/input/heap.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool heap.output )set message test on )set message auto off diff --git a/src/input/heat.input.pamphlet b/src/input/heat.input.pamphlet index 58e07ca..81c40b7 100644 --- a/src/input/heat.input.pamphlet +++ b/src/input/heat.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool heat.output )set message test on )set message auto off diff --git a/src/input/help.input.pamphlet b/src/input/help.input.pamphlet index 458ceb1..cb65c98 100644 --- a/src/input/help.input.pamphlet +++ b/src/input/help.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool help.output )set message test on )set message auto off diff --git a/src/input/herm.input.pamphlet b/src/input/herm.input.pamphlet index da4e7c8..b5c38a9 100644 --- a/src/input/herm.input.pamphlet +++ b/src/input/herm.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool herm.output )set message test on )set message auto off diff --git a/src/input/heugcd.input.pamphlet b/src/input/heugcd.input.pamphlet index 9541d31..0d52c96 100644 --- a/src/input/heugcd.input.pamphlet +++ b/src/input/heugcd.input.pamphlet @@ -16,6 +16,7 @@ This is a test of revision 256 of FriCAS which changed the gcd function in listgcd.spad.pamphlet. @ <<*>>= +)set break resume )spool heugcd.output )set message test on )set message auto off diff --git a/src/input/hexadec.input.pamphlet b/src/input/hexadec.input.pamphlet index 753f997..37da75e 100644 --- a/src/input/hexadec.input.pamphlet +++ b/src/input/hexadec.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool hexadec.output )set message test on )set message auto off diff --git a/src/input/hyperbolicrules.input.pamphlet b/src/input/hyperbolicrules.input.pamphlet index fd3af28..7924cb5 100644 --- a/src/input/hyperbolicrules.input.pamphlet +++ b/src/input/hyperbolicrules.input.pamphlet @@ -13,6 +13,7 @@ \subsection{8.1 Hyperbolic sine of x} \[{\rm sinh}(x) == \frac{e^x-e^{-x}}{2}\] <<*>>= +)set break resume )spool hyperbolicrules.output )set message test on )set message auto off diff --git a/src/input/ico.input.pamphlet b/src/input/ico.input.pamphlet index f096f56..aaacf79 100644 --- a/src/input/ico.input.pamphlet +++ b/src/input/ico.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ico.output )set message test on )set message auto off @@ -584,10 +585,15 @@ polygon(space,[p10,p11,p6]) makeViewport3D(space,title=="Icosahedron") --R --R Transmitting data... +--R +--RDaly Bug +--R >> System error: +--R SOCK-SEND-INT is invalid as a function. +--R +--R Continuing to read the file... --R ---R (64) ThreeDimensionalViewport: "Icosahedron" ---R Type: ThreeDimensionalViewport --E 65 + )spool )lisp (bye) diff --git a/src/input/ideal.input.pamphlet b/src/input/ideal.input.pamphlet index 707781b..cef672c 100644 --- a/src/input/ideal.input.pamphlet +++ b/src/input/ideal.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ideal.output )set message test on )set message auto off diff --git a/src/input/ifact.input.pamphlet b/src/input/ifact.input.pamphlet index 4b59202..21839f4 100644 --- a/src/input/ifact.input.pamphlet +++ b/src/input/ifact.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ifact.output )set message test on )set message auto off diff --git a/src/input/ifthenelse.input.pamphlet b/src/input/ifthenelse.input.pamphlet index 29c75b4..6dd5024 100644 --- a/src/input/ifthenelse.input.pamphlet +++ b/src/input/ifthenelse.input.pamphlet @@ -12,6 +12,7 @@ \eject @ <<*>>= +)set break resume )spool ifthenelse.output )set message test on )set message auto off diff --git a/src/input/infprod.input.pamphlet b/src/input/infprod.input.pamphlet index f0674a3..d2910c3 100644 --- a/src/input/infprod.input.pamphlet +++ b/src/input/infprod.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool infprod.output )set message test on )set message auto off diff --git a/src/input/int.input.pamphlet b/src/input/int.input.pamphlet index 5956115..c919750 100644 --- a/src/input/int.input.pamphlet +++ b/src/input/int.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool int.output )set message test on )set message auto off diff --git a/src/input/intaf.input.pamphlet b/src/input/intaf.input.pamphlet index 345e257..fde87c9 100644 --- a/src/input/intaf.input.pamphlet +++ b/src/input/intaf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intaf.output )set message test on )set message auto off diff --git a/src/input/intbypart.input.pamphlet b/src/input/intbypart.input.pamphlet index e1972b8..1b2b304 100644 --- a/src/input/intbypart.input.pamphlet +++ b/src/input/intbypart.input.pamphlet @@ -11,6 +11,7 @@ This are functions which are usually solved using integration by parts. \tableofcontents \eject <<*>>= +)set break resume )spool intbypart.output )set message test on )set message auto off diff --git a/src/input/intdeq.input.pamphlet b/src/input/intdeq.input.pamphlet index 31254e4..7e29cb6 100644 --- a/src/input/intdeq.input.pamphlet +++ b/src/input/intdeq.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intdeq.output )set message test on )set message auto off diff --git a/src/input/intef.input.pamphlet b/src/input/intef.input.pamphlet index 81331c8..35162da 100644 --- a/src/input/intef.input.pamphlet +++ b/src/input/intef.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intef.output )set message test on )set message auto off diff --git a/src/input/intef2.input.pamphlet b/src/input/intef2.input.pamphlet index 7b1dbe2..d431812 100644 --- a/src/input/intef2.input.pamphlet +++ b/src/input/intef2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intef2.output )set message test on )set message auto off diff --git a/src/input/intg0.input.pamphlet b/src/input/intg0.input.pamphlet index bc5a258..4a49b22 100644 --- a/src/input/intg0.input.pamphlet +++ b/src/input/intg0.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intg0.output )set message test on )set message auto off diff --git a/src/input/intheory.input.pamphlet b/src/input/intheory.input.pamphlet index 5ae09fe..45d47a2 100644 --- a/src/input/intheory.input.pamphlet +++ b/src/input/intheory.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intheory.output )set message test on )set message auto off diff --git a/src/input/intlf.input.pamphlet b/src/input/intlf.input.pamphlet index 86fbd05..783f3c0 100644 --- a/src/input/intlf.input.pamphlet +++ b/src/input/intlf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intlf.output )set message test on )set message auto off diff --git a/src/input/intmix.input.pamphlet b/src/input/intmix.input.pamphlet index cf727c0..3e73acd 100644 --- a/src/input/intmix.input.pamphlet +++ b/src/input/intmix.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intmix.output )set message test on )set message auto off diff --git a/src/input/intmix2.input.pamphlet b/src/input/intmix2.input.pamphlet index 01c9062..a5a0334 100644 --- a/src/input/intmix2.input.pamphlet +++ b/src/input/intmix2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intmix2.output )set message test on )set message auto off diff --git a/src/input/intrf.input.pamphlet b/src/input/intrf.input.pamphlet index 80933c8..76091b9 100644 --- a/src/input/intrf.input.pamphlet +++ b/src/input/intrf.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool intrf.output )set message test on )set message auto off diff --git a/src/input/ipftest.input.pamphlet b/src/input/ipftest.input.pamphlet index f545f9f..3a014f9 100644 --- a/src/input/ipftest.input.pamphlet +++ b/src/input/ipftest.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ipftest.output )set message test on )set message auto off diff --git a/src/input/iprntpk.input.pamphlet b/src/input/iprntpk.input.pamphlet index 2343aa3..346709d 100644 --- a/src/input/iprntpk.input.pamphlet +++ b/src/input/iprntpk.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool iprntpk.output )set message test on )set message auto off diff --git a/src/input/is.input.pamphlet b/src/input/is.input.pamphlet index 7dd1ade..0845db2 100644 --- a/src/input/is.input.pamphlet +++ b/src/input/is.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool is.output )set message test on )set message auto off diff --git a/src/input/isprime.input.pamphlet b/src/input/isprime.input.pamphlet index ef7c4bb..9178121 100644 --- a/src/input/isprime.input.pamphlet +++ b/src/input/isprime.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool isprime.output )set message test on )set message auto off diff --git a/src/input/kafile.input.pamphlet b/src/input/kafile.input.pamphlet index 4e178dc..c29b570 100644 --- a/src/input/kafile.input.pamphlet +++ b/src/input/kafile.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool kafile.output )set message test on )set message auto off @@ -58,6 +59,9 @@ ey."Char" --R >> Error detected within library code: --R File is not readable --R "/tmp/editor.year" +--R +--R Continuing to read the file... +--R --E 5 )spool )lisp (bye) diff --git a/src/input/kernel.input.pamphlet b/src/input/kernel.input.pamphlet index 0dbfd46..7ced09a 100644 --- a/src/input/kernel.input.pamphlet +++ b/src/input/kernel.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool kernel.output )set message test on )set message auto off diff --git a/src/input/knot2.input.pamphlet b/src/input/knot2.input.pamphlet index 7973989..5df3e80 100644 --- a/src/input/knot2.input.pamphlet +++ b/src/input/knot2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool knot2.output )set message test on )set message auto off @@ -93,9 +94,13 @@ v:=draw(curve(sin t * cos(PQ*t),cos t * cos(PQ*t),cos t * sin(PQ*t)), _ --I Compiling function %D with type DoubleFloat -> DoubleFloat --I Compiling function %F with type DoubleFloat -> DoubleFloat --R Transmitting data... +--R +--RDaly Bug +--R >> System error: +--R SOCK-SEND-INT is invalid as a function. +--R +--R Continuing to read the file... --R ---R (7) ThreeDimensionalViewport: "DCOS((3*t)/5)*DSIN(t)" ---R Type: ThreeDimensionalViewport --E 7 @ diff --git a/src/input/kovacic.input.pamphlet b/src/input/kovacic.input.pamphlet index 073aff0..97ff3c8 100644 --- a/src/input/kovacic.input.pamphlet +++ b/src/input/kovacic.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool kovacic.output )set message test on )set message auto off diff --git a/src/input/kuipers.input.pamphlet b/src/input/kuipers.input.pamphlet index 5889b48..260c5ea 100644 --- a/src/input/kuipers.input.pamphlet +++ b/src/input/kuipers.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool kuipers.output )set message test on )set message auto off diff --git a/src/input/laplace.input.pamphlet b/src/input/laplace.input.pamphlet index 4a02ead..94debba 100644 --- a/src/input/laplace.input.pamphlet +++ b/src/input/laplace.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool laplace.output )set message test on )set message auto off diff --git a/src/input/leg.input.pamphlet b/src/input/leg.input.pamphlet index cb1adfd..e55bf41 100644 --- a/src/input/leg.input.pamphlet +++ b/src/input/leg.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool leg.output )set message test on )set message auto off diff --git a/src/input/limit.input.pamphlet b/src/input/limit.input.pamphlet index ec80f68..58a101b 100644 --- a/src/input/limit.input.pamphlet +++ b/src/input/limit.input.pamphlet @@ -27,6 +27,7 @@ $$0 < \vert x-a \vert < \delta {\tt\ implies\ } Note that $f(x)$ does not need to be defined at $a$. <<*>>= +)set break resume )spool limit.output )set message test on )set message auto off diff --git a/src/input/linalg.input.pamphlet b/src/input/linalg.input.pamphlet index 17156fe..6cc06f2 100644 --- a/src/input/linalg.input.pamphlet +++ b/src/input/linalg.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool linalg.output )set message test on )set message auto off diff --git a/src/input/lindep.input.pamphlet b/src/input/lindep.input.pamphlet index af0b150..6585b93 100644 --- a/src/input/lindep.input.pamphlet +++ b/src/input/lindep.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lindep.output )set message test on )set message auto off diff --git a/src/input/list.input.pamphlet b/src/input/list.input.pamphlet index 00c81c3..a028e61 100644 --- a/src/input/list.input.pamphlet +++ b/src/input/list.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool list.output )set message test on )set message auto off diff --git a/src/input/liu.input.pamphlet b/src/input/liu.input.pamphlet index 65aa30d..0971d70 100644 --- a/src/input/liu.input.pamphlet +++ b/src/input/liu.input.pamphlet @@ -16,6 +16,7 @@ operator, say L, means repeating multiplications of L in Axiom ? If so, it seems the following code produced an unexpected result: @ <<*>>= +)set break resume )spool liu.output )set message test on )set message auto off diff --git a/src/input/lode.input.pamphlet b/src/input/lode.input.pamphlet index 67f68d8..d11d05f 100644 --- a/src/input/lode.input.pamphlet +++ b/src/input/lode.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lode.output )set message test on )set message auto off diff --git a/src/input/lodesys.input.pamphlet b/src/input/lodesys.input.pamphlet index c7d5a20..a4e436b 100644 --- a/src/input/lodesys.input.pamphlet +++ b/src/input/lodesys.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodesys.output )set message test on )set message auto off diff --git a/src/input/lodo.input.pamphlet b/src/input/lodo.input.pamphlet index 5a25bcd..66312df 100644 --- a/src/input/lodo.input.pamphlet +++ b/src/input/lodo.input.pamphlet @@ -20,6 +20,7 @@ or elements of other domains. --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodo.output )set message test on )set message auto off diff --git a/src/input/lodo1.input.pamphlet b/src/input/lodo1.input.pamphlet index 84255b5..e0609b7 100644 --- a/src/input/lodo1.input.pamphlet +++ b/src/input/lodo1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodo1.output )set message test on )set message auto off diff --git a/src/input/lodo2.input.pamphlet b/src/input/lodo2.input.pamphlet index c4e6162..9f73ed3 100644 --- a/src/input/lodo2.input.pamphlet +++ b/src/input/lodo2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodo2.output )set message test on )set message auto off diff --git a/src/input/lodo3.input.pamphlet b/src/input/lodo3.input.pamphlet index dd405f0..d777dc9 100644 --- a/src/input/lodo3.input.pamphlet +++ b/src/input/lodo3.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodo3.output )set message test on )set message auto off diff --git a/src/input/lodof.input.pamphlet b/src/input/lodof.input.pamphlet index 8f2c6a9..3ca507c 100644 --- a/src/input/lodof.input.pamphlet +++ b/src/input/lodof.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lodof.output )set message test on )set message auto off diff --git a/src/input/log.input.pamphlet b/src/input/log.input.pamphlet index 8c6f78e..9f61027 100644 --- a/src/input/log.input.pamphlet +++ b/src/input/log.input.pamphlet @@ -18,6 +18,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp100-113 <<*>>= +)set break resume )spool log.output )set message test on )set message auto off diff --git a/src/input/lpoly.input.pamphlet b/src/input/lpoly.input.pamphlet index 10f089d..672585b 100644 --- a/src/input/lpoly.input.pamphlet +++ b/src/input/lpoly.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lpoly.output )set message test on )set message auto off diff --git a/src/input/lupfact.input.pamphlet b/src/input/lupfact.input.pamphlet index a1bca2c..9d5f2a6 100644 --- a/src/input/lupfact.input.pamphlet +++ b/src/input/lupfact.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lupfact.output )set message test on )set message auto off diff --git a/src/input/lword.input.pamphlet b/src/input/lword.input.pamphlet index 6a630c1..cb5e203 100644 --- a/src/input/lword.input.pamphlet +++ b/src/input/lword.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool lword.output )set message test on )set message auto off diff --git a/src/input/macbug.input.pamphlet b/src/input/macbug.input.pamphlet index 59b94b0..270e63d 100644 --- a/src/input/macbug.input.pamphlet +++ b/src/input/macbug.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool macbug.output )set message test on )set message auto off diff --git a/src/input/macros.input.pamphlet b/src/input/macros.input.pamphlet index bf4e49b..16154f7 100644 --- a/src/input/macros.input.pamphlet +++ b/src/input/macros.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool macros.output )set message test on )set message auto off diff --git a/src/input/magma.input.pamphlet b/src/input/magma.input.pamphlet index ac761ae..521c896 100644 --- a/src/input/magma.input.pamphlet +++ b/src/input/magma.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool magma.output )set message test on )set message auto off diff --git a/src/input/mappkg1.input.pamphlet b/src/input/mappkg1.input.pamphlet index 581590b..1218a4f 100644 --- a/src/input/mappkg1.input.pamphlet +++ b/src/input/mappkg1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mappkg1.output )set message test on )set message auto off diff --git a/src/input/marcbench.input.pamphlet b/src/input/marcbench.input.pamphlet index 4cdc024..7a79b66 100644 --- a/src/input/marcbench.input.pamphlet +++ b/src/input/marcbench.input.pamphlet @@ -12,6 +12,7 @@ \section{License} <<*>>= +)set break resume )clear completely )set message type off )set message time off diff --git a/src/input/matbug.input.pamphlet b/src/input/matbug.input.pamphlet index b951f80..0dfb85e 100644 --- a/src/input/matbug.input.pamphlet +++ b/src/input/matbug.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool matbug.output )set message test on )set message auto off diff --git a/src/input/mathml.input.pamphlet b/src/input/mathml.input.pamphlet index a19b868..e027568 100644 --- a/src/input/mathml.input.pamphlet +++ b/src/input/mathml.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool mathml.output )set message test on )set message auto off diff --git a/src/input/matrix.input.pamphlet b/src/input/matrix.input.pamphlet index 2d35d55..15ad5b6 100644 --- a/src/input/matrix.input.pamphlet +++ b/src/input/matrix.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool matrix.output )set message test on )set message auto off diff --git a/src/input/matrix1.input.pamphlet b/src/input/matrix1.input.pamphlet index 116c40f..551784b 100644 --- a/src/input/matrix1.input.pamphlet +++ b/src/input/matrix1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool matrix1.output )set message test on )set message auto off diff --git a/src/input/matrix22.input.pamphlet b/src/input/matrix22.input.pamphlet index fe93939..be95652 100644 --- a/src/input/matrix22.input.pamphlet +++ b/src/input/matrix22.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool matrix22.output )set message test on )set message auto off diff --git a/src/input/mfinfact.input.pamphlet b/src/input/mfinfact.input.pamphlet index ce065c1..421bfe5 100644 --- a/src/input/mfinfact.input.pamphlet +++ b/src/input/mfinfact.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mfinfact.output )set message test on )set message auto off diff --git a/src/input/mkfunc.input.pamphlet b/src/input/mkfunc.input.pamphlet index aaae763..be5acf7 100644 --- a/src/input/mkfunc.input.pamphlet +++ b/src/input/mkfunc.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mkfunc.output )set message test on )set message auto off diff --git a/src/input/mpoly.input.pamphlet b/src/input/mpoly.input.pamphlet index 950b67a..33a176b 100644 --- a/src/input/mpoly.input.pamphlet +++ b/src/input/mpoly.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mpoly.output )set message test on )set message auto off diff --git a/src/input/mset.input.pamphlet b/src/input/mset.input.pamphlet index 132d0cf..c076701 100644 --- a/src/input/mset.input.pamphlet +++ b/src/input/mset.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mset.output )set message test on )set message auto off diff --git a/src/input/mset2.input.pamphlet b/src/input/mset2.input.pamphlet index 074ce54..0cac826 100644 --- a/src/input/mset2.input.pamphlet +++ b/src/input/mset2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool mset2.output )set message test on )set message auto off diff --git a/src/input/multfact.input.pamphlet b/src/input/multfact.input.pamphlet index 9b10c58..5a7f96d 100644 --- a/src/input/multfact.input.pamphlet +++ b/src/input/multfact.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool multfact.output )set message test on )set message auto off diff --git a/src/input/multiple.input.pamphlet b/src/input/multiple.input.pamphlet index f94c9c1..db90c46 100644 --- a/src/input/multiple.input.pamphlet +++ b/src/input/multiple.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool multiple.output )set message test on )set message auto off diff --git a/src/input/ndftip.input.pamphlet b/src/input/ndftip.input.pamphlet index 11945fc..5966245 100644 --- a/src/input/ndftip.input.pamphlet +++ b/src/input/ndftip.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ndftip.output )set message test on )set message auto off diff --git a/src/input/negfloats.input.pamphlet b/src/input/negfloats.input.pamphlet index d10a1d1..7b39912 100644 --- a/src/input/negfloats.input.pamphlet +++ b/src/input/negfloats.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool negfloats.output )set message test on )set message auto off diff --git a/src/input/nepip.input.pamphlet b/src/input/nepip.input.pamphlet index cb9943f..67f3900 100644 --- a/src/input/nepip.input.pamphlet +++ b/src/input/nepip.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool nepip.output )set message test on )set message auto off diff --git a/src/input/newlodo.input.pamphlet b/src/input/newlodo.input.pamphlet index 5428956..23c18bf 100644 --- a/src/input/newlodo.input.pamphlet +++ b/src/input/newlodo.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool newlodo.output )set message test on )set message auto off diff --git a/src/input/newton.input.pamphlet b/src/input/newton.input.pamphlet index 423d2e7..0f95046 100644 --- a/src/input/newton.input.pamphlet +++ b/src/input/newton.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool newton.output )set message test on )set message auto off diff --git a/src/input/nlode.input.pamphlet b/src/input/nlode.input.pamphlet index 28e09f1..ed2bfa6 100644 --- a/src/input/nlode.input.pamphlet +++ b/src/input/nlode.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool nlode.output )set message test on )set message auto off diff --git a/src/input/none.input.pamphlet b/src/input/none.input.pamphlet index f9df93f..fd31063 100644 --- a/src/input/none.input.pamphlet +++ b/src/input/none.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool none.output )set message test on )set message auto off diff --git a/src/input/noonburg.input.pamphlet b/src/input/noonburg.input.pamphlet index dbd6020..7fa8287 100644 --- a/src/input/noonburg.input.pamphlet +++ b/src/input/noonburg.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool noonburg.output )set message test on )set message auto off diff --git a/src/input/noptip.input.pamphlet b/src/input/noptip.input.pamphlet index 1a2951f..76f3385 100644 --- a/src/input/noptip.input.pamphlet +++ b/src/input/noptip.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool noptip.output )set message test on )set message auto off diff --git a/src/input/nqip.input.pamphlet b/src/input/nqip.input.pamphlet index c999fe0..07536d6 100644 --- a/src/input/nqip.input.pamphlet +++ b/src/input/nqip.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool nqip.output )set message test on )set message auto off diff --git a/src/input/nsfip.input.pamphlet b/src/input/nsfip.input.pamphlet index 98aa59e..05890fe 100644 --- a/src/input/nsfip.input.pamphlet +++ b/src/input/nsfip.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool nsfip.output )set message test on )set message auto off diff --git a/src/input/numbers.input.pamphlet b/src/input/numbers.input.pamphlet index 1d3fa09..efe91ce 100644 --- a/src/input/numbers.input.pamphlet +++ b/src/input/numbers.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool numbers.output )set message test on )set message auto off diff --git a/src/input/oct.input.pamphlet b/src/input/oct.input.pamphlet index 3cd0c4b..4edbd25 100644 --- a/src/input/oct.input.pamphlet +++ b/src/input/oct.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool oct.output )set message test on )set message auto off diff --git a/src/input/octonion.input.pamphlet b/src/input/octonion.input.pamphlet index ce766b8..f593941 100644 --- a/src/input/octonion.input.pamphlet +++ b/src/input/octonion.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool octonion.output )set message test on )set message auto off diff --git a/src/input/ode.input.pamphlet b/src/input/ode.input.pamphlet index 28ecc7f..3c6510e 100644 --- a/src/input/ode.input.pamphlet +++ b/src/input/ode.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ode.output )set message test on )set message auto off diff --git a/src/input/odpol.input.pamphlet b/src/input/odpol.input.pamphlet index c43446e..e82023d 100644 --- a/src/input/odpol.input.pamphlet +++ b/src/input/odpol.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool odpol.output )set message test on )set message auto off diff --git a/src/input/op.input.pamphlet b/src/input/op.input.pamphlet index 1c56b77..94eea25 100644 --- a/src/input/op.input.pamphlet +++ b/src/input/op.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool op.output )set message test on )set message auto off diff --git a/src/input/op1.input.pamphlet b/src/input/op1.input.pamphlet index 2fdee44..be094bd 100644 --- a/src/input/op1.input.pamphlet +++ b/src/input/op1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool op1.output )set message test on )set message auto off diff --git a/src/input/opalg.input.pamphlet b/src/input/opalg.input.pamphlet index 69a18bc..7f748c2 100644 --- a/src/input/opalg.input.pamphlet +++ b/src/input/opalg.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool opalg.output )set message test on )set message auto off diff --git a/src/input/operator.input.pamphlet b/src/input/operator.input.pamphlet index b591fe9..4a020ee 100644 --- a/src/input/operator.input.pamphlet +++ b/src/input/operator.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool operator.output )set message test on )set message auto off diff --git a/src/input/ovar.input.pamphlet b/src/input/ovar.input.pamphlet index e895c7c..342532b 100644 --- a/src/input/ovar.input.pamphlet +++ b/src/input/ovar.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ovar.output )set message test on )set message auto off diff --git a/src/input/overload.input.pamphlet b/src/input/overload.input.pamphlet index 2db85a7..d5c7ada 100644 --- a/src/input/overload.input.pamphlet +++ b/src/input/overload.input.pamphlet @@ -11,6 +11,7 @@ Type conversion and overload problems \tableofcontents \eject <<*>>= +)set break resume )spool overload.output )set message test on )set message auto off diff --git a/src/input/padic.input.pamphlet b/src/input/padic.input.pamphlet index b3454e8..0ea57dd 100644 --- a/src/input/padic.input.pamphlet +++ b/src/input/padic.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool padic.output )set message test on )set message auto off diff --git a/src/input/page.input.pamphlet b/src/input/page.input.pamphlet index f1e01b4..2f5d29f 100644 --- a/src/input/page.input.pamphlet +++ b/src/input/page.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool page.output )set message test on )set message auto off diff --git a/src/input/parabola.input.pamphlet b/src/input/parabola.input.pamphlet index f0758d0..d8f0e86 100644 --- a/src/input/parabola.input.pamphlet +++ b/src/input/parabola.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool parabola.output )set message test on )set message auto off diff --git a/src/input/pascal.input.pamphlet b/src/input/pascal.input.pamphlet index 6ec78ff..4fa6e2e 100644 --- a/src/input/pascal.input.pamphlet +++ b/src/input/pascal.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pascal.output )set message test on )set message auto off diff --git a/src/input/pascal1.input.pamphlet b/src/input/pascal1.input.pamphlet index 0f4f0cf..668e60b 100644 --- a/src/input/pascal1.input.pamphlet +++ b/src/input/pascal1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pascal1.output )set message test on )set message auto off diff --git a/src/input/pat.input.pamphlet b/src/input/pat.input.pamphlet index 00a572d..ac55e40 100644 --- a/src/input/pat.input.pamphlet +++ b/src/input/pat.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pat.output )set message test on )set message auto off diff --git a/src/input/patch51.input.pamphlet b/src/input/patch51.input.pamphlet index 27afdd4..fc2dfdf 100644 --- a/src/input/patch51.input.pamphlet +++ b/src/input/patch51.input.pamphlet @@ -11,6 +11,7 @@ These are bug fixes available in patch51 \tableofcontents \eject <<*>>= +)set break resume )spool patch51.output )set message test on )set message auto off diff --git a/src/input/patmatch.input.pamphlet b/src/input/patmatch.input.pamphlet index 72c3bf9..ba9d39a 100644 --- a/src/input/patmatch.input.pamphlet +++ b/src/input/patmatch.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool patmatch.output )set message test on )set message auto off diff --git a/src/input/perm.input.pamphlet b/src/input/perm.input.pamphlet index caf7b78..10ac894 100644 --- a/src/input/perm.input.pamphlet +++ b/src/input/perm.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool perm.output )set message test on )set message auto off diff --git a/src/input/perman.input.pamphlet b/src/input/perman.input.pamphlet index 76ae845..f67f2d7 100644 --- a/src/input/perman.input.pamphlet +++ b/src/input/perman.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool perman.output )set message test on )set message auto off diff --git a/src/input/pfaffian.input.pamphlet b/src/input/pfaffian.input.pamphlet index 0e2f33b..8735dd5 100644 --- a/src/input/pfaffian.input.pamphlet +++ b/src/input/pfaffian.input.pamphlet @@ -72,6 +72,7 @@ defined to be zero. \section{Axiom code} <<*>>= +)set break resume )spool pfaffian.output )set message test on )set message auto off diff --git a/src/input/pfr.input.pamphlet b/src/input/pfr.input.pamphlet index 2e895cc..2187b4a 100644 --- a/src/input/pfr.input.pamphlet +++ b/src/input/pfr.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pfr.output )set message test on )set message auto off diff --git a/src/input/pfr1.input.pamphlet b/src/input/pfr1.input.pamphlet index 4f0f8ad..cad41fb 100644 --- a/src/input/pfr1.input.pamphlet +++ b/src/input/pfr1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pfr1.output )set message test on )set message auto off diff --git a/src/input/pmint.input.pamphlet b/src/input/pmint.input.pamphlet index ede0da7..af0efc6 100644 --- a/src/input/pmint.input.pamphlet +++ b/src/input/pmint.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool pmint.output )set message test on )set message auto off diff --git a/src/input/poly.input.pamphlet b/src/input/poly.input.pamphlet index 5cac997..660df41 100644 --- a/src/input/poly.input.pamphlet +++ b/src/input/poly.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool poly.output )set message test on )set message auto off diff --git a/src/input/poly1.input.pamphlet b/src/input/poly1.input.pamphlet index 3017b27..45f37a0 100644 --- a/src/input/poly1.input.pamphlet +++ b/src/input/poly1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool poly1.output )set message test on )set message auto off diff --git a/src/input/polycoer.input.pamphlet b/src/input/polycoer.input.pamphlet index 8b1c1b3..8148b7c 100644 --- a/src/input/polycoer.input.pamphlet +++ b/src/input/polycoer.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool polycoer.output )set message test on )set message auto off diff --git a/src/input/psgenfcn.input.pamphlet b/src/input/psgenfcn.input.pamphlet index 7cf61d7..4254f62 100644 --- a/src/input/psgenfcn.input.pamphlet +++ b/src/input/psgenfcn.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool psgenfcn.output )set message test on )set message auto off diff --git a/src/input/quat.input.pamphlet b/src/input/quat.input.pamphlet index 445ae09..dba9f34 100644 --- a/src/input/quat.input.pamphlet +++ b/src/input/quat.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool quat.output )set message test on )set message auto off diff --git a/src/input/quat1.input.pamphlet b/src/input/quat1.input.pamphlet index 962af66..4452b11 100644 --- a/src/input/quat1.input.pamphlet +++ b/src/input/quat1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool quat1.output )set message test on )set message auto off diff --git a/src/input/r20abugs.input.pamphlet b/src/input/r20abugs.input.pamphlet index 97dfa45..0985fb3 100644 --- a/src/input/r20abugs.input.pamphlet +++ b/src/input/r20abugs.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool r20abugs.output )set message test on )set message auto off diff --git a/src/input/r20bugs.input.pamphlet b/src/input/r20bugs.input.pamphlet index d91d6ff..93b9926 100644 --- a/src/input/r20bugs.input.pamphlet +++ b/src/input/r20bugs.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool r20bugs.output )set message test on )set message auto off diff --git a/src/input/r21bugs.input.pamphlet b/src/input/r21bugs.input.pamphlet index 7b60125..5fa83be 100644 --- a/src/input/r21bugs.input.pamphlet +++ b/src/input/r21bugs.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool r21bugs.output )set message test on )set message auto off diff --git a/src/input/r21bugsbig.input.pamphlet b/src/input/r21bugsbig.input.pamphlet index e035c15..c66d487 100644 --- a/src/input/r21bugsbig.input.pamphlet +++ b/src/input/r21bugsbig.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool r21bugsbig.output )set message test on )set message auto off diff --git a/src/input/radff.input.pamphlet b/src/input/radff.input.pamphlet index 878514f..14862ed 100644 --- a/src/input/radff.input.pamphlet +++ b/src/input/radff.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool radff.output )set message test on )set message auto off diff --git a/src/input/radix.input.pamphlet b/src/input/radix.input.pamphlet index aecdf21..3d7ffc2 100644 --- a/src/input/radix.input.pamphlet +++ b/src/input/radix.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool radix.output )set message test on )set message auto off diff --git a/src/input/realclos.input.pamphlet b/src/input/realclos.input.pamphlet index 24838b6..6110f55 100644 --- a/src/input/realclos.input.pamphlet +++ b/src/input/realclos.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool realclos.output )set message test on )set message auto off diff --git a/src/input/reclos.input.pamphlet b/src/input/reclos.input.pamphlet index 1e96d74..91dd2e7 100644 --- a/src/input/reclos.input.pamphlet +++ b/src/input/reclos.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool reclos.output )set message test on )set message auto off diff --git a/src/input/reclos2.input.pamphlet b/src/input/reclos2.input.pamphlet index 9d49052..439e48a 100644 --- a/src/input/reclos2.input.pamphlet +++ b/src/input/reclos2.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool reclos2.output )set message test on )set message auto off diff --git a/src/input/regset.input.pamphlet b/src/input/regset.input.pamphlet index cc33b54..72f04cf 100644 --- a/src/input/regset.input.pamphlet +++ b/src/input/regset.input.pamphlet @@ -11,6 +11,7 @@ Input generated from RegularTriangularSetXmpPage \tableofcontents \eject <<*>>= +)set break resume )spool regset.output )set message test on )set message auto off diff --git a/src/input/repa6.input.pamphlet b/src/input/repa6.input.pamphlet index 099c75d..768c4d8 100644 --- a/src/input/repa6.input.pamphlet +++ b/src/input/repa6.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool repa6.output )set message test on )set message auto off diff --git a/src/input/robidoux.input.pamphlet b/src/input/robidoux.input.pamphlet index 95a30d5..c37e47b 100644 --- a/src/input/robidoux.input.pamphlet +++ b/src/input/robidoux.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool robidoux.output )set message test on )set message auto off diff --git a/src/input/roman.input.pamphlet b/src/input/roman.input.pamphlet index f8a19e1..a6d20a3 100644 --- a/src/input/roman.input.pamphlet +++ b/src/input/roman.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool roman.output )set message test on )set message auto off diff --git a/src/input/roots.input.pamphlet b/src/input/roots.input.pamphlet index 6ce1647..5757bdf 100644 --- a/src/input/roots.input.pamphlet +++ b/src/input/roots.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool roots.output )set message test on )set message auto off diff --git a/src/input/rules.input.pamphlet b/src/input/rules.input.pamphlet index e4f5412..f9ec9b7 100644 --- a/src/input/rules.input.pamphlet +++ b/src/input/rules.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool rules.output )set message test on )set message auto off diff --git a/src/input/ruleset.input.pamphlet b/src/input/ruleset.input.pamphlet index 1ec2160..4b0625a 100644 --- a/src/input/ruleset.input.pamphlet +++ b/src/input/ruleset.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool ruleset.output )set message test on )set message auto off diff --git a/src/input/sae.input.pamphlet b/src/input/sae.input.pamphlet index 9ad68e4..6ff3f8d 100644 --- a/src/input/sae.input.pamphlet +++ b/src/input/sae.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool sae.output )set message test on )set message auto off diff --git a/src/input/schaum1.input.pamphlet b/src/input/schaum1.input.pamphlet index 6af52a9..59014f9 100644 --- a/src/input/schaum1.input.pamphlet +++ b/src/input/schaum1.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\frac{1}{ax+b}}= \frac{1}{a}~\ln(ax+b) $$ <<*>>= +)set break resume )spool schaum1.output )set message test on )set message auto off diff --git a/src/input/schaum10.input.pamphlet b/src/input/schaum10.input.pamphlet index 4daac8c..2f16a7b 100644 --- a/src/input/schaum10.input.pamphlet +++ b/src/input/schaum10.input.pamphlet @@ -10,6 +10,7 @@ \section{\cite{1}:14.210~~~~~$\displaystyle\int{\frac{dx}{\sqrt{x^2-a^2}}}$} $$\int{\frac{1}{\sqrt{x^2-a^2}}}=\ln\left(x+\sqrt{x^2-a^2}\right)$$ <<*>>= +)set break resume )spool schaum10.output )set message test on )set message auto off diff --git a/src/input/schaum11.input.pamphlet b/src/input/schaum11.input.pamphlet index 84bc9ab..cb8675c 100644 --- a/src/input/schaum11.input.pamphlet +++ b/src/input/schaum11.input.pamphlet @@ -10,6 +10,7 @@ \section{\cite{1}:14.237~~~~~$\displaystyle\int{\frac{dx}{\sqrt{a^2-x^2}}}$} $$\int{\frac{1}{\sqrt{a^2-x^2}}}=\ln\left(x+\sqrt{a^2-x^2}\right)$$ <<*>>= +)set break resume )spool schaum11.output )set message test on )set message auto off diff --git a/src/input/schaum12.input.pamphlet b/src/input/schaum12.input.pamphlet index 5bd9dc9..9f05594 100644 --- a/src/input/schaum12.input.pamphlet +++ b/src/input/schaum12.input.pamphlet @@ -19,6 +19,7 @@ $$\int{\frac{1}{ax^2+bx+c}}= \right. $$ <<*>>= +)set break resume )spool schaum12.output )set message test on )set message auto off diff --git a/src/input/schaum13.input.pamphlet b/src/input/schaum13.input.pamphlet index 5df3793..abdb68d 100644 --- a/src/input/schaum13.input.pamphlet +++ b/src/input/schaum13.input.pamphlet @@ -24,6 +24,7 @@ $$\int{\frac{1}{\sqrt{ax^2+bx+c}}}= \right. $$ <<*>>= +)set break resume )spool schaum13.output )set message test on )set message auto off diff --git a/src/input/schaum14.input.pamphlet b/src/input/schaum14.input.pamphlet index dacd0ee..dce0ad7 100644 --- a/src/input/schaum14.input.pamphlet +++ b/src/input/schaum14.input.pamphlet @@ -14,6 +14,7 @@ $$\int{\frac{1}{x^3+a^3}}= +\frac{1}{a^2\sqrt{3}}\tan^{-1}\frac{2x-a}{a\sqrt{3}} $$ <<*>>= +)set break resume )spool schaum14.output )set message test on )set message auto off diff --git a/src/input/schaum15.input.pamphlet b/src/input/schaum15.input.pamphlet index 3a02bf0..d7f65b6 100644 --- a/src/input/schaum15.input.pamphlet +++ b/src/input/schaum15.input.pamphlet @@ -15,6 +15,7 @@ $$\int{\frac{1}{x^4+a^4}}= -\frac{1}{2a^3\sqrt{2}}\tan^{-1}\frac{ax\sqrt{2}}{x^2-a^2} $$ <<*>>= +)set break resume )spool schaum15.output )set message test on )set message auto off diff --git a/src/input/schaum16.input.pamphlet b/src/input/schaum16.input.pamphlet index 4288115..d0aeed8 100644 --- a/src/input/schaum16.input.pamphlet +++ b/src/input/schaum16.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\frac{1}{x(x^n+a^n)}}= \frac{1}{na^n}\ln\frac{x^n}{x^n+a^n} $$ <<*>>= +)set break resume )spool schaum16.output )set message test on )set message auto off diff --git a/src/input/schaum17.input.pamphlet b/src/input/schaum17.input.pamphlet index fdc11a2..f1f4e17 100644 --- a/src/input/schaum17.input.pamphlet +++ b/src/input/schaum17.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sin ax}= -\frac{\cos{ax}}{a} $$ <<*>>= +)set break resume )spool schaum17.output )set message test on )set message auto off diff --git a/src/input/schaum18.input.pamphlet b/src/input/schaum18.input.pamphlet index 2626bfb..741c1bc 100644 --- a/src/input/schaum18.input.pamphlet +++ b/src/input/schaum18.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\cos ax}= \frac{\sin{ax}}{a} $$ <<*>>= +)set break resume )spool schaum18.output )set message test on )set message auto off diff --git a/src/input/schaum19.input.pamphlet b/src/input/schaum19.input.pamphlet index 9d2e474..d57b3c4 100644 --- a/src/input/schaum19.input.pamphlet +++ b/src/input/schaum19.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sin{ax}\cos{ax}}= \frac{\sin^2{ax}}{2a} $$ <<*>>= +)set break resume )spool schaum19.output )set message test on )set message auto off diff --git a/src/input/schaum2.input.pamphlet b/src/input/schaum2.input.pamphlet index aab2406..a1e897e 100644 --- a/src/input/schaum2.input.pamphlet +++ b/src/input/schaum2.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\frac{1}{\sqrt{ax+b}}}= \frac{2\sqrt{ax+b}}{a} $$ <<*>>= +)set break resume )spool schaum2.output )set message test on )set message auto off diff --git a/src/input/schaum20.input.pamphlet b/src/input/schaum20.input.pamphlet index 272f151..0693acd 100644 --- a/src/input/schaum20.input.pamphlet +++ b/src/input/schaum20.input.pamphlet @@ -14,6 +14,7 @@ $$\int{\tan{ax}}= \frac{1}{a}\ln~\sec{ax} $$ <<*>>= +)set break resume )spool schaum20.output )set message test on )set message auto off diff --git a/src/input/schaum21.input.pamphlet b/src/input/schaum21.input.pamphlet index cc64923..85f235b 100644 --- a/src/input/schaum21.input.pamphlet +++ b/src/input/schaum21.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\cot{ax}}= \frac{1}{a}\ln\sin{ax} $$ <<*>>= +)set break resume )spool schaum21.output )set message test on )set message auto off diff --git a/src/input/schaum22.input.pamphlet b/src/input/schaum22.input.pamphlet index bd4a575..e2040e7 100644 --- a/src/input/schaum22.input.pamphlet +++ b/src/input/schaum22.input.pamphlet @@ -14,6 +14,7 @@ $$\int{\sec{ax}}= \frac{1}{a}\ln\tan\left(\frac{ax}{2}+\frac{\pi}{4}\right) $$ <<*>>= +)set break resume )spool schaum22.output )set message test on )set message auto off diff --git a/src/input/schaum23.input.pamphlet b/src/input/schaum23.input.pamphlet index fdf5b12..a2ed1fd 100644 --- a/src/input/schaum23.input.pamphlet +++ b/src/input/schaum23.input.pamphlet @@ -14,6 +14,7 @@ $$\int{\csc{ax}}= \frac{1}{a}\ln\tan{\frac{ax}{2}} $$ <<*>>= +)set break resume )spool schaum23.output )set message test on )set message auto off diff --git a/src/input/schaum24.input.pamphlet b/src/input/schaum24.input.pamphlet index 7042d3a..3aaa620 100644 --- a/src/input/schaum24.input.pamphlet +++ b/src/input/schaum24.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sin^{-1}{\frac{x}{a}}}= x\sin^{-1}{\frac{x}{a}}+\sqrt{a^2-x^2} $$ <<*>>= +)set break resume )spool schaum24.output )set message test on )set message auto off diff --git a/src/input/schaum25.input.pamphlet b/src/input/schaum25.input.pamphlet index 75694f8..5a28a8d 100644 --- a/src/input/schaum25.input.pamphlet +++ b/src/input/schaum25.input.pamphlet @@ -13,6 +13,7 @@ $$\int{e^{ax}}= \frac{e^{ax}}{a} $$ <<*>>= +)set break resume )spool schaum25.output )set message test on )set message auto off diff --git a/src/input/schaum26.input.pamphlet b/src/input/schaum26.input.pamphlet index a75d995..dae509e 100644 --- a/src/input/schaum26.input.pamphlet +++ b/src/input/schaum26.input.pamphlet @@ -13,6 +13,7 @@ $$\int{ln x}= x\ln{x}-x $$ <<*>>= +)set break resume )spool schaum26.output )set message test on )set message auto off diff --git a/src/input/schaum27.input.pamphlet b/src/input/schaum27.input.pamphlet index 3563060..d1186c6 100644 --- a/src/input/schaum27.input.pamphlet +++ b/src/input/schaum27.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sinh{ax}}= \frac{\cosh{ax}}{a} $$ <<*>>= +)set break resume )spool schaum27.output )set message test on )set message auto off diff --git a/src/input/schaum28.input.pamphlet b/src/input/schaum28.input.pamphlet index 0015905..ad9581b 100644 --- a/src/input/schaum28.input.pamphlet +++ b/src/input/schaum28.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\cosh{ax}}= \frac{\sinh{ax}}{a} $$ <<*>>= +)set break resume )spool schaum28.output )set message test on )set message auto off diff --git a/src/input/schaum29.input.pamphlet b/src/input/schaum29.input.pamphlet index 559e612..1259c24 100644 --- a/src/input/schaum29.input.pamphlet +++ b/src/input/schaum29.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sinh{ax}\cosh{ax}}= \frac{\sinh^2{ax}}{2a} $$ <<*>>= +)set break resume )spool schaum29.output )set message test on )set message auto off diff --git a/src/input/schaum3.input.pamphlet b/src/input/schaum3.input.pamphlet index 6ad4c38..83a9eb1 100644 --- a/src/input/schaum3.input.pamphlet +++ b/src/input/schaum3.input.pamphlet @@ -11,6 +11,7 @@ $$\int{\frac{1}{(ax+b)(px+q)}}= \frac{1}{bp-aq}~\ln\left(\frac{px+q}{ax+b}\right)$$ <<*>>= +)set break resume )spool schaum3.output )set message test on )set message auto off diff --git a/src/input/schaum30.input.pamphlet b/src/input/schaum30.input.pamphlet index 5f5a26b..1f2983c 100644 --- a/src/input/schaum30.input.pamphlet +++ b/src/input/schaum30.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\tanh{ax}}= \frac{1}{a}\ln\cosh{ax} $$ <<*>>= +)set break resume )spool schaum30.output )set message test on )set message auto off diff --git a/src/input/schaum31.input.pamphlet b/src/input/schaum31.input.pamphlet index 36eb793..07de8d1 100644 --- a/src/input/schaum31.input.pamphlet +++ b/src/input/schaum31.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\coth{ax}}= \frac{1}{a}\ln\sinh{ax} $$ <<*>>= +)set break resume )spool schaum31.output )set message test on )set message auto off diff --git a/src/input/schaum32.input.pamphlet b/src/input/schaum32.input.pamphlet index d5ce6f4..d873882 100644 --- a/src/input/schaum32.input.pamphlet +++ b/src/input/schaum32.input.pamphlet @@ -13,6 +13,7 @@ $$\int{{\rm sech~}{ax}}= \frac{2}{a}\tanh^{-1}{e^{ax}} $$ <<*>>= +)set break resume )spool schaum32.output )set message test on )set message auto off diff --git a/src/input/schaum33.input.pamphlet b/src/input/schaum33.input.pamphlet index 7a33dd1..afceadf 100644 --- a/src/input/schaum33.input.pamphlet +++ b/src/input/schaum33.input.pamphlet @@ -13,6 +13,7 @@ $$\int{{\rm csch~}{ax}}= \frac{1}{a}\ln\tanh{\frac{ax}{2}} $$ <<*>>= +)set break resume )spool schaum33.output )set message test on )set message auto off diff --git a/src/input/schaum34.input.pamphlet b/src/input/schaum34.input.pamphlet index 10ef92b..ae4b665 100644 --- a/src/input/schaum34.input.pamphlet +++ b/src/input/schaum34.input.pamphlet @@ -13,6 +13,7 @@ $$\int{\sinh^{-1}\frac{x}{a}}= x\sinh^{-1}\frac{x}{a}-\sqrt{x^2+a^2} $$ <<*>>= +)set break resume )spool schaum34.output )set message test on )set message auto off diff --git a/src/input/schaum4.input.pamphlet b/src/input/schaum4.input.pamphlet index 26dd9f9..e110709 100644 --- a/src/input/schaum4.input.pamphlet +++ b/src/input/schaum4.input.pamphlet @@ -11,6 +11,7 @@ $$\int{\frac{px+q}{\sqrt{ax+b}}}= \frac{2(apx+3aq-2bp)}{3a^2}\sqrt{ax+b}$$ <<*>>= +)set break resume )spool schaum4.output )set message test on )set message auto off diff --git a/src/input/schaum5.input.pamphlet b/src/input/schaum5.input.pamphlet index 81784b7..957f727 100644 --- a/src/input/schaum5.input.pamphlet +++ b/src/input/schaum5.input.pamphlet @@ -17,6 +17,7 @@ $$\int{\frac{1}{\sqrt{(ax+b)(px+q)}}}= \end{array} \right.$$ <<*>>= +)set break resume )spool schaum5.output )set message test on )set message auto off diff --git a/src/input/schaum6.input.pamphlet b/src/input/schaum6.input.pamphlet index 82b1d2b..0516829 100644 --- a/src/input/schaum6.input.pamphlet +++ b/src/input/schaum6.input.pamphlet @@ -10,6 +10,7 @@ \section{\cite{1}:14.125~~~~~$\displaystyle\int{\frac{dx}{x^2+a^2}}$} $$\int{\frac{1}{x^2+a^2}}=\frac{1}{a}\tan^{-1}\frac{x}{a}$$ <<*>>= +)set break resume )spool schaum6.output )set message test on )set message auto off diff --git a/src/input/schaum7.input.pamphlet b/src/input/schaum7.input.pamphlet index 3b64f8e..b3eb346 100644 --- a/src/input/schaum7.input.pamphlet +++ b/src/input/schaum7.input.pamphlet @@ -11,6 +11,7 @@ $$\int{\frac{1}{x^2-a^2}}=\frac{1}{2a}\ln\left(\frac{x-a}{x+a}\right)$$ $$\int{\frac{1}{x^2-a^2}}=-\frac{1}{a}\coth^{-1}\frac{x}{a}$$ <<*>>= +)set break resume )spool schaum7.output )set message test on )set message auto off diff --git a/src/input/schaum8.input.pamphlet b/src/input/schaum8.input.pamphlet index b633686..b00fd18 100644 --- a/src/input/schaum8.input.pamphlet +++ b/src/input/schaum8.input.pamphlet @@ -11,6 +11,7 @@ $$\int{\frac{1}{a^2-x^2}}=\frac{1}{2a}\ln\left(\frac{a-x}{a+x}\right)$$ $$\int{\frac{1}{a^2-x^2}}=-\frac{1}{a}\coth^{-1}\frac{x}{a}$$ <<*>>= +)set break resume )spool schaum8.output )set message test on )set message auto off diff --git a/src/input/schaum9.input.pamphlet b/src/input/schaum9.input.pamphlet index 79f959b..8cbc33c 100644 --- a/src/input/schaum9.input.pamphlet +++ b/src/input/schaum9.input.pamphlet @@ -11,6 +11,7 @@ $$\int{\frac{1}{\sqrt{x^2+a^2}}}=\ln\left(x+\sqrt{x^2+a^2}\right)$$ $$\int{\frac{1}{\sqrt{x^2+a^2}}}=\sinh^{-1}\frac{x}{a}$$ <<*>>= +)set break resume )spool schaum9.output )set message test on )set message auto off diff --git a/src/input/scherk.input.pamphlet b/src/input/scherk.input.pamphlet index 64c82aa..3d35323 100644 --- a/src/input/scherk.input.pamphlet +++ b/src/input/scherk.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool scherk.output )set message test on )set message auto off diff --git a/src/input/scope.input.pamphlet b/src/input/scope.input.pamphlet index f67eb4b..557aa0a 100644 --- a/src/input/scope.input.pamphlet +++ b/src/input/scope.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool scope.output )set message test on )set message auto off diff --git a/src/input/seccsc.input.pamphlet b/src/input/seccsc.input.pamphlet index 05d789e..ccdcdea 100644 --- a/src/input/seccsc.input.pamphlet +++ b/src/input/seccsc.input.pamphlet @@ -17,6 +17,7 @@ second column is the reference value of sec from the book Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp186-188 <<*>>= +)set break resume )spool seccsc.output )set message test on )set message auto off diff --git a/src/input/seg.input.pamphlet b/src/input/seg.input.pamphlet index 08c6a8f..2062d29 100644 --- a/src/input/seg.input.pamphlet +++ b/src/input/seg.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool seg.output )set message test on )set message auto off diff --git a/src/input/segbind.input.pamphlet b/src/input/segbind.input.pamphlet index e232bcc..92bbe34 100644 --- a/src/input/segbind.input.pamphlet +++ b/src/input/segbind.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool segbind.output )set message test on )set message auto off diff --git a/src/input/series.input.pamphlet b/src/input/series.input.pamphlet index eb840eb..4fcdc70 100644 --- a/src/input/series.input.pamphlet +++ b/src/input/series.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool series.output )set message test on )set message auto off diff --git a/src/input/series2.input.pamphlet b/src/input/series2.input.pamphlet index b90584a..fd3990e 100644 --- a/src/input/series2.input.pamphlet +++ b/src/input/series2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool series2.output )set message test on )set message auto off diff --git a/src/input/sersolve.input.pamphlet b/src/input/sersolve.input.pamphlet index 993bb36..2d3ed69 100644 --- a/src/input/sersolve.input.pamphlet +++ b/src/input/sersolve.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool sersolve.output )set message test on )set message auto off diff --git a/src/input/set.input.pamphlet b/src/input/set.input.pamphlet index 6eaff41..b282edb 100644 --- a/src/input/set.input.pamphlet +++ b/src/input/set.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool set.output )set message test on )set message auto off diff --git a/src/input/setcmd.input.pamphlet b/src/input/setcmd.input.pamphlet index 399bca1..0a10e25 100644 --- a/src/input/setcmd.input.pamphlet +++ b/src/input/setcmd.input.pamphlet @@ -10,6 +10,7 @@ \tableofcontents \eject <<*>>= +)set break resume )spool setcmd.output )set message test on )set message auto off diff --git a/src/input/sincos.input.pamphlet b/src/input/sincos.input.pamphlet index 915ee4b..f5b34c6 100644 --- a/src/input/sincos.input.pamphlet +++ b/src/input/sincos.input.pamphlet @@ -18,6 +18,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp142-173 <<*>>= +)set break resume )spool sincos.output )set message test on )set message auto off diff --git a/src/input/sincosex.input.pamphlet b/src/input/sincosex.input.pamphlet index b551ab1..7375e2c 100644 --- a/src/input/sincosex.input.pamphlet +++ b/src/input/sincosex.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool sincosex.output )set message test on )set message auto off diff --git a/src/input/sinhcosh.input.pamphlet b/src/input/sinhcosh.input.pamphlet index aa23267..9fb4c9a 100644 --- a/src/input/sinhcosh.input.pamphlet +++ b/src/input/sinhcosh.input.pamphlet @@ -17,6 +17,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp213-216 <<*>>= +)set break resume )spool sinhcosh.output )set message test on )set message auto off diff --git a/src/input/sint.input.pamphlet b/src/input/sint.input.pamphlet index 25e530e..5f53fd3 100644 --- a/src/input/sint.input.pamphlet +++ b/src/input/sint.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool sint.output )set message test on )set message auto off diff --git a/src/input/skew.input.pamphlet b/src/input/skew.input.pamphlet index ed4859b..553a939 100644 --- a/src/input/skew.input.pamphlet +++ b/src/input/skew.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool skew.output )set message test on )set message auto off diff --git a/src/input/slowint.input.pamphlet b/src/input/slowint.input.pamphlet index aaa349b..a1cdcf7 100644 --- a/src/input/slowint.input.pamphlet +++ b/src/input/slowint.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool slowint.output )set message test on )set message auto off diff --git a/src/input/solvetra.input.pamphlet b/src/input/solvetra.input.pamphlet index 5c0d64f..dc400fe 100644 --- a/src/input/solvetra.input.pamphlet +++ b/src/input/solvetra.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool solvetra.output )set message test on )set message auto off diff --git a/src/input/space3.input.pamphlet b/src/input/space3.input.pamphlet index 24156d5..85dac5e 100644 --- a/src/input/space3.input.pamphlet +++ b/src/input/space3.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool space3.output )set message test on )set message auto off diff --git a/src/input/sqmatrix.input.pamphlet b/src/input/sqmatrix.input.pamphlet index e007f05..c1c2247 100644 --- a/src/input/sqmatrix.input.pamphlet +++ b/src/input/sqmatrix.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool sqmatrix.output )set message test on )set message auto off diff --git a/src/input/sqrt3.input.pamphlet b/src/input/sqrt3.input.pamphlet index ad20ab9..c26ec49 100644 --- a/src/input/sqrt3.input.pamphlet +++ b/src/input/sqrt3.input.pamphlet @@ -12,6 +12,7 @@ A demo involving the algebraic number $\sqrt{3}$. \eject @ <<*>>= +)set break resume )spool sqrt3.output )set message test on )set message auto off diff --git a/src/input/sregset.input.pamphlet b/src/input/sregset.input.pamphlet index 1059538..739d904 100644 --- a/src/input/sregset.input.pamphlet +++ b/src/input/sregset.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool sregset.output )set message test on )set message auto off diff --git a/src/input/stbl.input.pamphlet b/src/input/stbl.input.pamphlet index 2a2dd7b..9ad4d01 100644 --- a/src/input/stbl.input.pamphlet +++ b/src/input/stbl.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool stbl.output )set message test on )set message auto off diff --git a/src/input/stream.input.pamphlet b/src/input/stream.input.pamphlet index 9bd441a..d136ba6 100644 --- a/src/input/stream.input.pamphlet +++ b/src/input/stream.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool stream.output )set message test on )set message auto off diff --git a/src/input/stream2.input.pamphlet b/src/input/stream2.input.pamphlet index 514a99f..d586f32 100644 --- a/src/input/stream2.input.pamphlet +++ b/src/input/stream2.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool stream2.output )set message test on )set message auto off diff --git a/src/input/streams.input.pamphlet b/src/input/streams.input.pamphlet index 2595bd9..d2f0922 100644 --- a/src/input/streams.input.pamphlet +++ b/src/input/streams.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool streams.output )set message test on )set message auto off diff --git a/src/input/string.input.pamphlet b/src/input/string.input.pamphlet index e1603e5..dc84f8d 100644 --- a/src/input/string.input.pamphlet +++ b/src/input/string.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool string.output )set message test on )set message auto off diff --git a/src/input/strtbl.input.pamphlet b/src/input/strtbl.input.pamphlet index 1618379..2acb645 100644 --- a/src/input/strtbl.input.pamphlet +++ b/src/input/strtbl.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool strtbl.output )set message test on )set message auto off diff --git a/src/input/summation.input.pamphlet b/src/input/summation.input.pamphlet index a1e2c42..0c20d98 100644 --- a/src/input/summation.input.pamphlet +++ b/src/input/summation.input.pamphlet @@ -14,6 +14,7 @@ This is bug 7057: summation is ambiguous. \tableofcontents \eject <<*>>= +)set break resume )spool summation.output )set message test on )set output mathml on diff --git a/src/input/symbol.input.pamphlet b/src/input/symbol.input.pamphlet index 3852603..0f13542 100644 --- a/src/input/symbol.input.pamphlet +++ b/src/input/symbol.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool symbol.output )set message test on )set message auto off diff --git a/src/input/t111293.input.pamphlet b/src/input/t111293.input.pamphlet index 562ab87..3233d8f 100644 --- a/src/input/t111293.input.pamphlet +++ b/src/input/t111293.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool t111293.output )set message test on )set message auto off diff --git a/src/input/table.input.pamphlet b/src/input/table.input.pamphlet index 125f89f..6aba394 100644 --- a/src/input/table.input.pamphlet +++ b/src/input/table.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool table.output )set message test on )set message auto off diff --git a/src/input/tanatan.input.pamphlet b/src/input/tanatan.input.pamphlet index b7ea0d0..291a2b8 100644 --- a/src/input/tanatan.input.pamphlet +++ b/src/input/tanatan.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool tanatan.output )set message test on )set message auto off diff --git a/src/input/tancot.input.pamphlet b/src/input/tancot.input.pamphlet index 8ef163c..457405b 100644 --- a/src/input/tancot.input.pamphlet +++ b/src/input/tancot.input.pamphlet @@ -17,6 +17,7 @@ second column is the reference value of tan from the book Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp186-188 <<*>>= +)set break resume )spool tancot.output )set message test on )set message auto off diff --git a/src/input/tanhcoth.input.pamphlet b/src/input/tanhcoth.input.pamphlet index c076ef9..8b7371c 100644 --- a/src/input/tanhcoth.input.pamphlet +++ b/src/input/tanhcoth.input.pamphlet @@ -17,6 +17,7 @@ Abramowitz and Stegun, ``Handbook of Mathematical Functions'', Dover Publications, Inc. New York 1965. pp213-216 <<*>>= +)set break resume )spool tanhcoth.output )set message test on )set message auto off diff --git a/src/input/tbagg.input.pamphlet b/src/input/tbagg.input.pamphlet index c33dd1f..5455683 100644 --- a/src/input/tbagg.input.pamphlet +++ b/src/input/tbagg.input.pamphlet @@ -32,6 +32,7 @@ fall thru to the ``true'' case. This is fixed by calling the return function. true \end{verbatim} <<*>>= +)set break resume )spool tbagg.output )set message test on )set message auto off diff --git a/src/input/textfile.input.pamphlet b/src/input/textfile.input.pamphlet index 657418d..99fd036 100644 --- a/src/input/textfile.input.pamphlet +++ b/src/input/textfile.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool textfile.output )set message test on )set message auto off diff --git a/src/input/torus.input.pamphlet b/src/input/torus.input.pamphlet index c8b98a2..24f30c7 100644 --- a/src/input/torus.input.pamphlet +++ b/src/input/torus.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool torus.output )set message test on )set message auto off diff --git a/src/input/tree.input.pamphlet b/src/input/tree.input.pamphlet index cf70b89..cd613a3 100644 --- a/src/input/tree.input.pamphlet +++ b/src/input/tree.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool tree.output )set message test on )set message auto off diff --git a/src/input/triglim.input.pamphlet b/src/input/triglim.input.pamphlet index df0bf7a..1e4aa21 100644 --- a/src/input/triglim.input.pamphlet +++ b/src/input/triglim.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool triglim.output )set message test on )set message auto off diff --git a/src/input/tsetcatvermeer.input.pamphlet b/src/input/tsetcatvermeer.input.pamphlet index b13c1cb..0f138fa 100644 --- a/src/input/tsetcatvermeer.input.pamphlet +++ b/src/input/tsetcatvermeer.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool tsetcatvermeer.output )set message test on )set message auto off diff --git a/src/input/tutchap1.input.pamphlet b/src/input/tutchap1.input.pamphlet index 7ad8065..778f488 100644 --- a/src/input/tutchap1.input.pamphlet +++ b/src/input/tutchap1.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool tutchap1.output )set message test on )set message auto off diff --git a/src/input/typetower.input.pamphlet b/src/input/typetower.input.pamphlet index 260d206..e6e6db8 100644 --- a/src/input/typetower.input.pamphlet +++ b/src/input/typetower.input.pamphlet @@ -16,6 +16,7 @@ indeterminate $z$ with coefficients from the ring $S$ of square matrices with entries that are polynomials $P=F[x]$ where $F$ is the Galois field with 3 elements. <<*>>= +)set break resume )spool typetower.output )set message test on )set message auto off diff --git a/src/input/uniseg.input.pamphlet b/src/input/uniseg.input.pamphlet index be26cdb..61ad73a 100644 --- a/src/input/uniseg.input.pamphlet +++ b/src/input/uniseg.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool uniseg.output )set message test on )set message auto off diff --git a/src/input/unittest1.input.pamphlet b/src/input/unittest1.input.pamphlet index de6d372..de5d841 100644 --- a/src/input/unittest1.input.pamphlet +++ b/src/input/unittest1.input.pamphlet @@ -17,22 +17,13 @@ Unit test the user level commands )set mes auto off )clear all -@ -The )with command is the same as the )library command and really -should be a synonym. -<<*>>= ---S 1 0f 28 +--S 1 of 47 )with API --R )library cannot find the file API. --E 1 -@ - -The )apropos command is the same as a )what command -<<*>>= ---S 2 0f 28 +--S 2 of 47 )apropos matrix ---R --R --ROperations whose names satisfy the above pattern(s): --R @@ -54,9 +45,8 @@ The )apropos command is the same as a )what command --RwronskianMatrix zeroMatrix --RzeroSquareMatrix --R ---R To get more information about an operation such as ---R createGenericMatrix , issue the command )display op ---R createGenericMatrix +--R To get more information about an operation such as squareMatrix , +--R issue the command )display op squareMatrix --R------------------------------- Categories -------------------------------- --R --RCategories with names matching patterns: @@ -103,7 +93,7 @@ The )apropos command is the same as a )what command --R --E 2 ---S 3 0f 28 +--S 3 of 47 )what categories set --R --R------------------------------- Categories -------------------------------- @@ -122,7 +112,7 @@ The )apropos command is the same as a )what command --R TSETCAT TriangularSetCategory --E 3 ---S 4 0f 28 +--S 4 of 47 )what commands set --R --R--------------- System Commands for User Level: development --------------- @@ -134,7 +124,7 @@ The )apropos command is the same as a )what command --R --E 4 ---S 5 0f 28 +--S 5 of 47 )what domains set --R --R--------------------------------- Domains --------------------------------- @@ -157,7 +147,7 @@ The )apropos command is the same as a )what command --R WUTSET WuWenTsunTriangularSet --E 5 ---S 6 0f 28 +--S 6 of 47 )what operations set --R --R @@ -257,11 +247,11 @@ The )apropos command is the same as a )what command --RzeroSetSplit --RzeroSetSplitIntoTriangularSystems --R ---R To get more information about an operation such as setButtonValue ---R , issue the command )display op setButtonValue +--R To get more information about an operation such as ruleset , +--R issue the command )display op ruleset --E 6 ---S 7 0f 28 +--S 7 of 47 )what packages set --R --R-------------------------------- Packages --------------------------------- @@ -278,7 +268,7 @@ The )apropos command is the same as a )what command --R SRDCMPK SquareFreeRegularSetDecompositionPackage --E 7 ---S 8 0f 28 +--S 8 of 47 )what synonym set --R --R------------------------- System Command Synonyms ------------------------- @@ -288,7 +278,7 @@ The )apropos command is the same as a )what command --R --E 8 ---S 9 0f 28 +--S 9 of 47 )what things set --R --R @@ -388,8 +378,8 @@ The )apropos command is the same as a )what command --RzeroSetSplit --RzeroSetSplitIntoTriangularSystems --R ---R To get more information about an operation such as setButtonValue ---R , issue the command )display op setButtonValue +--R To get more information about an operation such as ruleset , +--R issue the command )display op ruleset --R------------------------------- Categories -------------------------------- --R --RCategories with names matching patterns: @@ -448,7 +438,7 @@ The )apropos command is the same as a )what command --R --E 9 ---S 10 0f 28 +--S 10 of 47 )apropos set --R --R @@ -548,8 +538,8 @@ The )apropos command is the same as a )what command --RzeroSetSplit --RzeroSetSplitIntoTriangularSystems --R ---R To get more information about an operation such as setButtonValue ---R , issue the command )display op setButtonValue +--R To get more information about an operation such as ruleset , +--R issue the command )display op ruleset --R------------------------------- Categories -------------------------------- --R --RCategories with names matching patterns: @@ -608,7 +598,7 @@ The )apropos command is the same as a )what command --R --E 10 ---S 11 0f 28 +--S 11 of 47 )prompt --R---------------------------- The prompt Option ---------------------------- --R @@ -626,13 +616,13 @@ The )apropos command is the same as a )what command --R --E 11 ---S 12 0f 28 +--S 12 of 47 )version --R --IValue = "Saturday February 21, 2009 at 17:59:27 " --E 12 ---S 13 0f 28 +--S 13 of 47 )zsys )from )c --R --R @@ -643,7 +633,7 @@ The )apropos command is the same as a )what command --R --E 13 ---S 14 0f 28 +--S 14 of 47 )zsys )from )d --R --R @@ -654,7 +644,7 @@ The )apropos command is the same as a )what command --R --E 14 ---S 15 0f 28 +--S 15 of 47 )zsys )from )dt --R --R @@ -665,7 +655,7 @@ The )apropos command is the same as a )what command --R --E 15 ---S 16 0f 28 +--S 16 of 47 )zsys )from )ct --R --R @@ -676,7 +666,7 @@ The )apropos command is the same as a )what command --R --E 16 ---S 17 0f 28 +--S 17 of 47 )zsys )from )ctl --R --R @@ -687,7 +677,7 @@ The )apropos command is the same as a )what command --R --E 17 ---S 18 0f 28 +--S 18 of 47 )zsys )from )ec --R --R @@ -698,7 +688,7 @@ The )apropos command is the same as a )what command --R --E 18 ---S 19 0f 28 +--S 19 of 47 )zsys )from )ect --R --R @@ -709,7 +699,7 @@ The )apropos command is the same as a )what command --R --E 19 ---S 20 0f 28 +--S 20 of 47 )zsys )from )e --R --R @@ -720,12 +710,12 @@ The )apropos command is the same as a )what command --R --E 20 ---S 21 0f 28 +--S 21 of 47 )zsys )from )version --R --E 21 ---S 22 0f 28 +--S 22 of 47 )zsys )from )update --R --R @@ -736,7 +726,7 @@ The )apropos command is the same as a )what command --R --E 22 ---S 23 0f 28 +--S 23 of 47 )zsys )from )patch --R --R @@ -747,7 +737,7 @@ The )apropos command is the same as a )what command --R --E 23 ---S 24 0f 28 +--S 24 of 47 )zsys )from )there 1 --R --R @@ -756,24 +746,24 @@ The )apropos command is the same as a )what command --R --E 24 ---S 25 0f 28 +--S 25 of 47 )zsys )from )compare --R --R An argument is required for compare --E 25 ---S 26 0f 28 +--S 26 of 47 )zsys )from )record --R --R An argument is required for record --E 26 ---S 27 0f 28 +--S 27 of 47 )summary --R --E 27 ---S 28 0f 28 +--S 28 of 47 --R)credits --RAn alphabetical listing of contributors to AXIOM: --RCyril Alberga Roy Adler Christian Aistleitner @@ -858,6 +848,590 @@ The )apropos command is the same as a )what command --RBruno Zuercher Dan Zwillinger --E 28 +--S 29 of 47 +)set expose +--R---------------------------- The expose Option ---------------------------- +--R +--R Description: control interpreter constructor exposure +--R +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R The following constructors are explicitly hidden in the current +--R frame: +--R there are no explicitly hidden constructors +--R +--R When )set expose is followed by no arguments, the information you +--R now see is displayed. When followed by the initialize argument, +--R the exposure group data in the file interp.exposed is read and is +--R then available. The arguments add and drop are used to add or +--R drop exposure groups or explicit constructors from the local +--R frame exposure data. Issue +--R )set expose add or )set expose drop +--R for more information. +--E 29 + +--S 30 of 47 +)set expose add +--R----------------------------- The add Option ------------------------------ +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R When )set expose add is followed by no arguments, the information +--R you now see is displayed. The arguments group and constructor are +--R used to specify exposure groups or an explicit constructor to be +--R added to the local frame exposure data. Issue +--R )set expose add group +--R or +--R )set expose add constructor +--R for more information. +--E 30 + +--S 31 of 47 +)set expose drop +--R----------------------------- The drop Option ----------------------------- +--R The following constructors are explicitly hidden in the current +--R frame: +--R there are no explicitly hidden constructors +--R +--R When )set expose drop is followed by no arguments, the information +--R you now see is displayed. The arguments group and constructor are +--R used to specify exposure groups or an explicit constructor to be +--R dropped from the local frame exposure data. Issue +--R )set expose drop group +--R or +--R )set expose drop constructor +--R for more information. +--E 31 + +--S 32 of 47 +)set expose add group +--R---------------------------- The group Option ----------------------------- +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--R +--R When )set expose add group is followed by no arguments, the +--R information you now see is displayed. Otherwise, the words +--R following group must be valid names of exposure groups defined in +--R interp.exposed . The group all is special: using this group name +--R causes all known constructors to be exposed. The known exposure +--R group names are: +--R +--Rbasic naglink anna categories Hidden +--Rdefaults +--E 32 + +--S 33 of 47 +)set expose add constructor +--R------------------------- The constructor Option -------------------------- +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--E 33 + +--S 34 of 47 +)set expose drop group +--R---------------------------- The group Option ----------------------------- +--R When followed by one or more exposure group names, this option +--R allows you to remove those groups from the local frame exposure +--R data. +--R +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--E 34 + +--S 35 of 47 +)set expose drop constructor +--R------------------------- The constructor Option -------------------------- +--R When followed by one or more constructor names, this option allows +--R you to explicitly hide constructors in this frame. +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R The following constructors are explicitly hidden in the current +--R frame: +--R there are no explicitly hidden constructors +--E 35 + +--S 36 of 47 +)show SQMATRIX +--R SquareMatrix(ndim: NonNegativeInteger,R: Ring) is a domain constructor +--R Abbreviation for SquareMatrix is SQMATRIX +--R This constructor is not exposed in this frame. +--R Issue )edit bookvol10.3.spad.pamphlet to see algebra source code for SQMATRIX +--R +--R------------------------------- Operations -------------------------------- +--R ?*? : (R,%) -> % ?*? : (%,R) -> % +--R ?*? : (%,%) -> % ?*? : (Integer,%) -> % +--R ?*? : (PositiveInteger,%) -> % ?**? : (%,PositiveInteger) -> % +--R ?+? : (%,%) -> % ?-? : (%,%) -> % +--R -? : % -> % ?=? : (%,%) -> Boolean +--R D : % -> % if R has DIFRING D : (%,(R -> R)) -> % +--R 1 : () -> % 0 : () -> % +--R ?^? : (%,PositiveInteger) -> % antisymmetric? : % -> Boolean +--R coerce : % -> Matrix R coerce : R -> % +--R coerce : Integer -> % coerce : % -> OutputForm +--R copy : % -> % diagonal? : % -> Boolean +--R diagonalMatrix : List R -> % diagonalProduct : % -> R +--R elt : (%,Integer,Integer) -> R elt : (%,Integer,Integer,R) -> R +--R empty : () -> % empty? : % -> Boolean +--R eq? : (%,%) -> Boolean hash : % -> SingleInteger +--R latex : % -> String listOfLists : % -> List List R +--R map : ((R -> R),%) -> % map : (((R,R) -> R),%,%) -> % +--R matrix : List List R -> % maxColIndex : % -> Integer +--R maxRowIndex : % -> Integer minColIndex : % -> Integer +--R minRowIndex : % -> Integer ncols : % -> NonNegativeInteger +--R nrows : % -> NonNegativeInteger one? : % -> Boolean +--R qelt : (%,Integer,Integer) -> R recip : % -> Union(%,"failed") +--R retract : % -> R sample : () -> % +--R scalarMatrix : R -> % square? : % -> Boolean +--R squareMatrix : Matrix R -> % symmetric? : % -> Boolean +--R trace : % -> R transpose : % -> % +--R zero? : % -> Boolean ?~=? : (%,%) -> Boolean +--R #? : % -> NonNegativeInteger if $ has finiteAggregate +--R ?*? : (DirectProduct(ndim,R),%) -> DirectProduct(ndim,R) +--R ?*? : (%,DirectProduct(ndim,R)) -> DirectProduct(ndim,R) +--R ?*? : (NonNegativeInteger,%) -> % +--R ?**? : (%,Integer) -> % if R has FIELD +--R ?**? : (%,NonNegativeInteger) -> % +--R ?/? : (%,R) -> % if R has FIELD +--R D : (%,NonNegativeInteger) -> % if R has DIFRING +--R D : (%,Symbol) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol) -> % if R has PDRING SYMBOL +--R D : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,(R -> R),NonNegativeInteger) -> % +--R ?^? : (%,NonNegativeInteger) -> % +--R any? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R characteristic : () -> NonNegativeInteger +--R coerce : Fraction Integer -> % if R has RETRACT FRAC INT +--R column : (%,Integer) -> DirectProduct(ndim,R) +--R convert : % -> InputForm if R has KONVERT INFORM +--R count : (R,%) -> NonNegativeInteger if $ has finiteAggregate and R has SETCAT +--R count : ((R -> Boolean),%) -> NonNegativeInteger if $ has finiteAggregate +--R determinant : % -> R if R has commutative * +--R diagonal : % -> DirectProduct(ndim,R) +--R differentiate : % -> % if R has DIFRING +--R differentiate : (%,NonNegativeInteger) -> % if R has DIFRING +--R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,(R -> R),NonNegativeInteger) -> % +--R differentiate : (%,(R -> R)) -> % +--R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,R,R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,Equation R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,List Equation R) -> % if R has EVALAB R and R has SETCAT +--R every? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R exquo : (%,R) -> Union(%,"failed") if R has INTDOM +--R inverse : % -> Union(%,"failed") if R has FIELD +--R less? : (%,NonNegativeInteger) -> Boolean +--R map! : ((R -> R),%) -> % if $ has shallowlyMutable +--R member? : (R,%) -> Boolean if $ has finiteAggregate and R has SETCAT +--R members : % -> List R if $ has finiteAggregate +--R minordet : % -> R if R has commutative * +--R more? : (%,NonNegativeInteger) -> Boolean +--R nullSpace : % -> List DirectProduct(ndim,R) if R has INTDOM +--R nullity : % -> NonNegativeInteger if R has INTDOM +--R parts : % -> List R if $ has finiteAggregate +--R rank : % -> NonNegativeInteger if R has INTDOM +--R reducedSystem : Matrix % -> Matrix R +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT +--R retract : % -> Fraction Integer if R has RETRACT FRAC INT +--R retract : % -> Integer if R has RETRACT INT +--R retractIfCan : % -> Union(R,"failed") +--R retractIfCan : % -> Union(Fraction Integer,"failed") if R has RETRACT FRAC INT +--R retractIfCan : % -> Union(Integer,"failed") if R has RETRACT INT +--R row : (%,Integer) -> DirectProduct(ndim,R) +--R rowEchelon : % -> % if R has EUCDOM +--R size? : (%,NonNegativeInteger) -> Boolean +--R subtractIfCan : (%,%) -> Union(%,"failed") +--R +--E 36 + +--S 37 of 47 +)set expose add constructor SQMATRIX +--I SquareMatrix is now explicitly exposed in frame frame0 +--E 37 + +--S 38 of 47 +)show SQMATRIX +--R SquareMatrix(ndim: NonNegativeInteger,R: Ring) is a domain constructor +--R Abbreviation for SquareMatrix is SQMATRIX +--R This constructor is exposed in this frame. +--R Issue )edit bookvol10.3.spad.pamphlet to see algebra source code for SQMATRIX +--R +--R------------------------------- Operations -------------------------------- +--R ?*? : (R,%) -> % ?*? : (%,R) -> % +--R ?*? : (%,%) -> % ?*? : (Integer,%) -> % +--R ?*? : (PositiveInteger,%) -> % ?**? : (%,PositiveInteger) -> % +--R ?+? : (%,%) -> % ?-? : (%,%) -> % +--R -? : % -> % ?=? : (%,%) -> Boolean +--R D : % -> % if R has DIFRING D : (%,(R -> R)) -> % +--R 1 : () -> % 0 : () -> % +--R ?^? : (%,PositiveInteger) -> % antisymmetric? : % -> Boolean +--R coerce : % -> Matrix R coerce : R -> % +--R coerce : Integer -> % coerce : % -> OutputForm +--R copy : % -> % diagonal? : % -> Boolean +--R diagonalMatrix : List R -> % diagonalProduct : % -> R +--R elt : (%,Integer,Integer) -> R elt : (%,Integer,Integer,R) -> R +--R empty : () -> % empty? : % -> Boolean +--R eq? : (%,%) -> Boolean hash : % -> SingleInteger +--R latex : % -> String listOfLists : % -> List List R +--R map : ((R -> R),%) -> % map : (((R,R) -> R),%,%) -> % +--R matrix : List List R -> % maxColIndex : % -> Integer +--R maxRowIndex : % -> Integer minColIndex : % -> Integer +--R minRowIndex : % -> Integer ncols : % -> NonNegativeInteger +--R nrows : % -> NonNegativeInteger one? : % -> Boolean +--R qelt : (%,Integer,Integer) -> R recip : % -> Union(%,"failed") +--R retract : % -> R sample : () -> % +--R scalarMatrix : R -> % square? : % -> Boolean +--R squareMatrix : Matrix R -> % symmetric? : % -> Boolean +--R trace : % -> R transpose : % -> % +--R zero? : % -> Boolean ?~=? : (%,%) -> Boolean +--R #? : % -> NonNegativeInteger if $ has finiteAggregate +--R ?*? : (DirectProduct(ndim,R),%) -> DirectProduct(ndim,R) +--R ?*? : (%,DirectProduct(ndim,R)) -> DirectProduct(ndim,R) +--R ?*? : (NonNegativeInteger,%) -> % +--R ?**? : (%,Integer) -> % if R has FIELD +--R ?**? : (%,NonNegativeInteger) -> % +--R ?/? : (%,R) -> % if R has FIELD +--R D : (%,NonNegativeInteger) -> % if R has DIFRING +--R D : (%,Symbol) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol) -> % if R has PDRING SYMBOL +--R D : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,(R -> R),NonNegativeInteger) -> % +--R ?^? : (%,NonNegativeInteger) -> % +--R any? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R characteristic : () -> NonNegativeInteger +--R coerce : Fraction Integer -> % if R has RETRACT FRAC INT +--R column : (%,Integer) -> DirectProduct(ndim,R) +--R convert : % -> InputForm if R has KONVERT INFORM +--R count : (R,%) -> NonNegativeInteger if $ has finiteAggregate and R has SETCAT +--R count : ((R -> Boolean),%) -> NonNegativeInteger if $ has finiteAggregate +--R determinant : % -> R if R has commutative * +--R diagonal : % -> DirectProduct(ndim,R) +--R differentiate : % -> % if R has DIFRING +--R differentiate : (%,NonNegativeInteger) -> % if R has DIFRING +--R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,(R -> R),NonNegativeInteger) -> % +--R differentiate : (%,(R -> R)) -> % +--R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,R,R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,Equation R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,List Equation R) -> % if R has EVALAB R and R has SETCAT +--R every? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R exquo : (%,R) -> Union(%,"failed") if R has INTDOM +--R inverse : % -> Union(%,"failed") if R has FIELD +--R less? : (%,NonNegativeInteger) -> Boolean +--R map! : ((R -> R),%) -> % if $ has shallowlyMutable +--R member? : (R,%) -> Boolean if $ has finiteAggregate and R has SETCAT +--R members : % -> List R if $ has finiteAggregate +--R minordet : % -> R if R has commutative * +--R more? : (%,NonNegativeInteger) -> Boolean +--R nullSpace : % -> List DirectProduct(ndim,R) if R has INTDOM +--R nullity : % -> NonNegativeInteger if R has INTDOM +--R parts : % -> List R if $ has finiteAggregate +--R rank : % -> NonNegativeInteger if R has INTDOM +--R reducedSystem : Matrix % -> Matrix R +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT +--R retract : % -> Fraction Integer if R has RETRACT FRAC INT +--R retract : % -> Integer if R has RETRACT INT +--R retractIfCan : % -> Union(R,"failed") +--R retractIfCan : % -> Union(Fraction Integer,"failed") if R has RETRACT FRAC INT +--R retractIfCan : % -> Union(Integer,"failed") if R has RETRACT INT +--R row : (%,Integer) -> DirectProduct(ndim,R) +--R rowEchelon : % -> % if R has EUCDOM +--R size? : (%,NonNegativeInteger) -> Boolean +--R subtractIfCan : (%,%) -> Union(%,"failed") +--R +--E 38 + +--S 39 of 47 +)set expose add +--R----------------------------- The add Option ------------------------------ +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R SquareMatrix +--R +--R When )set expose add is followed by no arguments, the information +--R you now see is displayed. The arguments group and constructor are +--R used to specify exposure groups or an explicit constructor to be +--R added to the local frame exposure data. Issue +--R )set expose add group +--R or +--R )set expose add constructor +--R for more information. +--E 39 + +--S 40 of 47 +)set expose drop constructor SQMATRIX +--I SquareMatrix is now explicitly hidden in frame frame0 +--E 40 + +--S 41 of 47 +)show SQMATRIX +--R SquareMatrix(ndim: NonNegativeInteger,R: Ring) is a domain constructor +--R Abbreviation for SquareMatrix is SQMATRIX +--R This constructor is not exposed in this frame. +--R Issue )edit bookvol10.3.spad.pamphlet to see algebra source code for SQMATRIX +--R +--R------------------------------- Operations -------------------------------- +--R ?*? : (R,%) -> % ?*? : (%,R) -> % +--R ?*? : (%,%) -> % ?*? : (Integer,%) -> % +--R ?*? : (PositiveInteger,%) -> % ?**? : (%,PositiveInteger) -> % +--R ?+? : (%,%) -> % ?-? : (%,%) -> % +--R -? : % -> % ?=? : (%,%) -> Boolean +--R D : % -> % if R has DIFRING D : (%,(R -> R)) -> % +--R 1 : () -> % 0 : () -> % +--R ?^? : (%,PositiveInteger) -> % antisymmetric? : % -> Boolean +--R coerce : % -> Matrix R coerce : R -> % +--R coerce : Integer -> % coerce : % -> OutputForm +--R copy : % -> % diagonal? : % -> Boolean +--R diagonalMatrix : List R -> % diagonalProduct : % -> R +--R elt : (%,Integer,Integer) -> R elt : (%,Integer,Integer,R) -> R +--R empty : () -> % empty? : % -> Boolean +--R eq? : (%,%) -> Boolean hash : % -> SingleInteger +--R latex : % -> String listOfLists : % -> List List R +--R map : ((R -> R),%) -> % map : (((R,R) -> R),%,%) -> % +--R matrix : List List R -> % maxColIndex : % -> Integer +--R maxRowIndex : % -> Integer minColIndex : % -> Integer +--R minRowIndex : % -> Integer ncols : % -> NonNegativeInteger +--R nrows : % -> NonNegativeInteger one? : % -> Boolean +--R qelt : (%,Integer,Integer) -> R recip : % -> Union(%,"failed") +--R retract : % -> R sample : () -> % +--R scalarMatrix : R -> % square? : % -> Boolean +--R squareMatrix : Matrix R -> % symmetric? : % -> Boolean +--R trace : % -> R transpose : % -> % +--R zero? : % -> Boolean ?~=? : (%,%) -> Boolean +--R #? : % -> NonNegativeInteger if $ has finiteAggregate +--R ?*? : (DirectProduct(ndim,R),%) -> DirectProduct(ndim,R) +--R ?*? : (%,DirectProduct(ndim,R)) -> DirectProduct(ndim,R) +--R ?*? : (NonNegativeInteger,%) -> % +--R ?**? : (%,Integer) -> % if R has FIELD +--R ?**? : (%,NonNegativeInteger) -> % +--R ?/? : (%,R) -> % if R has FIELD +--R D : (%,NonNegativeInteger) -> % if R has DIFRING +--R D : (%,Symbol) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol) -> % if R has PDRING SYMBOL +--R D : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R D : (%,(R -> R),NonNegativeInteger) -> % +--R ?^? : (%,NonNegativeInteger) -> % +--R any? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R characteristic : () -> NonNegativeInteger +--R coerce : Fraction Integer -> % if R has RETRACT FRAC INT +--R column : (%,Integer) -> DirectProduct(ndim,R) +--R convert : % -> InputForm if R has KONVERT INFORM +--R count : (R,%) -> NonNegativeInteger if $ has finiteAggregate and R has SETCAT +--R count : ((R -> Boolean),%) -> NonNegativeInteger if $ has finiteAggregate +--R determinant : % -> R if R has commutative * +--R diagonal : % -> DirectProduct(ndim,R) +--R differentiate : % -> % if R has DIFRING +--R differentiate : (%,NonNegativeInteger) -> % if R has DIFRING +--R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL +--R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--R differentiate : (%,(R -> R),NonNegativeInteger) -> % +--R differentiate : (%,(R -> R)) -> % +--R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,R,R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,Equation R) -> % if R has EVALAB R and R has SETCAT +--R eval : (%,List Equation R) -> % if R has EVALAB R and R has SETCAT +--R every? : ((R -> Boolean),%) -> Boolean if $ has finiteAggregate +--R exquo : (%,R) -> Union(%,"failed") if R has INTDOM +--R inverse : % -> Union(%,"failed") if R has FIELD +--R less? : (%,NonNegativeInteger) -> Boolean +--R map! : ((R -> R),%) -> % if $ has shallowlyMutable +--R member? : (R,%) -> Boolean if $ has finiteAggregate and R has SETCAT +--R members : % -> List R if $ has finiteAggregate +--R minordet : % -> R if R has commutative * +--R more? : (%,NonNegativeInteger) -> Boolean +--R nullSpace : % -> List DirectProduct(ndim,R) if R has INTDOM +--R nullity : % -> NonNegativeInteger if R has INTDOM +--R parts : % -> List R if $ has finiteAggregate +--R rank : % -> NonNegativeInteger if R has INTDOM +--R reducedSystem : Matrix % -> Matrix R +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) +--R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT +--R retract : % -> Fraction Integer if R has RETRACT FRAC INT +--R retract : % -> Integer if R has RETRACT INT +--R retractIfCan : % -> Union(R,"failed") +--R retractIfCan : % -> Union(Fraction Integer,"failed") if R has RETRACT FRAC INT +--R retractIfCan : % -> Union(Integer,"failed") if R has RETRACT INT +--R row : (%,Integer) -> DirectProduct(ndim,R) +--R rowEchelon : % -> % if R has EUCDOM +--R size? : (%,NonNegativeInteger) -> Boolean +--R subtractIfCan : (%,%) -> Union(%,"failed") +--R +--E 41 + +--S 42 of 47 +)set expose +--R---------------------------- The expose Option ---------------------------- +--R +--R Description: control interpreter constructor exposure +--R +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R anna +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R The following constructors are explicitly hidden in the current +--R frame: +--R SquareMatrix +--R +--R When )set expose is followed by no arguments, the information you +--R now see is displayed. When followed by the initialize argument, +--R the exposure group data in the file interp.exposed is read and is +--R then available. The arguments add and drop are used to add or +--R drop exposure groups or explicit constructors from the local +--R frame exposure data. Issue +--R )set expose add or )set expose drop +--R for more information. +--E 42 + +--S 43 of 47 +)set expose drop group anna +--I anna is no longer an exposure group for frame frame0 +--E 43 + +--S 44 of 47 +)set expose +--R---------------------------- The expose Option ---------------------------- +--R +--R Description: control interpreter constructor exposure +--R +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R The following constructors are explicitly hidden in the current +--R frame: +--R SquareMatrix +--R +--R When )set expose is followed by no arguments, the information you +--R now see is displayed. When followed by the initialize argument, +--R the exposure group data in the file interp.exposed is read and is +--R then available. The arguments add and drop are used to add or +--R drop exposure groups or explicit constructors from the local +--R frame exposure data. Issue +--R )set expose add or )set expose drop +--R for more information. +--E 44 + +--S 45 of 47 +)set expose add group +--R---------------------------- The group Option ----------------------------- +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R basic +--R categories +--R naglink +--R +--R When )set expose add group is followed by no arguments, the +--R information you now see is displayed. Otherwise, the words +--R following group must be valid names of exposure groups defined in +--R interp.exposed . The group all is special: using this group name +--R causes all known constructors to be exposed. The known exposure +--R group names are: +--R +--Rbasic naglink anna categories Hidden +--Rdefaults +--E 45 + +--S 46 of 47 +)set expose add group anna +--I anna is now an exposure group for frame frame0 +--E 46 + +--S 47 of 47 +)set expose +--R---------------------------- The expose Option ---------------------------- +--R +--R Description: control interpreter constructor exposure +--R +--R The following groups are explicitly exposed in the current frame +--I (called frame0 ): +--R anna +--R basic +--R categories +--R naglink +--R +--R The following constructors are explicitly exposed in the current +--R frame: +--R there are no explicitly exposed constructors +--R +--R The following constructors are explicitly hidden in the current +--R frame: +--R SquareMatrix +--R +--R When )set expose is followed by no arguments, the information you +--R now see is displayed. When followed by the initialize argument, +--R the exposure group data in the file interp.exposed is read and is +--R then available. The arguments add and drop are used to add or +--R drop exposure groups or explicit constructors from the local +--R frame exposure data. Issue +--R )set expose add or )set expose drop +--R for more information. +--E 47 + )spool )lisp (bye) diff --git a/src/input/void.input.pamphlet b/src/input/void.input.pamphlet index dc1dc55..87fcfa4 100644 --- a/src/input/void.input.pamphlet +++ b/src/input/void.input.pamphlet @@ -14,6 +14,7 @@ --Copyright The Numerical Algorithms Group Limited 1991. @ <<*>>= +)set break resume )spool void.output )set message test on )set message auto off diff --git a/src/input/wester.input.pamphlet b/src/input/wester.input.pamphlet index 5e08228..82a8a08 100644 --- a/src/input/wester.input.pamphlet +++ b/src/input/wester.input.pamphlet @@ -19,6 +19,7 @@ -- ----------[ A x i o m ]---------- -- ---------- Initialization ---------- +)set break resume )set messages autoload off )set messages time on )set quit unprotected diff --git a/src/interp/database.boot.pamphlet b/src/interp/database.boot.pamphlet index 3c11489..7313b12 100644 --- a/src/interp/database.boot.pamphlet +++ b/src/interp/database.boot.pamphlet @@ -601,30 +601,6 @@ isExposedConstructor name == if GETALIST(x,name) then found := true found -displayExposedGroups() == - sayKeyedMsg("S2IZ0049A",[$interpreterFrameName]) - if null $localExposureData.0 - then centerAndHighlight '"there are no exposed groups" - else for g in $localExposureData.0 repeat - centerAndHighlight g - -displayExposedConstructors() == - sayKeyedMsg("S2IZ0049B",NIL) - if null $localExposureData.1 - then centerAndHighlight - '"there are no explicitly exposed constructors" - else for c in $localExposureData.1 repeat - centerAndHighlight c - -displayHiddenConstructors() == - sayKeyedMsg("S2IZ0049C",NIL) - if null $localExposureData.2 - then centerAndHighlight - '"there are no explicitly hidden constructors" - else for c in $localExposureData.2 repeat - centerAndHighlight c - - @ \eject \begin{thebibliography}{99} diff --git a/src/interp/setvars.boot.pamphlet b/src/interp/setvars.boot.pamphlet index a69b40d..f5e8b35 100644 --- a/src/interp/setvars.boot.pamphlet +++ b/src/interp/setvars.boot.pamphlet @@ -73,192 +73,7 @@ See the section expose in setvart.boot.pamphlet\cite{1} )set expose add or )set expose drop for more information. \end{verbatim} -<>= -<> -<> -<> -<> -<> -<> -<> -@ -\subsection{setExpose} -<>= -setExpose arg == - arg = "%initialize%" => loadExposureGroupData() - arg = "%display%" => '"..." - - (null arg) or (arg = "%describe%") or (first arg = '_?) => - -- give msg about exposure groups - displayExposedGroups() - -- give msg about explicitly exposed constructors - sayMSG '" " - displayExposedConstructors() - -- give msg about explicitly hidden constructors - sayMSG '" " - displayHiddenConstructors() - -- give some more details - sayMSG '" " - sayKeyedMsg("S2IZ0049D",[namestring pathname ["interp","exposed"]]) - - arg is [fn,:fnargs] and (fn := selectOptionLC(fn, - '(add drop initialize),NIL)) => - fn = 'add => setExposeAdd fnargs - fn = 'drop => setExposeDrop fnargs - fn = 'initialize => setExpose "%initialize%" - NIL - setExpose NIL - -@ -\subsection{setExposeAdd} -<>= -setExposeAdd arg == - (null arg) => - centerAndHighlight ("The add Option",$LINELENGTH,specialChar 'hbar) - -- give msg about exposure groups - displayExposedGroups() - -- give msg about explicitly exposed constructors - sayMSG '" " - displayExposedConstructors() - sayMSG '" " - sayKeyedMsg("S2IZ0049E",NIL) - arg is [fn,:fnargs] and (fn := selectOptionLC(fn, - '(group constructor),NIL)) => - fn = 'group => setExposeAddGroup fnargs - fn = 'constructor => setExposeAddConstr fnargs - NIL - setExposeAdd NIL - -@ -\subsection{setExposeAddGroup} -<>= -setExposeAddGroup arg == - (null arg) => - centerAndHighlight("The group Option",$LINELENGTH,specialChar 'hbar) - -- give msg about exposure groups - displayExposedGroups() - sayMSG '" " - sayKeyedMsg("S2IZ0049G",[namestring pathname ["interp","exposed"]]) - sayMSG '" " - sayAsManyPerLineAsPossible [object2String first x for x in - $globalExposureGroupAlist] - for x in arg repeat - if PAIRP x then x := QCAR x - x = 'all => - $localExposureData.0 :=[first x for x in $globalExposureGroupAlist] - $localExposureData.1 :=NIL - $localExposureData.2 :=NIL - displayExposedGroups() - sayMSG '" " - displayExposedConstructors() - sayMSG '" " - displayHiddenConstructors() - clearClams() - null GETALIST($globalExposureGroupAlist,x) => - sayKeyedMsg("S2IZ0049H",[x]) - member(x,$localExposureData.0) => - sayKeyedMsg("S2IZ0049I",[x,$interpreterFrameName]) - $localExposureData.0 := MSORT cons(x,$localExposureData.0) - sayKeyedMsg("S2IZ0049R",[x,$interpreterFrameName]) - clearClams() - -@ -\subsection{setExposeAddConstr} -<>= -setExposeAddConstr arg == - (null arg) => - centerAndHighlight ("The constructor Option",$LINELENGTH, - specialChar 'hbar) - -- give msg about explicitly exposed constructors - displayExposedConstructors() - for x in arg repeat - x := unabbrev x - if PAIRP x then x := QCAR x - -- if the constructor is known, we know what type it is - null GETDATABASE(x,'CONSTRUCTORKIND) => - sayKeyedMsg("S2IZ0049J",[x]) - member(x,$localExposureData.1) => - sayKeyedMsg("S2IZ0049K",[x,$interpreterFrameName]) - -- if the constructor is explicitly hidden, then remove that - if member(x,$localExposureData.2) then - $localExposureData.2 := DELETE(x,$localExposureData.2) - $localExposureData.1 := MSORT cons(x,$localExposureData.1) - clearClams() - sayKeyedMsg("S2IZ0049P",[x,$interpreterFrameName]) -@ -\subsection{setExposeDrop} -<>= -setExposeDrop arg == - (null arg) => - centerAndHighlight ("The drop Option",$LINELENGTH,specialChar 'hbar) - -- give msg about explicitly hidden constructors - displayHiddenConstructors() - sayMSG '" " - sayKeyedMsg("S2IZ0049F",NIL) - arg is [fn,:fnargs] and (fn := selectOptionLC(fn, - '(group constructor),NIL)) => - fn = 'group => setExposeDropGroup fnargs - fn = 'constructor => setExposeDropConstr fnargs - NIL - setExposeDrop NIL - -@ -\subsection{setExposeDropGroup} -<>= -setExposeDropGroup arg == - (null arg) => - centerAndHighlight ("The group Option",$LINELENGTH,specialChar 'hbar) - sayKeyedMsg("S2IZ0049L",NIL) - sayMSG '" " - displayExposedGroups() - for x in arg repeat - if PAIRP x then x := QCAR x - x = 'all => - $localExposureData.0 := NIL - $localExposureData.1 := NIL - $localExposureData.2 := NIL - displayExposedGroups() - sayMSG '" " - displayExposedConstructors() - sayMSG '" " - displayHiddenConstructors() - clearClams() - member(x,$localExposureData.0) => - $localExposureData.0 := DELETE(x,$localExposureData.0) - clearClams() - sayKeyedMsg("S2IZ0049S",[x,$interpreterFrameName]) - GETALIST($globalExposureGroupAlist,x) => - sayKeyedMsg("S2IZ0049I",[x,$interpreterFrameName]) - sayKeyedMsg("S2IZ0049H",[x]) - -@ -\subsection{setExposeDropConstr} -<>= -setExposeDropConstr arg == - (null arg) => - centerAndHighlight ("The constructor Option",$LINELENGTH, - specialChar 'hbar) - sayKeyedMsg("S2IZ0049N",NIL) - sayMSG '" " - displayExposedConstructors() - sayMSG '" " - displayHiddenConstructors() - for x in arg repeat - x := unabbrev x - if PAIRP x then x := QCAR x - -- if the constructor is known, we know what type it is - null GETDATABASE(x,'CONSTRUCTORKIND) => - sayKeyedMsg("S2IZ0049J",[x]) - member(x,$localExposureData.2) => - sayKeyedMsg("S2IZ0049O",[x,$interpreterFrameName]) - if member(x,$localExposureData.1) then - $localExposureData.1 := DELETE(x,$localExposureData.1) - $localExposureData.2 := MSORT cons(x,$localExposureData.2) - clearClams() - sayKeyedMsg("S2IZ0049Q",[x,$interpreterFrameName]) - -@ \section{fortran calling} See the section calling in servart.boot.pamphlet. \begin{verbatim} @@ -1562,7 +1377,6 @@ describeSetStreamsCalculate() == sayKeyedMsg("S2IV0001",[$streamCount]) @ <<*>>= <> -<> <> <> <> @@ -1582,167 +1396,6 @@ describeSetStreamsCalculate() == sayKeyedMsg("S2IV0001",[$streamCount]) (IN-PACKAGE "BOOT" ) -;setExpose arg == -; arg = "%initialize%" => loadExposureGroupData() -; arg = "%display%" => '"..." -; (null arg) or (arg = "%describe%") or (first arg = '_?) => -; -- give msg about exposure groups -; displayExposedGroups() -; -- give msg about explicitly exposed constructors -; sayMSG '" " -; displayExposedConstructors() -; -- give msg about explicitly hidden constructors -; sayMSG '" " -; displayHiddenConstructors() -; -- give some more details -; sayMSG '" " -; sayKeyedMsg("S2IZ0049D",[namestring pathname ["interp","exposed"]]) -; arg is [fn,:fnargs] and (fn := selectOptionLC(fn, -; '(add drop initialize),NIL)) => -; fn = 'add => setExposeAdd fnargs -; fn = 'drop => setExposeDrop fnargs -; fn = 'initialize => setExpose "%initialize%" -; NIL -; setExpose NIL - -(DEFUN |setExpose| (|arg|) (PROG (|fnargs| |fn|) (RETURN (COND ((BOOT-EQUAL |arg| (QUOTE |%initialize%|)) (|loadExposureGroupData|)) ((BOOT-EQUAL |arg| (QUOTE |%display%|)) (MAKESTRING "...")) ((OR (NULL |arg|) (BOOT-EQUAL |arg| (QUOTE |%describe%|)) (BOOT-EQUAL (CAR |arg|) (QUOTE ?))) (|displayExposedGroups|) (|sayMSG| (MAKESTRING " ")) (|displayExposedConstructors|) (|sayMSG| (MAKESTRING " ")) (|displayHiddenConstructors|) (|sayMSG| (MAKESTRING " ")) (|sayKeyedMsg| (QUOTE S2IZ0049D) (CONS (|namestring| (|pathname| (CONS "interp" (CONS "exposed" NIL)))) NIL))) ((AND (PAIRP |arg|) (PROGN (SPADLET |fn| (QCAR |arg|)) (SPADLET |fnargs| (QCDR |arg|)) (QUOTE T)) (SPADLET |fn| (|selectOptionLC| |fn| (QUOTE (|add| |drop| |initialize|)) NIL))) (COND ((BOOT-EQUAL |fn| (QUOTE |add|)) (|setExposeAdd| |fnargs|)) ((BOOT-EQUAL |fn| (QUOTE |drop|)) (|setExposeDrop| |fnargs|)) ((BOOT-EQUAL |fn| (QUOTE |initialize|)) (|setExpose| (QUOTE |%initialize%|))) ((QUOTE T) NIL))) ((QUOTE T) (|setExpose| NIL)))))) -;setExposeAdd arg == -; (null arg) => -; centerAndHighlight ("The add Option",$LINELENGTH,specialChar 'hbar) -; -- give msg about exposure groups -; displayExposedGroups() -; -- give msg about explicitly exposed constructors -; sayMSG '" " -; displayExposedConstructors() -; sayMSG '" " -; sayKeyedMsg("S2IZ0049E",NIL) -; arg is [fn,:fnargs] and (fn := selectOptionLC(fn, -; '(group constructor),NIL)) => -; fn = 'group => setExposeAddGroup fnargs -; fn = 'constructor => setExposeAddConstr fnargs -; NIL -; setExposeAdd NIL - -(DEFUN |setExposeAdd| (|arg|) (PROG (|fnargs| |fn|) (RETURN (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The add Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|displayExposedGroups|) (|sayMSG| (MAKESTRING " ")) (|displayExposedConstructors|) (|sayMSG| (MAKESTRING " ")) (|sayKeyedMsg| (QUOTE S2IZ0049E) NIL)) ((AND (PAIRP |arg|) (PROGN (SPADLET |fn| (QCAR |arg|)) (SPADLET |fnargs| (QCDR |arg|)) (QUOTE T)) (SPADLET |fn| (|selectOptionLC| |fn| (QUOTE (|group| |constructor|)) NIL))) (COND ((BOOT-EQUAL |fn| (QUOTE |group|)) (|setExposeAddGroup| |fnargs|)) ((BOOT-EQUAL |fn| (QUOTE |constructor|)) (|setExposeAddConstr| |fnargs|)) ((QUOTE T) NIL))) ((QUOTE T) (|setExposeAdd| NIL)))))) -;setExposeAddGroup arg == -; (null arg) => -; centerAndHighlight("The group Option",$LINELENGTH,specialChar 'hbar) -; -- give msg about exposure groups -; displayExposedGroups() -; sayMSG '" " -; sayKeyedMsg("S2IZ0049G",[namestring pathname ["interp","exposed"]]) -; sayMSG '" " -; sayAsManyPerLineAsPossible [object2String first x for x in -; $globalExposureGroupAlist] -; for x in arg repeat -; if PAIRP x then x := QCAR x -; x = 'all => -; $localExposureData.0 :=[first x for x in $globalExposureGroupAlist] -; $localExposureData.1 :=NIL -; $localExposureData.2 :=NIL -; displayExposedGroups() -; sayMSG '" " -; displayExposedConstructors() -; sayMSG '" " -; displayHiddenConstructors() -; clearClams() -; null GETALIST($globalExposureGroupAlist,x) => -; sayKeyedMsg("S2IZ0049H",[x]) -; member(x,$localExposureData.0) => -; sayKeyedMsg("S2IZ0049I",[x,$interpreterFrameName]) -; $localExposureData.0 := MSORT cons(x,$localExposureData.0) -; sayKeyedMsg("S2IZ0049R",[x,$interpreterFrameName]) -; clearClams() - -(DEFUN |setExposeAddGroup| (|arg|) (PROG (|x|) (RETURN (SEQ (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The group Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|displayExposedGroups|) (|sayMSG| (MAKESTRING " ")) (|sayKeyedMsg| (QUOTE S2IZ0049G) (CONS (|namestring| (|pathname| (CONS "interp" (CONS "exposed" NIL)))) NIL)) (|sayMSG| (MAKESTRING " ")) (|sayAsManyPerLineAsPossible| (PROG (#0=#:G2946) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G2951 |$globalExposureGroupAlist| (CDR #1#)) (|x| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |x| (CAR #1#)) NIL)) (NREVERSE0 #0#)) (SEQ (EXIT (SETQ #0# (CONS (|object2String| (CAR |x|)) #0#))))))))) ((QUOTE T) (DO ((#2=#:G2962 |arg| (CDR #2#)) (|x| NIL)) ((OR (ATOM #2#) (PROGN (SETQ |x| (CAR #2#)) NIL)) NIL) (SEQ (EXIT (PROGN (COND ((PAIRP |x|) (SPADLET |x| (QCAR |x|)))) (COND ((BOOT-EQUAL |x| (QUOTE |all|)) (SETELT |$localExposureData| 0 (PROG (#3=#:G2972) (SPADLET #3# NIL) (RETURN (DO ((#4=#:G2977 |$globalExposureGroupAlist| (CDR #4#)) (|x| NIL)) ((OR (ATOM #4#) (PROGN (SETQ |x| (CAR #4#)) NIL)) (NREVERSE0 #3#)) (SEQ (EXIT (SETQ #3# (CONS (CAR |x|) #3#)))))))) (SETELT |$localExposureData| 1 NIL) (SETELT |$localExposureData| 2 NIL) (|displayExposedGroups|) (|sayMSG| (MAKESTRING " ")) (|displayExposedConstructors|) (|sayMSG| (MAKESTRING " ")) (|displayHiddenConstructors|) (|clearClams|)) ((NULL (GETALIST |$globalExposureGroupAlist| |x|)) (|sayKeyedMsg| (QUOTE S2IZ0049H) (CONS |x| NIL))) ((|member| |x| (ELT |$localExposureData| 0)) (|sayKeyedMsg| (QUOTE S2IZ0049I) (CONS |x| (CONS |$interpreterFrameName| NIL)))) ((QUOTE T) (SETELT |$localExposureData| 0 (MSORT (CONS |x| (ELT |$localExposureData| 0)))) (|sayKeyedMsg| (QUOTE S2IZ0049R) (CONS |x| (CONS |$interpreterFrameName| NIL))) (|clearClams|))))))))))))) -;setExposeAddConstr arg == -; (null arg) => -; centerAndHighlight ("The constructor Option",$LINELENGTH, -; specialChar 'hbar) -; -- give msg about explicitly exposed constructors -; displayExposedConstructors() -; for x in arg repeat -; x := unabbrev x -; if PAIRP x then x := QCAR x -; -- if the constructor is known, we know what type it is -; null GETDATABASE(x,'CONSTRUCTORKIND) => -; sayKeyedMsg("S2IZ0049J",[x]) -; member(x,$localExposureData.1) => -; sayKeyedMsg("S2IZ0049K",[x,$interpreterFrameName]) -; -- if the constructor is explicitly hidden, then remove that -; if member(x,$localExposureData.2) then -; $localExposureData.2 := DELETE(x,$localExposureData.2) -; $localExposureData.1 := MSORT cons(x,$localExposureData.1) -; clearClams() -; sayKeyedMsg("S2IZ0049P",[x,$interpreterFrameName]) - -(DEFUN |setExposeAddConstr| (|arg|) (PROG (|x|) (RETURN (SEQ (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The constructor Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|displayExposedConstructors|)) ((QUOTE T) (DO ((#0=#:G2998 |arg| (CDR #0#)) (|x| NIL)) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (PROGN (SPADLET |x| (|unabbrev| |x|)) (COND ((PAIRP |x|) (SPADLET |x| (QCAR |x|)))) (COND ((NULL (GETDATABASE |x| (QUOTE CONSTRUCTORKIND))) (|sayKeyedMsg| (QUOTE S2IZ0049J) (CONS |x| NIL))) ((|member| |x| (ELT |$localExposureData| 1)) (|sayKeyedMsg| (QUOTE S2IZ0049K) (CONS |x| (CONS |$interpreterFrameName| NIL)))) ((QUOTE T) (COND ((|member| |x| (ELT |$localExposureData| 2)) (SETELT |$localExposureData| 2 (|delete| |x| (ELT |$localExposureData| 2))))) (SETELT |$localExposureData| 1 (MSORT (CONS |x| (ELT |$localExposureData| 1)))) (|clearClams|) (|sayKeyedMsg| (QUOTE S2IZ0049P) (CONS |x| (CONS |$interpreterFrameName| NIL))))))))))))))) -;setExposeDrop arg == -; (null arg) => -; centerAndHighlight ("The drop Option",$LINELENGTH,specialChar 'hbar) -; -- give msg about explicitly hidden constructors -; displayHiddenConstructors() -; sayMSG '" " -; sayKeyedMsg("S2IZ0049F",NIL) -; arg is [fn,:fnargs] and (fn := selectOptionLC(fn, -; '(group constructor),NIL)) => -; fn = 'group => setExposeDropGroup fnargs -; fn = 'constructor => setExposeDropConstr fnargs -; NIL -; setExposeDrop NIL - -(DEFUN |setExposeDrop| (|arg|) (PROG (|fnargs| |fn|) (RETURN (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The drop Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|displayHiddenConstructors|) (|sayMSG| (MAKESTRING " ")) (|sayKeyedMsg| (QUOTE S2IZ0049F) NIL)) ((AND (PAIRP |arg|) (PROGN (SPADLET |fn| (QCAR |arg|)) (SPADLET |fnargs| (QCDR |arg|)) (QUOTE T)) (SPADLET |fn| (|selectOptionLC| |fn| (QUOTE (|group| |constructor|)) NIL))) (COND ((BOOT-EQUAL |fn| (QUOTE |group|)) (|setExposeDropGroup| |fnargs|)) ((BOOT-EQUAL |fn| (QUOTE |constructor|)) (|setExposeDropConstr| |fnargs|)) ((QUOTE T) NIL))) ((QUOTE T) (|setExposeDrop| NIL)))))) -;setExposeDropGroup arg == -; (null arg) => -; centerAndHighlight ("The group Option",$LINELENGTH,specialChar 'hbar) -; sayKeyedMsg("S2IZ0049L",NIL) -; sayMSG '" " -; displayExposedGroups() -; for x in arg repeat -; if PAIRP x then x := QCAR x -; x = 'all => -; $localExposureData.0 := NIL -; $localExposureData.1 := NIL -; $localExposureData.2 := NIL -; displayExposedGroups() -; sayMSG '" " -; displayExposedConstructors() -; sayMSG '" " -; displayHiddenConstructors() -; clearClams() -; member(x,$localExposureData.0) => -; $localExposureData.0 := DELETE(x,$localExposureData.0) -; clearClams() -; sayKeyedMsg("S2IZ0049S",[x,$interpreterFrameName]) -; GETALIST($globalExposureGroupAlist,x) => -; sayKeyedMsg("S2IZ0049I",[x,$interpreterFrameName]) -; sayKeyedMsg("S2IZ0049H",[x]) - -(DEFUN |setExposeDropGroup| (|arg|) (PROG (|x|) (RETURN (SEQ (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The group Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|sayKeyedMsg| (QUOTE S2IZ0049L) NIL) (|sayMSG| (MAKESTRING " ")) (|displayExposedGroups|)) ((QUOTE T) (DO ((#0=#:G3031 |arg| (CDR #0#)) (|x| NIL)) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (PROGN (COND ((PAIRP |x|) (SPADLET |x| (QCAR |x|)))) (COND ((BOOT-EQUAL |x| (QUOTE |all|)) (SETELT |$localExposureData| 0 NIL) (SETELT |$localExposureData| 1 NIL) (SETELT |$localExposureData| 2 NIL) (|displayExposedGroups|) (|sayMSG| (MAKESTRING " ")) (|displayExposedConstructors|) (|sayMSG| (MAKESTRING " ")) (|displayHiddenConstructors|) (|clearClams|)) ((|member| |x| (ELT |$localExposureData| 0)) (SETELT |$localExposureData| 0 (|delete| |x| (ELT |$localExposureData| 0))) (|clearClams|) (|sayKeyedMsg| (QUOTE S2IZ0049S) (CONS |x| (CONS |$interpreterFrameName| NIL)))) ((GETALIST |$globalExposureGroupAlist| |x|) (|sayKeyedMsg| (QUOTE S2IZ0049I) (CONS |x| (CONS |$interpreterFrameName| NIL)))) ((QUOTE T) (|sayKeyedMsg| (QUOTE S2IZ0049H) (CONS |x| NIL)))))))))))))) -;setExposeDropConstr arg == -; (null arg) => -; centerAndHighlight ("The constructor Option",$LINELENGTH, -; specialChar 'hbar) -; sayKeyedMsg("S2IZ0049N",NIL) -; sayMSG '" " -; displayExposedConstructors() -; sayMSG '" " -; displayHiddenConstructors() -; for x in arg repeat -; x := unabbrev x -; if PAIRP x then x := QCAR x -; -- if the constructor is known, we know what type it is -; null GETDATABASE(x,'CONSTRUCTORKIND) => -; sayKeyedMsg("S2IZ0049J",[x]) -; member(x,$localExposureData.2) => -; sayKeyedMsg("S2IZ0049O",[x,$interpreterFrameName]) -; if member(x,$localExposureData.1) then -; $localExposureData.1 := DELETE(x,$localExposureData.1) -; $localExposureData.2 := MSORT cons(x,$localExposureData.2) -; clearClams() -; sayKeyedMsg("S2IZ0049Q",[x,$interpreterFrameName]) - -(DEFUN |setExposeDropConstr| (|arg|) (PROG (|x|) (RETURN (SEQ (COND ((NULL |arg|) (|centerAndHighlight| (QUOTE |The constructor Option|) $LINELENGTH (|specialChar| (QUOTE |hbar|))) (|sayKeyedMsg| (QUOTE S2IZ0049N) NIL) (|sayMSG| (MAKESTRING " ")) (|displayExposedConstructors|) (|sayMSG| (MAKESTRING " ")) (|displayHiddenConstructors|)) ((QUOTE T) (DO ((#0=#:G3050 |arg| (CDR #0#)) (|x| NIL)) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (PROGN (SPADLET |x| (|unabbrev| |x|)) (COND ((PAIRP |x|) (SPADLET |x| (QCAR |x|)))) (COND ((NULL (GETDATABASE |x| (QUOTE CONSTRUCTORKIND))) (|sayKeyedMsg| (QUOTE S2IZ0049J) (CONS |x| NIL))) ((|member| |x| (ELT |$localExposureData| 2)) (|sayKeyedMsg| (QUOTE S2IZ0049O) (CONS |x| (CONS |$interpreterFrameName| NIL)))) ((QUOTE T) (COND ((|member| |x| (ELT |$localExposureData| 1)) (SETELT |$localExposureData| 1 (|delete| |x| (ELT |$localExposureData| 1))))) (SETELT |$localExposureData| 2 (MSORT (CONS |x| (ELT |$localExposureData| 2)))) (|clearClams|) (|sayKeyedMsg| (QUOTE S2IZ0049Q) (CONS |x| (CONS |$interpreterFrameName| NIL))))))))))))))) ;setFortTmpDir arg == ; arg = "%initialize%" => ; $fortranTmpDir := '"/tmp/"