DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦aca308448⟧ Ada Source

    Length: 10240 (0x2800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Facit_Key_Names, seg_01288b

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



package Facit_Key_Names is

    type Key_Names is

       (
        -- standard ASCII sequences

        Nul, C_A, C_B, C_C, C_D, C_E, C_F, C_G, Backspace, Tab, 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,  
        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,

        -- unshifted terminal specific

        Object,  
        Region,  
        Window,  
        Promot,  
        Complt,  
        Format,

        Up,  
        Down,  
        Left,  
        Right,  
        Back_Tab,

        Image,  
        Line,  
        Word,  
        Mark,

        F1,  
        F2,  
        F3,  
        F4,  
        F5,  
        F6,  
        F7,  
        F8,  
        F9,  
        F10,  
        F11,  
        F12,

        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,

        -- shifted terminal specific

--      S_Object,   Shift of X1 does not transmit, therefore there is no key.
--      S_Region,   Shift of X2 does not transmit, therefore there is no key.
        S_Window,
--      S_Promot,   Shift of X4 does not transmit, therefore there is no key.
        S_Complt,
--      S_Format,   Shift of X6 does not transmit, therefore there is no key.
        S_Up,  
        S_Down,
--      S_Left,     Shift of Left does not transmit, therefore there is no key.
--      S_Right,    Shift of Right does not transmit, therefore there is no key.

        S_F1,  
        S_F2,  
        S_F3,  
        S_F4,  
        S_F5,  
        S_F6,  
        S_F7,  
        S_F8,  
        S_F9,  
        S_F10,  
        S_F11,  
        S_F12,

        -- escape combinations, esc-char and esc-control-char

        Esc_Nul, Esc_C_A, Esc_C_B, Esc_C_C, Esc_C_D, Esc_C_E, Esc_C_F,
        Esc_C_G, Esc_Backspace, Esc_Tab, 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_Backslash,  
        Esc_C_Circumflex,  
        Esc_C_Underline,  
        Esc_C_Right_Bracket,

        -- Esc_Esc/Esc_C_Left_Bracket is not defined; C_Left_Bracket is
        --  Esc-Esc-Esc.

        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,

        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_Bracket - Escape-[ is a prefix for some of the X1..X6 keys
        --                    therefore we cannot have an Esc_Left_Bracket key.
        Esc_Backslash,  
        Esc_Right_Bracket,  
        Esc_Circumflex,  
        Esc_Underline, Esc_Grave,

        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, 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_Brace,  
        Esc_Bar,  
        Esc_Right_Brace,  
        Esc_Tilde,  
        Esc_Delete,

        -- esc function keys

        Esc_Object,  
        Esc_Region,  
        Esc_Window,  
        Esc_Promot,  
        Esc_Complt,  
        Esc_Format,

        Esc_Up,  
        Esc_Down,  
        Esc_Left,  
        Esc_Right,  
        Esc_Back_Tab,

        Esc_Image,  
        Esc_Line,  
        Esc_Word,  
        Esc_Mark,

        Esc_F1,  
        Esc_F2,  
        Esc_F3,  
        Esc_F4,  
        Esc_F5,  
        Esc_F6,  
        Esc_F7,  
        Esc_F8,  
        Esc_F9,  
        Esc_F10,  
        Esc_F11,  
        Esc_F12,

        Esc_Numeric_1,  
        Esc_Numeric_2,  
        Esc_Numeric_3,  
        Esc_Numeric_4,  
        Esc_Numeric_5,  
        Esc_Numeric_6,  
        Esc_Numeric_7,  
        Esc_Numeric_8,  
        Esc_Numeric_9,  
        Esc_Numeric_0,

        Esc_Dash,  
        Esc_Dot,  
        Esc_Enter,  
        Esc_Numeric_Comma,

        -- shifted terminal specific

--      Esc_S_Object,   Shift of X1 does not transmit, therefore there is no key.
--      Esc_S_Region,   Shift of X2 does not transmit, therefore there is no key.
        Esc_S_Window,
--      Esc_S_Promot,   Shift of X4 does not transmit, therefore there is no key.
        Esc_S_Complt,
--      Esc_S_Format,   Shift of X6 does not transmit, therefore there is no key.
        Esc_S_Up,  
        Esc_S_Down,
--      Esc_S_Left,     Shift of Left does not transmit, therefore there is no key.
--      Esc_S_Right,    Shift of Right does not transmit, therefore there is no key.

        Esc_S_F1,  
        Esc_S_F2,  
        Esc_S_F3,  
        Esc_S_F4,  
        Esc_S_F5,  
        Esc_S_F6,  
        Esc_S_F7,  
        Esc_S_F8,  
        Esc_S_F9,  
        Esc_S_F10,  
        Esc_S_F11,  
        Esc_S_F12,

        -- control function keys

        C_F1,  
        C_F2,  
        C_F3,  
        C_F4,  
        C_F5,  
        C_F6,  
        C_F7,  
        C_F8,  
        C_F9,  
        C_F10,  
        C_F11,  
        C_F12,

        -- escape-control function keys

        Esc_C_F1,  
        Esc_C_F2,  
        Esc_C_F3,  
        Esc_C_F4,  
        Esc_C_F5,  
        Esc_C_F6,  
        Esc_C_F7,  
        Esc_C_F8,  
        Esc_C_F9,  
        Esc_C_F10,  
        Esc_C_F11,  
        Esc_C_F12);

----Aliases for old form key names.

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

    X1 : constant Key_Names := Object;
    X2 : constant Key_Names := Region;
    X3 : constant Key_Names := Window;
    X4 : constant Key_Names := Promot;
    X5 : constant Key_Names := Complt;
    X6 : constant Key_Names := Format;
    Esc_X1 : constant Key_Names := Esc_Object;
    Esc_X2 : constant Key_Names := Esc_Region;
    Esc_X3 : constant Key_Names := Esc_Window;
    Esc_X4 : constant Key_Names := Esc_Promot;
    Esc_X5 : constant Key_Names := Esc_Complt;
    Esc_X6 : constant Key_Names := Esc_Format;
    S_X3 : constant Key_Names := S_Window;
    S_X5 : constant Key_Names := S_Complt;
    Esc_S_X3 : constant Key_Names := Esc_S_Window;
    Esc_S_X5 : constant Key_Names := Esc_S_Complt;

    Pf1 : constant Key_Names := Image;
    Pf2 : constant Key_Names := Line;
    Pf3 : constant Key_Names := Word;
    Pf4 : constant Key_Names := Mark;
    Esc_Pf1 : constant Key_Names := Esc_Image;
    Esc_Pf2 : constant Key_Names := Esc_Line;
    Esc_Pf3 : constant Key_Names := Esc_Word;
    Esc_Pf4 : constant Key_Names := Esc_Mark;

    Esc_Del : constant Key_Names := -- Honor an ancient misspelling.
       Esc_Delete;

end Facit_Key_Names;

E3 Meta Data

    nblk1=9
    nid=0
    hdr6=12
        [0x00] rec0=22 rec1=00 rec2=01 rec3=018
        [0x01] rec0=36 rec1=00 rec2=02 rec3=058
        [0x02] rec0=1d rec1=00 rec2=03 rec3=000
        [0x03] rec0=25 rec1=00 rec2=04 rec3=084
        [0x04] rec0=16 rec1=00 rec2=05 rec3=00e
        [0x05] rec0=32 rec1=00 rec2=06 rec3=018
        [0x06] rec0=20 rec1=00 rec2=07 rec3=012
        [0x07] rec0=28 rec1=00 rec2=08 rec3=00a
        [0x08] rec0=17 rec1=00 rec2=09 rec3=000
    tail 0x2170e555482b082613b84 0x42a00088462060003