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 - metrics - download

⟦17a3807d9⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_0296bf

Derivation

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

WITH Messages;

PACKAGE BODY Mailboxes IS

   PROCEDURE Find_Message (Message     :        Sequence_Number;
                           The_Mailbox : IN OUT Mailbox);

   FUNCTION Make RETURN Mailbox IS
   BEGIN
      RETURN Nil;
   END Make;
   PROCEDURE Add (Message : Messages.Message; The_Mailbox : IN OUT Mailbox) IS
      New_Entry : CONSTANT Mailbox := Make ((False, Message), Nil);
      Temp      : Mailbox          := The_Mailbox;
   BEGIN
      IF Is_Empty (Temp) THEN
         The_Mailbox := New_Entry;
      ELSE
         WHILE NOT Is_Empty (Rest (Temp)) LOOP
            Temp := Rest (Temp);
         END LOOP;
         Set_Rest (Temp, New_Entry);
      END IF;
   END Add;

   FUNCTION Last_Message (The_Mailbox : Mailbox) RETURN Sequence_Number IS
   BEGIN
      RETURN Length (The_Mailbox);
   END Last_Message;

   PROCEDURE Find_Message (Message     :        Sequence_Number;
                           The_Mailbox : IN OUT Mailbox) IS
   BEGIN
      IF Message = 0 OR ELSE Length (The_Mailbox) < Message THEN
         RAISE Nonexistent_Sequence_Number;
      END IF;
      FOR I IN 1 .. Message - 1 LOOP
         The_Mailbox := Rest (The_Mailbox);
      END LOOP;
   END Find_Message;

   FUNCTION Get_Message (Message : Sequence_Number; The_Mailbox : Mailbox)
                        RETURN Messages.Message IS
      Temp : Mailbox := The_Mailbox;
   BEGIN
      Find_Message (Message, Temp);
      RETURN First (Temp).Message;
   END Get_Message;

   FUNCTION Get_Read_Flag (Message : Sequence_Number; The_Mailbox : Mailbox)
                          RETURN Boolean IS
      Temp : Mailbox := The_Mailbox;
   BEGIN
      Find_Message (Message, Temp);
      RETURN First (Temp).Read_Flag;
   END Get_Read_Flag;

   PROCEDURE Set_Read_Flag (Message     :        Sequence_Number;
                            New_Value   :        Boolean;
                            The_Mailbox : IN OUT Mailbox) IS
      Temp : Mailbox := The_Mailbox;
   BEGIN
      Find_Message (Message, Temp);
      DECLARE
         New_Entry : CONSTANT Mailbox_Entry :=
            (New_Value, First (Temp).Message);
      BEGIN
         Set_First (Temp, New_Entry);
      END;
   END Set_Read_Flag;
   PROCEDURE Delete_Message (Message     :        Sequence_Number;
                             The_Mailbox : IN OUT Mailbox) IS
      Temp : Mailbox := The_Mailbox;
   BEGIN
      IF Message = 1 THEN
         The_Mailbox := Rest (The_Mailbox);
      ELSE
         Find_Message (Message - 1, Temp);
         Set_Rest (Temp, Rest (Rest (Temp)));
      END IF;
   END Delete_Message;

END Mailboxes;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=21 rec1=00 rec2=01 rec3=074
        [0x01] rec0=01 rec1=00 rec2=04 rec3=010
        [0x02] rec0=1c rec1=00 rec2=02 rec3=012
        [0x03] rec0=17 rec1=00 rec2=03 rec3=001
    tail 0x21722f8da83d36a58548d 0x489e0066482863001