diff options
Diffstat (limited to 'src/interp/setvars.boot')
| -rw-r--r-- | src/interp/setvars.boot | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index ffcca4d7..cc1f362c 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -389,8 +389,6 @@ describeInputLibraryArgs() == -- frame (called initial ): -- basic -- categories --- naglink --- anna -- The following constructors are explicitly exposed in the -- current frame: @@ -869,63 +867,6 @@ protectSymbols arg == describeProtectSymbols() PROTECT_-SYMBOLS translateYesNo2TrueFalse first arg --- --- See the section naglink in setvart.boot --- \begin{verbatim} --- Current Values of naglink Variables - --- Variable Description Current Value --- ----------------------------------------------------------------- --- host internet address of host for NAGLink localhost --- persistence number of (fortran) functions to remember 1 --- messages show NAGLink messages on --- double enforce DOUBLE PRECISION ASPs on - --- - - -setNagHost arg == - arg = "%initialize%" => - $nagHost := '"localhost" - arg = "%display%" => - object2String $nagHost - (null arg) or (arg = "%describe%") or (first arg = '_?) => - describeSetNagHost() - $nagHost := object2String arg - - -describeSetNagHost() == - sayBrightly LIST ( - '%b,'")set naglink host",'%d,_ - '"is used to tell AXIOM which host to contact for",'%l,_ - '" a NAGLink request. An Internet address should be supplied. The host",'%l,_ - '" specified must be running the NAGLink daemon.",'%l,'%l,_ - '" The current setting is",'%b,$nagHost,'%d) - - -setFortPers arg == - arg = "%initialize%" => - $fortPersistence := 1 - arg = "%display%" => - $fortPersistence - (null arg) or (arg = "%describe%") or (first arg = '_?) => - describeFortPersistence() - n := first arg - ((not FIXP n) or (n < 0)) => - sayMessage ['"Your value of",:bright n,'"is invalid because ..."] - describeFortPersistence() - terminateSystemCommand() - $fortPersistence := first(arg) - - -describeFortPersistence() == - sayBrightly LIST ( - '%b,'")set naglink persistence",'%d,_ - '"is used to tell the ",'%b,"nagd",'%d," daemon how many ASP",'%l,_ - '" source and object files to keep around in case you reuse them. This helps",'%l,_ - '" to avoid needless recompilations. The number specified should be a ",'%l,_ - '" non-negative integer.", '%l,'%l,_ - '" The current setting is",'%b,$fortPersistence,'%d) -- See the subsection output algebra in setvart.boot -- |