blob: a54f68bd6fead0df1a06ad0fd559eb192819e220 (
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
70
71
72
73
|
& Macro to install the perl components into the right directories
& Written 00-10-24 by Paul Green (Paul.Green@stratus.com)
& Updated 02-02-15 by Paul Green
&
&begin_parameters
cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020
name option(-name)name,allow(perl,perl5),=perl5
&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>lib)
&then !create_dir &MDS&>ported>lib
&
&if ^ (exists -directory &MDS&>ported>lib>perl5)
&then !create_dir &MDS&>ported>lib>perl5
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0)
&then !create_dir &MDS&>ported>lib>perl5>5.8.0
&
!copy_file <lib>*.pm &MDS&>ported>lib>perl5>5.8.0>*.pm -delete
!copy_file <lib>*.pl &MDS&>ported>lib>perl5>5.8.0>*.pl -delete
!copy_file <lib>*.pod &MDS&>ported>lib>perl5>5.8.0>*.pod -delete
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>68k)
&then !create_dir &MDS&>ported>lib>perl5>5.8.0>68k
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>860)
&then !create_dir &MDS&>ported>lib>perl5>5.8.0>860
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>7100)
&then !create_dir &MDS&>ported>lib>perl5>5.8.0>7100
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.0>8000)
&then !create_dir &MDS&>ported>lib>perl5>5.8.0>8000
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl)
&then !create_dir &MDS&>ported>lib>perl5>site_perl
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0)
&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>68k)
&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>68k
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>860)
&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>860
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>7100)
&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>7100
&
&if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.0>8000)
&then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.0>8000
&
!copy_file obj&obj&>perl.pm &MDS&>ported>command_library>&name&.pm.new -delete
!rename &MDS&>ported>command_library>&name&.pm *.(date).(time) -delete
!rename &MDS&>ported>command_library>&name&.pm.new &name&.pm -delete
|
