Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/pcl.elib
There are no other files named pcl.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Qh
4v]M
}e*	}5

O?]GVWQh

p

(6italize PCL KeywordsExpand Abbrevs in Region

PCL Mode^R Backward Block^R Forward Block^R Forward Statement^R Make BEGIN-END^R Plus Increment~DIRECTORY~!~DOC~ Capitalize PCL Keywords"~DOC~ Expand Abbrevs in Region~DOC~ PCL Mode~DOC~ ^R Backward Block~DOC~ ^R Forward Block~DOC~ ^R Forward Statement~DOC~ ^R Make BEGIN-END~DOC~ ^R Plus Increment~DOC~ ~FILENAME~~FILENAME~

~INVERT~%	M(M.M& Init Buffer Locals)
1,q(1,q.m.Qw)m.Q.
1,(M.M^R Indent Nested)M.QI
1,(:I*! )M.LComment Start
1,(:I*;)M.LComment End
1,1M.LSpace Indent Flag
1,8M.LComment Column
1,0M.LPCL CapKEY
0@fo..qAutomatic Capitalization"N
m(m.mCapitalize PCL Keywords)'
m.m^R Forward StatementM.Q...S
m.m^R Forward BlockM.Q...E
m.m^R Backward BlockM.Q...A
M.M^R Make BEGIN-ENDM.Q...U
M.M^R Plus incrementM.Q...+
0FO..QPCL ..D"E
0M.VPCL ..D
:IPCL ..D                                        AA                A                             A    A    A   AA   AA    A    A    (    )(   A    A         A         A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    ;    A    A    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    A    )[   A   AA    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    A    ){   A        '
QPCL ..DM.Q..D
Q.0,1M(M.M& Set Mode Line)PCL

0UD0U0.U1Z-."GC'
<-:SBEGINEND"E
:i*CNo Block BackwardsFSECHODISP
0FSECHOACTIVEWBJ0;'
1A&137.-E"EQD-1UD'
"#QD+1UDQD;'>
00(:I*;"!ENDBEGIN)[S
FF"E0'"#-'[D
[E.[A
<:SS"EFGQAJ0'
.UEFKC
1A-;"E
QEJ
QD"E0'
!<!>'
1A-42."ECS"!'!!<!>'
:I*Unmatched QuoteFG0'
."G0A"CQEJR!<!>''
1A&137.-C"ES;!<!>'
1A-41."ES;!<!>'
1A&137.-E"E
QD"GFGQAJ0'
QD+1UD
QD"G0'
QEJR
!<!>'
QD-1UD
QEJR
QD"E0'
>(:I*"!ENDBEGIN)[S
FF[X
QX"E0'"#-'[D
[E.[A
<:SS"EFGQAJ0'
.UEFKC
1A-42."ECS"!'!!<!>'
."G0A"CQEJR!<!>''
1A&137.-C"ES;!<!>'
1A-41."ES;!<!>'
1A&137.-E"E
QD+1UD
QX*QD"GFGQAJ0'
QEJR
QD"L!<!>'
0'
QD-1UD
QEJR
QD"E0'
>o.[A
0L:FB"L:L13i10iW-4MI'"#QAJ'
IBEGIN'13i10i
W-4@MI
.(
13i10iW2MI
IEND;13i10i
.[Z)J
QA,QZR[.1
QPCL CapKEY"'E[0
FF"N"'GU0'
Q0UPCL CapKEY
QPCL CapKEY"E
1:<0m(m.mWord Abbrev Mode)>
'
1m(m.mWord Abbrev Mode)
0FO..QLast Word Abbrev File"E
m(m.mRead Word Abbrev File)EMACS:PCL.DEFNS'
"#f[bbind
GLast Word Abbrev FileJ
:FBPCL.DEFNSU.1f]bbind
Q.1"Em(m.mRead Word Abbrev File)EMACS;PCL DEFNS'
'
df[vbf[vz:,.ffsBoundwj
[..d:g..du..d^*5:f..D
[a
<f[vz0ua
.(:s! COMMENT"nfsz-.fsvzw:ia;')j
.(:s""Nfsz-.fsvzw34:ia'!'!)j
<1:<fwl>@:;
m(m.m^R Abbrev Expand Only)
>
zjf]vzW
qa@;W:sa;
>
bzj
d59,0A-59"E'
[aWM(M.M^R Delete Horizontal Space)
<.-B"E'65,0A"'B;w1R>
.[2
<-FWL.@;
(0A-$"'E)+(0A-#"'E)+(0A-["'E)+(0A-]"'E);>
.,Q2Xa
Q2J
.
I _ A
F"GWI + W\WI;'
"#"LWI - W\WI;'
"#WI + ;1R''
PCL%Library for editing PCL functionsC Set things up for editing PCL code.
Sets up:
	C-M-A,C-M-E		^R Backward/Forward Block
	C-M-S			^R Forward Statement
	C-M-U			^R Make BEGIN-END
        C-M-+			^R Plus increment
        <tab>			^R Indent Nested
	<Rub>			^R Backward Delete Hacking Tabs,^R Move backward over one BEGIN/END pair^R Move forward over one PCL statement.
With positive arg, go up one or more levels in BEGIN END nest.
With negative arg, go down one or more levels.^R Move forward over one BEGIN END pair.
With positive arg, go up one or more levels in BEGIN END nest.
With negative arg, go down one or more levels.^R Create a BEGIN END pair.
Cursor position defines indentation level for this block.
Leave cursor ready to type first statement of the block.wC Turn on capitalization of keywords.
With no argument, the mode is toggled.  Otherwise, a positive argument
turns on the mode and a zero shuts it off.  Uses the WORDAB library and
a file of pre-defined abbreviations which are the keywords.C Expand all WORDAB abbreviations in region.
Assumes WORDAB already loaded.
Comments and strings are skipped, but assumes that it's not started in one.{^R Make PCL stmt to increment the word before the point.
Leaves region around inserted text so it can be killed easily"PCL Mode
^R Backward Block
^R Forward Statement
^R Forward Block
^R Make BEGIN-END
Capitalize PCL Keywords
Expand Abbrevs in Region
^R Plus Increment
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2