P[0 +8+fq(+4)[1 0fo10f"g+q1' +fq()+4u1 fq1"l 0' ,q1:m(q1+4(]1]0))uM c5m$ U'g /sI'} q}x 2}+I O/:Y qd z}SYI1I<'GYQG7G /q$k.;5># Ada accept# Ada begin# Ada body# Ada case# Ada declare# Ada exception# Ada for# Ada function# Ada if# Ada loop# Ada package# Ada procedure# Ada record# Ada select# Ada task# Ada while& Ada Mode& Ada Previous Label& Setup ADA LibraryAda Mode^R Ada Indent^R Ada Template~DIRECTORY~~DOC~ # Ada accept~DOC~ # Ada begin~DOC~ # Ada body~DOC~ # Ada case~DOC~ # Ada declare~DOC~ # Ada exception~DOC~ # Ada for~DOC~ # Ada function~DOC~ # Ada if~DOC~ # Ada loop~DOC~ # Ada package~DOC~ # Ada procedure~DOC~ # Ada record~DOC~ # Ada select~DOC~ # Ada task~DOC~ # Ada while~DOC~ & Ada Mode~DOC~ & Ada Previous Label~DOC~ & Setup ADA Library~DOC~ Ada Mode~DOC~ ^R Ada Indent~DOC~ ^R Ada Template~DOC~ ~FILENAME~~FILENAME~~INVERT~ADAm(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 Tab to Tab Stop)m.q...I 1,(:i* : : : : : : : : : : : : : :( ))m.lTab Stop Definitions 1,(m.m^R Ada Template)m.q.... 1,q1,q..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 .[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' "# !"e ! Indentationu2' "# -@fwx3 2fo..qAda 3 Indentationu2'' .u4 < -l b-.; :f:fb--: -@f l 0a-;@; !"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).[1[2[3 -@:fwl -@fwf(l)x2 1,m.m# Ada 2u3 q3"n 0l @f l fsSHPos(q1j),(fff"nw'):m3' 1,m(m.m& Get Library Pointer)WORDAB"n q1j @m(m.m^R Abbrev Expand Only)f .u1 -@:fwl -@fwf(l)x2 1,m.m# Ada 2u3 q3"n 0l @f l fsSHPos(q1j),(fff"nw'):m3' @m(m.m^R Unexpand Last Word)f ' :i*No template for 2fsErr 00[4 .[0 fnq0j -@fwl -@f l 0,0a-10"e -1 :f:fb--: -@f l' 0,0a-:"e r -@fwx4' q4m(m.m& Ada Previous Label)[4 .[0 i loop  0,m(m.m& XIndent)w iend loop q4"n 32i g4' i; q0,.(q0j).[0 i then  "n f"lw -1-'< 0,m(m.m& XIndent)w ielseif then > "l 0,m(m.m& XIndent)w ielse '' 0,m(m.m& XIndent)w iend if; q0,.(q0j).[0 i is f"lw -' "gi others =>  0,+qAda is Indentation+qAda => Indentationm(m.m& XIndent)w' i  0,m(m.m& XIndent)w iend case; q0,.(q0j)m(m.m& Ada Previous Label)[4 .(i  0,+qAda loop Indentationm(m.m& XIndent)w .[1 i  0,m(m.m& XIndent)w iend q4"n 32i g4' i;),.(q1j)m(m.m& Ada Previous Label)[4 .(i  0,+qAda loop Indentationm(m.m& XIndent)w .[1 i  0,m(m.m& XIndent)w iend loop q4"n 32i g4' i;),.(q1j)m(m.m& Ada Previous Label)[4 .(i  0,+qAda declare Indentationm(m.m& XIndent)w .[1 i  0,m(m.m& XIndent)w ibegin  0,m(m.m& XIndent)w iend q4"n 32i g4' i;),.(q1j).(i  0,+qAda loop Indentationm(m.m& XIndent)w .[1 i  0,m(m.m& XIndent)w iend record;),.(q1j).[3 .-z([2 -@:fwl -5f~ body"e -2@:fwl'"# "l i body -5c'' -@fwx2)+zj 3,m(m.m& Read Line)2 name: [0 fq0:"g 0' i 0 is  :"g 0,+qAda is Indentationm(m.m& XIndent)w .[1i '"# 0,m(m.m& XIndent)w iend;  0,m(m.m& XIndent)w i2 body 0 is  0,+qAda is Indentationm(m.m& XIndent)w .[1 i ' 0,m(m.m& XIndent)w iend 0; q3,.(q1j).( [2 -@:fwl -@fwx2)j 3,m(m.m& Read Line)2 name: [0 fq0:"g 0' .(i 0 .[1 i is  0,m(m.m& XIndent)w ibegin  0,+qAda begin Indentationm(m.m& XIndent)w "n i  0,m(m.m& XIndent)w iexception  0,+qAda exception Indentationm(m.m& XIndent) iwhen others =>  0,+qAda exception Indentation+qAda => Indentationm(m.m& XIndent)' i  0,m(m.m& XIndent)w iend 0;),.(q1j).(i  0,+qAda exception Indentationm(m.m& XIndent)w iwhen others =>  0,+qAda exception Indentation+qAda => Indentationm(m.m& XIndent)w),..[0 i do  0,+qAda do Indentationm(m.m& XIndent)w i  0,m(m.m& XIndent)w iend; q0,.(q0j).(i  0,+qAda select Indentationm(m.m& XIndent)w .[0 i  "n f"lw -1-'< 0,m(m.m& XIndent)w ior >' "l 0,m(m.m& XIndent)w ielse ' 0,m(m.m& XIndent)w iend;),.(q0j)0fo..qADA Loaded-11838391062"n 4m.CAda => Indentation 4m.CAda begin Indentation 4m.CAda case 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 11838391062m.vADA Loaded' 0fo..qADA Setup Hookf"n[0m0w'Functions for editing Ada code.uC Set up for editing Ada code. Tab indents for next Ada statement. Meta-I is ^R Indent Relative. C-M-. 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 Return string for previous label, or 0 if noneS Insert template for WHILE and FORS Insert template for IFS Insert template for CASES Insert template for BEGINS Insert template for LOOPS Insert template for DECLARES Insert template for RECORDS Insert template for PACKAGE or TASKS Insert template for PROCEDURE and FUNCTIONS Insert template for EXCEPTIONS Insert template for ACCEPTS Insert template for SELECTS IVORY-Generated Setup -- Calls hook. This object file was compressed on 2:04pm Friday, 9 July 1982 by DE on RMI from the following source libraries: RM:ADA.EMACS.6, 07/09/82 14:04:18Ada Mode & Ada Mode ^R Ada Indent ^R Ada Template & Ada Previous Label # Ada while # Ada for # Ada if # Ada case # Ada begin # Ada loop # Ada declare # Ada record # Ada package # Ada task # Ada body # Ada procedure # Ada function # Ada exception # Ada accept # Ada select & 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