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
6 cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020
7 name option(-name)name,allow(perl,perl5),=perl5
12 &then &set_string obj ''
14 &then &set_string obj .860
16 &then &set_string obj .7100
18 &then &set_string obj .8000
20 &set_string MDS (master_disk)>system
22 &if ^ (exists -directory &MDS&>ported)
23 &then !create_dir &MDS&>ported
25 &if ^ (exists -directory &MDS&>ported>command_library)
26 &then !create_dir &MDS&>ported>command_library
28 &if ^ (exists -directory &MDS&>ported>lib)
29 &then !create_dir &MDS&>ported>lib
31 &if ^ (exists -directory &MDS&>ported>lib>perl5)
32 &then !create_dir &MDS&>ported>lib>perl5
34 &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0)
35 &then !create_dir &MDS&>ported>lib>perl5>5.8.0
37 !copy_file <lib>*.pm &MDS&>ported>lib>perl5>5.8.0>*.pm -delete
38 !copy_file <lib>*.pl &MDS&>ported>lib>perl5>5.8.0>*.pl -delete
39 !copy_file <lib>*.pod &MDS&>ported>lib>perl5>5.8.0>*.pod -delete
41 &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>68k)
42 &then !create_dir &MDS&>ported>lib>perl5>5.8.0>68k
44 &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>860)
45 &then !create_dir &MDS&>ported>lib>perl5>5.8.0>860
47 &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>7100)
48 &then !create_dir &MDS&>ported>lib>perl5>5.8.0>7100
50 &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>8000)
51 &then !create_dir &MDS&>ported>lib>perl5>5.8.0>8000
53 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl)
54 &then !create_dir &MDS&>ported>lib>perl5>site_perl
56 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0)
57 &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0
59 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>68k)
60 &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>68k
62 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>860)
63 &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>860
65 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>7100)
66 &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>7100
68 &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>8000)
69 &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>8000
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