| 1 | & Macro to install the perl components into the right directories
|
|---|
| 2 | & Written 00-10-24 by Paul Green (Paul.Green@stratus.com)
|
|---|
| 3 | & Updated 02-02-15 by Paul Green
|
|---|
| 4 | &
|
|---|
| 5 | &begin_parameters
|
|---|
| 6 | cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020
|
|---|
| 7 | name option(-name)name,allow(perl,perl5),=perl5
|
|---|
| 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 | &
|
|---|
| 28 | &if ^ (exists -directory &MDS&>ported>lib)
|
|---|
| 29 | &then !create_dir &MDS&>ported>lib
|
|---|
| 30 | &
|
|---|
| 31 | &if ^ (exists -directory &MDS&>ported>lib>perl5)
|
|---|
| 32 | &then !create_dir &MDS&>ported>lib>perl5
|
|---|
| 33 | &
|
|---|
| 34 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8)
|
|---|
| 35 | &then !create_dir &MDS&>ported>lib>perl5>5.8.8
|
|---|
| 36 | &
|
|---|
| 37 | !copy_file <lib>*.pm &MDS&>ported>lib>perl5>5.8.8>*.pm -delete
|
|---|
| 38 | !copy_file <lib>*.pl &MDS&>ported>lib>perl5>5.8.8>*.pl -delete
|
|---|
| 39 | !copy_file <lib>*.pod &MDS&>ported>lib>perl5>5.8.8>*.pod -delete
|
|---|
| 40 | &
|
|---|
| 41 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>68k)
|
|---|
| 42 | &then !create_dir &MDS&>ported>lib>perl5>5.8.8>68k
|
|---|
| 43 | &
|
|---|
| 44 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>860)
|
|---|
| 45 | &then !create_dir &MDS&>ported>lib>perl5>5.8.8>860
|
|---|
| 46 | &
|
|---|
| 47 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>7100)
|
|---|
| 48 | &then !create_dir &MDS&>ported>lib>perl5>5.8.8>7100
|
|---|
| 49 | &
|
|---|
| 50 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.8>8000)
|
|---|
| 51 | &then !create_dir &MDS&>ported>lib>perl5>5.8.8>8000
|
|---|
| 52 | &
|
|---|
| 53 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl)
|
|---|
| 54 | &then !create_dir &MDS&>ported>lib>perl5>site_perl
|
|---|
| 55 | &
|
|---|
| 56 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8)
|
|---|
| 57 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8
|
|---|
| 58 | &
|
|---|
| 59 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>68k)
|
|---|
| 60 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>68k
|
|---|
| 61 | &
|
|---|
| 62 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>860)
|
|---|
| 63 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>860
|
|---|
| 64 | &
|
|---|
| 65 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>7100)
|
|---|
| 66 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>7100
|
|---|
| 67 | &
|
|---|
| 68 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.8>8000)
|
|---|
| 69 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.8>8000
|
|---|
| 70 | &
|
|---|
| 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
|
|---|
