PDP-10 Archive: emacs/capl.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/capl.elib

There are no other files named capl.elib in the archive.

xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
sLQUdc!wm5z"^#/`	1-A)}'*7,xD+=T-b-+q$&$N&%&d(%.6%DE()Q')f(ht(|(A
)$"$).x&LCAPLnAutoarg&CAPLxBrieflyFDescribe&yCAPLDExitiHook&mCAPLeOriginalaKeypad&oCAPLReturnlHook&USetCAPLHModeLine&lSetupMCAPLLibraryCAPLAlternateCKeypadCAPLExecute Keypadiefly Describe~DOC~ & CAPL Exit Hook ~DOC~ & CAPL Original Keypad~DOC~ & CAPL Return Hook~DOC~ & Set CAPL Mode Line~DOC~ & Setup CAPL Library~DOC~ CAPL Alternate Keypad~DOC~ CAPL Execute Keypad~DOC~ CAPL Info~DOC~ CAPL Normal Keypad~DOC~ CAPL Transmit Keypad~DOC~ Fix PHOTO File*~DOC~ Get Keypad Definitions From File~DOC~ ^R Half Window Down~DOC~ ^R Half Window Up~DOC~ ^R Home~DOC~ ^R Toggle ^H Mode~DOC~ ~Filename~~Filename~

