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