#!/usr/bin/perl -w print < #ifdef G_HAVE_GNUC_VISIBILITY #ifdef GDK_ENABLE_BROKEN #define WAS_BROKEN #endif #define GDK_ENABLE_BROKEN #ifdef GDK_MULTIHEAD_SAFE #define WAS_MULTIHEAD #endif #undef GDK_MULTIHEAD_SAVE #ifdef GDK_DISABLE_DEPRECATED #define WAS_NO_DEPR #endif #undef GDK_DISABLE_DEPRECATED #ifdef G_DISABLE_DEPRECATED #define WAS_NO_G_DEPR #endif #undef G_DISABLE_DEPRECATED #include "gdk.h" #ifdef GDK_WINDOWING_X11 #include "x11/gdkx.h" #endif #ifdef GDK_WINDOWING_WIN32 #include "win32/gdkwin32.h" #endif #ifdef GDK_WINDOWING_FB #include "linux-fb/gdkfb.h" #endif 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/) { $in_skipped_section = 1; } if ($in_skipped_section) { next; } if ($_ =~ /^\#ifdef\s+G/) { print $_; next; } chop; my $str = $_; my @words; my $attributes = ""; @words = split(/ /, $str); $str = shift(@words); chomp($str); my $alias = "IA__".$str; # Drop any Win32 specific .def file syntax, but keep attributes foreach $word (@words) { $attributes = "$attributes $word" unless $word eq "PRIVATE"; } print <