DataMuseum.dk

top - metrics - download

    Length: 2462 (0x99e)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

with Window_Io;
with System_Utilities;
package body New_Keys is

    subtype Lower_Case is Character range 'a' .. 'z';
    subtype Upper_Case is Character range 'A' .. 'Z';

    Terminal_Type : constant String := System_Utilities.Terminal_Type;

    Bad_Key_Name : exception;

    function Is_Alphabet_Key (K : Key_Type) return Boolean is
        Image : Character;
    begin
        if K in Raw.Simple_Key then
            Image := Raw.Convert (K);

            if Image in Lower_Case or Image in Upper_Case then
                return True;
            else
                return False;
            end if;
        else
            return False;
        end if;
    end Is_Alphabet_Key;

    procedure Bind_Key (Name : String; Key : in out Key_Type) is
        Found : Boolean;
    begin
        Raw.Value (Name, Terminal_Type, Key, Found);
        if not Found then
            raise Bad_Key_Name;
        end if;
    end Bind_Key;
begin
    Bind_Key ("Up", Up);
    Bind_Key ("Down", Down);
    Bind_Key ("Left", Left);
    Bind_Key ("Right", Right);

    Bind_Key ("C_G", User_Interrupt);
    Bind_Key ("Enter", Enter);
    if Terminal_Type = "SUN" then

        Bind_Key ("ESC_7", Quit);
        Bind_Key ("ESC_4", Step_Forward);
        Bind_Key ("ESC_3", Step_Backward);

        Bind_Key ("ESC_0", Menu_Select);

        Bind_Key ("ESC_5", Select_Script);

    elsif Terminal_Type = "FACIT" then
        Bind_Key ("Esc_S_F2", Menu_Select);
        Bind_Key ("Esc_S_F3", Step_Backward);
        Bind_Key ("Esc_S_F4", Step_Forward);

        Bind_Key ("Esc_S_F5", Select_Script);

        Bind_Key ("X4", Promote);

    elsif Terminal_Type = "VT100" then
        Bind_Key ("Esc_7", Quit);
        Bind_Key ("Esc_4", Step_Forward);
        Bind_Key ("Esc_2", Step_Backward);

        Bind_Key ("Esc_0", Menu_Select);

        Bind_Key ("Esc_5", Select_Script);

    elsif Terminal_Type = "RATIONAL" then
        Bind_Key ("S_F1", Quit);  
        Bind_Key ("F4", Step_Forward);
        Bind_Key ("F3", Step_Backward);

        Bind_Key ("F2", Menu_Select);

        Bind_Key ("F5", Select_Script);

        Bind_Key ("S_F4", Step_Many);
        Bind_Key ("S_F2", Step_Exact);
        Bind_Key ("Promot", Promote);
    else
        Bind_Key ("Esc_7", Quit);
        Bind_Key ("Esc_4", Step_Forward);
        Bind_Key ("Esc_3", Step_Backward);

        Bind_Key ("Esc_0", Menu_Select);

        Bind_Key ("Esc_5", Select_Script);

    end if;
end New_Keys;