vos/install_perl.cm

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