From 682ade2954aa2aeb2c5687f19e6b41fc1329816c Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sat, 3 Dec 2016 20:26:43 +0100 Subject: [PATCH] Older version of INFO; INFO EMACS. This is dated 1979-06-02. Using it to build TSINFO doesn't make a fully working INFO program. --- Makefile | 2 +- src/info/info.emacs | 40 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 41 insertions(+), 1 deletion(-) create mode 100755 src/info/info.emacs diff --git a/Makefile b/Makefile index 77b6b748..86e01f8e 100644 --- a/Makefile +++ b/Makefile @@ -24,7 +24,7 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa \ tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys \ draw wl taa tj6 budd sharem ucode rvb kldcp math as imsrc gls demo \ macsym lmcons dmcg hack hibou agb gt40 rug maeda ms kle aap common \ - fonts zork 11logo kmp + fonts zork 11logo kmp info DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \ chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \ xfont maxout ucode moon acount alan channa fonts games graphs humor \ diff --git a/src/info/info.emacs b/src/info/info.emacs new file mode 100755 index 00000000..3c367269 --- /dev/null +++ b/src/info/info.emacs @@ -0,0 +1,40 @@ + +!* -*-TECO-*- *! + +!* This is the EMACS init for INFO. It sets up the EMACS/INFO environment + necessary for dumping a new INFO EJ file. + *! + + :i*INFO m.vEditor Name + :i..jINFO + m(m.m Select Buffer)*INFO* + + +!* 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.! + :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) + m(m.mInfo Enter)1 + 160000. fs exit + | fs ^R enterw + + m(m.aPURIFYDump Environment)EMACS;TSINFO > + + FTINFO Dumped + + 160000. fs exit