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