mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-11-10 03:16:17 +01:00
4f89335660
2004-09-22 Tor Lillqvist <tml@iki.fi> * Makefile.am (install-libtool-import-lib): [Win32] Add code to remove the bug-compatibility entries (see #134813, and related comments below) from the import library. The PRIVATE keyword in the .def file is supposed to mean that, but it isn't implemented yet by GNU ld. * makegobjectalias.pl: In case the symbol is followed by some stuff ("PRIVATE") that's intended for the .def file, use just the actual symbol. * gobject.symbols: For binary bug compatibility on Win32, add the g_slist_remove_all and g_unichar_validate symbols inside #ifdef INCLUDE_INTERNAL_SYMBOLS. (See #134813 and log entries from March below.)
103 lines
1.4 KiB
Perl
Executable File
103 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
print <<EOF;
|
|
/* Generated by makegobjectalias.pl */
|
|
|
|
#ifndef DISABLE_VISIBILITY
|
|
|
|
#include "glibconfig.h"
|
|
|
|
#ifdef G_HAVE_GNUC_VISIBILITY
|
|
|
|
#ifdef G_DISABLE_DEPRECATED
|
|
#define WAS_NO_G_DEPR
|
|
#endif
|
|
#undef G_DISABLE_DEPRECATED
|
|
|
|
#include "glib-object.h"
|
|
|
|
EOF
|
|
|
|
my $in_comment = 0;
|
|
my $in_skipped_section = 0;
|
|
|
|
while (<>) {
|
|
|
|
# ignore empty lines
|
|
next if /^\s*$/;
|
|
|
|
# skip comments
|
|
if ($_ =~ /^\s*\/\*/)
|
|
{
|
|
$in_comment = 1;
|
|
}
|
|
|
|
if ($in_comment)
|
|
{
|
|
if ($_ =~ /\*\/\s$/)
|
|
{
|
|
$in_comment = 0;
|
|
}
|
|
|
|
next;
|
|
}
|
|
|
|
# handle ifdefs
|
|
if ($_ =~ /^\#endif/)
|
|
{
|
|
if (!$in_skipped_section)
|
|
{
|
|
print $_;
|
|
}
|
|
|
|
$in_skipped_section = 0;
|
|
|
|
next;
|
|
}
|
|
|
|
if ($_ =~ /^\#ifdef\s+(INCLUDE_VARIABLES|INCLUDE_INTERNAL_SYMBOLS)/)
|
|
{
|
|
$in_skipped_section = 1;
|
|
}
|
|
|
|
if ($in_skipped_section)
|
|
{
|
|
next;
|
|
}
|
|
|
|
if ($_ =~ /^\#ifdef\s+G/)
|
|
{
|
|
print $_;
|
|
|
|
next;
|
|
}
|
|
|
|
|
|
my $str = $_;
|
|
chomp($str);
|
|
# Drop any Win32 specific .def file syntax
|
|
$str = (split (/ /, $str))[0];
|
|
my $alias = "IA__".$str;
|
|
|
|
print <<EOF
|
|
extern __typeof ($str) $alias __attribute((visibility("hidden")));
|
|
extern __typeof ($str) $str __attribute((alias("$alias"), visibility("default")));
|
|
\#define $str $alias
|
|
|
|
EOF
|
|
}
|
|
|
|
print <<EOF;
|
|
|
|
#ifdef WAS_NO_G_DEPR
|
|
#define G_DISABLE_DEPRECATED
|
|
#undef WAS_NO_G_DEPR
|
|
#endif
|
|
|
|
#endif /* G_HAVE_GNUC_VISIBILITY */
|
|
|
|
#endif /* DISABLE_VISIBILITY */
|
|
EOF
|
|
|
|
|