Commit | Line | Data |
---|---|---|
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 < |