4d92d54b3f
[about 60% of the marshalling patch that I lost.
The rest to come tomorrow.]
* generator/BoxedGen.cs, StructGen.cs: Move most of this to StructBase,
delete large chunks duplicated from ClassBase.
* generator/IGeneratable.cs: Add MarshalReturnType, FromNativeReturn.
* generator/ClassBase.cs: Move ctor stuff here. Add a CallByName
overload with no parameters for the "self" reference.
* generator/EnumGen.cs, CallbackGen.cs: Implement new MarshalReturnType,
FromNativeReturn.
* generator/Method.cs: Use container_type.MarshalType, CallByName, and
SymbolTable.FromNativeReturn when generating call and import sigs.
* generator/OpaqueGen.cs: Added.
* generator/Property.cs: Handle boxed and opaques differently.
* generator/SymbolTable.cs: Update for the opaque stuff and the new Return
methods. Also change GetClassGen to simply call the as operator.
* glib/Boxed.cs: Update for struct usage -- this is now a wrapper for
the purposes of using with Value.
* glib/Opaque.cs: Added. New base class for opaque structs.
* glue/textiter.c, gtk/TextIter.custom: Remove.
* gnome/Program.cs: Update for new struct marshalling.
* parser/Metadata.pm: Use our own getChildrenByTagName.
* parser/README: Update for new requirements (was out of sync with
build.pl)
* parser/gapi2xml.pl: Hide struct like const in field elements.
* parser/gapi_pp.pl: Handle embedded union fields (poorly).
* sample/test/TestColorSelection.cs: Comment out null color tests
for now.
svn path=/trunk/gtk-sharp/; revision=6186
121 lines
3.1 KiB
Perl
Executable file
121 lines
3.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# gapi_pp.pl : A source preprocessor for the extraction of API info from a
|
|
# C library source directory.
|
|
#
|
|
# Author: Mike Kestner <mkestner@speakeasy.net>
|
|
#
|
|
# <c> 2001 Mike Kestner
|
|
|
|
$eatit_regex = "^#if.*(__cplusplus|DEBUG|DISABLE_(DEPRECATED|COMPAT)|ENABLE_BROKEN|COMPILATION)";
|
|
$ignoreit_regex = '^\s+\*|#\s*include|#\s*else|#\s*endif|#\s*undef|G_(BEGIN|END)_DECLS|extern|GDKVAR|GTKVAR|GTKMAIN_C_VAR|GTKTYPEUTILS_VAR|VARIABLE|GTKTYPEBUILTIN';
|
|
|
|
foreach $dir (@ARGV) {
|
|
@hdrs = (@hdrs, `ls $dir/*.h`);
|
|
}
|
|
|
|
foreach $fname (@hdrs) {
|
|
|
|
if ($fname =~ /test|private|internals|gtktextlayout|gtkmarshalers/) {
|
|
@privhdrs = (@privhdrs, $fname);
|
|
next;
|
|
}
|
|
|
|
open(INFILE, $fname) || die "Could open $fname\n";
|
|
|
|
$braces = 0;
|
|
$prepend = "";
|
|
while ($line = <INFILE>) {
|
|
$braces++ if ($line =~ /{/ and $line !~ /}/);
|
|
$braces-- if ($line =~ /}/ and $line !~ /{/);
|
|
|
|
next if ($line =~ /$ignoreit_regex/);
|
|
next if ($line !~ /\S/);
|
|
|
|
$line = $prepend . $line;
|
|
$prepend = "";
|
|
|
|
if ($line =~ /#\s*define\s+\w+\s+\"/) {
|
|
$def = $line;
|
|
while ($def !~ /\".*\"/) {$def .= ($line = <INFILE>);}
|
|
print $def;
|
|
} elsif ($line =~ /#\s*define\s+\w+\s*\D+/) {
|
|
$def = $line;
|
|
while ($line =~ /\\\n/) {$def .= ($line = <INFILE>);}
|
|
if ($def =~ /_CHECK_\w*CAST|INSTANCE_GET_INTERFACE/) {
|
|
$def =~ s/\\\n//g;
|
|
print $def;
|
|
}
|
|
} elsif ($line =~ /^\s*\/\*/) {
|
|
while ($line !~ /\*\//) {$line = <INFILE>;}
|
|
} elsif ($line =~ /^#ifndef\s+\w+_H_*\b/) {
|
|
while ($line !~ /#define/) {$line = <INFILE>;}
|
|
} elsif ($line =~ /$eatit_regex/) {
|
|
$nested = 0;
|
|
while ($line = <INFILE>) {
|
|
last if (!$nested && ($line =~ /#else|#endif/));
|
|
if ($line =~ /#if/) {
|
|
$nested++;
|
|
} elsif ($line =~ /#endif/) {
|
|
$nested--
|
|
}
|
|
}
|
|
} elsif ($line =~ /^#\s*ifn?\s*\!?def/) {
|
|
#warn "Ignored #if:\n$line";
|
|
} elsif ($line =~ /typedef\s+struct\s+\w*\s*\{/) {
|
|
while ($line !~ /^}\s*\w+;/) {$line = <INFILE>;}
|
|
} elsif ($line =~ /^enum\s+\{/) {
|
|
while ($line !~ /^};/) {$line = <INFILE>;}
|
|
} elsif ($line =~ /(\s+)union\s*{/) {
|
|
# this is a hack for now, but I need it for the fields to work
|
|
$indent = $1;
|
|
$do_print = 1;
|
|
while ($line !~ /^$indent}\s*\w+;/) {
|
|
$line = <INFILE>;
|
|
next if ($line !~ /;/);
|
|
print $line if $do_print;
|
|
$do_print = 0;
|
|
}
|
|
} else {
|
|
if ($braces or $line =~ /;/) {
|
|
print $line;
|
|
} else {
|
|
$prepend = $line;
|
|
$prepend =~ s/\n/ /g;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach $fname (`ls $ARGV[0]/*.c`, @privhdrs) {
|
|
|
|
open(INFILE, $fname) || die "Could open $fname\n";
|
|
|
|
if ($fname =~ /builtins_ids/) {
|
|
while ($line = <INFILE>) {
|
|
next if ($line !~ /\{/);
|
|
|
|
chomp($line);
|
|
$builtin = "BUILTIN" . $line;
|
|
$builtin .= <INFILE>;
|
|
print $builtin;
|
|
}
|
|
next;
|
|
}
|
|
|
|
while ($line = <INFILE>) {
|
|
#next if ($line !~ /^(struct|\w+_class_init)|g_boxed_type_register_static/);
|
|
next if ($line !~ /^(struct|\w+_class_init|\w+_base_init|\w+_get_type)/);
|
|
|
|
if ($line =~ /^struct/) {
|
|
# need some of these to parse out parent types
|
|
print "private";
|
|
}
|
|
|
|
do {
|
|
print $line;
|
|
} until (($line = <INFILE>) =~ /^}/);
|
|
print $line;
|
|
}
|
|
}
|
|
|