This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Two more delays added to test suite to help *-solaris-thread.
[perl5.git] / win32 / makedef.pl
1 #!../miniperl
2
3 # Written: 10 April 1996 Gary Ng (71564.1743@compuserve.com)
4
5 # Create the export list for perl.
6 # Needed by WIN32 for creating perl.dll
7 # based on perl_exp.SH in the main perl distribution directory
8
9 # This simple program relys on 'global.sym' being up to date
10 # with all of the global symbols that a dynamicly link library
11 # might want to access.
12
13 # There is some symbol defined in global.sym and interp.sym
14 # that does not present in the WIN32 port but there is no easy
15 # way to find them so I just put a exception list here
16
17 while (@ARGV && $ARGV[0] =~ /^-/)
18  {
19   my $flag = shift;
20   $define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
21  } 
22
23 warn join(' ',keys %define)."\n";
24
25 my $CCTYPE = shift || "MSVC";
26
27 $skip_sym=<<'!END!OF!SKIP!';
28 Perl_block_type
29 Perl_additem
30 Perl_cast_ulong
31 Perl_check_uni
32 Perl_checkcomma
33 Perl_chsize
34 Perl_ck_aelem
35 Perl_cryptseen
36 Perl_cx_dump
37 Perl_deb
38 Perl_deb_growlevel
39 Perl_debop
40 Perl_debprofdump
41 Perl_debstack
42 Perl_debstackptrs
43 Perl_do_ipcctl
44 Perl_do_ipcget
45 Perl_do_msgrcv
46 Perl_do_msgsnd
47 Perl_do_semop
48 Perl_do_shmio
49 Perl_doeval
50 Perl_dofindlabel
51 Perl_dopoptoeval
52 Perl_dump_eval
53 Perl_dump_fds
54 Perl_dump_form
55 Perl_dump_gv
56 Perl_dump_mstats
57 Perl_dump_op
58 Perl_dump_packsubs
59 Perl_dump_pm
60 Perl_dump_sub
61 Perl_expectterm
62 Perl_fetch_gv
63 Perl_fetch_io
64 Perl_force_ident
65 Perl_force_next
66 Perl_force_word
67 Perl_hv_stashpv
68 Perl_intuit_more
69 Perl_init_thread_intern
70 Perl_know_next
71 Perl_modkids
72 Perl_mstats
73 Perl_my_bzero
74 Perl_my_htonl
75 Perl_my_ntohl
76 Perl_my_swap
77 Perl_my_chsize
78 Perl_newXSUB
79 Perl_no_fh_allowed
80 Perl_no_op
81 Perl_nointrp
82 Perl_nomem
83 Perl_pp_cswitch
84 Perl_pp_entersubr
85 Perl_pp_evalonce
86 Perl_pp_interp
87 Perl_pp_map
88 Perl_pp_nswitch
89 Perl_q
90 Perl_rcsid
91 Perl_reall_srchlen
92 Perl_regdump
93 Perl_regfold
94 Perl_regmyendp
95 Perl_regmyp_size
96 Perl_regmystartp
97 Perl_regnarrate
98 Perl_regprop
99 Perl_same_dirent
100 Perl_saw_return
101 Perl_scan_const
102 Perl_scan_formline
103 Perl_scan_heredoc
104 Perl_scan_ident
105 Perl_scan_inputsymbol
106 Perl_scan_pat
107 Perl_scan_prefix
108 Perl_scan_str
109 Perl_scan_subst
110 Perl_scan_trans
111 Perl_scan_word
112 Perl_setenv_getix
113 Perl_skipspace
114 Perl_sublex_done
115 Perl_sublex_start
116 Perl_sv_ref
117 Perl_sv_setptrobj
118 Perl_timesbuf
119 Perl_too_few_arguments
120 Perl_too_many_arguments
121 Perl_unlnk
122 Perl_wait4pid
123 Perl_watch
124 Perl_yyname
125 Perl_yyrule
126 allgvs
127 curblock
128 curcsv
129 lastretstr
130 mystack_mark
131 perl_init_ext
132 perl_requirepv
133 stack
134 statusvalue_vms
135 Perl_safexcalloc
136 Perl_safexmalloc
137 Perl_safexfree
138 Perl_safexrealloc
139 Perl_my_memcmp
140 Perl_my_memset
141 Perl_cshlen
142 Perl_cshname
143 Perl_opsave
144 !END!OF!SKIP!
145
146 unless ($define{'USE_THREADS'})
147  {
148   $skip_sym .= <<'!END!OF!SKIP!';
149 Perl_condpair_magic
150 Perl_thr_key
151 Perl_sv_mutex
152 Perl_malloc_mutex
153 Perl_eval_mutex
154 Perl_eval_cond
155 Perl_eval_owner
156 Perl_threads_mutex
157 Perl_nthreads_cond
158 Perl_unlock_condpair
159 Perl_vtbl_mutex
160 Perl_magic_mutexfree
161 Perl_sv_iv
162 Perl_sv_nv
163 Perl_sv_true
164 Perl_sv_uv
165 Perl_sv_pvn
166 Perl_newRV_noinc
167 !END!OF!SKIP!
168  }
169
170 if ($define{'USE_THISPTR'} || $define{'USE_THREADS'})
171  {
172   open(THREAD,"<../thread.sym") || die "Cannot open thread.sym:$!";
173   while (<THREAD>)
174    {
175     next if (!/^[A-Za-z]/);
176     next if (/_amg[ \t]*$/);
177     $skip_sym .= "Perl_".$_;
178    } 
179   close(THREAD); 
180   $skip_sym .= "Perl_op\n";
181  } 
182
183 unless ($define{'USE_THREADS'})
184  {
185   $skip_sym .= "Perl_thread_create\n";
186  }
187
188 # All symbols have a Perl_ prefix because that's what embed.h
189 # sticks in front of them.
190
191
192 print "LIBRARY Perl\n";
193 print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
194 print "CODE LOADONCALL\n";
195 print "DATA LOADONCALL NONSHARED MULTIPLE\n";
196 print "EXPORTS\n";
197
198 open (GLOBAL, "<../global.sym") || die "failed to open global.sym" . $!;
199 while (<GLOBAL>) {
200         my $symbol;
201         next if (!/^[A-Za-z]/);
202         next if (/_amg[ \t]*$/);
203         $symbol = "Perl_$_";
204         next if ($skip_sym =~ m/$symbol/m);
205         emit_symbol($symbol);
206 }
207 close(GLOBAL);
208
209 # also add symbols from interp.sym
210 # They are only needed if -DMULTIPLICITY is not set but it
211 # doesn't hurt to include them anyway.
212 # these don't have Perl prefix
213
214 open (INTERP, "<../interp.sym") || die "failed to open interp.sym" . $!;
215 while (<INTERP>) {
216         my $symbol;
217         next if (!/^[A-Za-z]/);
218         next if (/_amg[ \t]*$/);
219         $symbol = $_;
220         next if ($skip_sym =~ m/$symbol/m);
221         #print "\t$symbol";
222         emit_symbol("Perl_" . $symbol);
223 }
224
225 #close(INTERP);
226
227 while (<DATA>) {
228         my $symbol;
229         next if (!/^[A-Za-z]/);
230         next if (/^#/);
231         $symbol = $_;
232         next if ($skip_sym =~ m/^$symbol/m);
233         $symbol = "Perl_".$symbol if ($define{'USE_THISPTR'} 
234                                       && $symbol =~ /^perl/);
235         emit_symbol($symbol);
236 }
237
238 sub emit_symbol {
239         my $symbol = shift;
240         chomp $symbol;
241         if ($CCTYPE eq "BORLAND") {
242                 # workaround Borland quirk by exporting both the straight
243                 # name and a name with leading underscore.  Note the
244                 # alias *must* come after the symbol itself, if both
245                 # are to be exported. (Linker bug?)
246                 print "\t_$symbol\n";
247                 print "\t$symbol = _$symbol\n";
248         }
249         else {
250                 # for binary coexistence, export both the symbol and
251                 # alias with leading underscore
252                 print "\t$symbol\n";
253                 print "\t_$symbol = $symbol\n";
254         }
255 }
256
257 1;
258 __DATA__
259 # extra globals not included above.
260 perl_init_i18nl10n
261 perl_init_ext
262 perl_alloc
263 perl_construct
264 perl_destruct
265 perl_free
266 perl_parse
267 perl_run
268 perl_get_sv
269 perl_get_av
270 perl_get_hv
271 perl_get_cv
272 perl_call_argv
273 perl_call_pv
274 perl_call_method
275 perl_call_sv
276 perl_require_pv
277 perl_eval_pv
278 perl_eval_sv
279 boot_DynaLoader
280 Perl_thread_create
281 win32_errno
282 win32_environ
283 win32_stdin
284 win32_stdout
285 win32_stderr
286 win32_ferror
287 win32_feof
288 win32_strerror
289 win32_fprintf
290 win32_printf
291 win32_vfprintf
292 win32_vprintf
293 win32_fread
294 win32_fwrite
295 win32_fopen
296 win32_fdopen
297 win32_freopen
298 win32_fclose
299 win32_fputs
300 win32_fputc
301 win32_ungetc
302 win32_getc
303 win32_fileno
304 win32_clearerr
305 win32_fflush
306 win32_ftell
307 win32_fseek
308 win32_fgetpos
309 win32_fsetpos
310 win32_rewind
311 win32_tmpfile
312 win32_abort
313 win32_fstat
314 win32_stat
315 win32_pipe
316 win32_popen
317 win32_pclose
318 win32_setmode
319 win32_lseek
320 win32_tell
321 win32_dup
322 win32_dup2
323 win32_open
324 win32_close
325 win32_eof
326 win32_read
327 win32_write
328 win32_spawnvp
329 win32_mkdir
330 win32_rmdir
331 win32_chdir
332 win32_flock
333 win32_execvp
334 win32_htons
335 win32_ntohs
336 win32_htonl
337 win32_ntohl
338 win32_inet_addr
339 win32_inet_ntoa
340 win32_socket
341 win32_bind
342 win32_listen
343 win32_accept
344 win32_connect
345 win32_send
346 win32_sendto
347 win32_recv
348 win32_recvfrom
349 win32_shutdown
350 win32_ioctlsocket
351 win32_setsockopt
352 win32_getsockopt
353 win32_getpeername
354 win32_getsockname
355 win32_gethostname
356 win32_gethostbyname
357 win32_gethostbyaddr
358 win32_getprotobyname
359 win32_getprotobynumber
360 win32_getservbyname
361 win32_getservbyport
362 win32_select
363 win32_endhostent
364 win32_endnetent
365 win32_endprotoent
366 win32_endservent
367 win32_getnetent
368 win32_getnetbyname
369 win32_getnetbyaddr
370 win32_getprotoent
371 win32_getservent
372 win32_sethostent
373 win32_setnetent
374 win32_setprotoent
375 win32_setservent
376 win32_getenv
377 win32_perror
378 win32_setbuf
379 win32_setvbuf
380 win32_flushall
381 win32_fcloseall
382 win32_fgets
383 win32_gets
384 win32_fgetc
385 win32_putc
386 win32_puts
387 win32_getchar
388 win32_putchar
389 win32_malloc
390 win32_calloc
391 win32_realloc
392 win32_free
393 win32stdio
394 Perl_win32_init
395 RunPerl
396 SetIOSubSystem
397 GetIOSubSystem