Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/ada.elib
There are no other files named ada.elib in the archive.
(W[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))5	&"a)1c8<>
E

McT,[

Og,mPu6't"&S0f9C2NSXKbBqKz<:)## Ada begin# Ada case# Ada declare

# Ada if# Ada loop# Ada record# Ada while& Ada Mode& Setup ADA Library

Ada Mode^R Ada Indent^R Ada Template~DIRECTORY~~DOC~ # Ada begin~DOC~ # Ada case~DOC~ # Ada declare~DOC~ # Ada for~DOC~ # Ada if~DOC~ # Ada loop~DOC~ # Ada record~DOC~ # Ada while~DOC~ & Ada Mode~DOC~ & Setup ADA Library~DOC~ Ada Mode~DOC~ ^R Ada Indent~DOC~ ^R Ada Template~DOC~ ~FILENAME~~FILENAME~

~INVERT~ADAGm(m.m& Init Buffer Locals)
1,(:i*--)m.lComment Start
1,(:i*-- )m.lComment Begin
1,40m.lComment Column
1,(m.m^R Ada Indent)m.qI
1,(m.m^R Indent Relative)m.q..I
1,(m.m^R Ada Template)m.q..O
1,q(1,q.m.qw)m.q.
m.q..D
0fo..qAda ..Df"nu..d'"#
:g..du..d
-1u1 0<%1*5+1:f..d >
10<%1*5+1:f..dA>
A-9-1<%1*5+1:f..d >
26<%1*5+1:f..dA>
a-Z-1<%1*5+1:f..d >
26<%1*5+1:f..dA>
128-z-1<%1*5+1:f..d >
_*5+1:f..dA
(*5+1:f..d(
)*5+1:f..d)
"*5+1:f..d| !'!
\*5+1:f..d/
q..dm.vAda ..Dw'
 1m(m.m& Set Mode Line)Ada M.[1[2[3[4
-@f	 l 10,0a-10"n q1j f:m(m.m^R Indent Relative)'
<  b-.; -l
:f:fb--: -@f	 l
0,0a-10@:;
0l >
;,0a-;"e 0u2'
"# !<!-2f==>"e !<!qAda => Indentationu2'
    "# -@fwx3
2fo..qAda 3 Indentationu2''
.u4
<  -l b-.;
:f:fb--: -@f	 l
0a-;@;
!<!-2f==>"e 0;'
0a"c -@fwx3 -1fo..qAda 3 Indentation;'
0a-10"n .u4'
>
 q4j 0l @f	 l fsSHpos+q2u2
q1j fsSHposu1
q1-q2"l q2:m(m.m& Indent)'
f:m(m.m^R Indent Relative)Y.[1[2[3
-@:fwl -@fwf(l)x2
1,m.m# Ada 2u3
q3"n :m3'
:i*No template for 2fsErr30[4
-@f	 l 0,0a-10"e -l :f:fb--: -@f	 l'
0,0a-:"e r -@fwx4'
q1j 0l @f	 l fsSHposu3 q1j i loop
 0,q3m(m.m& XIndent)w iend loop
 q4"n 32i g4' i;
 q1,.(q1j)IfsSHposu3 q1j i then
 0,q3m(m.m& XIndent)w iend if;
 q1,.(q1j)
fsSHposu3 q1j i is
 0,q3+qAda case Indentationm(m.m& XIndent)w iwhen others =>
 0,q3m(m.m& XIndent)w iend case;
 q1,.(q1j)`0[4
-@f	 l 0,0a-10"e -l :f:fb--: -@f	 l'
0,0a-:"e r -@fwx4'
q1j 0l @f	 l fsSHposu3 q1j i
 0,q3+qAda loop Indentationm(m.m& XIndent)w .u2 i
 0,q3m(m.m& XIndent)w iend
 q4"n 32i g4' i;
 q1,.(q2j)e0[4
-@f	 l 0,0a-10"e -l :f:fb--: -@f	 l'
0,0a-:"e r -@fwx4'
q1j 0l @f	 l fsSHposu3 q1j i
 0,q3+qAda loop Indentationm(m.m& XIndent)w .u2 i
 0,q3m(m.m& XIndent)w iend loop
 q4"n 32i g4' i;
 q1,.(q2j)0[4
-@f	 l 0,0a-10"e -l :f:fb--: -@f	 l'
0,0a-:"e r -@fwx4'
q1j 0l @f	 l fsSHposu3 q1j i
 0,q3+qAda declare Indentationm(m.m& XIndent)w .u2 i
 0,q3m(m.m& XIndent)w ibegin
 0,q3m(m.m& XIndent)w iend
 q4"n 32i g4' i;
 q1,.(q2j)
0l @f	 l fsSHposu3 q1j i
 0,q3+qAda loop Indentationm(m.m& XIndent)w .u2 i
 0,q3m(m.m& XIndent)w iend record;
 q1,.(q2j)V0fo..qADA Loaded-11015699797"n
4m.CAda => Indentation
4m.CAda begin Indentation
4m.CAda declare Indentation
4m.CAda do Indentation
4m.CAda else Indentation
4m.CAda exception Indentation
4m.CAda is Indentation
4m.CAda loop Indentation
4m.CAda private Indentation
4m.CAda record Indentation
4m.CAda select Indentation
4m.CAda then Indentation
4m.CAda case Indentation
11015699797m.vADA Loaded'
0fo..qADA Setup Hookf"n[0m0w'#Functions for editing Ada code.sC Set up for editing Ada code.
Tab indents for next Ada statement.  Meta-I is ^R Indent Relative.
M-O is ^R Ada Template, which inserts a template for the statement started.
^R Backward Sexp and ^R Forward Sexp move over Ada objects;
^R Kill Sexp and ^R Backward Kill Sexp delete them.
An Ada object is an identifier, string, or parenthesized expression.n^R Move to column for next Ada statement.
Does not work properly if you put multiple statements per line..^R Insert template for keyword just typed.'S Insert template for WHILE and FORS Insert template for IFS Insert template for CASES Insert template for BEGINS Insert template for LOOP!S Insert template for DECLARE S Insert template for RECORDJS IVORY-Generated Setup -- Calls hook.
This object file was compressed on 8:23pm  Tuesday, 5 January 1982
by EAK on MC from the following source libraries:

   EAK; DSK: ADA 5,	01/05/82 20:23:013Ada Mode
& Ada Mode
^R Ada Indent
^R Ada Template
# Ada while
# Ada for
# Ada if
# Ada case
# Ada begin
# Ada loop
# Ada declare
# Ada record
& Setup ADA Library
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2