1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Information Systems Inc., 1985 *
 4 " *                                                         *
 5 " ***********************************************************
 6 
 7 " The Message Segment Primitives
 8 
 9 " Created:  April 1985 by G. Palter
10 
11 
12           name      mseg_
13 
14 
15           macro     transfer
16           segdef    &1
17 &1:       getlp
18           tra       &2$&1
19           &end
20 
21           transfer  add_acl_entries_seg,mseg_fs_interface_
22 
23           transfer  add_message,mseg_message_
24 
25           transfer  chname_seg,mseg_fs_interface_
26 
27           transfer  close_seg,mseg_index_
28 
29           transfer  compact_seg,mseg_segment_
30 
31           transfer  copy_seg,mseg_segment_
32 
33           transfer  count_messages,mseg_message_
34 
35           transfer  create_seg,mseg_fs_interface_
36 
37           transfer  delete_acl_entries_seg,mseg_fs_interface_
38 
39           transfer  delete_message,mseg_message_
40 
41           transfer  delete_seg,mseg_fs_interface_
42 
43           transfer  get_salvaged_flag_seg,mseg_segment_
44 
45           transfer  get_wakeup_state_seg,mseg_segment_
46 
47           transfer  initiate_seg,mseg_index_
48 
49           transfer  list_acl_seg,mseg_fs_interface_
50 
51           transfer  list_acl_entries_seg,mseg_fs_interface_
52 
53           transfer  open_seg,mseg_index_
54 
55           transfer  read_message,mseg_message_
56 
57           transfer  replace_acl_seg,mseg_fs_interface_
58 
59           transfer  reset_salvaged_flag_seg,mseg_segment_
60 
61           transfer  reset_wakeup_state_seg,mseg_segment_
62 
63           transfer  set_max_length_seg,mseg_segment_
64 
65           transfer  set_safety_switch_seg,mseg_fs_interface_
66 
67           transfer  set_wakeup_state_seg,mseg_segment_
68 
69           transfer  update_message,mseg_message_
70 
71 
72 " A first reference trap to insure that mseg_data_ is properly initialized
73 
74           segdef    initialize_caller
75 
76 initialize_caller:
77           getlp
78           tra       mseg_utils_$initialize
79 
80           firstref  <*text>|initialize_caller
81 
82           end