|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_029694
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
WITH Messages;
WITH Mailboxes;
WITH Destinations;
PACKAGE Command_Utilities IS
-- This package defines some utilities for use by the higher-level
-- command interpreter for the mail program.
TYPE Command_Kind IS (Headers, Read, Send, Delete, Quit, Unknown);
-- Defines the kind of commands the mail system implements. Read and Delete
-- take a single sequence number as an argument.
TYPE Command IS
RECORD
Kind : Command_Kind;
Message : Mailboxes.Sequence_Number := 0;
-- 0 indicates the command did not have a sequence number
END RECORD;
-- Defines the result of parsing a command line string.
FUNCTION Get_Command RETURN Command;
-- Reads a line of input from the user, parses it, and returns the command
-- that was entered.
FUNCTION Get_Message RETURN Messages.Message;
-- Prompts the user to input the values for the fields in a message to be
-- sent and returns the message entered.
PROCEDURE Display_Message (Message : Messages.Message);
-- Displays the indicated message to the user.
PROCEDURE Display_Headers (Mailbox : Mailboxes.Mailbox);
-- Displays the headers for the indicated mailbox to the user.
PROCEDURE Notify_Of_Receipt (Sending_User : Destinations.User;
Receiving_User : Destinations.User);
-- Sends a mail receipt notification to the Receiving_User indicating the
-- Sending_Users's name as the sender.
END Command_Utilities;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=02a
[0x01] rec0=10 rec1=00 rec2=02 rec3=000
tail 0x21521929083d36a3a7c29 0x489e0066482863001