[Axiom-developer] 20090406.01.tpd.patch (bookvol5 add )set debug)

axiom-developer
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] 20090406.01.tpd.patch (bookvol5 add )set debug)

From:	daly
Subject:	[Axiom-developer] 20090406.01.tpd.patch (bookvol5 add )set debug)
Date:	Mon, 6 Apr 2009 05:00:56 -0500
Axiom now has a new )set debug command.

This top level command will collect all of the internal debugging 
flags so that they can be found, become easier to use, and become
better documented.

===================================================================
diff --git a/books/bookvol0.pamphlet b/books/bookvol0.pamphlet
index c7c47e5..2a5d851 100644
--- a/books/bookvol0.pamphlet
+++ b/books/bookvol0.pamphlet
@@ -43874,7 +43874,7 @@ $$
 \returnType{Type: List NonNegativeInteger}
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\domainhead{Permuation}
+\domainhead{Permutation}
 
 
 We represent a permutation as two lists of equal length representing preimages
diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet
index 1697c27..8db7069 100644
--- a/books/bookvol5.pamphlet
+++ b/books/bookvol5.pamphlet
@@ -6239,7 +6239,81 @@ These commands are restricted to keep the user from 
causing damage.
    (|nobreak| |break| |query| |resume| |fastlinks|)
    |nobreak|)         ; needed to avoid possible startup looping
 @
-\section{Variables Used}
+\section{debug}
+\begin{verbatim}
+                  Current Values of debug Variables                   
+
+Variable     Description                           Current Value
+-----------------------------------------------------------------
+lambdatype   Show type information for #1 syntax     off
+dalymode     Interpret leading open paren as lisp    off
+
+\end{verbatim}
+<<debug>>=
+   (|debug|
+    "debug options"
+    |interpreter|
+    TREE
+    |novar|
+    (
+<<debuglambdatype>>
+<<debugdalymode>>
+    ))
+@
+\section{debug lambda type}
+\begin{verbatim}
+---------------------- The lambdatype Option ----------------------
+
+ Description: Show type information for #1 syntax
+
+\end{verbatim}
+\defdollar{lambdatype}
+<<initvars>>=
+(defvar $lambdatype nil "show type information for #1 syntax")
+
+@
+<<debuglambdatype>>=
+      (|lambdatype|
+       "show type information for #1 syntax"
+       |interpreter|
+       LITERALS
+       $lambdatype
+       (|on| |off|)
+       |off|)
+@
+\section{debug dalymode}
+The \verb|$dalymode| variable is used in a case statement in 
+intloopReadConsole. This variable can be set to any non-nil
+value. When not nil the interpreter will send any line that begins
+with an ``('' to be sent to the underlying lisp. This is useful
+for debugging Axiom. The normal value of this variable is NIL.
+
+This variable was created as an alternative to prefixing every lisp
+command with )lisp. When doing a lot of debugging this is tedious
+and error prone. This variable was created to shortcut that process.
+Clearly it breaks some semantics of the language accepted by the
+interpreter as parens are used for grouping expressions.
+
+\begin{verbatim}
+---------------------- The dalymode Option ----------------------
+
+ Description: Interpret leading open paren as lisp
+
+\end{verbatim}
+\defdollar{dalymode}
+<<initvars>>=
+(defvar $dalymode nil "Interpret leading open paren as lisp")
+
+@
+<<debugdalymode>>=
+      (|dalymode|
+       "Interpret leading open paren as lisp"
+       |interpreter|
+       LITERALS
+       $dalymode
+       (|on| |off|)
+       |off|)
+@
 \section{compiler}
 \begin{verbatim}
                   Current Values of  compiler  Variables                   
@@ -10498,6 +10572,7 @@ prettyprint  prettyprint BOOT func's as they compile    
off
 (defvar |$setOptions| '(
 <<breakmode>>
 <<compiler>>
+<<debug>>
 <<expose>>
 <<functions>>
 <<fortran>>
@@ -15608,19 +15683,6 @@ the value of the AXIOM shell variable.
 The \verb|$currentLine| line is set to NIL in restart.
 It is used in removeUndoLines in the undo mechanism.
 
-\subsection{\$dalymode}
-The \verb|$dalymode| variable is used in a case statement in 
-intloopReadConsole. This variable can be set to any non-nil
-value. When not nil the interpreter will send any line that begins
-with an ``('' to be sent to the underlying lisp. This is useful
-for debugging Axiom. The normal value of this variable is NIL.
-
-This variable was created as an alternative to prefixing every lisp
-command with )lisp. When doing a lot of debugging this is tedious
-and error prone. This variable was created to shortcut that process.
-Clearly it breaks some semantics of the language accepted by the
-interpreter as parens are used for grouping expressions.
-
 \subsection{\$defaultMsgDatabaseName}
 The \verb|$defaultMsgDatabaseName| is the absolute path to the 
 s2-us.msgs file which contains all of the english language
diff --git a/changelog b/changelog
index 2a04732..367608e 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,10 @@
+20090406 tpd src/axiom-website/patches.html 20090406.01.tpd.patch
+20090406 tpd src/interp/setq.lisp move $dalymode flag to bookvol5
+20090406 tpd src/input/unittest3.input unit test )set debug
+20090406 tpd books/bookvol5 add )set debug
+20090406 tpd src/input/unittest2.input fix unittests
+20090406 tpd src/algebra/Makefile fix LazardSetSolvingPackage typo
+20090406 tpd books/bookvol0 fix spelling typo
 20090405 tpd src/axiom-website/patches.html 20090405.02.tpd.patch
 20090405 tpd src/axiom-website/index.html Axiom on Windows as html
 20090405 tpd src/axiom-website/patches.html 20090405.01.tpd.patch
diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet
index bde991e..d826254 100644
--- a/src/algebra/Makefile.pamphlet
+++ b/src/algebra/Makefile.pamphlet
@@ -17056,15 +17056,15 @@ ${HELP}/KeyedAccessFile.help: 
${BOOKS}/bookvol10.3.pamphlet
             >${INPUT}/KeyedAccessFile.input
        @echo "KeyedAccessFile (KAFILE)" >>${HELPFILE}
 
-${HELP}/LazardSetSolvingPackage.help: ${BOOKS}/bookvol10.3.pamphlet
+${HELP}/LazardSetSolvingPackage.help: ${BOOKS}/bookvol10.4.pamphlet
        @echo 7042 create LazardSetSolvingPackage.help from \
-              ${BOOKS}/bookvol10.3.pamphlet
+              ${BOOKS}/bookvol10.4.pamphlet
        @${TANGLE} -R"LazardSetSolvingPackage.help" \
-           ${BOOKS}/bookvol10.3.pamphlet \
+           ${BOOKS}/bookvol10.4.pamphlet \
            >${HELP}/LazardSetSolvingPackage.help
        @cp ${HELP}/LazardSetSolvingPackage.help ${HELP}/LAZM3PK.help
        @${TANGLE} -R"LazardSetSolvingPackage.input" \
-            ${BOOKS}/bookvol10.3.pamphlet \
+            ${BOOKS}/bookvol10.4.pamphlet \
             >${INPUT}/LazardSetSolvingPackage.input
        @echo "LazardSetSolvingPackage (LAZM3PK)" >>${HELPFILE}
 
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index faaa6d8..d000ddd 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1050,5 +1050,7 @@ bookvol0 document additional domains<br/>
 index.html Axiom on Windows instructions<br/>
 <a href="patches/20090405.02.tpd.patch">20090405.02.tpd.patch</a>
 index.html Axiom on Windows as html<br/>
+<a href="patches/20090406.01.tpd.patch">20090406.01.tpd.patch</a>
+bookvol5 add )set debug<br/>
  </body>
 </html>
diff --git a/src/input/unittest2.input.pamphlet 
b/src/input/unittest2.input.pamphlet
index 9c225f7..69266c9 100644
--- a/src/input/unittest2.input.pamphlet
+++ b/src/input/unittest2.input.pamphlet
@@ -1337,7 +1337,7 @@ Unit test the user level commands
 --S 213 of 237
 )lisp (identity |$setOptions|)
 --R 
