1 /* BEGIN INCLUDE FILE ... mlsys_internal_data.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-06-11,Mills), approve(86-06-11,MCR7419),
 6      audit(86-06-17,Margolin), install(86-06-30,MR12.0-1080):
 7      Added mlsys_data_$domains_available.
 8                                                    END HISTORY COMMENTS */
 9 
10 
11 /* Created:  May 1981 by G. Palter */
12 /* Modified: July 1983 by G. Palter to merge with mlsys_data_ */
13 
14 /* Constants used internally by the Multics mail system */
15 
16 dcl  mlsys_data_$max_opening_retries fixed binary external; /* maximum number of times to reopen a mailbox if it gets
17                                                                damaged and salvaged while open */
18 
19 dcl  mlsys_data_$max_lock_wait_retries fixed binary external;
20                                                             /* maximum number of times to try to send a message while the
21                                                                mailbox is locked (being salvaged?) */
22 
23 
24 /* Allocation overhead factors:  When allocating those structures with refer extents, insure that the variable portion of
25    the structure contains a multiple of the appropriate constant number of slots.  These extra slots will be used for
26    later additions to the structure; when a new element must be added to a full structure, add this many new slots (rather
27    than a single new slot)
28 
29    The following expression should be used to determine the initial allocation:
30 
31           n_slots_to_allocate = n_slots_needed + CONSTANT - mod (n_slots_needed, CONSTANT); */
32 
33 dcl (mlsys_data_$mailbox_allocation,                        /* mailbox.messages */
34      mlsys_data_$message_body_sections_allocation,          /* message.body_sections */
35      mlsys_data_$message_redistributions_list_allocation,   /* message_redistributions_list.redistributions */
36      mlsys_data_$message_user_fields_allocation,            /* message_user_fields_list.user_fields */
37      mlsys_data_$message_references_list_allocation,        /* message_references_list.references */
38      mlsys_data_$address_list_allocation)                   /* address_list.addresses */
39           fixed binary external;
40 
41 
42 /* Static data user by the Multics mail system */
43 
44 dcl (mlsys_data_$forum_not_available,                       /* 1 => forum isn't available on the system or in this ring */
45      mlsys_data_$ism_not_available,                         /* 1 => no inter-system mailer on this system */
46      mlsys_data_$domains_available)                         /* 1 =>  domain name system software on this sytem */
47           fixed binary (1) external;
48 
49 dcl (mlsys_data_$subsystem_ring,                            /* ring in which the mail system is secured */
50      mlsys_data_$highest_usable_ring,                       /* highest ring of execution which may use the mail system */
51      mlsys_data_$lowest_forum_ring)                         /* lowest ring of execution with access to forum */
52           fixed binary (3) external;
53 
54 dcl  mlsys_data_$temp_segment_list_ptr pointer external;    /* -> list of all mail system temporary segments */
55 
56 dcl  mlsys_data_$valid_segments (0:4095) bit (1) unaligned external;
57                                                             /* indicates which segments have been used by the mail system
58                                                                for the allocation of user-visible data in order to
59                                                                validate that pointers passed from the user-ring are OK */
60 
61 dcl  mlsys_area area based (mlsys_data_$subsystem_area_ptr);/* area used for all user-visible allocations ... */
62 dcl  mlsys_data_$subsystem_area_ptr pointer external;       /* ... and the pointer on which it is based */
63 
64 dcl  mlsys_data_$hash_tables_segment_ptr pointer external;  /* -> hash tables used by the mail system */
65 
66 dcl  mlsys_data_$transmit_cache_ptr pointer external;       /* -> cache of recently used mailboxes for mlsys_transmit_ */
67 
68 dcl  mlsys_data_$user_is_anonymous bit (1) aligned external;/* ON => the user is an anonymous user */
69 
70 dcl  mlsys_data_$person_id character (24) varying external; /* the user's Person_id */
71 dcl  mlsys_data_$project_id character (12) varying external;/* the user's Project_id */
72 dcl  mlsys_data_$user_id character (32) varying external;   /* the user's User_id (Person_id.Project_id) */
73 
74 /* END INCLUDE FILE ... mlsys_internal_data.incl.pl1 */