|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 106496 (0x1a000)
Types: Ada Source
Notes: 03_class, FILE, Long Ada Source, R1k_Segment, e3_tag, procedure Xapollo3_Commands, seg_0041f7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Access_List;
with Ada;
with Cmvc;
with Command;
with Common;
with Compilation;
--/ if DOCUMENT_FORMATTER then
--// with COMPOSE;
--/ end if;
with Debug;
--/ if DESIGN_FACILITY then
--// with DESIGN_IMPLEMENTATION;
--/ end if;
with Editor;
with Io;
with Job;
with Library;
--/ if MAIL then
--// with MAIL;
--/ end if;
with Operator;
with Queue;
with Script;
--/ if SPELLER then
--// with SPELLER;
--/ end if;
with System_Utilities;
with Text;
with What;
with Xapollo3_Key_Names;
----This file generated on: September 6, 1990 at 5:15:19 PM
----From Rational Development source file !ENVIRONMENT.EDITOR_KEYS.REV10_WORKING.UNITS.CREATE_COMMANDS_FILES.MASTER_KEYS_FILE'V(105)
----By user: GEB
----For terminal type: XAPOLLO3
procedure Xapollo3_Commands is
use Xapollo3_Key_Names;
type Intent is (Interrupt, Prompt, Execute);
Action : Intent;
Key1, Key2, Key3, Key4, Key5, Key6 : Key_Names;
begin
case Action is
when Interrupt =>
case Key1 is
when Menu_Job_Kill =>
Job.Kill (0);
when Menu_Job_Disable =>
Job.Disable (0);
when Menu_Debug_Stop =>
Debug.Stop (Name => "");
when Cm_F1 =>
Debug.Stop (Name => "");
when C_G | Cs_G =>
Job.Interrupt;
when M_G | Cm_G | Ms_G | Cms_G =>
Job.Kill (0);
when others =>
null;
end case;
when Prompt =>
case Key1 is
when Menu_Pick =>
case Key2 is
when 'G' =>
case Key3 is
when 'D' =>
Text.Create (Image_Name => ">>IMAGE_NAME<<",
Kind => Text.File);
when 'E' =>
Library.Create_Directory
(Name => ">>DIRECTORY NAME<<",
Kind => Library.Directory,
Vol => Library.Nil,
Model => "",
Response => "<PROFILE>");
when 'F' =>
Library.Create_World
(Name => ">>WORLD NAME<<",
Kind => Library.World,
Vol => Library.Nil,
Model => "!Model.R1000",
Response => "<PROFILE>");
when others =>
null;
end case;
when 'V' =>
Editor.Quit (Ignore_Changes => False);
when others =>
null;
end case;
when M_F2 =>
Debug.Modify (New_Value => "",
Variable => "<SELECTION>",
Stack_Frame => 0);
when Cm_F8 =>
Text.Create;
when Cs_F8 =>
Library.Create_World;
when Ms_F8 =>
Library.Create_Directory;
when Object =>
case Key2 is
when 'l' | C_L | 'L' | Cs_L =>
Common.Revert;
when others =>
null;
end case;
when Image =>
case Key2 is
when '/' | '?' =>
Editor.Image.Find (Name => "");
when others =>
null;
end case;
when others =>
null;
end case;
when Execute =>
case Key1 is
when Menu_Return =>
Editor.Line.Insert (1);
when Mouse_Down =>
Editor.Screen.Down;
when Mouse_Right =>
Editor.Screen.Right;
when Mouse_Image_Down =>
Editor.Image.Down;
when Mouse_Image_Right =>
Editor.Image.Right;
when Mouse_Button1 =>
Common.Definition
(Name => "<CURSOR>", In_Place => False, Visible => True);
when Mouse_Button3 =>
Common.Enclosing (In_Place => False, Library => False);
when Mouse_Button4 =>
Editor.Region.Start;
when Mouse_Button4_Up =>
Editor.Region.Finish;
when Mouse_Button1_Dbl =>
Common.Object.Parent (Repeat => 1);
when Mouse_Button2_Dbl =>
Editor.Set.Designation_Off;
when Mouse_Button3_Dbl =>
Common.Object.Child (Repeat => 1);
when Mouse_Button5_Dbl =>
Common.Abandon;
when Menu_Pick =>
case Key2 is
when Menu_Pick =>
Editor.Key.Prompt (Key_Code => "");
when '0' =>
Io.Echo ("User Menu-Pick 0" & Ascii.Lf);
when '1' =>
Io.Echo ("User Menu-Pick 1" & Ascii.Lf);
when '2' =>
Io.Echo ("User Menu-Pick 2" & Ascii.Lf);
when '3' =>
Io.Echo ("User Menu-Pick 3" & Ascii.Lf);
when '4' =>
Io.Echo ("User Menu-Pick 4" & Ascii.Lf);
when '5' =>
Io.Echo ("User Menu-Pick 5" & Ascii.Lf);
when '6' =>
Io.Echo ("User Menu-Pick 6" & Ascii.Lf);
when '7' =>
Io.Echo ("User Menu-Pick 7" & Ascii.Lf);
when '8' =>
Io.Echo ("User Menu-Pick 8" & Ascii.Lf);
when '9' =>
Io.Echo ("User Menu-Pick 9" & Ascii.Lf);
when 'A' =>
case Key3 is
when 'A' =>
case Key4 is
when 'A' =>
Common.Object.Next (Repeat => 1);
when 'B' =>
Common.Object.Previous
(Repeat => 1);
when 'C' =>
Common.Object.Copy;
when 'D' =>
Common.Object.Move;
when 'E' =>
Common.Object.Insert;
when 'F' =>
Common.Object.Delete;
when 'G' =>
Common.Abandon
(Window => "<IMAGE>");
when others =>
null;
end case;
when 'B' =>
case Key4 is
when 'A' =>
Editor.Region.Copy;
when 'B' =>
Editor.Region.Move;
when 'C' =>
Editor.Region.Delete;
when 'D' =>
Editor.Region.Fill
(Column => 0, Leading => "");
when 'E' =>
Editor.Set.Designation_Off;
when others =>
null;
end case;
when 'C' =>
case Key4 is
when 'A' =>
Editor.Window.Join (Repeat => 1);
when 'B' =>
Editor.Window.Promote;
when 'C' =>
Editor.Window.Demote;
when 'D' =>
Editor.Window.Directory;
when 'E' =>
Editor.Window.Transpose
(Offset => 1);
when 'F' =>
Editor.Window.Expand (Lines => 4);
when 'G' =>
Editor.Window.Expand (Lines => -4);
when 'H' =>
Editor.Window.Focus;
when 'I' =>
Editor.Window.Delete;
when others =>
null;
end case;
when 'D' =>
case Key4 is
when 'A' =>
Editor.Image.Beginning_Of
(Offset => 0);
when 'B' =>
Editor.Image.End_Of (Offset => 0);
when 'C' =>
Editor.Image.Up (Repeat => 0);
when 'D' =>
Editor.Image.Down (Repeat => 0);
when 'E' =>
Editor.Image.Left (Repeat => 0);
when 'F' =>
Editor.Image.Right (Repeat => 0);
when others =>
null;
end case;
when 'E' =>
case Key4 is
when 'A' =>
Editor.Line.Join (Repeat => 1);
when 'B' =>
Editor.Line.Delete (Repeat => 1);
when 'C' =>
Editor.Line.Delete_Forward
(Repeat => 1);
when 'D' =>
Editor.Line.Copy (Repeat => 1);
when others =>
null;
end case;
when 'F' =>
case Key4 is
when 'A' =>
Editor.Word.Previous (Repeat => 1);
when 'B' =>
Editor.Word.Next (Repeat => 1);
when 'C' =>
Editor.Word.Delete (Repeat => 1);
when 'D' =>
Editor.Word.Delete_Forward
(Repeat => 1);
when others =>
null;
end case;
when 'G' =>
case Key4 is
when 'A' =>
Editor.Mark.Next (Repeat => 1);
when 'B' =>
Editor.Mark.Previous (Repeat => 1);
when 'C' =>
Editor.Mark.Push (Repeat => 1);
when 'D' =>
Editor.Mark.Swap;
when 'E' =>
Editor.Mark.Top;
when 'F' =>
Editor.Mark.Delete_Top;
when 'G' =>
Editor.Macro.Execute
(Repeat => 1, Prior => 0);
when others =>
null;
end case;
when 'H' =>
case Key4 is
--/ if SPELLER then
--// when 'A' =>
--// SPELLER.CHECK_TEXT (DATA => "<TEXT>");
--// when 'B' =>
--// SPELLER.CHECK_IMAGE;
--// when 'C' =>
--// SPELLER.EXPLAIN_NEXT;
--// when 'D' =>
--// SPELLER.EXCHANGE_WORD (CHOICE => 1);
--// when 'E' =>
--// SPELLER.LEARN_WORD (THE_WORD => "",DICTIONARY => 0);
--/ end if;
when others =>
null;
end case;
when others =>
null;
end case;
when 'C' =>
case Key3 is
when 'A' =>
case Key4 is
when 'A' =>
Common.Definition
(Name => "<CURSOR>",
In_Place => False,
Visible => True);
when 'B' =>
Common.Definition
(Name => "<CURSOR>",
In_Place => True,
Visible => True);
when 'C' =>
What.Home_Library;
when others =>
null;
end case;
when 'B' =>
Common.Definition (Name => "<CURSOR>",
In_Place => False,
Visible => True);
when 'C' =>
case Key4 is
when 'A' =>
Common.Enclosing (In_Place => False,
Library => False);
when 'B' =>
Common.Enclosing (In_Place => True,
Library => False);
when others =>
null;
end case;
when 'D' =>
Common.Enclosing (In_Place => False,
Library => False);
when 'E' =>
case Key4 is
when 'A' =>
Ada.Other_Part (Name => "<IMAGE>",
In_Place => False);
when 'B' =>
Ada.Other_Part (Name => "<IMAGE>",
In_Place => True);
when others =>
null;
end case;
when 'F' =>
Ada.Other_Part (Name => "<IMAGE>",
In_Place => False);
when 'G' =>
case Key4 is
--/ if DESIGN_FACILITY then
--// when 'A' =>
--// DESIGN_IMPLEMENTATION.DEFINITION (IN_PLACE => FALSE,VISIBLE => TRUE);
--// when 'B' =>
--// DESIGN_IMPLEMENTATION.DEFINITION (IN_PLACE => TRUE,VISIBLE => TRUE);
--/ end if;
when others =>
null;
end case;
--/ if DESIGN_FACILITY then
--// when 'H' =>
--// DESIGN_IMPLEMENTATION.DEFINITION (IN_PLACE => FALSE,VISIBLE => TRUE);
--/ end if;
when 'I' =>
case Key4 is
--/ if DESIGN_FACILITY then
--// when 'A' =>
--// DESIGN_IMPLEMENTATION.ENCLOSING (IN_PLACE => FALSE);
--// when 'B' =>
--// DESIGN_IMPLEMENTATION.ENCLOSING (IN_PLACE => TRUE);
--/ end if;
when others =>
null;
end case;
--/ if DESIGN_FACILITY then
--// when 'J' =>
--// DESIGN_IMPLEMENTATION.ENCLOSING (IN_PLACE => FALSE);
--/ end if;
when 'K' =>
case Key4 is
when 'A' =>
Editor.Cursor.Next
(Repeat => 1,
Prompt => True,
Underline => True);
when 'B' =>
Editor.Cursor.Next
(Repeat => 1,
Prompt => True,
Underline => False);
when 'C' =>
Editor.Cursor.Next
(Repeat => 1,
Prompt => False,
Underline => True);
when 'D' =>
Editor.Set.Designation_Off;
when 'E' =>
Common.Clear_Underlining;
when others =>
null;
end case;
when 'L' =>
Editor.Cursor.Next (Repeat => 1,
Prompt => True,
Underline => True);
when 'M' =>
case Key4 is
when 'A' =>
Editor.Cursor.Previous
(Repeat => 1,
Prompt => True,
Underline => True);
when 'B' =>
Editor.Cursor.Previous
(Repeat => 1,
Prompt => True,
Underline => False);
when 'C' =>
Editor.Cursor.Previous
(Repeat => 1,
Prompt => False,
Underline => True);
when 'D' =>
Editor.Set.Designation_Off;
when 'E' =>
Common.Clear_Underlining;
when others =>
null;
end case;
when 'N' =>
Editor.Cursor.Previous (Repeat => 1,
Prompt => True,
Underline => True);
when others =>
null;
end case;
when 'D' =>
Common.Definition (Name => "<CURSOR>",
In_Place => False,
Visible => True);
when 'E' =>
case Key3 is
when 'A' =>
case Key4 is
when 'A' =>
Common.Promote;
when 'B' =>
Ada.Install_Unit;
when 'C' =>
Ada.Code_Unit;
when 'D' =>
Compilation.Promote
(Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Installed,
Limit => "<WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when 'E' =>
Compilation.Promote
(Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Coded,
Limit => "<WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when 'F' =>
Compilation.Promote
(Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Installed,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when 'G' =>
Compilation.Promote
(Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Coded,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when others =>
null;
end case;
when 'B' =>
Common.Promote;
when 'C' =>
case Key4 is
when 'A' =>
Common.Complete (Menu => True);
--/ if DESIGN_FACILITY then
--// when 'B' =>
--// DESIGN_IMPLEMENTATION.COMPLETE (INCLUDE_OPTIONAL_ANNOTATIONS => FALSE);
--/ end if;
when others =>
null;
end case;
when 'D' =>
Common.Complete (Menu => True);
when 'E' =>
case Key4 is
when 'A' =>
Common.Format;
--/ if DESIGN_FACILITY then
--// when 'B' =>
--// DESIGN_IMPLEMENTATION.FORMAT;
--/ end if;
when others =>
null;
end case;
when 'F' =>
Common.Format;
when 'G' =>
case Key4 is
when 'A' =>
Common.Edit (Name => "<IMAGE>",
In_Place => False,
Visible => False);
when 'B' =>
Common.Edit (Name => "<IMAGE>",
In_Place => True,
Visible => False);
when 'C' =>
Ada.Source_Unit;
when 'D' =>
Common.Demote;
when others =>
null;
end case;
when 'H' =>
Common.Edit (Name => "<IMAGE>",
In_Place => False,
Visible => False);
when others =>
null;
end case;
when 'F' =>
Common.Promote;
when 'G' =>
case Key3 is
when 'A' =>
Common.Create_Command;
when 'B' =>
Ada.Create_Body (Name => "<IMAGE>");
when 'C' =>
Common.Object.Insert;
when 'G' =>
Ada.Create_Private (Name => "<IMAGE>");
when others =>
null;
end case;
when 'I' =>
Common.Create_Command;
when 'J' =>
case Key3 is
when 'A' =>
Common.Semanticize;
when 'C' =>
case Key4 is
when 'A' =>
Common.Explain;
--/ if DESIGN_FACILITY then
--// when 'B' =>
--// DESIGN_IMPLEMENTATION.EXPLAIN;
--/ end if;
when others =>
null;
end case;
when 'D' =>
Common.Explain;
when 'E' =>
Editor.Key.Prompt (Key_Code => "");
when 'F' =>
case Key4 is
when 'A' =>
Ada.Show_Usage
(Name => "<CURSOR>",
Global => True,
Limit => "<ALL_WORLDS>",
Closure => False);
when 'B' =>
Ada.Show_Usage (Name => "<CURSOR>",
Global => False,
Limit => "<WORLDS>",
Closure => False);
when 'C' =>
Ada.Show_Usage
(Name => "<CURSOR>",
Global => True,
Limit => "<ALL_WORLDS>",
Closure => True);
--/ if DESIGN_FACILITY then
--// when 'D' =>
--// DESIGN_IMPLEMENTATION.SHOW_USAGE (IN_WORLD => "<CURSOR>");
--/ end if;
when 'E' =>
Ada.Show_Unused
(In_Unit => "<IMAGE>",
Check_Other_Units => True);
when 'F' =>
Ada.Show_Unused
(In_Unit => "<IMAGE>",
Check_Other_Units => False);
when others =>
null;
end case;
when 'G' =>
Ada.Show_Usage (Name => "<CURSOR>",
Global => True,
Limit => "<ALL_WORLDS>",
Closure => False);
when 'H' =>
case Key4 is
when 'A' =>
What.Object (Name => "<IMAGE>");
when 'B' =>
What.Users (All_Users => True);
when 'C' =>
What.Load (Verbose => True);
when 'D' =>
What.Time;
when 'E' =>
Access_List.Display
(For_Object => "<CURSOR>");
when others =>
null;
end case;
when 'I' =>
What.Object (Name => "<IMAGE>");
when others =>
null;
end case;
when 'K' =>
Common.Semanticize;
when 'L' =>
case Key3 is
when 'A' =>
Cmvc.Check_In (What_Object => "<CURSOR>",
Comments => "",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when 'B' =>
Cmvc.Check_Out
(What_Object => "<CURSOR>",
Comments => "",
Allow_Demotion => False,
Allow_Implicit_Accept_Changes => True,
Expected_Check_In_Time => "<TOMORROW>",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when 'C' =>
Cmvc.Accept_Changes
(Destination => "<CURSOR>",
Source => "<LATEST>",
Allow_Demotion => False,
Comments => "",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when 'D' =>
Cmvc.Show (Objects => "<CURSOR>",
Response => "<PROFILE>");
when 'E' =>
Cmvc.Show_Checked_Out_In_View
(In_View => "<CURSOR>",
Response => "<PROFILE>");
when 'F' =>
Cmvc.Show_Out_Of_Date_Objects
(In_View => "<CURSOR>",
Response => "<PROFILE>");
when 'G' =>
Cmvc.Information (For_View => "<CURSOR>",
Response => "<PROFILE>");
when 'H' =>
Cmvc.Edit (View_Or_Config => "<CURSOR>",
In_Place => False,
Allow_Check_Out => True,
Allow_Check_In => True,
Allow_Accept_Changes => True);
when others =>
null;
end case;
when 'N' =>
case Key3 is
when Menu_Debug_Stop =>
Debug.Stop (Name => "");
when 'A' =>
case Key4 is
when 'A' =>
Debug.Run (Stop_At =>
Debug.Statement,
Count => 1,
In_Task => "");
when 'B' =>
Debug.Run (Stop_At =>
Debug.Local_Statement,
Count => 1,
In_Task => "");
when 'C' =>
Debug.Execute (Name => "");
when 'D' =>
Debug.Run (Stop_At =>
Debug.Returned,
Count => 1,
In_Task => "");
when others =>
null;
end case;
when 'B' =>
Debug.Run (Stop_At => Debug.Statement,
Count => 1,
In_Task => "");
when 'C' =>
Debug.Put (Variable => "<SELECTION>",
Stack_Frame => 0);
when 'E' =>
Debug.Modify (New_Value => "",
Variable => "<SELECTION>",
Stack_Frame => 0);
when 'G' =>
case Key4 is
when 'A' =>
Debug.Source (Location => "_1",
Stack_Frame => 0);
when 'B' =>
Debug.Source (Location => "_2",
Stack_Frame => 0);
when 'C' =>
Debug.Source (Location => "_3",
Stack_Frame => 0);
when 'D' =>
Debug.Source (Location => "_4",
Stack_Frame => 0);
when 'E' =>
Debug.Source (Location => "_5",
Stack_Frame => 0);
when 'F' =>
Debug.Source (Location => "_6",
Stack_Frame => 0);
when 'G' =>
Debug.Source (Location => "_7",
Stack_Frame => 0);
when 'H' =>
Debug.Source (Location => "_8",
Stack_Frame => 0);
when 'I' =>
Debug.Source (Location => "_9",
Stack_Frame => 0);
when 'J' =>
Debug.Source (Location => "_10",
Stack_Frame => 0);
when 'Z' =>
Debug.Source (Location => "",
Stack_Frame => 0);
when others =>
null;
end case;
when 'H' =>
Debug.Source (Location => "",
Stack_Frame => 0);
when 'I' =>
Debug.Catch (Name => "<SELECTION>",
In_Task => "",
At_Location => "");
when 'K' =>
case Key4 is
when 'A' =>
Debug.Break
(Location => "<SELECTION>",
Stack_Frame => 0,
Count => 1,
In_Task => "",
Default_Lifetime => True);
when 'B' =>
Debug.Show (Values_For =>
Debug.Breakpoints);
when 'C' =>
Debug.Activate (Breakpoint => 0);
when 'D' =>
Debug.Remove (Breakpoint => 0,
Delete => False);
when 'E' =>
Debug.Remove (Breakpoint => 0,
Delete => True);
when others =>
null;
end case;
when 'L' =>
Debug.Break (Location => "<SELECTION>",
Stack_Frame => 0,
Count => 1,
In_Task => "",
Default_Lifetime => True);
when 'M' =>
Debug.Stack
(For_Task => "", Start => 0, Count => 0);
when 'O' =>
Command.Debug;
when 'Z' =>
Debug.Current_Debugger (Target => "");
when others =>
null;
end case;
when 'O' =>
Debug.Current_Debugger (Target => "");
when 'P' =>
case Key3 is
--/ if MAIL then
--// when 'A' =>
--// MAIL.EDIT (MAILBOX => "MAIN",FOR_USER => "");
--// when 'B' =>
--// MAIL.EDIT (MAILBOX => "<SELECTION>",FOR_USER => "");
--// when 'C' =>
--// MAIL.SEND;
--// when 'D' =>
--// MAIL.REPLY (TO_ALL =>FALSE);
--// when 'E' =>
--// MAIL.FORWARD;
--/ end if;
when others =>
null;
end case;
--/ if MAIL then
--// when 'Q' =>
--// MAIL.EDIT (MAILBOX => "MAIN",FOR_USER => "");
--/ end if;
when 'R' =>
case Key3 is
when Menu_Job_Kill =>
Job.Kill (The_Job => 0, The_Session => "");
when Menu_Job_Disable =>
Job.Disable (The_Job => 0,
The_Session => "");
when 'A' =>
Queue.Print (Name => "<IMAGE>",
Options => "<DEFAULT>",
Banner => "<DEFAULT>",
Header => "<DEFAULT>",
Footer => "<DEFAULT>");
when 'B' =>
Job.Enable (The_Job => 0,
The_Session => "");
when 'D' =>
Job.Connect (The_Job => 0);
when others =>
null;
end case;
when 'T' =>
case Key3 is
when 'A' =>
What.Does (Name => "<CURSOR>");
when 'B' =>
Editor.Key.Name (Key_Code => "");
when 'C' =>
Editor.Image.Find (Name => "Help Window");
when 'D' =>
What.Does (Name => "Help_on_Help");
when others =>
null;
end case;
when 'U' =>
What.Does (Name => "<CURSOR>");
when 'W' =>
case Key3 is
when 'A' =>
Editor.Quit (Ignore_Changes => False);
when 'B' =>
Editor.Quit (Ignore_Changes => True);
when others =>
null;
end case;
when others =>
null;
end case;
when Mouse_Minus =>
Editor.Set.Argument_Minus;
when Mouse_0 =>
Editor.Set.Argument_Digit (Argument => 0);
when Mouse_1 =>
Editor.Set.Argument_Digit (Argument => 1);
when Mouse_2 =>
Editor.Set.Argument_Digit (Argument => 2);
when Mouse_3 =>
Editor.Set.Argument_Digit (Argument => 3);
when Mouse_4 =>
Editor.Set.Argument_Digit (Argument => 4);
when Mouse_5 =>
Editor.Set.Argument_Digit (Argument => 5);
when Mouse_6 =>
Editor.Set.Argument_Digit (Argument => 6);
when Mouse_7 =>
Editor.Set.Argument_Digit (Argument => 7);
when Mouse_8 =>
Editor.Set.Argument_Digit (Argument => 8);
when Mouse_9 =>
Editor.Set.Argument_Digit (Argument => 9);
when X_No_Op =>
Editor.Noop;
--/ if HAVE_DELTA2 then
--// when X_SCREEN_HEIGHT =>
--// EDITOR.SCREEN.SET_LINES(24);
--// when X_SCREEN_WIDTH =>
--// EDITOR.SCREEN.SET_COLUMNS(80);
--/ end if;
when X_Screen_Redraw =>
Editor.Window.Focus;
when Tab | S_Tab =>
Editor.Char.Tab_Forward;
when C_Tab | Cs_Tab =>
Editor.Char.Tab_Backward;
when M_Tab | Ms_Tab =>
Editor.Char.Tab_To_Comment;
when Cm_Tab | Cms_Tab =>
What.Tabs;
when Carriage_Return =>
Editor.Line.Indent;
when C_Carriage_Return | Cs_Carriage_Return =>
Common.Commit;
when M_Carriage_Return | Ms_Carriage_Return =>
Command.Debug;
when S_Carriage_Return =>
Editor.Line.Insert (1);
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Char.Delete_Backward;
when C_Delete | Cs_Delete | C_Backspace | Cs_Backspace =>
Editor.Char.Delete_Spaces;
when M_Delete | Ms_Delete | M_Backspace | Ms_Backspace =>
Editor.Word.Delete_Backward;
when Cm_Delete | Cms_Delete | Cm_Backspace | Cms_Backspace =>
Editor.Line.Delete_Backward;
when Left =>
Editor.Cursor.Left;
when C_Left =>
Common.Object.Parent;
when M_Left =>
Editor.Word.Previous;
when Cm_Left =>
Common.Enclosing (In_Place => False, Library => False);
when S_Left =>
Editor.Line.Beginning_Of;
when Cs_Left =>
Editor.Screen.Left;
when Ms_Left =>
Editor.Image.Left;
when Cms_Left =>
Editor.Screen.Previous;
when Up =>
Editor.Cursor.Up;
when C_Up =>
Common.Object.Previous;
when M_Up | Ms_Up =>
Editor.Cursor.Previous (Prompt => True, Underline => True);
when Cm_Up | M_Z | Ms_Z =>
Editor.Window.Previous;
when S_Up =>
Editor.Image.Up;
when Cs_Up =>
Editor.Screen.Up;
when Cms_Up =>
Editor.Screen.Top;
when Right =>
Editor.Cursor.Right;
when C_Right =>
Common.Object.Child;
when M_Right =>
Editor.Word.Next;
when Cm_Right =>
Common.Definition (Name => "<CURSOR>",
In_Place => False,
Visible => False);
when S_Right =>
Editor.Line.End_Of;
when Cs_Right =>
Editor.Screen.Right;
when Ms_Right =>
Editor.Image.Right;
when Cms_Right =>
Editor.Screen.Next;
when Down =>
Editor.Cursor.Down;
when C_Down =>
Common.Object.Next;
when M_Down | Ms_Down =>
Editor.Cursor.Next (Prompt => True, Underline => True);
when Cm_Down | M_V | Ms_V =>
Editor.Window.Next;
when S_Down =>
Editor.Image.Down;
when Cs_Down =>
Editor.Screen.Down;
when Cms_Down =>
Editor.Screen.Push;
when F1 =>
Debug.Run;
when C_F1 =>
Debug.Run (Stop_At => Debug.Local_Statement);
when M_F1 =>
Debug.Current_Debugger ("");
when S_F1 =>
Debug.Execute;
when Cs_F1 =>
Debug.Run (Debug.Returned);
when Ms_F1 =>
Debug.Set_Value
(Variable => Debug.Element_Count, To_Value => 5);
when Cms_F1 =>
Debug.Task_Display;
when F2 =>
Debug.Put;
when C_F2 =>
Debug.Break (Location => "<SELECTION>",
Stack_Frame => 0,
Count => 1,
In_Task => "",
Default_Lifetime => True);
when Cm_F2 =>
Debug.Remove (Breakpoint => 0, Delete => False);
when S_F2 =>
Debug.Break (Location => "<SELECTION>",
Stack_Frame => 0,
Count => 1,
In_Task => "",
Default_Lifetime => False);
when Cs_F2 => Debug.Activate (Breakpoint => 0);
when Ms_F2 =>
Debug.Set_Value
(Variable => Debug.First_Element, To_Value => 0);
when Cms_F2 =>
Debug.Show;
when F3 =>
Debug.Stack;
when C_F3 =>
Debug.Catch (Name => "<SELECTION>",
In_Task => "",
At_Location => "");
when M_F3 =>
Debug.Source (Location => "", Stack_Frame => 0);
when Cm_F3 =>
Debug.Show (Debug.Exceptions);
when S_F3 =>
Debug.Forget (Name => "", In_Task => "", At_Location => "");
when Cs_F3 =>
Debug.Propagate (Name => "<SELECTION>",
In_Task => "",
At_Location => "");
when Ms_F3 =>
Debug.Set_Value
(Variable => Debug.Pointer_Level, To_Value => 5);
when Cms_F3 =>
Debug.Information (Debug.Rendezvous);
when F4 =>
Common.Definition
(Name => "<CURSOR>", In_Place => False, Visible => True);
when C_F4 =>
Ada.Other_Part (Name => "<IMAGE>", In_Place => False);
when M_F4 =>
Common.Enclosing (In_Place => False, Library => False);
when Cm_F4 =>
What.Home_Library;
when S_F4 =>
Common.Definition
(Name => "<CURSOR>", In_Place => True, Visible => True);
when Cs_F4 =>
Ada.Other_Part (Name => "<IMAGE>", In_Place => True);
when Ms_F4 =>
Common.Enclosing (In_Place => True, Library => False);
when Cms_F4 =>
Common.Enclosing (In_Place => True, Library => True);
when F5 =>
Editor.Key.Prompt (Key_Code => "");
when C_F5 =>
Cmvc.Check_Out (What_Object => "<CURSOR>",
Comments => "",
Allow_Demotion => False,
Allow_Implicit_Accept_Changes => True,
Expected_Check_In_Time => "<TOMORROW>",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when M_F5 =>
Editor.Cursor.Previous (Prompt => True, Underline => True);
when Cm_F5 =>
Cmvc.Accept_Changes (Destination => "<CURSOR>",
Source => "<LATEST>",
Allow_Demotion => False,
Comments => "",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when S_F5 =>
Cmvc.Show_Out_Of_Date_Objects
(In_View => "<CURSOR>", Response => "<PROFILE>");
when Cs_F5 =>
Cmvc.Check_In (What_Object => "<CURSOR>",
Comments => "",
Work_Order => "<DEFAULT>",
Response => "<PROFILE>");
when Ms_F5 =>
Cmvc.Show_Checked_Out_By_User
(In_View => "<CURSOR>",
Who => System_Utilities.User_Name,
Response => "<PROFILE>");
when Cms_F5 =>
Cmvc.Show_Checked_Out_In_View
(In_View => "<CURSOR>", Response => "<PROFILE>");
when F6 =>
Ada.Install_Unit;
when C_F6 =>
Ada.Code_Unit;
when M_F6 =>
Editor.Cursor.Next (Prompt => True, Underline => True);
when Cm_F6 =>
Compilation.Make (Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Coded,
Limit => "<WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when S_F6 =>
Ada.Install_Stub;
when Cs_F6 =>
Compilation.Promote (Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Installed,
Limit => "<WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when Ms_F6 =>
Compilation.Promote (Unit => "<IMAGE>",
Scope => Compilation.All_Parts,
Goal => Compilation.Installed,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when Cms_F6 =>
Compilation.Make (Unit => "<IMAGE>",
Scope => Compilation.Load_Views,
Goal => Compilation.Coded,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when F7 =>
Common.Edit;
when C_F7 =>
Ada.Source_Unit;
when M_F7 =>
Ada.Make_Inline;
when Cm_F7 =>
Compilation.Demote (Unit => "<SELECTION>",
Goal => Compilation.Source,
Limit => "<WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when S_F7 =>
Common.Demote;
when Cs_F7 =>
Ada.Withdraw;
when Ms_F7 =>
Compilation.Demote (Unit => "<SELECTION>",
Goal => Compilation.Installed,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when Cms_F7 =>
Compilation.Demote (Unit => "<SELECTION>",
Goal => Compilation.Source,
Limit => "<ALL_WORLDS>",
Effort_Only => False,
Response => "<PROFILE>");
when F8 =>
Common.Create_Command;
when C_F8 =>
Common.Object.Insert;
when M_F8 =>
Ada.Make_Separate;
when S_F8 =>
Ada.Create_Body;
when Cms_F8 =>
Ada.Create_Private;
when F9 =>
Common.Semanticize;
when C_F9 =>
Common.Clear_Underlining;
when M_F9 =>
Ada.Show_Unused (In_Unit => "<IMAGE>",
Check_Other_Units => False);
when Cm_F9 =>
Ada.Show_Usage (Name => "<CURSOR>",
Global => True,
Limit => "<ALL_WORLDS>",
Closure => False);
when S_F9 =>
Ada.Get_Errors;
when Cs_F9 =>
Ada.Show_Usage (Name => "<CURSOR>",
Global => False,
Limit => "<WORLDS>",
Closure => False);
when Ms_F9 =>
Ada.Show_Unused (In_Unit => "<IMAGE>",
Check_Other_Units => True);
when Cms_F9 =>
Ada.Show_Usage (Name => "<CURSOR>",
Global => True,
Limit => "<ALL_WORLDS>",
Closure => True);
when Promot | S_Promot =>
Common.Promote;
when C_Promot | Cs_Promot =>
Command.Spawn;
when M_Promot | Ms_Promot =>
Command.Debug;
when Complt | S_Complt =>
Common.Complete;
--/ if DESIGN_FACILITY then
--// when M_COMPLT =>
--// DESIGN_IMPLEMENTATION.COMPLETE (INCLUDE_OPTIONAL_ANNOTATIONS => FALSE);
--/ end if;
when Format | S_Format =>
Common.Format;
--/ if DESIGN_FACILITY then
--// when M_FORMAT =>
--// DESIGN_IMPLEMENTATION.FORMAT;
--/ end if;
when Object =>
case Key2 is
when Tab =>
Editor.Char.Tab_To_Comment;
when Left | S_Left =>
Common.Object.Parent;
when Up | S_Up =>
Common.Object.Previous;
when Right | S_Right =>
Common.Object.Child;
when Down | S_Down =>
Common.Object.Next;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Common.Object.First_Child;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Common.Object.Last_Child;
when '!' | '1' =>
Common.Expand;
when '.' | '>' =>
Common.Elide;
when '/' | '?' =>
Common.Explain;
when 'b' | C_B | 'B' | Cs_B =>
Common.Object.First_Child;
when 'c' | C_C | 'C' | Cs_C =>
Common.Object.Copy;
when 'd' | C_D | 'D' | Cs_D | 'k' | C_K | 'K' | Cs_K =>
Common.Object.Delete;
when 'g' | 'G' =>
Common.Abandon;
when 'h' | C_H | 'H' | Cs_H =>
Common.Object.Parent;
when 'i' | C_I | 'I' | Cs_I =>
Common.Object.Insert;
when 'j' | C_J | 'J' | Cs_J =>
Common.Object.Child;
when 'm' | C_M | 'M' | Cs_M =>
Common.Object.Move;
when 'n' | C_N | 'N' | Cs_N =>
Common.Object.Next;
when 'r' | C_R | 'R' | Cs_R =>
Common.Redo;
when 's' | C_S | 'S' | Cs_S =>
Common.Sort_Image;
when 'u' | C_U | 'U' | Cs_U =>
Common.Undo;
when 'v' | C_V | 'V' | Cs_V =>
Common.Redo;
when 'x' | C_X | 'X' | Cs_X =>
Common.Release;
when others =>
null;
end case;
when Region =>
case Key2 is
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Hold_Stack.Delete_Top;
when Left | S_Left =>
Editor.Hold_Stack.Previous;
when Up | S_Up =>
Editor.Hold_Stack.Top;
when Right | S_Right =>
Editor.Hold_Stack.Next;
when Down | S_Down =>
Editor.Hold_Stack.Push;
when Complt | S_Complt | 'q' | C_Q | 'Q' | Cs_Q =>
Editor.Region.Justify;
when Format | S_Format =>
Editor.Region.Fill;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Editor.Region.Beginning_Of;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Editor.Region.End_Of;
when '"' | ''' | '6' | '^' | C_Circumflex =>
Editor.Region.Capitalize;
when '(' | '9' | '[' | '{' =>
Editor.Region.Start;
when ')' | '0' | ']' | '}' =>
Editor.Region.Finish;
when '+' | '=' =>
Editor.Region.Uncomment;
when ',' | '<' =>
Editor.Region.Lower_Case;
when '-' | '_' | C_Underline =>
Editor.Region.Comment;
when '.' | '>' =>
Editor.Region.Upper_Case;
when 'b' | C_B | 'B' | Cs_B =>
Editor.Region.Beginning_Of;
when 'c' | C_C | 'C' | Cs_C =>
Editor.Region.Copy;
when 'd' | C_D | 'D' | Cs_D | 'k' | C_K | 'K' | Cs_K =>
Editor.Region.Delete;
when 'f' | C_F | 'F' | Cs_F =>
Editor.Region.Fill;
when 'h' | C_H | 'H' | Cs_H =>
Editor.Hold_Stack.Previous;
when 'j' | C_J | 'J' | Cs_J =>
Editor.Hold_Stack.Next;
when 'm' | C_M | 'M' | Cs_M =>
Editor.Region.Move;
when 'n' | C_N | 'N' | Cs_N =>
Editor.Hold_Stack.Push;
when 'p' | C_P | 'P' | Cs_P =>
Editor.Hold_Stack.Copy_Top;
when 'r' | C_R | 'R' | Cs_R =>
Editor.Hold_Stack.Rotate;
when 't' | C_T | 'T' | Cs_T =>
Editor.Hold_Stack.Swap;
when 'u' | C_U | 'U' | Cs_U =>
Editor.Hold_Stack.Top;
when 'x' | C_X | 'X' | Cs_X =>
Editor.Region.Off;
when others =>
null;
end case;
when Window =>
case Key2 is
when Carriage_Return | S_Carriage_Return | Promot |
S_Promot | Enter | S_Enter | 'm' | C_M |
'M' | Cs_M | 'z' | C_Z | 'Z' | Cs_Z =>
Editor.Window.Promote;
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Window.Join (-1);
when Left | S_Left =>
Editor.Window.Parent;
when Up | S_Up =>
Editor.Window.Previous;
when Right | S_Right =>
Editor.Window.Child;
when Down | S_Down =>
Editor.Window.Next;
when Format | S_Format =>
Editor.Window.Focus;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Editor.Window.Beginning_Of;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Editor.Window.End_Of;
when '!' | '1' =>
Editor.Window.Expand;
when '#' | '3' =>
Editor.Window.Frames (3);
when '$' | '4' =>
Editor.Window.Frames (4);
when '%' | '5' =>
Editor.Window.Frames (5);
when '&' | '7' =>
Editor.Window.Frames (7);
when '.' | '>' =>
Editor.Window.Expand (-4);
when '/' | '?' =>
Editor.Window.Directory;
when '2' | '@' | C_At_Sign =>
Editor.Window.Frames (2);
when '6' | '^' | C_Circumflex =>
Editor.Window.Frames (6);
when 'b' | C_B | 'B' | Cs_B =>
Editor.Window.Beginning_Of;
when 'c' | C_C | 'C' | Cs_C =>
Editor.Window.Copy;
when 'd' | C_D | 'D' | Cs_D | 'k' | C_K | 'K' | Cs_K |
'w' | C_W | 'W' | Cs_W | 'x' | C_X | 'X' | Cs_X =>
Editor.Window.Delete;
when 'f' | C_F | 'F' | Cs_F =>
Editor.Window.Focus;
when 'h' | C_H | 'H' | Cs_H =>
Common.Enclosing (In_Place => False,
Library => False);
when 'j' | C_J | 'J' | Cs_J =>
Editor.Window.Join (1);
when 'n' | C_N | 'N' | Cs_N =>
Editor.Window.Next;
when 'o' | C_O | 'O' | Cs_O =>
Editor.Window.Join (1);
when 't' | C_T | 'T' | Cs_T =>
Editor.Window.Transpose;
when 'u' | C_U | 'U' | Cs_U =>
Editor.Window.Previous;
when 'v' | C_V | 'V' | Cs_V =>
Editor.Window.Child;
when 'y' | C_Y | 'Y' | Cs_Y =>
Editor.Window.Demote;
when others =>
null;
end case;
when Line =>
case Key2 is
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Line.Delete_Backward;
when Up | S_Up =>
Editor.Cursor.Up;
when Down | S_Down =>
Editor.Cursor.Down;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Editor.Line.Beginning_Of;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Editor.Line.End_Of;
when '$' | '4' =>
Editor.Line.Center;
when ',' | '<' =>
Editor.Line.Lower_Case;
when '.' | '>' =>
Editor.Line.Upper_Case;
when '/' | '?' =>
What.Line;
when '6' | '^' | C_Circumflex =>
Editor.Line.Capitalize;
when 'b' | C_B | 'B' | Cs_B =>
Editor.Line.Beginning_Of;
when 'c' | C_C | 'C' | Cs_C =>
Editor.Line.Copy;
when 'd' | C_D | 'D' | Cs_D =>
Editor.Line.Delete;
when 'i' | C_I | 'I' | Cs_I =>
Editor.Line.Insert (1);
when 'j' | C_J | 'J' | Cs_J =>
Editor.Line.Join;
when 'k' | C_K | 'K' | Cs_K =>
Editor.Line.Delete_Forward;
when 'o' | C_O | 'O' | Cs_O =>
Editor.Line.Open;
when 't' | C_T | 'T' | Cs_T =>
Editor.Line.Transpose;
when others =>
null;
end case;
when Word =>
case Key2 is
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Word.Delete_Backward;
when Left | S_Left =>
Editor.Word.Previous;
when Right | S_Right =>
Editor.Word.Next;
--/ if SPELLER then
--// when DOWN | S_DOWN =>
--// SPELLER.EXPLAIN_NEXT;
--// when PROMOT | S_PROMOT | 'i' | C_I | 'I' | CS_I =>
--// SPELLER.LEARN_WORD (THE_WORD => "",DICTIONARY => 0);
--// when COMPLT | S_COMPLT | 'x' | C_X | 'X' | CS_X =>
--// SPELLER.EXCHANGE_WORD (CHOICE => 1);
--// when FORMAT | S_FORMAT =>
--// SPELLER.LEARN_REPLACEMENT (THE_WORD => "",CHOICE => 1,DICTIONARY => 0);
--// when WINDOW =>
--// SPELLER.SPELLER_WINDOW (IN_PLACE => FALSE);
--// when IMAGE | 'm' | C_M | 'M' | CS_M =>
--// SPELLER.CHECK_IMAGE;
--/ end if;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Editor.Word.Beginning_Of;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Editor.Word.End_Of;
when ',' | '<' =>
Editor.Word.Lower_Case;
when '.' | '>' =>
Editor.Word.Upper_Case;
--/ if SPELLER then
--// when '/' | '?' =>
--// SPELLER.CHECK_TEXT (DATA => "<TEXT>");
--/ end if;
when '6' | '^' | C_Circumflex =>
Editor.Word.Capitalize;
when 'b' | C_B | 'B' | Cs_B =>
Editor.Word.Beginning_Of;
when 'd' | C_D | 'D' | Cs_D =>
Editor.Word.Delete;
when 'k' | C_K | 'K' | Cs_K =>
Editor.Word.Delete_Forward;
--/ if SPELLER then
--// when 'l' | C_L | 'L' | CS_L =>
--// SPELLER.LEARN_WORD (THE_WORD => "",DICTIONARY => 1);
--// when 'n' | C_N | 'N' | CS_N =>
--// SPELLER.EXPLAIN_NEXT;
--// when 'r' | C_R | 'R' | CS_R =>
--// SPELLER.LEARN_REPLACEMENT (THE_WORD => "",CHOICE => 1,DICTIONARY => 0);
--/ end if;
when 't' | C_T | 'T' | Cs_T =>
Editor.Word.Transpose;
--/ if SPELLER then
--// when 'w' =>
--// SPELLER.SPELLER_WINDOW (IN_PLACE => FALSE);
--// when C_W | CS_W =>
--// SPELLER.SPELLER_WINDOW (IN_PLACE => FALSE);
--// when 'W' =>
--// SPELLER.SPELLER_WINDOW (IN_PLACE => TRUE);
--/ end if;
when others =>
null;
end case;
when Mark =>
case Key2 is
when Carriage_Return | S_Carriage_Return | Promot |
S_Promot | Enter | S_Enter | 'm' | C_M |
'M' | Cs_M | 'x' | C_X | 'X' | Cs_X =>
Editor.Macro.Execute;
when Delete | S_Delete | Backspace | S_Backspace =>
Editor.Mark.Delete_Top;
when Left | S_Left =>
Editor.Mark.Previous;
when Up | S_Up =>
Editor.Mark.Top;
when Right | S_Right =>
Editor.Mark.Next;
when Down | S_Down =>
Editor.Mark.Push;
when Begin_Of | '(' | '9' | 'a' |
C_A | 'A' | Cs_A | '[' | '{' =>
Editor.Macro.Start;
when End_Of | ')' | '0' | 'e' |
C_E | 'E' | Cs_E | ']' | '}' =>
Editor.Macro.Finish;
when 'b' | C_B | 'B' | Cs_B =>
Editor.Macro.Start;
when 'f' | C_F | 'F' | Cs_F =>
Editor.Macro.Bind;
when 'h' | C_H | 'H' | Cs_H =>
Editor.Mark.Previous;
when 'j' | C_J | 'J' | Cs_J =>
Editor.Mark.Next;
when 'n' | C_N | 'N' | Cs_N =>
Editor.Mark.Push;
when 'p' | C_P | 'P' | Cs_P =>
Editor.Mark.Copy_Top;
when 'r' | C_R | 'R' | Cs_R =>
Editor.Mark.Rotate;
when 't' | C_T | 'T' | Cs_T =>
Editor.Mark.Swap;
when 'u' | C_U | 'U' | Cs_U =>
Editor.Mark.Top;
when others =>
null;
end case;
when Image =>
case Key2 is
when Left | S_Left =>
Editor.Image.Left;
when Up | S_Up =>
Editor.Image.Up;
when Right | S_Right =>
Editor.Image.Right;
when Down | S_Down =>
Editor.Image.Down;
when Begin_Of | 'a' | C_A | 'A' | Cs_A =>
Editor.Image.Beginning_Of;
when End_Of | 'e' | C_E | 'E' | Cs_E =>
Editor.Image.End_Of;
when '!' | '1' =>
Debug.Source ("_1");
when '#' | '3' =>
Debug.Source ("_3");
when '$' | '4' =>
Debug.Source ("_4");
when '%' | '5' =>
Debug.Source ("_5");
when '&' | '7' =>
Debug.Source ("_7");
when '(' | '9' =>
Debug.Source ("_9");
when ')' | '0' =>
Debug.Source ("_10");
when '*' | '8' =>
Debug.Source ("_8");
when '2' | '@' | C_At_Sign =>
Debug.Source ("_2");
when '6' | '^' | C_Circumflex =>
Debug.Source ("_6");
when 'b' | C_B | 'B' | Cs_B =>
Editor.Image.Beginning_Of;
when 'f' | C_F | 'F' | Cs_F =>
Editor.Set.Fill_Mode (True);
when 'h' | C_H | 'H' | Cs_H =>
Editor.Image.Left;
when 'i' | C_I | 'I' | Cs_I =>
Editor.Set.Insert_Mode (True);
when 'j' | C_J | 'J' | Cs_J =>
Editor.Image.Right;
when 'n' | C_N | 'N' | Cs_N =>
Editor.Image.Down;
when 'o' | C_O | 'O' | Cs_O =>
Editor.Set.Insert_Mode (False);
when 'u' | C_U | 'U' | Cs_U =>
Editor.Image.Up;
when 'x' | C_X | 'X' | Cs_X =>
Editor.Set.Fill_Mode (False);
when others =>
null;
end case;
when Begin_Of =>
Common.Explain;
when S_Begin_Of =>
What.Load;
when C_Begin_Of =>
What.Users (All_Users => True);
when Cs_Begin_Of =>
What.Time;
when M_Begin_Of =>
What.Locks (Name => "<IMAGE>");
when Cm_Begin_Of =>
What.Object (Name => "<IMAGE>");
when Cms_Begin_Of =>
Access_List.Display (For_Object => "<CURSOR>");
when End_Of =>
Job.Disable (0);
when S_End_Of =>
Job.Enable (0);
when C_End_Of =>
Job.Kill (0);
when M_End_Of =>
Job.Connect (0);
when Cm_End_Of =>
Text.End_Of_Input;
when Enter | S_Enter =>
Common.Commit;
when M_Enter | Ms_Enter =>
Command.Debug;
when Numeric_Period =>
What.Does (Name => "<CURSOR>");
when S_Numeric_Period =>
What.Does (Name => "Help_on_Help");
when C_Numeric_Period =>
Editor.Image.Find ("Help Window");
when Cs_Numeric_Period =>
Editor.Key.Name;
when Cm_Numeric_Period =>
Queue.Print;
when ' ' | S_Space =>
Editor.Char.Insert_Character (1, ' ');
when C_Space | M_Space | Cm_Space |
Cs_Space | Ms_Space | Cms_Space =>
Editor.Char.Insert_Character (1, ' ');
when C_Exclam =>
Common.Expand;
when C_Quotation | C_Tick =>
Editor.Char.Quote;
when C_Left_Paren =>
Editor.Char.Insert_String ("(""");
when C_Right_Paren =>
Editor.Char.Insert_String (""")");
when C_Plus | C_Equal =>
Editor.Char.Insert_String ("=>");
when C_Comma | C_Less_Than =>
Editor.Char.Lower_Case;
when M_Comma | M_Less_Than =>
Editor.Word.Lower_Case;
when Cm_Comma | Cm_Less_Than =>
Editor.Line.Lower_Case;
when C_Minus =>
Editor.Set.Argument_Minus;
when C_Period | C_Greater_Than =>
Editor.Char.Upper_Case;
when M_Period | M_Greater_Than =>
Editor.Word.Upper_Case;
when Cm_Period | Cm_Greater_Than =>
Editor.Line.Upper_Case;
when C_Slash | C_Question =>
Common.Explain;
when C_0 =>
Editor.Set.Argument_Digit (0);
when C_1 =>
Editor.Set.Argument_Digit (1);
when C_2 =>
Editor.Set.Argument_Digit (2);
when M_2 | M_At_Sign =>
case Key2 is
--/ if DESIGN_FACILITY then
--// when M_2 | M_AT_SIGN =>
--// EDITOR.CHAR.INSERT_STRING("--| @");
--// when 'c' | C_C | 'C' | CS_C =>
--// EDITOR.CHAR.INSERT_STRING("--| @COMPONENT_KIND ");
--/ end if;
when 'd' | C_D | 'D' | Cs_D =>
case Key3 is
--/ if DESIGN_FACILITY then
--// when 'e' | C_E | 'E' | CS_E =>
--// EDITOR.CHAR.INSERT_STRING("--| @DECOMPOSITION ");
--// when 's' | C_S | 'S' | CS_S =>
--// EDITOR.CHAR.INSERT_STRING("--| @DATA_STRUCTURE ");
--/ end if;
when others =>
null;
end case;
--/ if DESIGN_FACILITY then
--// when 'f' | C_F | 'F' | CS_F =>
--// EDITOR.CHAR.INSERT_STRING("--| @FILE_STRUCTURE ");
--// when 'i' | C_I | 'I' | CS_I =>
--// EDITOR.CHAR.INSERT_STRING("--| @INPUT ");
--// when 'n' | C_N | 'N' | CS_N =>
--// EDITOR.CHAR.INSERT_STRING("--| @NOTE ");
--// when 'o' | C_O | 'O' | CS_O =>
--// EDITOR.CHAR.INSERT_STRING("--| @OUTPUT ");
--/ end if;
when 'r' | C_R | 'R' | Cs_R =>
case Key3 is
--/ if DESIGN_FACILITY then
--// when 'a' | C_A | 'A' | CS_A =>
--// EDITOR.CHAR.INSERT_STRING("--| @RAISES ");
--/ end if;
when 'c' | C_C | 'C' | Cs_C =>
case Key4 is
--/ if DESIGN_FACILITY then
--// when 'a' | C_A | 'A' | CS_A =>
--// EDITOR.CHAR.INSERT_STRING("--| @REQUIREMENT CAPABILITY ");
--// when 'o' | C_O | 'O' | CS_O =>
--// EDITOR.CHAR.INSERT_STRING("--| @REQUIREMENT CONSTITUENT ");
--/ end if;
when others =>
null;
end case;
--/ if DESIGN_FACILITY then
--// when 'f' | C_F | 'F' | CS_F =>
--// EDITOR.CHAR.INSERT_STRING("--| @REQUIREMENT FUNCTION ");
--// when 'i' | C_I | 'I' | CS_I =>
--// EDITOR.CHAR.INSERT_STRING("--| @REQUIREMENT INTERFACE ");
--// when 's' | C_S | 'S' | CS_S =>
--// EDITOR.CHAR.INSERT_STRING("--| @REQUIREMENT SUBFUNCTION ");
--/ end if;
when others =>
null;
end case;
when 's' | C_S | 'S' | Cs_S =>
case Key3 is
--/ if DESIGN_FACILITY then
--// when 'a' | C_A | 'A' | CS_A =>
--// EDITOR.CHAR.INSERT_STRING("--| @SATISFIES ");
--// when 't' | C_T | 'T' | CS_T =>
--// EDITOR.CHAR.INSERT_STRING("--| @STATES ");
--/ end if;
when others =>
null;
end case;
when others =>
null;
end case;
when C_3 =>
Editor.Set.Argument_Digit (3);
when C_4 =>
Editor.Set.Argument_Digit (4);
when C_5 =>
Editor.Set.Argument_Digit (5);
when C_6 =>
Editor.Set.Argument_Digit (6);
when M_6 | M_Circumflex =>
Editor.Word.Capitalize;
when Cm_6 | Cm_Circumflex =>
Editor.Line.Capitalize;
when C_7 =>
Editor.Set.Argument_Digit (7);
when C_8 =>
Editor.Set.Argument_Digit (8);
when C_9 =>
Editor.Set.Argument_Digit (9);
when C_Colon | C_Semicolon =>
Editor.Char.Insert_String (":=");
when C_At_Sign =>
Editor.Mark.Push;
when C_A | Cs_A =>
Editor.Line.Beginning_Of;
when M_A | Ms_A =>
Editor.Word.Beginning_Of;
when Cm_A | Cms_A =>
Editor.Line.Beginning_Of;
when C_B | Cs_B =>
Editor.Cursor.Backward;
when M_B | Ms_B =>
Editor.Word.Beginning_Of;
when Cm_B | Cms_B =>
Editor.Line.Beginning_Of;
when C_C | Cs_C =>
Editor.Hold_Stack.Push;
when M_C | Ms_C | M_Y | Ms_Y =>
Editor.Hold_Stack.Next;
when Cm_C | Cms_C =>
Editor.Line.Copy;
when C_D | Cs_D =>
Editor.Char.Delete_Forward;
when M_D | Ms_D =>
Editor.Word.Delete;
when Cm_D | Cms_D =>
Editor.Line.Delete;
when C_E | Cs_E =>
Editor.Line.End_Of;
when M_E | Ms_E =>
Editor.Word.End_Of;
when Cm_E | Cms_E =>
Editor.Line.End_Of;
when C_F | Cs_F =>
Editor.Cursor.Forward;
when Cm_F | Cms_F =>
Editor.Cursor.Right (8);
when C_H | Cs_H =>
Editor.Cursor.Left;
when M_H | Ms_H =>
Editor.Word.Previous;
when Cm_H | Cms_H =>
Editor.Cursor.Left (8);
when C_I | Cs_I =>
Editor.Line.Insert (-1);
when Cm_I | Cms_I =>
Ada.Insert_Blank_Line;
when C_J | Cs_J =>
Editor.Cursor.Right;
when M_J | Ms_J =>
Editor.Word.Next;
when Cm_J | Cms_J =>
Editor.Cursor.Right (8);
when C_K | Cs_K =>
Editor.Line.Delete_Forward;
when M_K | Ms_K =>
Editor.Word.Delete_Forward;
when Cm_K | Cms_K =>
Ada.Delete_Blank_Line;
when C_L | Cs_L =>
Editor.Screen.Redraw;
when M_L | Ms_L =>
Editor.Screen.Clear;
when C_M | Cs_M =>
Editor.Mark.Push;
when M_M | Ms_M =>
Editor.Mark.Next;
when C_N | Cs_N =>
Editor.Cursor.Down;
when M_N | Ms_N =>
Editor.Cursor.Next (Prompt => True, Underline => True);
when Cm_N | Cms_N =>
Editor.Cursor.Down (8);
when C_O | Cs_O =>
Editor.Line.Open;
when M_O | Cm_O | Ms_O | Cms_O =>
Editor.Line.Join;
when C_Q | Cs_Q =>
Editor.Key.Name;
when M_Q | Ms_Q =>
Editor.Key.Prompt (Key_Code => "");
when C_R =>
Editor.Search.Previous (Target => "", Wildcard => False);
when M_R =>
Editor.Search.Replace_Previous (Target => "",
Replacement => "",
Repeat => 1,
Wildcard => False);
when Cm_R =>
Editor.Search.Replace_Previous (Target => "",
Replacement => "",
Repeat => -1,
Wildcard => False);
when Cs_R =>
Editor.Search.Previous (Target => "", Wildcard => True);
when Ms_R =>
Editor.Search.Replace_Previous (Target => "",
Replacement => "",
Repeat => 1,
Wildcard => True);
when Cms_R =>
Editor.Search.Replace_Previous (Target => "",
Replacement => "",
Repeat => -1,
Wildcard => True);
when C_S =>
Editor.Search.Next (Target => "", Wildcard => False);
when M_S =>
Editor.Search.Replace_Next (Target => "",
Replacement => "",
Repeat => 1,
Wildcard => False);
when Cm_S =>
Editor.Search.Replace_Next (Target => "",
Replacement => "",
Repeat => -1,
Wildcard => False);
when Cs_S =>
Editor.Search.Next (Target => "", Wildcard => True);
when Ms_S =>
Editor.Search.Replace_Next (Target => "",
Replacement => "",
Repeat => 1,
Wildcard => True);
when Cms_S =>
Editor.Search.Replace_Next (Target => "",
Replacement => "",
Repeat => -1,
Wildcard => True);
when C_T | Cs_T =>
Editor.Char.Transpose;
when M_T | Ms_T =>
Editor.Word.Transpose;
when Cm_T | Cms_T =>
Editor.Line.Transpose;
when C_U | Cs_U =>
Editor.Cursor.Up;
when M_U | Ms_U =>
Editor.Cursor.Previous (Prompt => True, Underline => True);
when Cm_U | Cms_U =>
Editor.Cursor.Up (8);
when C_V | Cs_V =>
Editor.Image.Down;
when C_W =>
Editor.Region.Delete;
when C_X | Cs_X =>
Editor.Set.Designation_Off;
when M_X | Ms_X =>
Editor.Macro.Execute;
when C_Y | Cs_Y =>
Editor.Hold_Stack.Top;
when C_Z | Cs_Z =>
Editor.Image.Up;
when C_Left_Bracket | C_Left_Brace =>
Editor.Region.Start;
when M_Left_Bracket | M_Left_Brace =>
Editor.Macro.Start;
when C_Right_Bracket | C_Right_Brace =>
Editor.Region.Finish;
when M_Right_Bracket | M_Right_Brace =>
Editor.Macro.Finish;
when C_Circumflex =>
Editor.Char.Capitalize;
when C_Bar =>
Editor.Char.Quote;
--/ if DESIGN_FACILITY then
--// when M_BAR =>
--// EDITOR.CHAR.INSERT_STRING("--| ");
--/ end if;
when others =>
null;
end case;
end case;
end Xapollo3_Commands;
nblk1=67
nid=67
hdr6=cc
[0x00] rec0=31 rec1=00 rec2=01 rec3=000
[0x01] rec0=1f rec1=00 rec2=02 rec3=02e
[0x02] rec0=11 rec1=00 rec2=03 rec3=00c
[0x03] rec0=18 rec1=00 rec2=04 rec3=03e
[0x04] rec0=1b rec1=00 rec2=05 rec3=04a
[0x05] rec0=15 rec1=00 rec2=06 rec3=038
[0x06] rec0=13 rec1=00 rec2=07 rec3=05c
[0x07] rec0=11 rec1=00 rec2=08 rec3=028
[0x08] rec0=11 rec1=00 rec2=09 rec3=04c
[0x09] rec0=11 rec1=00 rec2=0a rec3=03e
[0x0a] rec0=11 rec1=00 rec2=0b rec3=048
[0x0b] rec0=11 rec1=00 rec2=0c rec3=004
[0x0c] rec0=10 rec1=00 rec2=0d rec3=050
[0x0d] rec0=11 rec1=00 rec2=0e rec3=03e
[0x0e] rec0=12 rec1=00 rec2=0f rec3=01e
[0x0f] rec0=12 rec1=00 rec2=10 rec3=072
[0x10] rec0=11 rec1=00 rec2=11 rec3=046
[0x11] rec0=10 rec1=00 rec2=12 rec3=038
[0x12] rec0=10 rec1=00 rec2=13 rec3=05c
[0x13] rec0=13 rec1=00 rec2=14 rec3=030
[0x14] rec0=12 rec1=00 rec2=15 rec3=030
[0x15] rec0=10 rec1=00 rec2=16 rec3=060
[0x16] rec0=10 rec1=00 rec2=17 rec3=062
[0x17] rec0=11 rec1=00 rec2=18 rec3=080
[0x18] rec0=11 rec1=00 rec2=19 rec3=086
[0x19] rec0=0f rec1=00 rec2=1a rec3=022
[0x1a] rec0=0f rec1=00 rec2=1b rec3=04a
[0x1b] rec0=13 rec1=00 rec2=1c rec3=050
[0x1c] rec0=11 rec1=00 rec2=1d rec3=07e
[0x1d] rec0=14 rec1=00 rec2=1e rec3=01a
[0x1e] rec0=13 rec1=00 rec2=1f rec3=074
[0x1f] rec0=13 rec1=00 rec2=20 rec3=04c
[0x20] rec0=10 rec1=00 rec2=21 rec3=014
[0x21] rec0=0f rec1=00 rec2=22 rec3=088
[0x22] rec0=12 rec1=00 rec2=23 rec3=014
[0x23] rec0=12 rec1=00 rec2=24 rec3=00e
[0x24] rec0=0f rec1=00 rec2=25 rec3=040
[0x25] rec0=10 rec1=00 rec2=26 rec3=00e
[0x26] rec0=11 rec1=00 rec2=27 rec3=062
[0x27] rec0=10 rec1=00 rec2=28 rec3=040
[0x28] rec0=10 rec1=00 rec2=29 rec3=014
[0x29] rec0=0e rec1=00 rec2=2a rec3=066
[0x2a] rec0=0f rec1=00 rec2=2b rec3=04a
[0x2b] rec0=11 rec1=00 rec2=2c rec3=00c
[0x2c] rec0=0f rec1=00 rec2=2d rec3=07c
[0x2d] rec0=13 rec1=00 rec2=2e rec3=006
[0x2e] rec0=15 rec1=00 rec2=2f rec3=06a
[0x2f] rec0=10 rec1=00 rec2=30 rec3=044
[0x30] rec0=14 rec1=00 rec2=31 rec3=054
[0x31] rec0=15 rec1=00 rec2=32 rec3=06e
[0x32] rec0=17 rec1=00 rec2=33 rec3=04a
[0x33] rec0=14 rec1=00 rec2=34 rec3=05e
[0x34] rec0=18 rec1=00 rec2=35 rec3=01c
[0x35] rec0=19 rec1=00 rec2=36 rec3=01e
[0x36] rec0=19 rec1=00 rec2=37 rec3=018
[0x37] rec0=16 rec1=00 rec2=38 rec3=002
[0x38] rec0=15 rec1=00 rec2=39 rec3=056
[0x39] rec0=15 rec1=00 rec2=3a rec3=038
[0x3a] rec0=11 rec1=00 rec2=3b rec3=078
[0x3b] rec0=13 rec1=00 rec2=3c rec3=042
[0x3c] rec0=14 rec1=00 rec2=3d rec3=024
[0x3d] rec0=10 rec1=00 rec2=3e rec3=02a
[0x3e] rec0=15 rec1=00 rec2=3f rec3=04c
[0x3f] rec0=16 rec1=00 rec2=40 rec3=02a
[0x40] rec0=14 rec1=00 rec2=41 rec3=056
[0x41] rec0=19 rec1=00 rec2=42 rec3=00a
[0x42] rec0=13 rec1=00 rec2=43 rec3=06a
[0x43] rec0=13 rec1=00 rec2=44 rec3=038
[0x44] rec0=15 rec1=00 rec2=45 rec3=032
[0x45] rec0=12 rec1=00 rec2=46 rec3=030
[0x46] rec0=12 rec1=00 rec2=47 rec3=050
[0x47] rec0=14 rec1=00 rec2=48 rec3=06a
[0x48] rec0=12 rec1=00 rec2=49 rec3=04c
[0x49] rec0=14 rec1=00 rec2=4a rec3=01c
[0x4a] rec0=11 rec1=00 rec2=4b rec3=028
[0x4b] rec0=14 rec1=00 rec2=4c rec3=052
[0x4c] rec0=14 rec1=00 rec2=4d rec3=00a
[0x4d] rec0=14 rec1=00 rec2=4e rec3=01c
[0x4e] rec0=11 rec1=00 rec2=4f rec3=044
[0x4f] rec0=14 rec1=00 rec2=50 rec3=07e
[0x50] rec0=15 rec1=00 rec2=51 rec3=068
[0x51] rec0=12 rec1=00 rec2=52 rec3=062
[0x52] rec0=13 rec1=00 rec2=53 rec3=054
[0x53] rec0=16 rec1=00 rec2=54 rec3=026
[0x54] rec0=14 rec1=00 rec2=55 rec3=024
[0x55] rec0=15 rec1=00 rec2=56 rec3=00c
[0x56] rec0=18 rec1=00 rec2=57 rec3=04c
[0x57] rec0=16 rec1=00 rec2=58 rec3=03c
[0x58] rec0=16 rec1=00 rec2=59 rec3=03c
[0x59] rec0=14 rec1=00 rec2=5a rec3=048
[0x5a] rec0=13 rec1=00 rec2=5b rec3=05a
[0x5b] rec0=10 rec1=00 rec2=5c rec3=04a
[0x5c] rec0=16 rec1=00 rec2=5d rec3=01e
[0x5d] rec0=17 rec1=00 rec2=5e rec3=03c
[0x5e] rec0=19 rec1=00 rec2=5f rec3=006
[0x5f] rec0=18 rec1=00 rec2=60 rec3=03c
[0x60] rec0=18 rec1=00 rec2=61 rec3=04a
[0x61] rec0=11 rec1=00 rec2=62 rec3=066
[0x62] rec0=11 rec1=00 rec2=63 rec3=058
[0x63] rec0=12 rec1=00 rec2=64 rec3=04e
tail 0x217000380815770236043 0x42a00088462060003
Free Block Chain:
0x67: 0000 00 00 0c 00 32 81 e1 40 06 60 01 08 e5 14 c0 c0 ┆ 2 @ ` ┆