Commit | Line | Data |
5b8c1387 |
1 | & Macro to install the perl components into the right directories |
2 | & Written 00-10-24 by Paul Green (Paul_Green@stratus.com) |
3 | & |
4 | &begin_parameters |
5 | cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020 |
6 | &end_parameters priv |
7 | &echo command_lines |
8 | & |
9 | &if &cpu& = mc68020 |
10 | &then &set_string obj '' |
11 | &if &cpu& = i80860 |
12 | &then &set_string obj .860 |
13 | &if &cpu& = pa7100 |
14 | &then &set_string obj .7100 |
15 | &if &cpu& = pa8000 |
16 | &then &set_string obj .8000 |
17 | & |
18 | &set_string MDS (master_disk)>system |
19 | & |
20 | &if ^ (exists -directory &MDS&>ported) |
21 | &then !create_dir &MDS&>ported |
22 | & |
23 | &if ^ (exists -directory &MDS&>ported>command_library) |
24 | &then !create_dir &MDS&>ported>command_library |
25 | & |
26 | &if ^ (exists -directory &MDS&>ported>perl) |
27 | &then !create_dir &MDS&>ported>perl |
28 | & |
29 | &if ^ (exists -directory &MDS&>ported>perl>lib) |
30 | &then !create_dir &MDS&>ported>perl>lib |
31 | & |
32 | &if ^ (exists -directory &MDS&>ported>perl>lib>5.7) |
33 | &then !create_dir &MDS&>ported>perl>lib>5.7 |
34 | & |
35 | &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.68k) |
36 | &then !create_dir &MDS&>ported>perl>lib>5.7.68k |
37 | & |
38 | &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.860) |
39 | &then !create_dir &MDS&>ported>perl>lib>5.7.860 |
40 | & |
41 | &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.7100) |
42 | &then !create_dir &MDS&>ported>perl>lib>5.7.7100 |
43 | & |
44 | &if ^ (exists -directory &MDS&>ported>perl>lib>5.7.8000) |
45 | &then !create_dir &MDS&>ported>perl>lib>5.7.8000 |
46 | & |
47 | &if ^ (exists -directory &MDS&>ported>perl>lib>site) |
48 | &then !create_dir &MDS&>ported>perl>lib>site |
49 | & |
50 | &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7) |
51 | &then !create_dir &MDS&>ported>perl>lib>site>5.7 |
52 | & |
53 | &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.68k) |
54 | &then !create_dir &MDS&>ported>perl>lib>site>5.7.68k |
55 | & |
56 | &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.860) |
57 | &then !create_dir &MDS&>ported>perl>lib>site>5.7.860 |
58 | & |
59 | &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.7100) |
60 | &then !create_dir &MDS&>ported>perl>lib>site>5.7.7100 |
61 | & |
62 | &if ^ (exists -directory &MDS&>ported>perl>lib>site>5.7.8000) |
63 | &then !create_dir &MDS&>ported>perl>lib>site>5.7.8000 |
64 | & |
65 | !copy_dir <lib &MDS&>ported>perl>lib>5.7 -delete |
66 | & |
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 |