1 &  ***********************************************************
  2 &  *                                                         *
  3 &  * Copyright, (C) Honeywell Information Systems Inc., 1982 *
  4 &  *                                                         *
  5 &  ***********************************************************
  6 
  7 &
  8 &
  9 &  HISTORY COMMENTS:
 10 &   1) change(86-12-18,Fawcett), approve(86-12-18,PBF7517),
 11 &      audit(86-12-18,GDixon), install(87-01-05,MR12.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