Commit | Line | Data |
---|---|---|
495c5fdc PG |
1 | &begin_parameters |
2 | cpu option(-processor)name,allow(mc68020,i80860,pa7100,pa8000),=mc68020 | |
3 | recompile switch(-recompile),=1 | |
4 | rebind switch(-rebind),=1 | |
5 | &end_parameters | |
6 | &echo command_lines | |
7 | & | |
8 | & This is a VOS command macro to build Perl 5 for the Stratus VOS | |
9 | & operating system. You need to have the VOS POSIX.1 support | |
10 | & loaded on your system. Change the following statement, if | |
11 | & necessary, to assign the correct pathname of the directory that | |
12 | & contains VOS POSIX.1 support. | |
13 | & | |
14 | &set_string POSIX >vos_ftp_site>pub>vos>alpha>posix | |
15 | & | |
16 | & See if the site has VOS POSIX.1 support loaded. If not, quit now. | |
17 | & | |
18 | &if ^ (exists &POSIX& -directory) | |
19 | &then &do | |
20 | &display_line build: VOS POSIX.1 support not found. &POSIX& | |
21 | &return | |
22 | &end | |
23 | & | |
24 | & Set up the appropriate directory suffix for each architecture. | |
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 | &set_string cpu -processor &cpu& | |
36 | & | |
37 | & If requested, compile the source code. | |
38 | & | |
39 | &if &recompile& = 0 | |
40 | &then &goto CHECK_REBIND | |
41 | & | |
42 | !set_library_paths include << < &POSIX&>incl <tcp_os_incl &+ | |
43 | (master_disk)>system>include_library | |
44 | & | |
45 | & Suppress several harmless compiler warning and advice messages. | |
46 | & | |
47 | !cc <<av.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
48 | &if (command_status) ^= 0 &then &return | |
49 | !cc <<byterun.c -suppress_diag 2006 &cpu& -O4 | |
50 | &if (command_status) ^= 0 &then &return | |
51 | !cc <<deb.c -suppress_diag 2006 &cpu& -O4 | |
52 | &if (command_status) ^= 0 &then &return | |
53 | !cc <<doio.c -suppress_diag 2006 &cpu& -O4 | |
54 | &if (command_status) ^= 0 &then &return | |
55 | !cc <<doop.c -suppress_diag 2006 &cpu& -O4 | |
56 | &if (command_status) ^= 0 &then &return | |
57 | !cc <<dump.c -suppress_diag 2006 &cpu& -O4 | |
58 | &if (command_status) ^= 0 &then &return | |
59 | !cc <<ebcdic.c -suppress_diag 2006 &cpu& -O4 | |
60 | &if (command_status) ^= 0 &then &return | |
61 | !cc <<globals.c -suppress_diag 2006 &cpu& -O4 | |
62 | &if (command_status) ^= 0 &then &return | |
63 | !cc <<gv.c -suppress_diag 2006 2065 &cpu& -O4 | |
64 | &if (command_status) ^= 0 &then &return | |
65 | !cc <<hv.c -suppress_diag 2006 &cpu& -O4 | |
66 | &if (command_status) ^= 0 &then &return | |
67 | & !cc <<malloc.c -suppress_diag 2006 &cpu& -O4 | |
68 | & &if (command_status) ^= 0 &then &return | |
69 | !cc <<mg.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
70 | &if (command_status) ^= 0 &then &return | |
71 | !cc <<miniperlmain.c -suppress_diag 2006 &cpu& -O4 | |
72 | &if (command_status) ^= 0 &then &return | |
73 | !cc <<op.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
74 | &if (command_status) ^= 0 &then &return | |
75 | !cc <<perl.c -suppress_diag 2006 2065 &cpu& -O4 &+ | |
76 | -DARCHLIB=">system>ported>perl&obj&" &+ | |
77 | -DARCHLIB_EXP=">system>ported>perl&obj&" | |
78 | &if (command_status) ^= 0 &then &return | |
79 | !cc <<perlio.c -suppress_diag 2006 &cpu& -O4 | |
80 | &if (command_status) ^= 0 &then &return | |
81 | !cc <<perly.c -suppress_diag 2006 &cpu& -O4 | |
82 | &if (command_status) ^= 0 &then &return | |
83 | !cc <<pp.c -suppress_diag 2006 2064 &cpu& -O4 | |
84 | &if (command_status) ^= 0 &then &return | |
85 | !cc <<pp_ctl.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
86 | &if (command_status) ^= 0 &then &return | |
87 | !cc <<pp_hot.c -suppress_diag 2006 2064 &cpu& -O4 | |
88 | &if (command_status) ^= 0 &then &return | |
89 | !cc <<pp_sys.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
90 | &if (command_status) ^= 0 &then &return | |
91 | !cc <<regcomp.c -suppress_diag 2006 &cpu& -O4 | |
92 | &if (command_status) ^= 0 &then &return | |
93 | !cc <<regexec.c -suppress_diag 2006 &cpu& -O4 | |
94 | &if (command_status) ^= 0 &then &return | |
95 | !cc <<run.c -suppress_diag 2006 &cpu& -O4 | |
96 | &if (command_status) ^= 0 &then &return | |
97 | !cc <<scope.c -suppress_diag 2006 2064 2065 &cpu& -O4 | |
98 | &if (command_status) ^= 0 &then &return | |
99 | !cc <<sv.c -suppress_diag 2006 2065 &cpu& -O4 | |
100 | &if (command_status) ^= 0 &then &return | |
101 | !cc <<taint.c -suppress_diag 2006 &cpu& -O4 | |
102 | &if (command_status) ^= 0 &then &return | |
103 | !cc <<toke.c -suppress_diag 2006 2065 &cpu& -O4 | |
104 | &if (command_status) ^= 0 &then &return | |
105 | !cc <<universal.c -suppress_diag 2006 &cpu& -O4 | |
106 | &if (command_status) ^= 0 &then &return | |
107 | !cc <<util.c -suppress_diag 2006 2065 &cpu& -O4 | |
108 | &if (command_status) ^= 0 &then &return | |
109 | !cc <vos_dummies.c &cpu& -O4 | |
110 | &if (command_status) ^= 0 &then &return | |
111 | & | |
112 | & If requested, bind the executable program module. | |
113 | & | |
114 | &label CHECK_REBIND | |
115 | &if &rebind& = 0 | |
116 | &then &return | |
117 | & | |
118 | &if (exists -directory (master_disk)>system>tcp_os>object_library&obj&) | |
119 | &then &set_string tcp_objlib (master_disk)>system>tcp_os>object_library&obj& | |
120 | &else &set_string tcp_objlib (master_disk)>system>tcp_os>object_library | |
121 | & | |
122 | &if (exists -directory (master_disk)>system>object_library&obj&) | |
123 | &then &set_string objlib (master_disk)>system>object_library&obj& | |
124 | &else &set_string objlib (master_disk)>system>object_library | |
125 | & | |
126 | &if (exists -directory (master_disk)>system>c_object_library&obj&) | |
127 | &then &set_string c_objlib (master_disk)>system>c_object_library&obj& | |
128 | &else &set_string c_objlib (master_disk)>system>c_object_library | |
129 | & | |
130 | !set_library_paths object . &+ | |
131 | &POSIX&>c>runtime>obj&obj& &+ | |
132 | &POSIX&>c>sysv_runtime>obj&obj& &+ | |
133 | &tcp_objlib& &objlib& &c_objlib& | |
134 | !bind -control <perl.bind &cpu& -map | |
135 | &if (command_status) ^= 0 &then &return | |
136 | !delete_file *.obj -no_ask -brief | |
137 | !unlink *.obj -no_ask -brief |