1& Macro to install the perl components into the right directories
2& Written 00-10-24 by Paul Green (Paul.Green@stratus.com)
3& Updated 02-02-15 by Paul Green
4&
5&begin_parameters
6     cpu       option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020
7     name      option(-name)name,allow(perl,perl5),=perl5
8&end_parameters priv
9&echo command_lines
10&
11&if &cpu& = mc68020
12&then &set_string obj ''
13&if &cpu& = i80860
14&then &set_string obj .860
15&if &cpu& = pa7100
16&then &set_string obj .7100
17&if &cpu& = pa8000
18&then &set_string obj .8000
19&
20&set_string MDS (master_disk)>system
21&
22&if ^ (exists -directory &MDS&>ported)
23&then !create_dir &MDS&>ported
24&
25&if ^ (exists -directory &MDS&>ported>command_library)
26&then !create_dir &MDS&>ported>command_library
27&
28&if ^ (exists -directory &MDS&>ported>lib)
29&then !create_dir &MDS&>ported>lib
30&
31&if ^ (exists -directory &MDS&>ported>lib>perl5)
32&then !create_dir &MDS&>ported>lib>perl5
33&
34&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8)
35&then !create_dir &MDS&>ported>lib>perl5>5.8.8
36&
37!copy_file <lib>*.pm &MDS&>ported>lib>perl5>5.8.8>*.pm -delete
38!copy_file <lib>*.pl &MDS&>ported>lib>perl5>5.8.8>*.pl -delete
39!copy_file <lib>*.pod &MDS&>ported>lib>perl5>5.8.8>*.pod -delete
40&
41&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>68k)
42&then !create_dir &MDS&>ported>lib>perl5>5.8.8>68k
43&
44&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>860)
45&then !create_dir &MDS&>ported>lib>perl5>5.8.8>860
46&
47&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>7100)
48&then !create_dir &MDS&>ported>lib>perl5>5.8.8>7100
49&
50&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>8000)
51&then !create_dir &MDS&>ported>lib>perl5>5.8.8>8000
52&
53&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl)
54&then !create_dir &MDS&>ported>lib>perl5>site_perl
55&
56&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8)
57&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8
58&
59&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>68k)
60&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>68k
61&
62&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>860)
63&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>860
64&
65&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>7100)
66&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>7100
67&
68&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>8000)
69&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>8000
70&
71!copy_file obj&obj&>perl.pm &MDS&>ported>command_library>&name&.pm.new -delete
72!rename &MDS&>ported>command_library>&name&.pm *.(date).(time) -delete
73!rename &MDS&>ported>command_library>&name&.pm.new &name&.pm -delete
74