1 & ***********************************************************
2 & * *
3 & * Copyright, C Honeywell Information Systems Inc., 1982 *
4 & * *
5 & ***********************************************************
6
7 &
8 &
9 & HISTORY COMMENTS:
10 & 1) change86-12-18Fawcett, approve86-12-18PBF7517,
11 & audit86-12-18GDixon, install87-01-05MR12.0-1257:
12 & Delete cross reference for BOS.
13 & END HISTORY COMMENTS
14 &
15 &
16 &goto &ec_name
17
18 & RUNNING A LIBRARY CROSSREFERENCE
19 & The following exec-com creates an input list for the Multics crossreferencer
20 & to use in running a crossreference of the system libraries. The
21 & crossreference output identifies all those segments which call a given
22 & segment. It is useful for checking and integrating system changes, and for
23 & identifying obsolete segments.
24
25 &label crossref
26 &if not exists argument &1 &then &goto XREF_USAGE
27
28 & arguments: one of the following
29 & hard | sss | tools | unbundled | online | total
30
31 & If the "total" arguement is used, total libraries will be
32 & crossreferenced together, and a common list produced.
33 & This is the standard way for library checking.
34
35 &attach
36 &command_line off
37
38 & produces driver file.
39 exec_com &ec_dir>create_crossref_crl &1
40
41 & if error trying to create driving file, stop here
42 &if not exists segment &1.crl &then &quit
43
44 cross_reference -include_files -input_file &1.crl
45
46 delete &1.crl -bf
47 &quit
48
49 & This enter will build a driver file for the cross_reference command.
50 &label create_crossref_crl
51 &command_line off
52 delete &1.crl -bf
53 &goto crl_&1
54
55 &label crl_tools
56 &label crl_unbundled
57 exec_com &ec_dir>create_crlsub &1 translate &1 ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz &1
58 &goto crl_dl_garbage
59
60 &label crl_sss
61 &label crl_standard
62 exec_com &ec_dir>create_crlsub standard STANDARD &1
63 &goto crl_dl_garbage
64
65
66 &label crl_hard
67 exec_com &ec_dir>create_crlsub hard HARDCORE hard "" -ex bound_*
68 exec_com &ec_dir>create_crlsub hard HARDCORE hard >library_dir_dir>hard>object -ex bound_*
69 &goto crl_dl_garbage
70
71
72 &label crl_honeywell
73 &label crl_total
74 &label online
75 &label site_online
76
77 exec_com &ec_dir>create_crlsub hard HARDCORE &1 >library_dir_dir>hard>object -ex bound_*
78 exec_com &ec_dir>create_crlsub standard STANDARD &1
79 exec_com &ec_dir>create_crlsub unbundled UNBUNDLED &1
80 exec_com &ec_dir>create_crlsub tools TOOLS &1
81 &goto crl_dl_garbage
82
83 &label crl_&1
84 &print &ec_name: Can't crossref &1; choices are:
85 &print sss, tools, unbundled, online or total.
86 &quit
87
88 &label crl_dl_garbage
89 &attach
90 &input_line off
91 qx
92 r &1.crl
93 gd/\c.1$/
94 gd/\c.2$/
95 gd/\c.3$/
96 gd/\c.4$/
97 gd/\c.absin$/
98 gd/\c.teco$/
99 gd/\c.control$/
100 gd/\c.compin$/
101 gd/\c.ec$/
102 gd/\c.mrpg$/
103 gd/\c.ascii$/
104 gd/RTMF$/
105 gd/\c.cmf$/
106 gd/\c.ttf$/
107 gd/\c.pnotice$/
108 gd/\c.dcl$/
109 gd/ring_zero_meter_limits_ASCII_/
110 gd/lss_command_list_/
111 gd/\c.lisp/
112 gd/\c.dict/
113 gd/psp_info_/
114 gd/gm_path_list/
115 gd/^!..............$/
116 gd/GTSS.MCFC/
117 w
118 q
119 &detach
120 sa *.crl r *
121 &quit
122
123
124 &label create_crlsub
125 &command_line off
126 fo &3.crl
127 &if equal &1 hard &then &print -library -all:
128 &else &print -library:
129 &if equal &4x x
130 &then &print >library_dir_dir>&1>object &2;
131 &else &print &4 &2;
132 &if equal &4x x
133 &then list -p >library_dir_dir>&1>object -bf -sort -nhe -pri &5 &6
134 &else list -p &4 -bf -sort -nhe -pri &5 &6
135 &print
136 ro
137 set_acl &3.crl r *
138 &quit
139
140 &label XREF_USAGE
141 &
142 & &print Expected argument missing.
143 &print Argument must be library name.
144 &
145 &quit