1 & Macro to install the perl components into the right directories
2 & Written 00-10-24 by Paul Green (Paul_Green@stratus.com)
5 cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020
10 &then &set_string obj ''
12 &then &set_string obj .860
14 &then &set_string obj .7100
16 &then &set_string obj .8000
18 &set_string MDS (master_disk)>system
20 &if ^ (exists -directory &MDS&>ported)
21 &then !create_dir &MDS&>ported
23 &if ^ (exists -directory &MDS&>ported>command_library)
24 &then !create_dir &MDS&>ported>command_library
26 &if ^ (exists -directory &MDS&>ported>perl)
27 &then !create_dir &MDS&>ported>perl
29 &if ^ (exists -directory &MDS&>ported>perl>lib)
30 &then !create_dir &MDS&>ported>perl>lib
32 &if ^ (exists -directory &MDS&>ported>perl>lib>5.7)
33 &then !create_dir &MDS&>ported>perl>lib>5.7
35 &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.68k)
36 &then !create_dir &MDS&>ported>perl>lib>5.7.68k
38 &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.860)
39 &then !create_dir &MDS&>ported>perl>lib>5.7.860
41 &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.7100)
42 &then !create_dir &MDS&>ported>perl>lib>5.7.7100
44 &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.8000)
45 &then !create_dir &MDS&>ported>perl>lib>5.7.8000
47 &if ^ (exists -directory &MDS&>ported>perl>lib>site)
48 &then !create_dir &MDS&>ported>perl>lib>site
50 &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7)
51 &then !create_dir &MDS&>ported>perl>lib>site>5.7
53 &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.68k)
54 &then !create_dir &MDS&>ported>perl>lib>site>5.7.68k
56 &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.860)
57 &then !create_dir &MDS&>ported>perl>lib>site>5.7.860
59 &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.7100)
60 &then !create_dir &MDS&>ported>perl>lib>site>5.7.7100
62 &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.8000)
63 &then !create_dir &MDS&>ported>perl>lib>site>5.7.8000
65 !copy_dir <lib &MDS&>ported>perl>lib>5.7 -delete
67 !copy_file obj&obj&>perl.pm &MDS&>ported>command_library>perl.pm.new -delete
68 !rename &MDS&>ported>command_library>perl.pm *.(date).(time) -delete
69 !rename &MDS&>ported>command_library>perl.pm.new perl.pm -delete