github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +00:00
Code Issues Releases Wiki Activity

Older version of INFO; INFO EMACS.

Browse Source 
This is dated 1979-06-02.  Using it to build TSINFO doesn't make a fully
working INFO program.
This commit is contained in:
Lars Brinkhoff 2016-12-03 20:26:43 +01:00
parent d4e793b3a6
commit 682ade2954
2 changed files with 41 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

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

40
src/info/info.emacs Executable file
View File

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