From c256196c01d787d145a39f7afcba6d333902ff92 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sun, 2 Sep 2018 20:06:11 +0200 Subject: [PATCH] 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 | 15 +++++++++++++++ doc/programs.md | 1 + src/info/info.emacs | 32 ++++++++++++++------------------ 3 files changed, 30 insertions(+), 18 deletions(-) diff --git a/build/emacs.tcl b/build/emacs.tcl index 46a1a3ce..683eb3fc 100644 --- a/build/emacs.tcl +++ b/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" diff --git a/doc/programs.md b/doc/programs.md index 99f9f6d9..16c89575 100644 --- a/doc/programs.md +++ b/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. diff --git a/src/info/info.emacs b/src/info/info.emacs index 3c367269..d0b97600 100755 --- a/src/info/info.emacs +++ b/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)NINFO.EXE' FTINFO Dumped