~INVERT~	0FO..QCAPL Setup Hook[0
fq0"G:M0'
M.VCAPL Setup Hook
@:iCAPL Setup Hook/:i*CThe CAPL Library has already been loaded.
fsechodisplay0fsechoactive/
0M.VCapl Keypad Hook
0FO..Q^H ModeF(M.V^H Mode
)M.C^H Mode!*
Positive implies that ^H is invisible and counts as part of the word
Zero implies that ^H is visible and does not count as part of the word.
Negative implies backspace does a cursor left.!
F"L3fs^Rinit$uH
8*5:f..D     
95*5:f..D A   
0fs^HPRINT'
"#"G65fs^RINIT$uH
8*5:f..DAA   
95*5:f..DAA   
-1fs^HPRINT'
"#65fs^RINIT$uH
8*5:f..D     
95*5:f..D A   
0fs^HPRINT''
fs^HPrint-(Q^H Mode"'G)"N
WF'
1fsMODECH
q^H Mode:"L65fs^RInituH'
:I*FO..QTECO Mode Hooku0@:I*\0w-1M.L^H Mode\M.VTECO Mode Hook
1,M.M^R Invoke Inferior"EM(M.MLoad Library)Efork'
0M.CTemporary CAPL storageIntermediate storage for CAPL mode
1FO..QCAPL Default Keypad ModeM.VCAPL Mode
1M.CCAPL Mode!* -1 = Execute Pad, 0 = No Pad, 1 = Alternate keypad!
"'N-(q$Temporary CAPL storage$"'N)"E'
1FSMODECH$
F"N"G:M(M.MCAPL Alternate Keypad$)'
"#:M(M.MCAPL Execute Keypad)''
"#W:M(M.MCAPL Normal Keypad$)'
1FO..QCAPL Default Keypad ModeM.VCAPL Exit mode
QCAPL Exit ModeM.CCAPL Exit modeThe current mode of the terminal.  See CAPL Mode.
0M.VSystem Superior Type
0M.CSystem Superior Type Nonzero implies an invoke inferior type
F[bbind
FSJNAMEf6J
1+(:SMACS)USystem Superior type
F]bbind
0fo..qExit to Inferior hook[1
fq1"l:i1'
@:i*`1w0m(m.m& CAPL Exit Hook)`m.vExit to Inferior Hook
0fo..qExit to Superior Hooku1
fq1"l:i1'
@:i*`1w1m(m.m& CAPL Exit Hook)`m.vExit to Superior hook
0fo..qReturn From Superior hooku1
fq1"l:i1'
@:i*`1w:m(m.m& CAPL Return Hook)`m.vReturn From Superior hook
0fo..qReturn From Inferior hooku1
fq1"l:i1'
@:i*`1w:m(m.m& CAPL Return Hook)`m.vReturn From Inferior Hook
]1
27fs^RcmacM.VCAPL Original Key
M(M.M & SET CAPL MODE LINE)
M(M.MCAPL Alternate Keypad)
1FO..QCAPL Default Keypad ModeM.VCAPL Default Keypad Mode
QCAPL Default Keypad ModeF"E
M(M.MCAPL Normal Keypad)'
"#"LM(M.MCAPL Execute Keypad)''
m128M(M.MMAKE PREFIX CHARACTER).o,27@fs^Rcmac
@:i*|X|fsimageout
0FO..QSaved CAPL Commands"E
1M(M.M& CAPL Original Keypad)
'
0FO..QCapl Keypad hook[1
fq1"GWM1'W]1
1:<QSaved CAPL Commands>"N
:I*CUndefined Keypad in effectfsechodisp0fsechoactive
'
QSaved CAPL CommandsU.O
1M(M.M& Set CAPL Mode Line)
.(f[bbind
gprefix char list
j:SEsc  Q.O"E
IEsc  Q.O13i10i'
HFXPrefix char list
f]bbind)J
1uTemporary CAPL storage
1UCAPL MODE
1fsmodechange
hQ.OUSaved CAPL Commands
@:I*/x/FSIMAGEOUT
.(f[bbind
gprefix char list
j:sEsc  "N0lk'
HFXPrefix char list
f]bbind)J
QCAPL Original Key,27@fs^Rcmac
0uTemporary CAPL storage
0UCAPL MODE
1fsmodechange
QCAPL MODE"E
:I*CYou are in the Normal Keypad.  Use M-X CAPL Alternate keypad.(
)fsechodisp0fsechoactive
0'
:FO..QTEMPCAPLMODE"L0'
QTEMPCAPLMODEF(uTemporary CAPL storage)UCAPL Mode
M(M.MKill Variable)TEMPCAPLMODE
@:I*/X/FSIMAGEOUT
1FSModeChange
>QCAPL MODEF"E
:I*CThe Execute Pad is already on.fsechodisp0fsechoactiveW0
'M.VTEMPCAPLMODE
-1uTemporary CAPL storage
-1UCAPL Mode
@:i*|x|fsimageout
1fsmodechange
Q$FP-101"N
:I*CThe keypad is currently turned off.fsechodisp
0fsechoactive
'
M(M.M& Load BARE)
[AFF"E:IA'"#:IAOne'
-1f[truncate
FTThe currently defined CAPL keypad is:


:I*Mult Code,Q:.O(:)M(M.M& CAPL Briefly Describe)A
:I*Break,Q:.O()M(M.M& CAPL Briefly Describe)A
ft

:I*Up-Arrow,Q:.O(;)M(M.M& CAPL Briefly Describe)A
:I*Left-Arrow,Q:.O(62)M(M.M& CAPL Briefly Describe)A
:I*Home,Q:.O(?)M(M.M& CAPL Briefly Describe)A
:I*Right-Arrow,Q:.O(=)M(M.M& CAPL Briefly Describe)A
:I*Down-Arrow,Q:.O(60)M(M.M& CAPL Briefly Describe)A
ft

:I*Reset/Stat,Q:.O(+)M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(,)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O(+)M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(,)M(M.M& CAPL Briefly Describe)A
ft

:I*Print,Q:.O({)M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(|)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O(})M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(~)M(M.M& CAPL Briefly Describe)A
ft

:I*Page,Q:.O(-)M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(.)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O(-)M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(.)M(M.M& CAPL Briefly Describe)A
ft

:I*Tape,Q:.O(`)M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(`)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O(@)M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(^)M(M.M& CAPL Briefly Describe)A
ft

:I*Scroll,Q:.O([)M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(\)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O([)M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(\)M(M.M& CAPL Briefly Describe)A
ft

:I*Tab Set/Clr,Q:.O(])M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(95)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q:.O(])M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(95)M(M.M& CAPL Briefly Describe)A
ft

:I*Tab,Q	M(M.M& CAPL Briefly Describe)A
:I*  Shifted,Q:.O(39)M(M.M& CAPL Briefly Describe)A
:I*  Control,Q	M(M.M& CAPL Briefly Describe)A
:I*  Control-shifted,Q:.O(39)M(M.M& CAPL Briefly Describe)A
ft

ft
Done.

f[DFILE0f[DVERSIONw[Buffer Filenames
E[E\FNE^E]
fshsname[A
ETACAPL.PAD.0
]B]A
5,4FKeypad File[F
FF"N1M(M.M& CAPL Original Keypad)'
f[BBIND
1:<ERF>"E@YM(HFX*(f]bbind))'
"#:I*CCould not read the file F.fsechodisp0fsechoactive0'
Q.OM.VSaved CAPL Commands
FF"N'
:I*CPad definitions saved.  Please run M-X CAPL Alternate keypad$fsechodisp
0fsechoactive
[8[9
M(M.M^R Widen Bounds)
j<!<!:@s`>`;FKD-D>
j<:@s``;0k>
j<:s;fkd>
j<:s;fkd4<13i10i>>
j<:s
;r13i>'
j6FF"N'"#QPrevious Buffer':M(M.MSelect Buffer)4fsLINES[0
Q0"GQ0/2'"#10':M(M.M^R Next Screen)8fsLINES[0
Q0"GQ0/2'"#10':M(M.M^R Previous Screen)@Q^H Mode"E1'"#0'[0
FF"N"'L-("'G)U0'
q0u^H Mode
0%0FS^RLAST
Q..1+400.FSREREAD
#[0[1U0U1:I*[9
FQ9"'GU9
0F[SAIL
FT0
F]SAIL
FT 
Q1FP-101"E
F~1!PREFIX!-9"E
FTis an escape-prefix for more commands.
''
Q1M(M.M& MACRO NAME)[2
Q2"NQ2U1
q9"N
fq0-8"Lft	'
fq0-16"Lft	'
FT	runs 
FT1:
M.M~DOC~ 1U1
F[BBIND
G1JFWKD:@L.,ZK
FT
			HT'
"#
fq0-8"Lft	'
fq0-16"Lft	'
FT	1'
FT
'
fq0-8"Lft	'
fq0-16"Lft	'
FT	
F:M(M.M^R DESCRIBE)f[DFILE0f[DVERSIONw[Buffer Filenames
E[E\FNE^E]
fshsname[A
:IBCAPL.PAD
f[bbind
1:<ERemacs:B@YM(HFX*)>
1:<ERAB>"E@YM(HFX*)'
Q.OM.VSaved CAPL Commands
FF"N'
:I*CCAPL Pad definitions created and savedfsechodisp
0fsechoactive
M(M.MCAPL Alternate Keypad)
1FO..QCAPL Default Keypad ModeF"E
M(M.MCAPL Normal Keypad)'
"#"LM(M.MCAPL Execute Keypad)''
OQCAPL ModeF(UCAPL Exit Mode)"N
M(M.MCAPL Normal Keypad)'
0FO..QSystem Superior Type"E
"N
0fo..q*Initialization*u1
fq1"l:i1'
@:i*`1wm(m.m& CAPL Return Hook)`m.v*Initialization*
]1''
YM(M.MCAPL Alternate Keypad)
1FO..QCAPL Exit ModeF"E
M(M.MCAPL Normal Keypad)'
0FO..QSet Mode line hookF"E
W:I*m.vSet Mode Line hookw:I*'[1
f[bbind
g1j
:@S/CAPL MODE/"E@I/
I 0FO..QCAPL MODEF"N"LI#'"#I+''"#WI-'
ICAPL/'
:@S/^H Mode/"E
@I/0FO..Q^H ModeF"G
I ^H+'"#"LI ^H-'"#I ^H''/
'
HXSET MODE LINE HOOK
1fsmodechange
CAPLCAPL Keypad DefinitionsQS Sets up the defaults for the CAPL keypad
upon the entrance of the library.?C Sets alternate keypad mode for CAPLs
The keypad in the upper left is set to transmit mode and the altmode
key is used as its prefix driver.  To get the meta key use
^R Prefix Meta.,C Undos alternate keypad mode for CAPL'sBC Sets the keypad to transmit their escape seq.
If the key definitions need to be reset the user should use
CAPL Alternate Keypad.  This command is the opposite of
CAPL Execute Keypad~C Turns alternate Keypad off.
The key definitions for the pad are still there upon returning with
CAPL Transmit Keypad
C Prints out the key definitions in display mode.
A numeric argument implies that a one line description will be given
for each key.C Reads a set of keypad definition from a file.
The file should look like standard teco putting function definitions on the
prefix character which is referenced by the Q-Vector .O
A numeric argument will load in the original keypad definitions first./C Strips a PHOTO file if created on a CAPL.O^R Returns to previous buffer.
If given explicit arg, goes to that buffer.(^R Scroll screen down by half window&^R Scroll screen up by half window[^R Enter or leave mode really displaying ^H.
Without an argument, toggles ^H mode. With an argument of 0, leaves ^H
mode. With a non-zero argument, enters ^H mode (^H really prints and 
counts as part of a word)..S An Autoarg that works from prefix chars.SS Briefly describes a command.
The command character and command definition should be
given as prefix numeric args.  Any string argument turns on the longer
description for the function name.  We don't handle indirect
definitions; the caller should do that.  (This is so we
win when dealing with subcommands of prefix characters).uS Creates the original keypad prefix table.  
It does this by executing the file EMACS:CAPL.PAD and then PS:<LOGIN>CAPL.PAD.
The format of these files is simply straight TECO code to set a definition on
a key in the prefix table .O.  It creates the variable Saved CAPL Commands.  A
numeric argument prevents the warning message from being sent if an error
occurs. 9S Setup to exit gracefully to an inferior or superior.S Setup to return gracefully to the editor,S Set the Mode line hook for the libraryn& Setup CAPL Library
CAPL Alternate Keypad
CAPL Normal Keypad
CAPL Transmit Keypad
CAPL Execute Keypad
CAPL Info
Get Keypad Definitions From File
Fix PHOTO File
^R Home
^R Half Window Down
^R Half Window Up
^R Toggle ^H Mode
& CAPL Autoarg
& CAPL Briefly Describe
& CAPL Original Keypad
& CAPL Exit Hook
& CAPL Return Hook
& Set CAPL Mode Line
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2