Commit | Line | Data |
5b8c1387 |
1 | & Macro to install the perl components into the right directories |
050dfae0 |
2 | & Written 00-10-24 by Paul Green (Paul.Green@stratus.com) |
3 | & Updated 02-02-15 by Paul Green |
5b8c1387 |
4 | & |
5 | &begin_parameters |
6 | cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020 |
050dfae0 |
7 | name option(-name)name,allow(perl,perl5),=perl5 |
5b8c1387 |
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 | & |
050dfae0 |
28 | &if ^ (exists -directory &MDS&>ported>lib) |
29 | &then !create_dir &MDS&>ported>lib |
5b8c1387 |
30 | & |
050dfae0 |
31 | &if ^ (exists -directory &MDS&>ported>lib>perl5) |
32 | &then !create_dir &MDS&>ported>lib>perl5 |
5b8c1387 |
33 | & |
050dfae0 |
34 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0) |
35 | &then !create_dir &MDS&>ported>lib>perl5>5.8.0 |
5b8c1387 |
36 | & |
050dfae0 |
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 |
5b8c1387 |
40 | & |
050dfae0 |
41 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>68k) |
42 | &then !create_dir &MDS&>ported>lib>perl5>5.8.0>68k |
5b8c1387 |
43 | & |
050dfae0 |
44 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>860) |
45 | &then !create_dir &MDS&>ported>lib>perl5>5.8.0>860 |
5b8c1387 |
46 | & |
050dfae0 |
47 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>7100) |
48 | &then !create_dir &MDS&>ported>lib>perl5>5.8.0>7100 |
5b8c1387 |
49 | & |
050dfae0 |
50 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>8000) |
51 | &then !create_dir &MDS&>ported>lib>perl5>5.8.0>8000 |
5b8c1387 |
52 | & |
050dfae0 |
53 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl) |
54 | &then !create_dir &MDS&>ported>lib>perl5>site_perl |
5b8c1387 |
55 | & |
050dfae0 |
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 |
5b8c1387 |
58 | & |
050dfae0 |
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 |
5b8c1387 |
61 | & |
050dfae0 |
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 |
5b8c1387 |
64 | & |
050dfae0 |
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 |
5b8c1387 |
67 | & |
050dfae0 |
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 |
5b8c1387 |
70 | & |
050dfae0 |
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 |