Build INFO, the standalone hypertext documentation system.

Using the INFO; INFO EMACS text from EMACS; TSINFO 62, dated 1982-01-05.

For some unknown reason, we can't use a printing terminal when
generating a new TSINFO.  Temporarily switch to AAA then back to LA36.

build/emacs.tcl

@@ -86,3 +86,18 @@ respond "\n" "\030\003"
 respond "*" ":kill\r"
 
 respond "*" ":rename emacs;\[rmai\] \021:ej, emacs;\[rmai\] 146\r"
+
+# INFO
+# For some unknown reason, we can't use a printing terminal when
+# generating a new TSINFO.  Temporarily switch to AAA.
+respond "*" ":tctyp aaa\r"
+expect ":KILL"
+respond "*" "info\033\023"
+respond "*" ":emacs\r"
+expect "INFO Dumped"
+expect ":KILL"
+respond "*" ":tctyp la36\r"
+expect ":KILL"
+# The previous file version was 62, dated 1982-01-05.
+respond "*" ":rename emacs; tsinfo >, tsinfo 63\r"
+respond "*" ":link sys2;ts info,emacs;tsinfo >\r"

doc/programs.md

@@ -110,6 +110,7 @@
 - IFILE, Chaosnet file service.
 - IMLOAD/IMTRAN, load or translate an Imlac program.
 - IMPRNT, image mode printer.
+- INFO, hypertext documentation.
 - INIT, a helper program for LOGIN, LOGOUT, and other script files.
 - INLINE, reads line from TTY and adds to JCL (for DDT init files).
 - INQUIR, user account database.

src/info/info.emacs

@@ -5,35 +5,31 @@
    necessary for dumping a new INFO EJ file.
  *!
 
- :i*INFO m.vEditor Name
- :i..jINFO
- m(m.m Select Buffer)*INFO*
+ :i*INFO m.vEditor Name	    !* Editor Name and ..J must match!
+ :i..jINFO			    !* when the initial ^R is entered!
+				    !* so that our *Initialization* gets called.!
+ :i**INFO*m(m.m Select Buffer)
 
 
 !* Create startup macro to be run when we're 'd.!
  @:i*|	m(m.mLoad Library)INFO    !* load the INFO library!
-	fj :0k hfx1		    !* Q1 gets JCL, sans CR.  It is MMINFO!
-				    !* Enter's arg.!
+	fj :0k hfx1 0fsmodif		    !* Q1 gets JCL, sans CR.  It is MM INFO Enter's arg.!
 	:m..l
      | m.vMM & Startup INFO
 
-!* Create ..L macro to be run if we're G'd afterward.!
- @:i..l|
-	fs echolines-3"g 3 fs echolinesw'
-	
- |
-
 !* When ^K'd, we do a ^R, thus executing this string and entering INFO.!
- @:i*|	@:i*%	m(m.m& Recursive ^R Set Mode)
-		m(m.mInfo Enter)
-		160000. fs exit
-	    % fs ^R enterw
-	m(m.m& Recursive ^R Set Mode)
+ @:i*|  fq1"l :i1'
+	qINFO *Initialization* U*Initialization*
+	0fsmode mac
 	m(m.mInfo Enter)1
 	160000. fs exit
-     | fs ^R enterw
+     | m.v*Initialization*
+ q*Initialization* m.vINFO *Initialization*
 
- m(m.aPURIFYDump Environment)EMACS;TSINFO >
+ fs osteco"e
+   m(m.aPURIFYDump Environment)EMACS;TSINFO >'
+ "#
+   m(m.aPURIFYDump Environment)<EMACS>NINFO.EXE'
 
  FTINFO Dumped