|
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: 7168 (0x1c00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Mail, pragma Module_Name 4 3604, pragma Subsystem Mail, seg_01283d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with System_Utilities; package Mail is procedure Create (Mailbox : String := ">>SIMPLE NAME<<"; For_User : String := ""); -- Create a mailbox. For_User defaults to current user. -- The user is added to the local machine name map. -- procedure Edit (Mailbox : String := "MAIN"; For_User : String := ""); -- Enters the mail object editor. If no window exists for the given -- mailbox, a new window will be created. -- For_User defaults to current user. procedure Expunge; -- This command is only valid in a command window off of a mailbox -- window. The given mailbox is expunged. procedure Answer (To_All : Boolean := False); -- This command may be used in a mailbox window or a read mail window. -- It causes an answer window to be created with certain fields -- initialized with appropriate default values. -- In a mailbox window, the selected message is answered. In a read -- mail window, the current message is answered. procedure Reply (To_All : Boolean := False) renames Answer; procedure Forward; -- Same as answer, except a forward window is created. procedure Remail; -- Same as answer, except a remail window is created. procedure Send; -- Brings up a send window. procedure Reload_Name_Map; -- Causes the mail object editor to read in the name map. function New_Messages return Natural; -- returns number of unread messages in the mailbox; if the mailbox is -- locked by another session or user the function returns 99999999. procedure Send_Message (To : String := ">>USER_NAMES<<"; Subject : String := ""; Text : String := ""; Cc : String := ""; From : String := System_Utilities.User_Name; Response : String := "<PROFILE>"); -- Composes and sends a message with content as specified by the parameters procedure Notify; -- Display the number of unread messages in the message window banner. --------------------------------------------------------------------- -- The mail object editor manages three types of windows: -- 1) Mailbox windows -- 2) Read message windows and -- 3) Transmit windows (answer, forward, remail, and send). -- The following is a list of supported common commands per window type. -- Mailbox window common commands: -- -- Release (obj-x and obj-g). Deletes the window and closes the mailbox. -- Any windows on objects within this mailbox will also be deleted. -- Copy. Copy the selected message(s) from one mailbox to another. -- Delete. Delete the selected message(s). If the selected message(s) -- is already flagged for deletion, the message(s) are expunged. -- Definition. If the cursor is on a message header, brings up a window -- on the underlying message. If the cursor is on a mailbox name, brings -- up a window on the underlying mailbox. -- Format. Reads in new messages, and positions the cursor on the first -- new message. -- -- Insert. Bring up a send window. -- -- Move. Move selected message from one mailbox to another. -- Redo. If the selected message is an undeliverable notification a -- send window is brought up with the original message ready to be -- resent. Otherwise a reply window is brought up. -- Revert. Same as format. -- Sort_Image. Change the sort order in which the messages are displayed. -- Undo. Undeleted selected message(s). -- Read message window common commands: -- Release. Delete the window, and position the cursor on the next -- undeleted message in the mailbox window. -- Delete. Same as Release, but underlying message is deleted. -- Enclosing. Go to enclosing mailbox window. -- Redo. Same as redo in a mailbox window. -- Transmit window common commands: -- Release. Obj-G deletes the window. Obj-X send the message, then -- deletes the window. -- Edit. Make the window editable. -- Enclosing. If in a send window, goes to the users main mailbox. -- Otherwise goes to the message being answered, forwarded or remailed. -- Promote. Sends the message, and makes the window read only. -- Semanticize. Check names in the to and cc lists, and underlines -- names which can't be found. -- The sort fields specified by the format parameter are as follows: -- 1 From -- 2 Date Received -- 3 Date Sent -- 4 Read/Unread -- 5 Deleted/Non-deleted -- Use the negatives of these numbers for reverse sorting. -- Mail Switches: -- Mail_Multiple_Message_Windows -- Boolean indicating whether read window should be reused -- -- Mail_Default_Sort_Order -- Integer (see comment on sort orders) pragma Subsystem (Mail); pragma Module_Name (4, 3604); pragma Bias_Key (15); end Mail;
nblk1=6 nid=0 hdr6=c [0x00] rec0=1f rec1=00 rec2=01 rec3=05e [0x01] rec0=26 rec1=00 rec2=02 rec3=084 [0x02] rec0=1a rec1=00 rec2=03 rec3=004 [0x03] rec0=1c rec1=00 rec2=04 rec3=066 [0x04] rec0=1f rec1=00 rec2=05 rec3=00e [0x05] rec0=10 rec1=00 rec2=06 rec3=000 tail 0x2170e50aa82b081407f78 0x42a00088462060003