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 | &if &cpu& = mc68020 |
---|
36 | &then &set_string obj2 .68k |
---|
37 | &else &set_string obj2 &obj& |
---|
38 | & |
---|
39 | &set_string cpu -processor &cpu& |
---|
40 | & |
---|
41 | & If requested, compile the source code. |
---|
42 | & |
---|
43 | &if &recompile& = 0 |
---|
44 | &then &goto CHECK_REBIND |
---|
45 | & |
---|
46 | !set_library_paths include << < &POSIX&>incl &+ |
---|
47 | (master_disk)>system>include_library |
---|
48 | & |
---|
49 | &if (exists *.obj -link) |
---|
50 | &then !unlink *.obj -no_ask -brief |
---|
51 | & |
---|
52 | & Suppress several harmless compiler warning and advice messages. |
---|
53 | & Use -list -show_include all -show_macros both_ways when debugging. |
---|
54 | & |
---|
55 | &set_string cflags '-u -O4 -D_POSIX_C_SOURCE=199309L -DPERL_CORE' |
---|
56 | & |
---|
57 | !cc <<av.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
58 | &if (command_status) ^= 0 &then &return |
---|
59 | !cc <<deb.c -suppress_diag 2006 &cpu& &cflags& |
---|
60 | &if (command_status) ^= 0 &then &return |
---|
61 | !cc <<doio.c -suppress_diag 2006 &cpu& &cflags& |
---|
62 | &if (command_status) ^= 0 &then &return |
---|
63 | !cc <<doop.c -suppress_diag 2006 &cpu& &cflags& |
---|
64 | &if (command_status) ^= 0 &then &return |
---|
65 | !cc <<dump.c -suppress_diag 2006 &cpu& &cflags& |
---|
66 | &if (command_status) ^= 0 &then &return |
---|
67 | !cc <<ebcdic.c -suppress_diag 2006 &cpu& &cflags& |
---|
68 | &if (command_status) ^= 0 &then &return |
---|
69 | !cc <<globals.c -suppress_diag 2006 &cpu& &cflags& |
---|
70 | &if (command_status) ^= 0 &then &return |
---|
71 | !cc <<gv.c -suppress_diag 2006 2065 &cpu& &cflags& |
---|
72 | &if (command_status) ^= 0 &then &return |
---|
73 | !cc <<hv.c -suppress_diag 2006 &cpu& &cflags& |
---|
74 | &if (command_status) ^= 0 &then &return |
---|
75 | & !cc <<malloc.c -suppress_diag 2006 &cpu& &cflags& |
---|
76 | & &if (command_status) ^= 0 &then &return |
---|
77 | !cc <<mg.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
78 | &if (command_status) ^= 0 &then &return |
---|
79 | !cc <<miniperlmain.c -suppress_diag 2006 &cpu& &cflags& |
---|
80 | &if (command_status) ^= 0 &then &return |
---|
81 | !cc <<op.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
82 | &if (command_status) ^= 0 &then &return |
---|
83 | !cc <<perl.c -suppress_diag 2006 2053 2065 &cpu& &cflags& &+ |
---|
84 | -DARCHLIB="/system/ported/perl/lib/5.005&obj2&" &+ |
---|
85 | -DARCHLIB_EXP="/system/ported/perl/lib/5.005&obj2&" &+ |
---|
86 | -DSITEARCH="/system/ported/perl/lib/site/5.005&obj2&" &+ |
---|
87 | -DSITEARCH_EXP="/system/ported/perl/lib/site/5.005&obj2&" |
---|
88 | &if (command_status) ^= 0 &then &return |
---|
89 | !cc <<perlapi.c &cpu& &cflags& |
---|
90 | &if (command_status) ^= 0 &then &return |
---|
91 | !cc <<perlio.c -suppress_diag 2006 &cpu& &cflags& |
---|
92 | &if (command_status) ^= 0 &then &return |
---|
93 | !cc <<perly.c -suppress_diag 2006 &cpu& &cflags& |
---|
94 | &if (command_status) ^= 0 &then &return |
---|
95 | & compiling pp.c for the PA-RISC hits compiler bug pcg-98; avoid it. |
---|
96 | & The bug is fixed in VOS 14.1.0 and all later releases. |
---|
97 | &if (index (string &cpu&) pa) > 0 & (module_info os_release) < 'VOS Release 14.1.0' |
---|
98 | &then !cc <<pp.c -suppress_diag 2006 2064 2065 &cpu& &cflags& -no_schedule |
---|
99 | &else !cc <<pp.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
100 | &if (command_status) ^= 0 &then &return |
---|
101 | !cc <<pp_ctl.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
102 | &if (command_status) ^= 0 &then &return |
---|
103 | !cc <<pp_hot.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
104 | &if (command_status) ^= 0 &then &return |
---|
105 | !cc <<pp_sys.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
106 | &if (command_status) ^= 0 &then &return |
---|
107 | !cc <<regcomp.c -suppress_diag 2006 2064 &cpu& &cflags& |
---|
108 | &if (command_status) ^= 0 &then &return |
---|
109 | !cc <<regexec.c -suppress_diag 2006 2064 &cpu& &cflags& |
---|
110 | &if (command_status) ^= 0 &then &return |
---|
111 | !cc <<run.c -suppress_diag 2006 2065 &cpu& &cflags& |
---|
112 | &if (command_status) ^= 0 &then &return |
---|
113 | !cc <<scope.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
114 | &if (command_status) ^= 0 &then &return |
---|
115 | !cc <<sv.c -suppress_diag 2006 2065 &cpu& &cflags& |
---|
116 | &if (command_status) ^= 0 &then &return |
---|
117 | !cc <<taint.c -suppress_diag 2006 &cpu& &cflags& |
---|
118 | &if (command_status) ^= 0 &then &return |
---|
119 | !cc <<toke.c -suppress_diag 2006 2064 2065 &cpu& &cflags& |
---|
120 | &if (command_status) ^= 0 &then &return |
---|
121 | !cc <<universal.c -suppress_diag 2006 &cpu& &cflags& |
---|
122 | &if (command_status) ^= 0 &then &return |
---|
123 | !cc <<utf8.c -suppress_diag 2065 &cpu& &cflags& |
---|
124 | &if (command_status) ^= 0 &then &return |
---|
125 | !cc <<util.c -suppress_diag 2006 2065 &cpu& &cflags& |
---|
126 | &if (command_status) ^= 0 &then &return |
---|
127 | !cc <<xsutils.c &cpu& &cflags& |
---|
128 | &if (command_status) ^= 0 &then &return |
---|
129 | !cc <vos_dummies.c &cpu& -O4 |
---|
130 | &if (command_status) ^= 0 &then &return |
---|
131 | & |
---|
132 | & If requested, bind the executable program module. |
---|
133 | & |
---|
134 | &label CHECK_REBIND |
---|
135 | &if &rebind& = 0 |
---|
136 | &then &return |
---|
137 | & |
---|
138 | &if (exists -directory (master_disk)>system>tcp_os>object_library&obj2&) |
---|
139 | &then &set_string tcp_objlib (master_disk)>system>tcp_os>object_library&obj2& |
---|
140 | &else &set_string tcp_objlib (master_disk)>system>tcp_os>object_library |
---|
141 | & |
---|
142 | &if (exists -directory (master_disk)>system>object_library&obj2&) |
---|
143 | &then &set_string objlib (master_disk)>system>object_library&obj2& |
---|
144 | &else &set_string objlib (master_disk)>system>object_library |
---|
145 | & |
---|
146 | &if (exists -directory (master_disk)>system>c_object_library&obj2&) |
---|
147 | &then &set_string c_objlib (master_disk)>system>c_object_library&obj2& |
---|
148 | &else &set_string c_objlib (master_disk)>system>c_object_library |
---|
149 | & |
---|
150 | !set_library_paths object . &+ |
---|
151 | &POSIX&>c>runtime>obj&obj& &+ |
---|
152 | &POSIX&>c>sysv_runtime>obj&obj& &+ |
---|
153 | &tcp_objlib& &objlib& &c_objlib& |
---|
154 | !bind -control <perl.bind &cpu& -map |
---|
155 | &if (command_status) ^= 0 &then &return |
---|
156 | !delete_file *.obj -no_ask -brief |
---|
157 | !unlink *.obj -no_ask -brief |
---|