2002-06-10 12:34:09 +00:00
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
|
2002-06-26 13:10:48 +00:00
|
|
|
$file = "gtkapi.xml";
|
2002-06-10 12:34:09 +00:00
|
|
|
|
|
|
|
|
unlink ($file);
|
|
|
|
|
|
2002-06-23 03:38:02 +00:00
|
|
|
%srcs = ( "atk-1.0.2/atk" => "Atk:atk-1.0",
|
|
|
|
|
"pango-1.0.2/pango" => "Pango:pango-1.0",
|
|
|
|
|
"gtk+-2.0.3/gdk" => "Gdk:gdk-x11-2.0",
|
|
|
|
|
"gtk+-2.0.3/gdk-pixbuf" => "Gdk:gdk_pixbuf-2.0",
|
2002-06-26 00:54:05 +00:00
|
|
|
"gtk+-2.0.3/gtk" => "Gtk:gtk-x11-2.0",
|
2002-07-01 23:55:36 +00:00
|
|
|
"libgnome-2.0.1/libgnome" => "Gnome:libgnome-2.so.0",
|
|
|
|
|
"libgnomecanvas-2.0.1/libgnomecanvas" => "Gnome:libgnomecanvas-2.so.0",
|
|
|
|
|
"libgnomeui-2.0.1/libgnomeui" => "Gnome:libgnomeui-2.so.0",
|
2002-07-02 03:35:07 +00:00
|
|
|
"gtkhtml/src" => "Gtk:libgtkhtml-3.0.so.0");
|
2002-06-10 12:34:09 +00:00
|
|
|
|
2002-06-21 20:25:43 +00:00
|
|
|
foreach $dir (keys %srcs) {
|
|
|
|
|
($ns, $lib) = split (/:/, $srcs{$dir});
|
|
|
|
|
system ("./gapi_pp.pl $dir | ./gapi2xml.pl $ns $file $lib");
|
2002-06-10 12:34:09 +00:00
|
|
|
}
|
|
|
|
|
|
