1 &version 2
 2 &-
 3 &- HISTORY COMMENTS:
 4 &-  1) change(87-07-27,GDixon), approve(87-07-27,MCR7679),
 5 &-     audit(87-07-27,Brunelle), install(87-08-04,MR12.1-1055):
 6 &-     Created.
 7 &-                                                      END HISTORY COMMENTS
 8 &-
 9 &set WDIR &[wd]
10 cwd &ec_dir
11 
12 &print Sort info segments in the directory.
13 l_set_ring_brackets ** 4 5 5
14 create_dir &!
15 move **.info &!>== -force
16 cwd &!
17 move ([sort_strings -asc [segments **]]) <== -force
18 cwd <
19 delete_dir &! -force
20 l_set_ring_brackets ** 1 5 5
21 
22 &print Relink the links in the directory.
23 unlink **.info -brief
24 do "link >doc>subsystem>ssu.&&1.info &&1.info;
25 &+  addname &&1.info -brief
26 &+   [after ([status -names >doc>subsystem>ssu.&&1.info]) ssu.]"
27 &+ (answer do execute_string help if list_help list_requests)
28 link >doc>info>pause.info
29 do "link >doc>subsystem>ssu.&&1.info &&1.info;
30 &+  addname &&1.info -brief
31 &+   [after ([status -names >doc>subsystem>ssu.&&1.info]) ssu.]"
32 &+ (quit ready ready_off ready_on substitute_arguments subsystem_name
33 &+  subsystem_version)
34 link >doc>info>user.info
35 cwd &(WDIR)
36 &quit