Commit | Line | Data |
1761cee5 |
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 | & |
7 | &begin_parameters |
8 | cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020 |
9 | recompile switch(-recompile),=1 |
10 | rebind switch(-rebind),=1 |
11 | module option(-module)module_name,='(current_module)' |
12 | &end_parameters |
495c5fdc |
13 | &echo command_lines |
1761cee5 |
14 | & |
15 | &if &recompile& |
16 | &then &set_string recompile -recompile |
17 | &else &set_string recompile -no_recompile |
18 | & |
19 | &if &rebind& |
20 | &then &set_string rebind -rebind |
21 | &else &set_string rebind -no_rebind |
22 | & |
23 | &if &cpu& = mc68020 |
24 | &then &set_string obj '' |
25 | &if &cpu& = i80860 |
26 | &then &set_string obj .860 |
27 | &if &cpu& = pa7100 |
28 | &then &set_string obj .7100 |
29 | &if &cpu& = pa8000 |
30 | &then &set_string obj .8000 |
31 | & |
32 | &if ^ (exists obj&obj& -directory) |
33 | &then !create_dir obj&obj& |
34 | & |
35 | &if ^ (exists obj&obj&>build.out) |
36 | &then !create_file obj&obj&>build.out ; set_implicit_locking obj&obj&>build.out |
37 | & |
38 | !change_current_dir obj&obj& |
39 | !start_process (string <build -processor &cpu& &recompile& &rebind&) -module &module& |
495c5fdc |
40 | !change_current_dir < |