---RValue = ((|breakmode| "execute break processing on error" |interpreter| 
LITERALS |$BreakMode| (|nobreak| |break| |query| |resume| |fastlinks|) 
|nobreak|) (|compiler| "Library compiler options" |interpreter| TREE |novar| 
((|output| "library in which to place compiled code" |interpreter| FUNCTION 
|setOutputLibrary| NIL |htSetOutputLibrary|) (|input| "controls libraries from 
which to load compiled code" |interpreter| FUNCTION |setInputLibrary| NIL 
|htSetInputLibrary|) (|args| "arguments for compiling AXIOM code" |interpreter| 
FUNCTION |setAsharpArgs| (("enter compiler options " STRING 
|$asharpCmdlineFlags| |chkDirectory| "-O -Fasy -Fao -Flsp -laxiom 
-Mno-AXL__W__WillObsolete -DAxiom -Y $AXIOM/algebra")) NIL))) (|expose| 
"control interpreter constructor exposure" |interpreter| FUNCTION |setExpose| 
NIL |htSetExpose|) (|functions| "some interpreter function options" 
|interpreter| TREE |novar| ((|cache| "number of function results to cache" 
|interpreter| FUNCTION |setFunctionsC!
ache| NIL |htSetCache|) (|compile| "compile, don't just define function bodies" 
|interpreter| LITERALS |$compileDontDefineFunctions| (|on| |off|) |on|) 
(|recurrence| "specially compile recurrence relations" |interpreter| LITERALS 
|$compileRecurrence| (|on| |off|) |on|))) (|fortran| "view and set options for 
FORTRAN output" |interpreter| TREE |novar| ((|ints2floats| "where sensible, 
coerce integers to reals" |interpreter| LITERALS |$fortInts2Floats| (|on| 
|off|) |on|) (|fortindent| "the number of characters indented" |interpreter| 
INTEGER |$fortIndent| (0 NIL) 6) (|fortlength| "the number of characters on a 
line" |interpreter| INTEGER |$fortLength| (1 NIL) 72) (|typedecs| "print type 
and dimension lines" |interpreter| LITERALS |$printFortranDecs| (|on| |off|) 
|on|) (|defaulttype| "default generic type for FORTRAN object" |interpreter| 
LITERALS |$defaultFortranType| (REAL INTEGER COMPLEX LOGICAL CHARACTER) REAL) 
(|precision| "precision of generated FORTRAN objects" |interprete!
r| LITERALS |$fortranPrecision| (|single| |double|) |double|)!
 (|intrinsic| "whether to use INTRINSIC FORTRAN functions" |interpreter| 
LITERALS |$useIntrinsicFunctions| (|on| |off|) |off|) (|explength| "character 
limit for FORTRAN expressions" |interpreter| INTEGER 
|$maximumFortranExpressionLength| (0 NIL) 1320) (|segment| "split long FORTRAN 
expressions" |interpreter| LITERALS |$fortranSegment| (|on| |off|) |on|) 
(|optlevel| "FORTRAN optimisation level" |interpreter| INTEGER 
|$fortranOptimizationLevel| (0 2) 0) (|startindex| "starting index for FORTRAN 
arrays" |interpreter| INTEGER |$fortranArrayStartingIndex| (0 1) 1) (|calling| 
"options for external FORTRAN calls" |interpreter| TREE |novar| ((|tempfile| 
"set location of temporary data files" |interpreter| FUNCTION |setFortTmpDir| 
(("enter directory name for which you have write-permission" DIRECTORY 
|$fortranTmpDir| |chkDirectory| "/tmp/")) NIL) (|directory| "set location of 
generated FORTRAN files" |interpreter| FUNCTION |setFortDir| (("enter directory 
name for which you have write!
-permission" DIRECTORY |$fortranDirectory| |chkDirectory| "./")) NIL) (|linker| 
"linker arguments (e.g. libraries to search)" |interpreter| FUNCTION 
|setLinkerArgs| (("enter linker arguments " STRING |$fortranLibraries| 
|chkDirectory| "-lxlf")) NIL))))) (|kernel| "library functions built into the 
kernel for efficiency" |interpreter| TREE |novar| ((|warn| "warn when 
re-definition is attempted" |interpreter| FUNCTION |protectedSymbolsWarning| 
NIL |htSetKernelWarn|) (|protect| "prevent re-definition of kernel functions" 
|interpreter| FUNCTION |protectSymbols| NIL |htSetKernelProtect|))) (|hyperdoc| 
"options in using HyperDoc" |interpreter| TREE |novar| ((|fullscreen| "use full 
screen for this facility" |interpreter| LITERALS |$fullScreenSysVars| (|on| 
|off|) |off|) (|mathwidth| "screen width for history output" |interpreter| 
INTEGER |$historyDisplayWidth| (0 NIL) 120))) (|help| "view and set some help 
options" |interpreter| TREE |novar| ((|fullscreen| "use fullscreen facility, !
if possible" |interpreter| LITERALS |$useFullScreenHelp| (|on!
| |off|) |off|))) (|history| "save workspace values in a history file" 
|interpreter| LITERALS |$HiFiAccess| (|on| |off|) |on|) (|messages| "show 
messages for various system features" |interpreter| TREE |novar| ((|any| "print 
the internal type of objects of domain Any" |interpreter| LITERALS 
|$printAnyIfTrue| (|on| |off|) |on|) (|autoload| "print file auto-load 
messages" |interpreter| LITERALS |$printLoadMsgs| (|on| |off|) |on|) 
(|bottomup| "display bottom up modemap selection" |development| LITERALS 
|$reportBottomUpFlag| (|on| |off|) |off|) (|coercion| "display datatype 
coercion messages" |development| LITERALS |$reportCoerceIfTrue| (|on| |off|) 
|off|) (|dropmap| "display old map defn when replaced" |interpreter| LITERALS 
|$displayDroppedMap| (|on| |off|) |off|) (|expose| "warning for unexposed 
functions" |interpreter| LITERALS |$giveExposureWarning| (|on| |off|) |off|) 
(|file| "print msgs also to SPADMSG LISTING" |development| LITERALS 
|$printMsgsToFile| (|on| |off|) |off|)!
 (|frame| "display messages about frames" |interpreter| LITERALS 
|$frameMessages| (|on| |off|) |off|) (|highlighting| "use highlighting in 
system messages" |interpreter| LITERALS |$highlightAllowed| (|on| |off|) |off|) 
(|instant| "present instantiation summary" |development| LITERALS 
|$reportInstantiations| (|on| |off|) |off|) (|insteach| "present instantiation 
info" |development| LITERALS |$reportEachInstantiation| (|on| |off|) |off|) 
(|interponly| "say when function code is interpreted" |interpreter| LITERALS 
|$reportInterpOnly| (|on| |off|) |on|) (|naglink| "show NAGLink messages" 
|interpreter| LITERALS |$nagMessages| (|on| |off|) |on|) (|number| "display 
message number with message" |interpreter| LITERALS |$displayMsgNumber| (|on| 
|off|) |off|) (|prompt| "set type of input prompt to display" |interpreter| 
LITERALS |$inputPromptType| (|none| |frame| |plain| |step| |verbose|) |step|) 
(|selection| "display function selection msgs" |interpreter| LITERALS 
|$reportBottomUpFlag!
| (|on| |off|) |off|) (|set| "show )set setting after assignm!
ent" |interpreter| LITERALS |$displaySetValue| (|on| |off|) |off|) (|startup| 
"display messages on start-up" |interpreter| LITERALS |$displayStartMsgs| (|on| 
|off|) |on|) (|summary| "print statistics after computation" |interpreter| 
LITERALS |$printStatisticsSummaryIfTrue| (|on| |off|) |off|) (|testing| "print 
system testing header" |development| LITERALS |$testingSystem| (|on| |off|) 
|off|) (|time| "print timings after computation" |interpreter| LITERALS 
|$printTimeIfTrue| (|on| |off| |long|) |off|) (|type| "print type after 
computation" |interpreter| LITERALS |$printTypeIfTrue| (|on| |off|) |on|) 
(|void| "print Void value when it occurs" |interpreter| LITERALS 
|$printVoidIfTrue| (|on| |off|) |off|))) (|naglink| "options for NAGLink" 
|interpreter| TREE |novar| ((|host| "internet address of host for NAGLink" 
|interpreter| FUNCTION |setNagHost| (("enter host name" DIRECTORY |$nagHost| 
|chkDirectory| "localhost")) NIL) (|persistence| "number of (fortran) functions 
to remember"!
 |interpreter| FUNCTION |setFortPers| (("Requested remote storage (for asps):" 
INTEGER |$fortPersistence| (0 NIL) 10)) NIL) (|messages| "show NAGLink 
messages" |interpreter| LITERALS |$nagMessages| (|on| |off|) |on|) (|double| 
"enforce DOUBLE PRECISION ASPs" |interpreter| LITERALS |$nagEnforceDouble| 
(|on| |off|) |on|))) (|output| "view and set some output options" |interpreter| 
TREE |novar| ((|abbreviate| "abbreviate type names" |interpreter| LITERALS 
|$abbreviateTypes| (|on| |off|) |off|) (|algebra| "display output in algebraic 
form" |interpreter| FUNCTION |setOutputAlgebra| (("display output in algebraic 
form" LITERALS |$algebraFormat| (|off| |on|) |on|) (BREAK $ALGEBRAFORMAT) 
("where algebra printing goes (enter {em console} or a pathname)?" FILENAME 
|$algebraOutputFile| |chkOutputFileName| "console")) NIL) (|characters| "choose 
special output character set" |interpreter| FUNCTION |setOutputCharacters| NIL 
|htSetOutputCharacters|) (|fortran| "create output in FORTRAN for!
mat" |interpreter| FUNCTION |setOutputFortran| (("create outp!
ut in FORTRAN format" LITERALS |$fortranFormat| (|off| |on|) |off|) (|break| 
|$fortranFormat|) ("where FORTRAN output goes (enter {em console} or a a 
pathname)" FILENAME |$fortranOutputFile| |chkOutputFileName| "console")) NIL) 
(|fraction| "how fractions are formatted" |interpreter| LITERALS 
|$fractionDisplayType| (|vertical| |horizontal|) |vertical|) (|length| "line 
length of output displays" |interpreter| INTEGER $LINELENGTH (10 245) 77) 
(|mathml| "create output in MathML style" |interpreter| FUNCTION 
|setOutputMathml| (("create output in MathML format" LITERALS |$mathmlFormat| 
(|off| |on|) |off|) (|break| |$mathmlFormat|) ("where MathML output goes (enter 
{em console} or a pathname)" FILENAME |$mathmlOutputFile| |chkOutputFileName| 
"console")) NIL) (|openmath| "create output in OpenMath style" |interpreter| 
FUNCTION |setOutputOpenMath| (("create output in OpenMath format" LITERALS 
|$openMathFormat| (|off| |on|) |off|) (|break| |$openMathFormat|) ("where TeX 
output goes (e!
nter {em console} or a pathname)" FILENAME |$openMathOutputFile| 
|chkOutputFileName| "console")) NIL) (|script| "display output in SCRIPT 
formula format" |interpreter| FUNCTION |setOutputFormula| (("display output in 
SCRIPT format" LITERALS |$formulaFormat| (|off| |on|) |off|) (|break| 
|$formulaFormat|) ("where script output goes (enter {em console} or a a 
pathname)" FILENAME |$formulaOutputFile| |chkOutputFileName| "console")) NIL) 
(|scripts| "show subscripts,... linearly" |interpreter| LITERALS 
|$linearFormatScripts| (|on| |off|) |off|) (|showeditor| "view output of )show 
in editor" |interpreter| LITERALS |$useEditorForShowOutput| (|on| |off|) |off|) 
(|tex| "create output in TeX style" |interpreter| FUNCTION |setOutputTex| 
(("create output in TeX format" LITERALS |$texFormat| (|off| |on|) |off|) 
(|break| |$texFormat|) ("where TeX output goes (enter {em console} or a 
pathname)" FILENAME |$texOutputFile| |chkOutputFileName| "console")) NIL))) 
(|quit| "protected or unprotecte!
d quit" |interpreter| LITERALS |$quitCommandType| (|protected!
| |unprotected|) |protected|) (|streams| "set some options for working with 
streams" |interpreter| TREE |novar| ((|calculate| "specify number of elements 
to calculate" |interpreter| FUNCTION |setStreamsCalculate| (("number of initial 
stream elements you want calculated" INTEGER |$streamCount| (0 NIL) 10)) NIL) 
(|showall| "display all stream elements computed" |interpreter| LITERALS 
|$streamsShowAll| (|on| |off|) |off|))) (|system| "set some system development 
variables" |development| TREE |novar| ((|functioncode| "show gen. LISP for 
functions when compiled" |development| LITERALS |$reportCompilation| (|on| 
|off|) |off|) (|optimization| "show optimized LISP code" |development| LITERALS 
|$reportOptimization| (|on| |off|) |off|) (|prettyprint| "prettyprint BOOT 
func's as they compile" |development| LITERALS $PRETTYPRINT (|on| |off|) 
|on|))) (|userlevel| "operation access level of system user" |interpreter| 
LITERALS |$UserLevel| (|interpreter| |compiler| |development|) |developm!
ent|))
+--RValue = ((|breakmode| "execute break processing on error" |interpreter| 
LITERALS |$BreakMode| (|nobreak| |break| |query| |resume| |fastlinks|) 
|nobreak|) (|compiler| "Library compiler options" |interpreter| TREE |novar| 
((|output| "library in which to place compiled code" |interpreter| FUNCTION 
|setOutputLibrary| NIL |htSetOutputLibrary|) (|input| "controls libraries from 
which to load compiled code" |interpreter| FUNCTION |setInputLibrary| NIL 
|htSetInputLibrary|) (|args| "arguments for compiling AXIOM code" |interpreter| 
FUNCTION |setAsharpArgs| (("enter compiler options " STRING 
|$asharpCmdlineFlags| |chkDirectory| "-O -Fasy -Fao -Flsp -laxiom 
-Mno-AXL__W__WillObsolete -DAxiom -Y $AXIOM/algebra")) NIL))) (|debug| "debug 
options" |interpreter| TREE |novar| ((|lambdatype| "show type information for 
#1 syntax" |interpreter| LITERALS $LAMBDATYPE (|on| |off|) |off|) (|dalymode| 
"Interpret leading open paren as lisp" |interpreter| LITERALS $DALYMODE (|on| 
|off|) |off|))) (|!
expose| "control interpreter constructor exposure" |interpreter| FUNCTION 
|setExpose| NIL |htSetExpose|) (|functions| "some interpreter function options" 
|interpreter| TREE |novar| ((|cache| "number of function results to cache" 
|interpreter| FUNCTION |setFunctionsCache| NIL |htSetCache|) (|compile| 
"compile, don't just define function bodies" |interpreter| LITERALS 
|$compileDontDefineFunctions| (|on| |off|) |on|) (|recurrence| "specially 
compile recurrence relations" |interpreter| LITERALS |$compileRecurrence| (|on| 
|off|) |on|))) (|fortran| "view and set options for FORTRAN output" 
|interpreter| TREE |novar| ((|ints2floats| "where sensible, coerce integers to 
reals" |interpreter| LITERALS |$fortInts2Floats| (|on| |off|) |on|) 
(|fortindent| "the number of characters indented" |interpreter| INTEGER 
|$fortIndent| (0 NIL) 6) (|fortlength| "the number of characters on a line" 
|interpreter| INTEGER |$fortLength| (1 NIL) 72) (|typedecs| "print type and 
dimension lines" |interpret!
er| LITERALS |$printFortranDecs| (|on| |off|) |on|) (|default!
type| "default generic type for FORTRAN object" |interpreter| LITERALS 
|$defaultFortranType| (REAL INTEGER COMPLEX LOGICAL CHARACTER) REAL) 
(|precision| "precision of generated FORTRAN objects" |interpreter| LITERALS 
|$fortranPrecision| (|single| |double|) |double|) (|intrinsic| "whether to use 
INTRINSIC FORTRAN functions" |interpreter| LITERALS |$useIntrinsicFunctions| 
(|on| |off|) |off|) (|explength| "character limit for FORTRAN expressions" 
|interpreter| INTEGER |$maximumFortranExpressionLength| (0 NIL) 1320) 
(|segment| "split long FORTRAN expressions" |interpreter| LITERALS 
|$fortranSegment| (|on| |off|) |on|) (|optlevel| "FORTRAN optimisation level" 
|interpreter| INTEGER |$fortranOptimizationLevel| (0 2) 0) (|startindex| 
"starting index for FORTRAN arrays" |interpreter| INTEGER 
|$fortranArrayStartingIndex| (0 1) 1) (|calling| "options for external FORTRAN 
calls" |interpreter| TREE |novar| ((|tempfile| "set location of temporary data 
files" |interpreter| FUNCTION |setFor!
tTmpDir| (("enter directory name for which you have write-permission" DIRECTORY 
|$fortranTmpDir| |chkDirectory| "/tmp/")) NIL) (|directory| "set location of 
generated FORTRAN files" |interpreter| FUNCTION |setFortDir| (("enter directory 
name for which you have write-permission" DIRECTORY |$fortranDirectory| 
|chkDirectory| "./")) NIL) (|linker| "linker arguments (e.g. libraries to 
search)" |interpreter| FUNCTION |setLinkerArgs| (("enter linker arguments " 
STRING |$fortranLibraries| |chkDirectory| "-lxlf")) NIL))))) (|kernel| "library 
functions built into the kernel for efficiency" |interpreter| TREE |novar| 
((|warn| "warn when re-definition is attempted" |interpreter| FUNCTION 
|protectedSymbolsWarning| NIL |htSetKernelWarn|) (|protect| "prevent 
re-definition of kernel functions" |interpreter| FUNCTION |protectSymbols| NIL 
|htSetKernelProtect|))) (|hyperdoc| "options in using HyperDoc" |interpreter| 
TREE |novar| ((|fullscreen| "use full screen for this facility" |interpreter| !
LITERALS |$fullScreenSysVars| (|on| |off|) |off|) (|mathwidth!
| "screen width for history output" |interpreter| INTEGER 
|$historyDisplayWidth| (0 NIL) 120))) (|help| "view and set some help options" 
|interpreter| TREE |novar| ((|fullscreen| "use fullscreen facility, if 
possible" |interpreter| LITERALS |$useFullScreenHelp| (|on| |off|) |off|))) 
(|history| "save workspace values in a history file" |interpreter| LITERALS 
|$HiFiAccess| (|on| |off|) |on|) (|messages| "show messages for various system 
features" |interpreter| TREE |novar| ((|any| "print the internal type of 
objects of domain Any" |interpreter| LITERALS |$printAnyIfTrue| (|on| |off|) 
|on|) (|autoload| "print file auto-load messages" |interpreter| LITERALS 
|$printLoadMsgs| (|on| |off|) |on|) (|bottomup| "display bottom up modemap 
selection" |development| LITERALS |$reportBottomUpFlag| (|on| |off|) |off|) 
(|coercion| "display datatype coercion messages" |development| LITERALS 
|$reportCoerceIfTrue| (|on| |off|) |off|) (|dropmap| "display old map defn when 
replaced" |interpreter| !
LITERALS |$displayDroppedMap| (|on| |off|) |off|) (|expose| "warning for 
unexposed functions" |interpreter| LITERALS |$giveExposureWarning| (|on| |off|) 
|off|) (|file| "print msgs also to SPADMSG LISTING" |development| LITERALS 
|$printMsgsToFile| (|on| |off|) |off|) (|frame| "display messages about frames" 
|interpreter| LITERALS |$frameMessages| (|on| |off|) |off|) (|highlighting| 
"use highlighting in system messages" |interpreter| LITERALS 
|$highlightAllowed| (|on| |off|) |off|) (|instant| "present instantiation 
summary" |development| LITERALS |$reportInstantiations| (|on| |off|) |off|) 
(|insteach| "present instantiation info" |development| LITERALS 
|$reportEachInstantiation| (|on| |off|) |off|) (|interponly| "say when function 
code is interpreted" |interpreter| LITERALS |$reportInterpOnly| (|on| |off|) 
|on|) (|naglink| "show NAGLink messages" |interpreter| LITERALS |$nagMessages| 
(|on| |off|) |on|) (|number| "display message number with message" 
|interpreter| LITERALS |$di!
splayMsgNumber| (|on| |off|) |off|) (|prompt| "set type of in!
put prompt to display" |interpreter| LITERALS |$inputPromptType| (|none| 
|frame| |plain| |step| |verbose|) |step|) (|selection| "display function 
selection msgs" |interpreter| LITERALS |$reportBottomUpFlag| (|on| |off|) 
|off|) (|set| "show )set setting after assignment" |interpreter| LITERALS 
|$displaySetValue| (|on| |off|) |off|) (|startup| "display messages on 
start-up" |interpreter| LITERALS |$displayStartMsgs| (|on| |off|) |on|) 
(|summary| "print statistics after computation" |interpreter| LITERALS 
|$printStatisticsSummaryIfTrue| (|on| |off|) |off|) (|testing| "print system 
testing header" |development| LITERALS |$testingSystem| (|on| |off|) |off|) 
(|time| "print timings after computation" |interpreter| LITERALS 
|$printTimeIfTrue| (|on| |off| |long|) |off|) (|type| "print type after 
computation" |interpreter| LITERALS |$printTypeIfTrue| (|on| |off|) |on|) 
(|void| "print Void value when it occurs" |interpreter| LITERALS 
|$printVoidIfTrue| (|on| |off|) |off|))) (|naglink| !
"options for NAGLink" |interpreter| TREE |novar| ((|host| "internet address of 
host for NAGLink" |interpreter| FUNCTION |setNagHost| (("enter host name" 
DIRECTORY |$nagHost| |chkDirectory| "localhost")) NIL) (|persistence| "number 
of (fortran) functions to remember" |interpreter| FUNCTION |setFortPers| 
(("Requested remote storage (for asps):" INTEGER |$fortPersistence| (0 NIL) 
10)) NIL) (|messages| "show NAGLink messages" |interpreter| LITERALS 
|$nagMessages| (|on| |off|) |on|) (|double| "enforce DOUBLE PRECISION ASPs" 
|interpreter| LITERALS |$nagEnforceDouble| (|on| |off|) |on|))) (|output| "view 
and set some output options" |interpreter| TREE |novar| ((|abbreviate| 
"abbreviate type names" |interpreter| LITERALS |$abbreviateTypes| (|on| |off|) 
|off|) (|algebra| "display output in algebraic form" |interpreter| FUNCTION 
|setOutputAlgebra| (("display output in algebraic form" LITERALS 
|$algebraFormat| (|off| |on|) |on|) (BREAK $ALGEBRAFORMAT) ("where algebra 
printing goes (ent!
er {em console} or a pathname)?" FILENAME |$algebraOutputFile!
| |chkOutputFileName| "console")) NIL) (|characters| "choose special output 
character set" |interpreter| FUNCTION |setOutputCharacters| NIL 
|htSetOutputCharacters|) (|fortran| "create output in FORTRAN format" 
|interpreter| FUNCTION |setOutputFortran| (("create output in FORTRAN format" 
LITERALS |$fortranFormat| (|off| |on|) |off|) (|break| |$fortranFormat|) 
("where FORTRAN output goes (enter {em console} or a a pathname)" FILENAME 
|$fortranOutputFile| |chkOutputFileName| "console")) NIL) (|fraction| "how 
fractions are formatted" |interpreter| LITERALS |$fractionDisplayType| 
(|vertical| |horizontal|) |vertical|) (|length| "line length of output 
displays" |interpreter| INTEGER $LINELENGTH (10 245) 77) (|mathml| "create 
output in MathML style" |interpreter| FUNCTION |setOutputMathml| (("create 
output in MathML format" LITERALS |$mathmlFormat| (|off| |on|) |off|) (|break| 
|$mathmlFormat|) ("where MathML output goes (enter {em console} or a pathname)" 
FILENAME |$mathmlOutputFile!
| |chkOutputFileName| "console")) NIL) (|openmath| "create output in OpenMath 
style" |interpreter| FUNCTION |setOutputOpenMath| (("create output in OpenMath 
format" LITERALS |$openMathFormat| (|off| |on|) |off|) (|break| 
|$openMathFormat|) ("where TeX output goes (enter {em console} or a pathname)" 
FILENAME |$openMathOutputFile| |chkOutputFileName| "console")) NIL) (|script| 
"display output in SCRIPT formula format" |interpreter| FUNCTION 
|setOutputFormula| (("display output in SCRIPT format" LITERALS 
|$formulaFormat| (|off| |on|) |off|) (|break| |$formulaFormat|) ("where script 
output goes (enter {em console} or a a pathname)" FILENAME |$formulaOutputFile| 
|chkOutputFileName| "console")) NIL) (|scripts| "show subscripts,... linearly" 
|interpreter| LITERALS |$linearFormatScripts| (|on| |off|) |off|) (|showeditor| 
"view output of )show in editor" |interpreter| LITERALS 
|$useEditorForShowOutput| (|on| |off|) |off|) (|tex| "create output in TeX 
style" |interpreter| FUNCTION |se!
tOutputTex| (("create output in TeX format" LITERALS |$texFor!
mat| (|off| |on|) |off|) (|break| |$texFormat|) ("where TeX output goes (enter 
{em console} or a pathname)" FILENAME |$texOutputFile| |chkOutputFileName| 
"console")) NIL))) (|quit| "protected or unprotected quit" |interpreter| 
LITERALS |$quitCommandType| (|protected| |unprotected|) |protected|) (|streams| 
"set some options for working with streams" |interpreter| TREE |novar| 
((|calculate| "specify number of elements to calculate" |interpreter| FUNCTION 
|setStreamsCalculate| (("number of initial stream elements you want calculated" 
INTEGER |$streamCount| (0 NIL) 10)) NIL) (|showall| "display all stream 
elements computed" |interpreter| LITERALS |$streamsShowAll| (|on| |off|) 
|off|))) (|system| "set some system development variables" |development| TREE 
|novar| ((|functioncode| "show gen. LISP for functions when compiled" 
|development| LITERALS |$reportCompilation| (|on| |off|) |off|) (|optimization| 
"show optimized LISP code" |development| LITERALS |$reportOptimization| (|on| |!
off|) |off|) (|prettyprint| "prettyprint BOOT func's as they compile" 
|development| LITERALS $PRETTYPRINT (|on| |off|) |on|))) (|userlevel| 
"operation access level of system user" |interpreter| LITERALS |$UserLevel| 
(|interpreter| |compiler| |development|) |development|))
 --E 213
 
 --S 214 of 237
