| 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.3) |
|---|
| 35 | &then !create_dir &MDS&>ported>lib>perl5>5.8.3 |
|---|
| 36 | & |
|---|
| 37 | !copy_file <lib>*.pm &MDS&>ported>lib>perl5>5.8.3>*.pm -delete |
|---|
| 38 | !copy_file <lib>*.pl &MDS&>ported>lib>perl5>5.8.3>*.pl -delete |
|---|
| 39 | !copy_file <lib>*.pod &MDS&>ported>lib>perl5>5.8.3>*.pod -delete |
|---|
| 40 | & |
|---|
| 41 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.3>68k) |
|---|
| 42 | &then !create_dir &MDS&>ported>lib>perl5>5.8.3>68k |
|---|
| 43 | & |
|---|
| 44 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.3>860) |
|---|
| 45 | &then !create_dir &MDS&>ported>lib>perl5>5.8.3>860 |
|---|
| 46 | & |
|---|
| 47 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.3>7100) |
|---|
| 48 | &then !create_dir &MDS&>ported>lib>perl5>5.8.3>7100 |
|---|
| 49 | & |
|---|
| 50 | &if ^ (exists -directory &MDS&>ported>lib>perl5>5.8.3>8000) |
|---|
| 51 | &then !create_dir &MDS&>ported>lib>perl5>5.8.3>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.3) |
|---|
| 57 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.3 |
|---|
| 58 | & |
|---|
| 59 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.3>68k) |
|---|
| 60 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.3>68k |
|---|
| 61 | & |
|---|
| 62 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.3>860) |
|---|
| 63 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.3>860 |
|---|
| 64 | & |
|---|
| 65 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.3>7100) |
|---|
| 66 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.3>7100 |
|---|
| 67 | & |
|---|
| 68 | &if ^ (exists -directory &MDS&>ported>lib>perl5>site_perl>5.8.3>8000) |
|---|
| 69 | &then !create_dir &MDS&>ported>lib>perl5>site_perl>5.8.3>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 |
|---|
