This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Interesting syntax idea
[perl5.git] / vos / compile_perl.cm
CommitLineData
24e8e380
GS
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)
5b8c1387 6& Modified 00-10-24 by Paul Green
24e8e380
GS
7&
8&begin_parameters
5b8c1387 9 cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=pa7100
24e8e380
GS
10 recompile switch(-recompile),=1
11 rebind switch(-rebind),=1
12 module option(-module)module_name,='(current_module)'
5b8c1387
JH
13 tgt_mod option(-target_module)module_name,='(current_module)'
14 version option(-version)name,allow(alpha,ga),=ga
24e8e380 15&end_parameters
495c5fdc 16&echo command_lines
24e8e380
GS
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&
5b8c1387
JH
41!configure_perl -version &version&
42&
24e8e380 43!change_current_dir obj&obj&
5b8c1387
JH
44!start_process (string <build -processor &cpu& &recompile& &rebind& &+
45 -target_module &tgt_mod& -version &version&) -module &module&
495c5fdc 46!change_current_dir <