diff --git a/src/input/unittest3.input.pamphlet 
b/src/input/unittest3.input.pamphlet
index 528e348..22e0c14 100644
--- a/src/input/unittest3.input.pamphlet
+++ b/src/input/unittest3.input.pamphlet
@@ -17,77 +17,166 @@ Unit test the user level commands
 )set mes auto off
 )clear all
 
---S 1 of 11
+--S 1 of 19
 )lisp (identity |$inputPromptType|)
 --R 
 --RValue = |step|
 --E 1
 
---S 2 of 11
+--S 2 of 19
 )lisp (setq |$inputPromptType| '|none|)
 --R 
 --RValue = |none|
 --E 2
 
---S 3 of 11
+--S 3 of 19
 1
 --R   (1)  1
 --R                                                        Type: 
PositiveInteger
 --E 3
 
---S 4 of 11
+--S 4 of 19
 )lisp (setq |$inputPromptType| '|plain|)
 --RValue = |plain|
 --E 4
 
---S 5 of 11
+--S 5 of 19
 2
 --R
 --R   (2)  2
 --R                                                        Type: 
PositiveInteger
 --E 5
 
---S 6 of 11
+--S 6 of 19
 )lisp (setq |$inputPromptType| '|step|)
 --R 
 --RValue = |step|
 --E 6
 
---S 7 of 11
+--S 7 of 19
 2
 --R
 --R   (3)  2
 --R                                                        Type: 
PositiveInteger
 --E 7
 
---S 8 of 11
+--S 8 of 19
 )lisp (setq |$inputPromptType| '|frame|)
 --R 
 --RValue = |frame|
 --E 8
 
---S 9 of 11
+--S 9 of 19
 2
 --R
 --R   (4)  2
 --R                                                        Type: 
PositiveInteger
 --E 9
 
---S 10 of 11
+--S 10 of 19
 )lisp (setq |$inputPromptType| t)
 --R 
 --RValue = T
 --E 10
 
