vos/compile_perl.cm

   1 & This command macro creates the appropriate subdirectory
   2 & for the specified processor type and then runs the
   3 & build macro in that subdirectory to create the perl
   4 & executable program module file.
   5 & Written 99-02-03 by Paul Green (Paul_Green@stratus.com)
   6 & Modified 00-10-24 by Paul Green
   7 &
   8 &begin_parameters
   9      cpu       option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=pa7100
  10      recompile switch(-recompile),=1
  11      rebind    switch(-rebind),=1
  12      module    option(-module)module_name,='(current_module)'
  13      tgt_mod   option(-target_module)module_name,='(current_module)'
  14      version   option(-version)name,allow(alpha,ga),=ga
  15 &end_parameters
  16 &echo command_lines
  17 &
  18 &if &recompile&
  19 &then &set_string recompile -recompile
  20 &else &set_string recompile -no_recompile
  21 &
  22 &if &rebind&
  23 &then &set_string rebind -rebind
  24 &else &set_string rebind -no_rebind
  25 &
  26 &if &cpu& = mc68020
  27 &then &set_string obj ''
  28 &if &cpu& = i80860
  29 &then &set_string obj .860
  30 &if &cpu& = pa7100
  31 &then &set_string obj .7100
  32 &if &cpu& = pa8000
  33 &then &set_string obj .8000
  34 &
  35 &if ^ (exists obj&obj& -directory)
  36 &then !create_dir obj&obj&
  37 &
  38 &if ^ (exists obj&obj&>build.out)
  39 &then !create_file obj&obj&>build.out ; set_implicit_locking obj&obj&>build.out
  40 &
  41 !configure_perl -version &version&
  42 &
  43 !change_current_dir obj&obj&
  44 !start_process (string <build -processor &cpu& &recompile& &rebind& &+
  45      -target_module &tgt_mod& -version &version&) -module &module&
  46 !change_current_dir <