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