#         Define EE Editor ADA Language Editing Environment
#
SET FIND 2; SET INSERT DUPLICATE; # (duplicates previous line indentation)
Def ENV /ECHO     Ada Language Editing Environment/
Def CMDS /WADA/
Def WADA /H ENV IPR IFU IDE IBE IEX IEN IRE;H IIF ILO IFO ICA IPA;H IS ARC ACH AIN AZ ADADEL WADA/
Def IPR /br;i PROCEDURE;ve;r+10/ ; Def IFU /br;i FUNCTION;ve;r+9/
Def IDE /i1DECLARE/      ; Def IBE /i1BEGIN/
Def IEX /i1EXCEPTION/    ; Def IEN /i1END/
Def IRE /i RETURN/
Def IIF /i IF x THEN;br;i+3 END IF;az/
Def ILO /i LOOP;br;i+3 EXIT WHEN a = b;az;br;i END LOOP;az/
Def IFO /i FOR x IN 1 .. 2 LOOP;br;i+3 END LOOP;az/
Def ICA /i CASE x IS;i+3 WHEN x =>;br;i END CASE;az/
Def IPA /br;i PACKAGE;ve;r+8/
Def IS  "br;i;c1 49/ /-/g;ve;r50"
Def ARC /a  RECORD;br;i+3 END RECORD;az/
Def ACH /a  CHARACTER/
Def AIN /a  INTEGER/
Def AZ  /br;a ^;ve;c.^.;./
Def ADADEL /READ EEMacroDir:ADADEL.DEF/
