X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vos%2Fcompile_perl.cm;h=c5c7c1e068a40a74d64c1535f30a6fdde320325f;hb=158b3652342ca691c9e3b061a1d78456ae1a9b4a;hp=a75d4e4740ade6f99ce92648309297c3a0ae50b7;hpb=495c5fdc8fec0d7d0f72a84d44bb3e7cfc448d43;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vos/compile_perl.cm b/vos/compile_perl.cm
index a75d4e4..c5c7c1e 100644
--- a/vos/compile_perl.cm
+++ b/vos/compile_perl.cm
@@ -1,13 +1,68 @@
+& This command macro creates the appropriate subdirectory
+& for the specified processor type and then runs the
+& build macro in that subdirectory to create the perl
+& executable program module file.
+& Written 99-02-03 by Paul Green (Paul_Green@stratus.com)
+& Modified 00-10-24 by Paul Green
+&
+&begin_parameters
+     cpu       option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=pa7100
+     recompile switch(-recompile),=1
+     rebind    switch(-rebind),=1
+     module    option(-module)module_name,='(current_module)'
+     tgt_mod   option(-target_module)module_name,='(current_module)'
+     version   option(-version)name,allow(alpha,ga),=ga
+     compiler  option(-compiler)name,allow(cc,gcc)=cc
+&end_parameters
 &echo command_lines
-& This macro assumes you have either licensed the cross-compilers or
-& have one module of each type of architecture.  Comment-out or edit
-& the lines that are different for your system.
-!change_current_dir obj
-!start_process '<build.cm -processor mc68020' -module m75
-!change_current_dir <obj.860
-!start_process '<build.cm -processor i80860' -module m10
-!change_current_dir <obj.7100
-!start_process '<build.cm -processor pa7100' -module m9
-!change_current_dir <obj.8000
-!start_process '<build.cm -processor pa8000' -module m9
+&
+&if &recompile&
+&then &set_string recompile -recompile
+&else &set_string recompile -no_recompile
+&
+&if &rebind&
+&then &set_string rebind -rebind
+&else &set_string rebind -no_rebind
+&
+&if &cpu& = mc68020
+&then &set_string obj ''
+&if &cpu& = i80860
+&then &set_string obj .860
+&if &cpu& = pa7100
+&then &set_string obj .7100
+&if &cpu& = pa8000
+&then &set_string obj .8000
+&
+&if &compiler& = gcc & &version& = alpha
+&then &do
+ &display_line GCC is not supported by the alpha version of POSIX support.
+ &return e$translation_failed
+&end
+&if &cpu& = mc68020 & &version& = ga
+&then &do
+ &display_line The mc68020 CPU is not supported by the GA version of POSIX support.
+ &return e$translation_failed
+&end
+&if &cpu& = i80860 & &version& = ga
+&then &do
+ &display_line The i80860 CPU is not supported by the GA version of POSIX support.
+ &return e$translation_failed
+&end
+&if &cpu& = pa8000 & &compiler& = gcc
+&then &do
+ &display_line The pa8000 CPU is not supported by the GNU GCC compiler.
+ &return e$translation_failed
+&end
+&if ^ (exists obj&obj& -directory)
+&then !create_dir obj&obj&
+&
+&if ^ (exists obj&obj&>build.out)
+&then !create_file obj&obj&>build.out ; set_implicit_locking obj&obj&>build.out
+&
+!configure_perl -version &version&
+&
+!change_current_dir obj&obj&
+!start_process (string <build -processor &cpu& &recompile& &rebind& &+
+     -target_module &tgt_mod& -version &version& -compiler &compiler&) &+
+     -module &module&
 !change_current_dir <