⟦4d46d0c39⟧

E3 Source Code



package Vt100_Key_Names is
------------------------------------------------------------------------------
--  Names of the keystokes possible on a VT100 keyboard as recognized by an
--  R1000.
------------------------------------------------------------------------------

    type Key_Names is
       (

----First the normal Ascii characters.

        Nul,

        C_A, C_B, C_C, C_D, C_E, C_F, C_G, C_H, C_I, C_J, C_K, C_L, C_M,
        C_N, C_O, C_P, C_Q, C_R, C_S, C_T, C_U, C_V, C_W, C_X, C_Y, C_Z,

        C_Left_Bracket, -- Implemented by Esc-Esc; hit Escape key twice.
        C_Backslash,  
        C_Right_Bracket,  
        C_Circumflex,  
        C_Underline,

        ' ', '!', '"', '#', '$', '%', '&', ''',
        '(', ')', '*', '+', ',', '-', '.', '/',

        '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',

        ':', ';', '<', '=', '>', '?', '@',

        'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
        'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',

        '[', '\', ']', '^', '_', '`',

        'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
        'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',

        '{', '|', '}', '~',

        Delete,

----Numeric Keypad Keys

        Up, Down, Left, Right,

        Pf1, Pf2, Pf3, Pf4,

        Numeric_1, Numeric_2, Numeric_3, Numeric_4, Numeric_5,
        Numeric_6, Numeric_7, Numeric_8, Numeric_9, Numeric_0,

        Dash, Dot, Enter, Numeric_Comma,

----Normal Ascii characters prefixed by Escape

        Esc_Nul,

        Esc_C_A, Esc_C_B, Esc_C_C, Esc_C_D, Esc_C_E, Esc_C_F, Esc_C_G,
        Esc_C_H, Esc_C_I, Esc_C_J, Esc_C_K, Esc_C_L, Esc_C_M, Esc_C_N,
        Esc_C_O, Esc_C_P, Esc_C_Q, Esc_C_R, Esc_C_S, Esc_C_T,
        Esc_C_U, Esc_C_V, Esc_C_W, Esc_C_X, Esc_C_Y, Esc_C_Z,

--      Esc_C_Left_Bracket  -- Not defined because Esc-Esc is C_Left_Bracket
--                          -- and defining an Esc-Esc-Esc key would block
--                          -- recognition of the shorter key.
        Esc_C_Backslash,  
        Esc_C_Right_Bracket,  
        Esc_C_Circumflex,  
        Esc_C_Underline,

        Esc_Space,  
        Esc_Exclam,  
        Esc_Quotation,  
        Esc_Sharp,  
        Esc_Dollar,  
        Esc_Percent,  
        Esc_Ampersand,  
        Esc_Tick,  
        Esc_Left_Paren,  
        Esc_Right_Paren,  
        Esc_Star,  
        Esc_Plus,  
        Esc_Comma,  
        Esc_Minus,  
        Esc_Period,  
        Esc_Slash,

        Esc_0, Esc_1, Esc_2, Esc_3, Esc_4, Esc_5, Esc_6, Esc_7, Esc_8, Esc_9,

        Esc_Colon,  
        Esc_Semicolon,  
        Esc_Less_Than,  
        Esc_Equal,  
        Esc_Greater_Than,  
        Esc_Query,  
        Esc_At_Sign,

----Escape and upper-case letters.

        Esc_S_A, Esc_S_B, Esc_S_C, Esc_S_D, Esc_S_E, Esc_S_F, Esc_S_G,
        Esc_S_H, Esc_S_I, Esc_S_J, Esc_S_K, Esc_S_L, Esc_S_M, Esc_S_N,
--      Esc_S_O -- Not defined because the characters Escape-O are part of the
--              -- definitions of most of the various function keys.  As such
--              -- they cannot themselves be defined as a key as there is no
--              -- way to tell (for instance) Escape-O F from Escape-O-F.
        Esc_S_P, Esc_S_Q, Esc_S_R, Esc_S_S, Esc_S_T, Esc_S_U,
        Esc_S_V, Esc_S_W, Esc_S_X, Esc_S_Y, Esc_S_Z,

        Esc_Left_Bracket,  
        Esc_Backslash,  
        Esc_Right_Bracket,  
        Esc_Circumflex,  
        Esc_Underline, Esc_Grave,

----Escape and lower case letters.

        Esc_A, Esc_B, Esc_C, Esc_D, Esc_E, Esc_F, Esc_G, Esc_H, Esc_I,
        Esc_J, Esc_K, Esc_L, Esc_M, Esc_N, Esc_O, Esc_P, Esc_Q, Esc_R,
        Esc_S, Esc_T, Esc_U, Esc_V, Esc_W, Esc_X, Esc_Y, Esc_Z,

        Esc_Left_Brace,  
        Esc_Bar,  
        Esc_Right_Brace,  
        Esc_Tilde,  
        Esc_Delete);

----Convenience names.

    Backspace : constant Key_Names := C_H;
    Esc_Backspace : constant Key_Names := Esc_C_H;
    Tab : constant Key_Names := C_I;
    Esc_Tab : constant Key_Names := Esc_C_I;

    Esc_Del : constant Key_Names :=  -- Allow for historical misspellings.
       Esc_Delete;

end Vt100_Key_Names;
DataMuseum.dk

Rational R1000/400

⟦4d46d0c39⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
