#!/usr/bin/perl -w print < #ifdef G_HAVE_GNUC_VISIBILITY #ifdef GTK_ENABLE_BROKEN #define WAS_BROKEN #endif #define GTK_ENABLE_BROKEN #ifdef GTK_TEXT_USE_INTERNAL_UNSUPPORTED_API #define WAS_UNSUPPORTED_TEXT_API #endif #define GTK_TEXT_USE_INTERNAL_UNSUPPORTED_API #ifdef GTK_DISABLE_DEPRECATED #define WAS_NO_DEPR #endif #undef GTK_DISABLE_DEPRECATED #ifdef G_DISABLE_DEPRECATED #define WAS_NO_G_DEPR #endif #undef G_DISABLE_DEPRECATED #include "gtk.h" #include "gtkfilesystem.h" #include "gtkfilesystemunix.h" #include "gtkhsv.h" #include "gtkinternals.h" #include "gtkpathbar.h" #include "gtktextdisplay.h" #include "gtktextlayout.h" #include "gtktextsegment.h" #include "gtktexttypes.h" #include "gtktreedatalist.h" #include "gtkthemes.h" #include "gtkwindow-decorate.h" EOF while (<>) { # ignore empty lines next if /^\s*$/; my $str = $_; chomp($str); my $alias = $str."__internal_alias"; print "extern __typeof ($str) $alias __attribute((visibility(\"hidden\"))); \n"; print "extern __typeof ($str) $str __attribute((alias(\"$alias\"), visibility(\"default\"))); \n"; print "#define $str $alias \n"; print "\n"; } print <