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