Commit | Line | Data |
---|---|---|
5b8c1387 JH |
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 |