* Makefile.pamphlet (NAGBROBJS): Remove.

	(makeint.lisp): Don't depend on it, don't use it.
	(UNUSED): Remove reference to anna.boot.
	(nag-s.$(FASLEXT)): Remove.
	(nag-f07.$(FASLEXT)): Likewise.
	(nag-f04.$(FASLEXT)): Likewise.
	(nag-f02.$(FASLEXT)): Likewise.
	(nag-f01.$(FASLEXT)): Likewise.
	(nag-e04.$(FASLEXT)): Likewise.
	(nag-e02.$(FASLEXT)): Likewise.
	(nag-e02b.$(FASLEXT)): Likewise.
	(nag-e01.$(FASLEXT)): Likewise.
	(nag-d03.$(FASLEXT)): Likewise.
	(nag-d02.$(FASLEXT)): Likewise.
	(nag-d01.$(FASLEXT)): Likewise.
	(nag-c06.$(FASLEXT)): Likewise.
	(nag-c05.$(FASLEXT)): Likewise.
	(nag-c02.$(FASLEXT)): Likewise.
	anna.boot: Remove.
	nag-s.boot: Likewise.
	nag-f07.boot: Likewise.
	nag-f04.boot: Likewise.
	nag-f02.boot: Likewise.
	nag-f01.boot: Likewise.
	nag-e04.boot: Likewise.
	nag-e02.boot: Likewise.
	nag-e02b.boot: Likewise.
	nag-e01.boot: Likewise.
	nag-d03.boot: Likewise.
	nag-d02.boot: Likewise.
	nag-d01.boot: Likewise.
	nag-c06.boot: Likewise.
	nag-c05.boot: Likewise.
	nag-c02.boot: Likewise.
	* setq.lisp (|$localExposureDataDefault|): Remove reference to naglink.
	(|$localExposureData|): Likewise.
	(|$InitialCommandSynonymAlist|): Remove startNAGLink and stopNAGLink.
	* setvars.boot (setNagHost): Remove.
	(describeSetNagHost): Likewise.
	(setFortPers): Likewise.
	(describeSetFortPers): Likewise.
	* setvart.boot: Remove naglink option.
	* sockio.lisp (NAGLinkServer): Remove.
	* util.lisp (anna-functions): Likewise.
	(nagbr-functions): Likewise.
	(build-interpsys): Lose nagbr-files parameter.
	(setNAGBootAutoloadProperties): Remove.
	(get-NAG-chapter): Likewise.
	(nag-files): Likewise.
	(chapter-name): Likewise.
	(sourcepath): Don't set naglink.

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
 --