---S 11 of 11
+--S 11 of 19
 2
 --R
 --R   (5)  2
 --R                                                        Type: 
PositiveInteger
 --E 11
 
+--S 12 of 19
+)set debug
+--R                    Current Values of  debug  Variables                    
+--R
+--RVariable     Description                                Current Value
+--R-----------------------------------------------------------------------------
+--Rlambdatype   show type information for #1 syntax        off 
+--Rdalymode     Interpret leading open paren as lisp       off 
+--R
+--E 12
+
+--S 13 of 19
+)set debug lambdatype 
+--R-------------------------- The lambdatype Option --------------------------
+--R
+--R Description: show type information for #1 syntax
+--R
+--R The lambdatype option may be followed by any one of the following:
+--R
+--R    on
+--R -> off 
+--R
+--R The current setting is indicated.
+--R
+--E 13
+
+--S 14 of 19
+)set debug lambdatype on
+--E 14
+
+--S 15 of 19
+)set debug lambdatype
+--R-------------------------- The lambdatype Option --------------------------
+--R
+--R Description: show type information for #1 syntax
+--R
+--R The lambdatype option may be followed by any one of the following:
+--R
+--R -> on 
+--R    off
+--R
+--R The current setting is indicated.
+--R
+--E 15
+
+--S 16 of 19
+)set debug dalymode
+--R--------------------------- The dalymode Option ---------------------------
+--R
+--R Description: Interpret leading open paren as lisp
+--R
+--R The dalymode option may be followed by any one of the following:
+--R
+--R    on
+--R -> off 
+--R
+--R The current setting is indicated.
+--R
+--E 16
+
+--S 17 of 19
+)set debug dalymode on
+--E 17
+
+--S 18 of 19
+)set debug dalymode
+--R--------------------------- The dalymode Option ---------------------------
+--R
+--R Description: Interpret leading open paren as lisp
+--R
+--R The dalymode option may be followed by any one of the following:
+--R
+--R -> on 
+--R    off
+--R
+--R The current setting is indicated.
+--R
+--E 18
+
+--S 19 of 19
+)set debug
+--R                    Current Values of  debug  Variables                    
+--R
+--RVariable     Description                                Current Value
+--R-----------------------------------------------------------------------------
+--Rlambdatype   show type information for #1 syntax        on 
+--Rdalymode     Interpret leading open paren as lisp       on 
+--R
+--E 19
+
 )spool
- 
 )lisp (bye)
  
 @
diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 577d012..cb5d56f 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -112,7 +112,6 @@
 (setq |$NonNullStream| "NonNullStream")
 (setq |$NullStream| "NullStream")
 (setq |$domPvar| nil)
-(defvar $dalymode nil "if true then leading paren implies lisp cmd")
 (setq |$Newline| #\Newline)
[Prev in Thread]
Current Thread
[Next in Thread]
[Axiom-developer] 20090406.01.tpd.patch (bookvol5 add )set debug), daly <=
Prev by Date: [Axiom-developer] 20090405.02.tpd.patch (index.html Axiom on Windows as html)
Next by Date: [Axiom-developer] check algebra in lisp
Previous by thread: [Axiom-developer] 20090405.02.tpd.patch (index.html Axiom on Windows as html)
Next by thread: [Axiom-developer] check algebra in lisp
Index(es):
- Date
- Thread