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

⟦ce92e22e4⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Access_List, pragma Module_Name 4 3507, pragma Subsystem Os_Commands, seg_006364

Derivation

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

E3 Source Code



package Access_List is

    subtype Name is String;  -- an object name

    Read : constant Character := 'R';  -- objects and worlds
    Write : constant Character := 'W';  -- objects only
    Delete : constant Character := 'D';  -- worlds only; same bit as W
    Create : constant Character := 'C';  -- worlds only
    Owner : constant Character := 'O';  -- worlds only

    subtype Acl is String;
    -- String representations of access lists have the following syntax:
    --  Acl       ::= Acl_Entry [',' Acl_Entry]*
    --  Acl_Entry ::= Group '=>' Access
    --  Group     ::= Identifier
    --  Access    ::= Acc_Type+
    --  Acc_Type  ::= 'R' | 'W' | 'D' | 'C' | 'O' |
    --                'r' | 'w' | 'd' | 'c' | 'o'
    --  Examples:  "Phil => R , TRW => rw",  "Public=>RCOD"


    procedure Display (For_Object : Name := "<CURSOR>");

    -- Display the access list of the specified object(s).
    -- Output and error messages are send to current output.

    procedure Set (To_List : Acl := "Network_Public => RWCOD";
                   For_Object : Name := "<SELECTION>";
                   Response : String := "<PROFILE>");

    -- Set the access list for the specified object(s).
    -- Setting the access list requires "Owner" access to the containing world.
    -- Sends messages to a log that is under control of the Response parameter.

    procedure Default_Display (For_World : Name := "<CURSOR>");

    -- Display the default acl of the specified world(s) in an output window.
    -- Error messages are sent to the window in case of any error.
    -- Wildcards in the name are allowed.
    -- Non-world objects are filtered out of the display.
    -- A null display is produced if no worlds are referenced.

    procedure Set_Default (To_List : Acl := "Network_Public => RW";
                           For_World : Name := "<SELECTION>";
                           Response : String := "<PROFILE>");

    -- Set the default ACL for the specified world(s).
    -- Owner access to each world is required.
    -- Sends messages to a log that is under control of the Response parameter.
    -- A log is written indicating success or errors.
    -- Wildcards are allowed in the name.
    -- Any non-world objects referenced are ignored.
    -- A summary of the number of objects affected is included in the log.

    procedure Add (To_List : Acl := "Network_Public => RWCOD";
                   For_Object : Name := "<SELECTION>";
                   Response : String := "<PROFILE>");

    -- Add the access list to the existing value for the specified object(s).
    -- Changing the access list requires "Owner" access to the containing world.
    -- Sends messages to a log that is under control of the
    -- Response parameter.

    procedure Add_Default (To_List : Acl := "Network_Public => RW";
                           For_World : Name := "<SELECTION>";
                           Response : String := "<PROFILE>");

    -- Add the default ACL to the existing value for the specified world(s).
    -- Owner access to each world is required.
    -- Sends messages to a log that is under control of the Response parameter.
    -- A log is written indicating success or errors.
    -- Wildcards are allowed in the name.
    -- Any non-world objects referenced are ignored.
    -- A summary of the number of objects affected is included in the log.

    procedure Remove (Group : String := ">>SIMPLE NAME<<";
                      For_Object : Name := "<SELECTION>";
                      Response : String := "<PROFILE>");
    --
    -- Remove the group from the specified object(s)' access list(s).
    -- Changing the access list requires "Owner" access to the containing
    -- world.  Sends messages to a log that is under control of the
    -- Response parameter.

    procedure Remove_Default (Group : String := ">>SIMPLE NAME<<";
                              For_World : Name := "<SELECTION>";
                              Response : String := "<PROFILE>");
    --
    -- Remove the group from the specified world(s)' default access list(s).
    -- Owner access to each world is required.  Sends messages to the log that
    -- is under control of the Response parameter.  Wildcards are allowed
    -- in the name.  Any non-world objects referenced are ignored.
    -- A summary of the number of objects affected is included in the log.

    pragma Subsystem (Os_Commands);
    pragma Module_Name (4, 3507);

end Access_List;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1a rec1=00 rec2=01 rec3=076
        [0x01] rec0=16 rec1=00 rec2=02 rec3=01a
        [0x02] rec0=13 rec1=00 rec2=03 rec3=046
        [0x03] rec0=14 rec1=00 rec2=04 rec3=040
        [0x04] rec0=0d rec1=00 rec2=05 rec3=000
    tail 0x215013cec81bf800888ee 0x42a00088462060003