dnl Process this file with autoconf to produce a configure script.
AC_PREREQ([2.68])
-AC_INIT([roobuilder], [4.0.0])
+AC_INIT([roobuilder], [4.1.0])
AC_CONFIG_HEADERS([config.h])
AC_PROG_CC
-AM_PROG_VALAC([0.22.0])
+AM_PROG_VALAC([0.36.0])
AC_CHECK_LIB([m],[cos])
dnl and it breaks the build...
PKG_CHECK_MODULES(ROOBUILDER, [ zlib
- clutter-gtk-1.0
+ clutter-gtk-1.0
glib-2.0 >= 2.24.1
gobject-2.0 >= 2.24.1
gtk+-3.0 >= 3.11.3
gee-0.8
libxml-2.0
libsoup-2.4,
- roojspacker-1.2
-])
+ roojspacker-1.4
+])
dnl --- libvala -- needs to find matching really..
-dnl - last supported version is 0.36 - as 0.40 broke the compiler
-
-PKG_CHECK_MODULES(LIBVALA, [libvala-0.48],
- [vala_4_8_enabled=yes],
- [vala_4_8_enabled=no])
- if test $vala_4_8_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA48,1,[libvala 0.48 support])
- else
-
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.36],
- [vala_3_6_enabled=yes],
- [vala_3_6_enabled=no])
- if test $vala_3_6_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA36,1,[libvala 0.36 support])
- else
-
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.34],
- [vala_3_4_enabled=yes],
- [vala_3_4_enabled=no])
- if test $vala_3_4_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA34,1,[libvala 0.34 support])
- else
-
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.32],
- [vala_3_2_enabled=yes],
- [vala_3_2_enabled=no])
- if test $vala_3_2_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA32,1,[libvala 0.32 support])
- else
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.30],
- [vala_3_0_enabled=yes],
- [vala_3_0_enabled=no])
- if test $vala_3_0_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA30,1,[libvala 0.30 support])
- else
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.28],
- [vala_2_8_enabled=yes],
- [vala_2_8_enabled=no])
- if test $vala_2_8_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA28,1,[libvala 0.28 support])
- else
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.26],
- [vala_2_6_enabled=yes],
- [vala_2_6_enabled=no])
-
- if test $vala_2_6_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA26,1,[libvala 0.26 support])
- else
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.24],
- [vala_2_4_enabled=yes],
- [vala_2_4_enabled=no])
-
- if test $vala_2_4_enabled = yes; then
- AC_DEFINE(HAVE_LIBVALA24,1,[libvala 0.24 support])
- else
- PKG_CHECK_MODULES(LIBVALA, [libvala-0.22],
- [vala_2_2_enabled=yes] )
-
- AC_DEFINE(HAVE_LIBVALA22,1,[libvala 0.22 support])
- fi
- fi
- fi
- fi
- fi
- fi
- fi
-fi
-AM_CONDITIONAL(HAVE_LIBVALA48, test "$vala_4_8_enabled" = "yes")
+dnl - supported version is 0.36 and 0.56
+
+PKG_CHECK_MODULES(LIBVALA, [libvala-0.56],
+ [vala_5_6_enabled=yes],
+ [vala_5_6_enabled=no])
+if test $vala_5_6_enabled = yes; then
+ AC_DEFINE(HAVE_LIBVALA56,1,[libvala 0.56 support])
+else
+
+ PKG_CHECK_MODULES(LIBVALA, [libvala-0.36],
+ [vala_3_6_enabled=yes],
+ [vala_3_6_enabled=no])
+ if test $vala_3_6_enabled = yes; then
+ AC_DEFINE(HAVE_LIBVALA36,1,[libvala 0.36 support])
+ fi
+
+ fi
+
+AM_CONDITIONAL(HAVE_LIBVALA56, test "$vala_5_6_enabled" = "yes")
AM_CONDITIONAL(HAVE_LIBVALA36, test "$vala_3_6_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA34, test "$vala_3_4_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA32, test "$vala_3_2_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA30, test "$vala_3_0_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA28, test "$vala_2_8_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA26, test "$vala_2_6_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA24, test "$vala_2_4_enabled" = "yes")
-AM_CONDITIONAL(HAVE_LIBVALA22, test "$vala_2_2_enabled" = "yes")
+
public static string _self;
- enum Target {
+ public enum Target {
INT32,
STRING,
ROOTWIN
"../Builder4/PopoverProperty.vala",
"../Builder4/ValaProjectSettingsPopover.vala",
"../Builder4/RooProjectSettings.vala",
- "../Project/Flutter.vala",
- "../Palete/Flutter.vala",
- "../JsRender/Flutter.vala",
"../JsRender/Json.vala",
- "../JsRender/JsonGen.vala"
+ "../JsRender/JsonGen.vala",
+ "..//codegen/valaccodearraymodule.vala",
+ "..//codegen/valaccodeassignmentmodule.vala",
+ "..//codegen/valaccodeattribute.vala",
+ "..//codegen/valaccodebasemodule.vala",
+ "..//codegen/valaccodecompiler.vala",
+ "..//codegen/valaccodecontrolflowmodule.vala",
+ "..//codegen/valaccodedelegatemodule.vala",
+ "..//codegen/valaccodememberaccessmodule.vala",
+ "..//codegen/valaccodemethodcallmodule.vala",
+ "..//codegen/valaccodemethodmodule.vala",
+ "..//codegen/valaccodestructmodule.vala",
+ "..//codegen/valaccode.vala",
+ "..//codegen/valaclassregisterfunction.vala",
+ "..//codegen/valactype.vala",
+ "..//codegen/valaenumregisterfunction.vala",
+ "..//codegen/valagasyncmodule.vala",
+ "..//codegen/valagdbusclientmodule.vala",
+ "..//codegen/valagdbusmodule.vala",
+ "..//codegen/valagdbusservermodule.vala",
+ "..//codegen/valagerrormodule.vala",
+ "..//codegen/valagirwriter.vala",
+ "..//codegen/valaglibvalue.vala",
+ "..//codegen/valagobjectmodule.vala",
+ "..//codegen/valagsignalmodule.vala",
+ "..//codegen/valagtkmodule.vala",
+ "..//codegen/valagtypemodule.vala",
+ "..//codegen/valagvaluemodule.vala",
+ "..//codegen/valagvariantmodule.vala",
+ "..//codegen/valainterfaceregisterfunction.vala",
+ "..//codegen/valastructregisterfunction.vala",
+ "..//codegen/valatyperegisterfunction.vala",
+ "..//codegen",
+ "..//ccode/valaccodeassignment.vala",
+ "..//ccode/valaccodebinaryexpression.vala",
+ "..//ccode/valaccodeblock.vala",
+ "..//ccode/valaccodebreakstatement.vala",
+ "..//ccode/valaccodecasestatement.vala",
+ "..//ccode/valaccodecastexpression.vala",
+ "..//ccode/valaccodecommaexpression.vala",
+ "..//ccode/valaccodecomment.vala",
+ "..//ccode/valaccodeconditionalexpression.vala",
+ "..//ccode/valaccodeconstantidentifier.vala",
+ "..//ccode/valaccodeconstant.vala",
+ "..//ccode/valaccodecontinuestatement.vala",
+ "..//ccode/valaccodedeclaration.vala",
+ "..//ccode/valaccodedeclarator.vala",
+ "..//ccode/valaccodedefine.vala",
+ "..//ccode/valaccodedostatement.vala",
+ "..//ccode/valaccodeelementaccess.vala",
+ "..//ccode/valaccodeemptystatement.vala",
+ "..//ccode/valaccodeenum.vala",
+ "..//ccode/valaccodeenumvalue.vala",
+ "..//ccode/valaccodeexpressionstatement.vala",
+ "..//ccode/valaccodeexpression.vala",
+ "..//ccode/valaccodefile.vala",
+ "..//ccode/valaccodeforstatement.vala",
+ "..//ccode/valaccodefragment.vala",
+ "..//ccode/valaccodefunctioncall.vala",
+ "..//ccode/valaccodefunctiondeclarator.vala",
+ "..//ccode/valaccodefunction.vala",
+ "..//ccode/valaccodeggnucsection.vala",
+ "..//ccode/valaccodegotostatement.vala",
+ "..//ccode/valaccodeidentifier.vala",
+ "..//ccode/valaccodeifsection.vala",
+ "..//ccode/valaccodeifstatement.vala",
+ "..//ccode/valaccodeincludedirective.vala",
+ "..//ccode/valaccodeinitializerlist.vala",
+ "..//ccode/valaccodeinvalidexpression.vala",
+ "..//ccode/valaccodelabel.vala",
+ "..//ccode/valaccodelinedirective.vala",
+ "..//ccode/valaccodemacroreplacement.vala",
+ "..//ccode/valaccodememberaccess.vala",
+ "..//ccode/valaccodemodifiers.vala",
+ "..//ccode/valaccodenewline.vala",
+ "..//ccode/valaccodenode.vala",
+ "..//ccode/valaccodeoncesection.vala",
+ "..//ccode/valaccodeparameter.vala",
+ "..//ccode/valaccodeparenthesizedexpression.vala",
+ "..//ccode/valaccodereturnstatement.vala",
+ "..//ccode/valaccodestatement.vala",
+ "..//ccode/valaccodestruct.vala",
+ "..//ccode/valaccodeswitchstatement.vala",
+ "..//ccode/valaccodetypedefinition.vala",
+ "..//ccode/valaccodeunaryexpression.vala",
+ "..//ccode/valaccode.vala",
+ "..//ccode/valaccodevariabledeclarator.vala",
+ "..//ccode/valaccodewhilestatement.vala",
+ "..//ccode/valaccodewriter.vala",
+ "..//ccode"
],
"packages" : []
},
"../c",
"../..//tests",
"../..//pixmaps",
- "../../..//gitlive"
+ "../../..//gitlive",
+ "..//codegen",
+ "..//ccode"
],
"packages" : [
"gdk-3.0",
"libvala-0.34",
"roojspacker-1.0",
"libvala-0.36",
- "roojspacker-1.2",
- "gee-0.8"
+ "gee-0.8",
+ "roojspacker-1.4",
+ "libvala-0.56"
]
}
]
\ No newline at end of file
-if HAVE_LIBVALA22
-roobuilder_LIBVALA = --pkg libvala-0.22
-endif
-if HAVE_LIBVALA24
-roobuilder_LIBVALA = --pkg libvala-0.24
-endif
-
-if HAVE_LIBVALA26
-roobuilder_LIBVALA = --pkg libvala-0.26
-endif
-
-if HAVE_LIBVALA28
-roobuilder_LIBVALA = --pkg libvala-0.28
-endif
-
-if HAVE_LIBVALA30
-roobuilder_LIBVALA = --pkg libvala-0.30
-endif
-
-if HAVE_LIBVALA32
-roobuilder_LIBVALA = --pkg libvala-0.32
-endif
-
-if HAVE_LIBVALA34
-roobuilder_LIBVALA = --pkg libvala-0.34
-endif
if HAVE_LIBVALA36
roobuilder_LIBVALA = --pkg libvala-0.36
+roobuilder_CODEGEN =
+
endif
-if HAVE_LIBVALA48
-roobuilder_LIBVALA = --pkg libvala-0.48
+if HAVE_LIBVALA56
+roobuilder_LIBVALA = --pkg libvala-0.56
+
+roobuilder_CODEGEN = \
+ codegen/valaccode.vala \
+ codegen/valaccodearraymodule.vala \
+ codegen/valaccodeassignmentmodule.vala \
+ codegen/valaccodeattribute.vala \
+ codegen/valaccodebasemodule.vala \
+ codegen/valaccodecompiler.vala \
+ codegen/valaccodecontrolflowmodule.vala \
+ codegen/valaccodedelegatemodule.vala \
+ codegen/valaccodememberaccessmodule.vala \
+ codegen/valaccodemethodcallmodule.vala \
+ codegen/valaccodemethodmodule.vala \
+ codegen/valaccodestructmodule.vala \
+ codegen/valaclassregisterfunction.vala \
+ codegen/valactype.vala \
+ codegen/valaenumregisterfunction.vala \
+ codegen/valagasyncmodule.vala \
+ codegen/valagdbusclientmodule.vala \
+ codegen/valagdbusmodule.vala \
+ codegen/valagdbusservermodule.vala \
+ codegen/valagerrormodule.vala \
+ codegen/valagirwriter.vala \
+ codegen/valaglibvalue.vala \
+ codegen/valagobjectmodule.vala \
+ codegen/valagtkmodule.vala \
+ codegen/valagsignalmodule.vala \
+ codegen/valagtypemodule.vala \
+ codegen/valagvaluemodule.vala \
+ codegen/valagvariantmodule.vala \
+ codegen/valainterfaceregisterfunction.vala \
+ codegen/valastructregisterfunction.vala \
+ codegen/valatyperegisterfunction.vala \
+ ccode/valaccode.vala \
+ ccode/valaccodeassignment.vala \
+ ccode/valaccodebinaryexpression.vala \
+ ccode/valaccodeblock.vala \
+ ccode/valaccodebreakstatement.vala \
+ ccode/valaccodecasestatement.vala \
+ ccode/valaccodecastexpression.vala \
+ ccode/valaccodecommaexpression.vala \
+ ccode/valaccodecomment.vala \
+ ccode/valaccodeconditionalexpression.vala \
+ ccode/valaccodeconstant.vala \
+ ccode/valaccodeconstantidentifier.vala \
+ ccode/valaccodecontinuestatement.vala \
+ ccode/valaccodedeclaration.vala \
+ ccode/valaccodedeclarator.vala \
+ ccode/valaccodedefine.vala \
+ ccode/valaccodedostatement.vala \
+ ccode/valaccodeemptystatement.vala \
+ ccode/valaccodeenum.vala \
+ ccode/valaccodeenumvalue.vala \
+ ccode/valaccodeexpression.vala \
+ ccode/valaccodeexpressionstatement.vala \
+ ccode/valaccodefile.vala \
+ ccode/valaccodeforstatement.vala \
+ ccode/valaccodefragment.vala \
+ ccode/valaccodefunction.vala \
+ ccode/valaccodefunctioncall.vala \
+ ccode/valaccodefunctiondeclarator.vala \
+ ccode/valaccodeggnucsection.vala \
+ ccode/valaccodegotostatement.vala \
+ ccode/valaccodeidentifier.vala \
+ ccode/valaccodeifstatement.vala \
+ ccode/valaccodeincludedirective.vala \
+ ccode/valaccodeinitializerlist.vala \
+ ccode/valaccodeinvalidexpression.vala \
+ ccode/valaccodelabel.vala \
+ ccode/valaccodelinedirective.vala \
+ ccode/valaccodeifsection.vala \
+ ccode/valaccodemacroreplacement.vala \
+ ccode/valaccodememberaccess.vala \
+ ccode/valaccodemodifiers.vala \
+ ccode/valaccodenewline.vala \
+ ccode/valaccodenode.vala \
+ ccode/valaccodeoncesection.vala \
+ ccode/valaccodeparameter.vala \
+ ccode/valaccodeparenthesizedexpression.vala \
+ ccode/valaccodereturnstatement.vala \
+ ccode/valaccodestatement.vala \
+ ccode/valaccodestruct.vala \
+ ccode/valaccodeswitchstatement.vala \
+ ccode/valaccodetypedefinition.vala \
+ ccode/valaccodeunaryexpression.vala \
+ ccode/valaccodevariabledeclarator.vala \
+ ccode/valaccodewhilestatement.vala \
+ ccode/valaccodewriter.vala \
+ ccode/valaccodeelementaccess.vala
+
endif
# gda
--pkg clutter-gtk-1.0 \
--pkg libsoup-2.4 \
--pkg javascriptcore \
- --pkg roojspacker-1.2 \
+ --pkg roojspacker-1.4 \
$(roobuilder_LIBVALA) \
$(roobuilder_GDA) \
$(roobuilder_WEBKKIT) \
Palete/Roo.vala \
Palete/ValaSource.vala \
Palete/ValaSourceCompiler.vala \
- Palete/CompletionProvider.vala
-
+ Palete/CompletionProvider.vala \
+ $(roobuilder_CODEGEN)
+
# Project/Flutter.vala
BUIDERPROJECT = Project/Gtk.vala \
context.experimental = false;
context.experimental_non_null = false;
-#if VALA_0_48
- var ver=48;
+#if VALA_0_56
+ var ver=56;
+
#elif VALA_0_36
var ver=36;
-#elif VALA_0_34
- var ver=34;
-#elif VALA_0_32
- var ver=32;
-#elif VALA_0_30
- var ver=30;
-#elif VALA_0_28
- var ver=28;
-#elif VALA_0_26
- var ver=26;
-#elif VALA_0_24
- var ver=24;
-#elif VALA_0_22
- var ver=22;
+
#endif
-
- for (int i = 2; i <= ver; i += 2) {
- context.add_define ("VALA_0_%d".printf (i));
- }
+ // this is automatic now.. no need to do it manually apparently..
+ //for (int i = 2; i <= ver; i += 2) {
+ // context.add_define ("VALA_0_%d".printf (i));
+ //}
vapidirs += Path.get_dirname (context.get_vapi_path("glib-2.0")) ; // usr/share/vala-XXX/vapi
for(var i =0 ; i < vapidirs.length; i++) {
+ GLib.debug("Add Vapidir = %s" , vapidirs[i]);
+
valac += " --vapidir=" + vapidirs[i];
}
// add default packages:
//if (settings.profile == "gobject-2.0" || settings.profile == "gobject" || settings.profile == null) {
+#if VALA_0_56
+ context.set_target_profile (Vala.Profile.GOBJECT);
+#elif VALA_0_36
context.profile = Vala.Profile.GOBJECT;
-
+#endif
var ns_ref = new Vala.UsingDirective (new Vala.UnresolvedSymbol (null, "GLib", null));
context.root.add_using_directive (ns_ref);
var dcg = pr.compilegroups.get("_default_");
for (var i = 0; i < dcg.packages.size; i++) {
-
+
var pkg = dcg.packages.get(i);
// do not add libvala versions except the one that matches the one we are compiled against..
if (Regex.match_simple("^libvala", pkg) && pkg != ("libvala-0." + ver.to_string())) {
+ GLib.debug("Skip libvala Package: %s" , dcg.packages.get(i));
continue;
}
+ GLib.debug("Add Package: %s" , dcg.packages.get(i));
valac += " --pkg " + dcg.packages.get(i);
if (!this.has_vapi(context.vapi_directories, dcg.packages.get(i))) {
GLib.debug("Skip vapi '%s' - does not exist", dcg.packages.get(i));
context.output = this.output == "" ? "/tmp/testrun" : this.output;
valac += " -o " + context.output;
GLib.debug("%s", valac);
-#if VALA_0_48
-#else
+#if VALA_0_56
+ context.set_target_glib_version("2.32");
+#elif VALA_0_36
context.target_glib_major = 2;
context.target_glib_minor = 32;
#endif
}
// none of this works on vala-40 as the API is not publicly visible
-#if VALA_0_48
+
-#else
+
context.codegen = new Vala.GDBusServerModule ();
string [] cc_options = { "-lm", "-pg" };
valac += " -X -lm -X -pg";
-
-#if VALA_0_28 || VALA_0_30 || VALA_0_32 || VALA_0_34 || VALA_0_36
+
+#if VALA_0_56
+ ccompiler.compile (context, cc_command, cc_options);
+#elif VALA_0_36
var pkg_config_command = Environment.get_variable ("PKG_CONFIG");
ccompiler.compile (context, cc_command, cc_options, pkg_config_command);
-#else
- ccompiler.compile (context, cc_command, cc_options);
+ // newer ones got rid fo pkg config command? not sure why.
+
#endif
//print("%s\n", valac);
Vala.CodeContext.pop ();
-#endif
+
this.outputResult();
GLib.Process.exit(Posix.EXIT_SUCCESS);
var em = new GirObject("EnumMember",e.name);
em.gparent = c;
em.ns = c.ns;
+
+#if VALA_0_56
+ em.type = e.type_reference == null || e.type_reference.type_symbol == null ? "" : e.type_reference.type_symbol.get_full_name();
+#elif VALA_0_36
em.type = e.type_reference == null || e.type_reference.data_type == null ? "" : e.type_reference.data_type.get_full_name();
+#endif
+
+
// unlikely to get value..
//c.value = element->get_prop("value");
c.consts.set(e.name,em);
}
-
-
}
c.inherits.add(cls.base_class.get_full_name());
}
foreach(var p in cls.get_base_types()) {
+#if VALA_0_56
+ if (p.type_symbol != null) {
+ c.implements.add(p.type_symbol.get_full_name());
+ }
+#elif VALA_0_36
if (p.data_type != null) {
c.implements.add(p.data_type.get_full_name());
}
+
+#endif
+
}
c.gparent = parent;
c.ns = parent.ns;
c.propertyof = parent.name;
-
- c.type = prop.property_type.data_type == null ? "" : prop.property_type.data_type.get_full_name();
+#if VALA_0_56
+ c.type = prop.property_type.type_symbol == null ? "" : prop.property_type.type_symbol.get_full_name();
+#elif VALA_0_36
+ c.type = prop.property_type.data_type == null ? "" : prop.property_type.data_type.get_full_name();
+#endif
parent.props.set(prop.name,c);
+
}
public void add_signal(GirObject parent, Vala.Signal sig)
var c = new GirObject("Signal",sig.name);
c.gparent = parent;
c.ns = parent.ns;
+
+#if VALA_0_56
+ var dt = sig.return_type.type_symbol ;
+#elif VALA_0_36
+ var dt = sig.return_type.data_type;
+#endif
+
- if (sig.return_type.data_type != null) {
+ if (dt != null) {
//print("creating return type on signal %s\n", sig.name);
var cc = new GirObject("Return", "return-value");
cc.gparent = c;
cc.ns = c.ns;
- cc.type = sig.return_type.data_type.get_full_name();
+ cc.type = dt.get_full_name();
c.return_value = cc;
}
parent.signals.set(sig.name,c);
var c = new GirObject(ty,n);
c.gparent = parent;
c.ns = parent.ns;
-
+#if VALA_0_56
+ if (met.return_type.type_symbol != null) {
+#elif VALA_0_36
if (met.return_type.data_type != null) {
+#endif
+
+
//print("creating return type on method %s\n", met.name);
var cc = new GirObject("Return", "return-value");
cc.gparent = c;
cc.ns = c.ns;
+
+#if VALA_0_56
+ cc.type = met.return_type.type_symbol.get_full_name();
+#elif VALA_0_36
cc.type = met.return_type.data_type.get_full_name();
+#endif
+
+
+
c.return_value = cc;
}
if (met is Vala.CreationMethod) {
parent.params.add(c);
if (!pam.ellipsis) {
+#if VALA_0_56
+ c.type = pam.variable_type.type_symbol == null ? "" : pam.variable_type.type_symbol.get_full_name();
+#elif VALA_0_36
c.type = pam.variable_type.data_type == null ? "" : pam.variable_type.data_type.get_full_name();
+#endif
}
Gir.checkParamOverride(c);
return c;
context.experimental = false;
context.experimental_non_null = false;
-#if VALA_0_40
- var ver=40;
+#if VALA_0_56
+ var ver=56;
#elif VALA_0_36
- var ver=36;
-#elif VALA_0_34
- var ver=34;
-#elif VALA_0_32
- var ver=32;
-#elif VALA_0_30
- var ver=30;
-#elif VALA_0_28
- var ver=28;
-#elif VALA_0_26
- var ver=26;
-#elif VALA_0_24
- var ver=24;
-#elif VALA_0_22
- var ver=22;
+ var ver=36;
#endif
for (int i = 2; i <= ver; i += 2) {
// add default packages:
//if (settings.profile == "gobject-2.0" || settings.profile == "gobject" || settings.profile == null) {
+#if VALA_0_56
+ context.set_target_profile (Vala.Profile.GOBJECT);
+#elif VALA_0_36
context.profile = Vala.Profile.GOBJECT;
+#endif
var ns_ref = new Vala.UsingDirective (new Vala.UnresolvedSymbol (null, "GLib", null));
context.root.add_using_directive (ns_ref);
--- /dev/null
+/* valaccode.vala
+ *
+ * Copyright (C) 2020 Rico Tzschichholz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+namespace Vala {
+ public unowned string GNUC_CONST;
+ public unowned string GNUC_DEPRECATED;
+ public unowned string GNUC_FORMAT;
+ public unowned string GNUC_INTERNAL;
+ public unowned string GNUC_NO_INLINE;
+ public unowned string GNUC_PRINTF;
+ public unowned string GNUC_SCANF;
+ public unowned string GNUC_UNUSED;
+
+ public static void ccode_init (Vala.Profile profile) {
+ switch (profile) {
+ case Vala.Profile.GOBJECT:
+ GNUC_CONST = " G_GNUC_CONST ";
+ GNUC_DEPRECATED = " G_GNUC_DEPRECATED ";
+ GNUC_FORMAT = " G_GNUC_FORMAT(%d) ";
+ GNUC_INTERNAL = " G_GNUC_INTERNAL ";
+ GNUC_NO_INLINE = " G_GNUC_NO_INLINE ";
+ GNUC_PRINTF = " G_GNUC_PRINTF(%d,%d) ";
+ GNUC_SCANF = " G_GNUC_SCANF(%d,%d) ";
+ GNUC_UNUSED = " G_GNUC_UNUSED ";
+ break;
+ case Vala.Profile.POSIX:
+ GNUC_CONST = " __attribute__((__const__)) ";
+ GNUC_DEPRECATED = " __attribute__((__deprecated__)) ";
+ GNUC_FORMAT = " __attribute__((__format_arg__ (arg_idx))) ";
+ GNUC_INTERNAL = " __attribute__((visibility(\"hidden\"))) ";
+ GNUC_NO_INLINE = " __attribute__((noinline)) ";
+ GNUC_PRINTF = " __attribute__((__format__ (__printf__, %d, %d))) ";
+ GNUC_SCANF = " __attribute__((__format__ (__scanf__, %d, %d))) ";
+ GNUC_UNUSED = " __attribute__((__unused__)) ";
+ break;
+ default:
+ assert_not_reached ();
+ }
+ }
+}
--- /dev/null
+/* valaccodeassignment.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an assignment expression in the C code.
+ */
+public class Vala.CCodeAssignment : CCodeExpression {
+ /**
+ * Left hand side of the assignment.
+ */
+ public CCodeExpression left { get; set; }
+
+ /**
+ * Assignment operator.
+ */
+ public CCodeAssignmentOperator operator { get; set; }
+
+ /**
+ * Right hand side of the assignment.
+ */
+ public CCodeExpression right { get; set; }
+
+ public CCodeAssignment (CCodeExpression l, CCodeExpression r, CCodeAssignmentOperator op = CCodeAssignmentOperator.SIMPLE) {
+ left = l;
+ operator = op;
+ right = r;
+ }
+
+ public override void write (CCodeWriter writer) {
+ left.write (writer);
+
+ switch (operator) {
+ case CCodeAssignmentOperator.SIMPLE: writer.write_string (" = "); break;
+ case CCodeAssignmentOperator.BITWISE_OR: writer.write_string (" |= "); break;
+ case CCodeAssignmentOperator.BITWISE_AND: writer.write_string (" &= "); break;
+ case CCodeAssignmentOperator.BITWISE_XOR: writer.write_string (" ^= "); break;
+ case CCodeAssignmentOperator.ADD: writer.write_string (" += "); break;
+ case CCodeAssignmentOperator.SUB: writer.write_string (" -= "); break;
+ case CCodeAssignmentOperator.MUL: writer.write_string (" *= "); break;
+ case CCodeAssignmentOperator.DIV: writer.write_string (" /= "); break;
+ case CCodeAssignmentOperator.PERCENT: writer.write_string (" %= "); break;
+ case CCodeAssignmentOperator.SHIFT_LEFT: writer.write_string (" <<= "); break;
+ case CCodeAssignmentOperator.SHIFT_RIGHT: writer.write_string (" >>= "); break;
+ default: assert_not_reached ();
+ }
+
+ right.write (writer);
+ }
+
+ public override void write_inner (CCodeWriter writer) {
+ writer.write_string ("(");
+ this.write (writer);
+ writer.write_string (")");
+ }
+}
+
+public enum Vala.CCodeAssignmentOperator {
+ SIMPLE,
+ BITWISE_OR,
+ BITWISE_AND,
+ BITWISE_XOR,
+ ADD,
+ SUB,
+ MUL,
+ DIV,
+ PERCENT,
+ SHIFT_LEFT,
+ SHIFT_RIGHT
+}
--- /dev/null
+/* valaccodebinaryexpression.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an expression with two operands in C code.
+ */
+public class Vala.CCodeBinaryExpression : CCodeExpression {
+ /**
+ * The binary operator.
+ */
+ public CCodeBinaryOperator operator { get; set; }
+
+ /**
+ * The left operand.
+ */
+ public CCodeExpression left { get; set; }
+
+ /**
+ * The right operand.
+ */
+ public CCodeExpression right { get; set; }
+
+ public CCodeBinaryExpression (CCodeBinaryOperator op, CCodeExpression l, CCodeExpression r) {
+ operator = op;
+ left = l;
+ right = r;
+ }
+
+ public override void write (CCodeWriter writer) {
+ left.write_inner (writer);
+
+ switch (operator) {
+ case CCodeBinaryOperator.PLUS: writer.write_string (" + "); break;
+ case CCodeBinaryOperator.MINUS: writer.write_string (" - "); break;
+ case CCodeBinaryOperator.MUL: writer.write_string (" * "); break;
+ case CCodeBinaryOperator.DIV: writer.write_string (" / "); break;
+ case CCodeBinaryOperator.MOD: writer.write_string (" % "); break;
+ case CCodeBinaryOperator.SHIFT_LEFT: writer.write_string (" << "); break;
+ case CCodeBinaryOperator.SHIFT_RIGHT: writer.write_string (" >> "); break;
+ case CCodeBinaryOperator.LESS_THAN: writer.write_string (" < "); break;
+ case CCodeBinaryOperator.GREATER_THAN: writer.write_string (" > "); break;
+ case CCodeBinaryOperator.LESS_THAN_OR_EQUAL: writer.write_string (" <= "); break;
+ case CCodeBinaryOperator.GREATER_THAN_OR_EQUAL: writer.write_string (" >= "); break;
+ case CCodeBinaryOperator.EQUALITY: writer.write_string (" == "); break;
+ case CCodeBinaryOperator.INEQUALITY: writer.write_string (" != "); break;
+ case CCodeBinaryOperator.BITWISE_AND: writer.write_string (" & "); break;
+ case CCodeBinaryOperator.BITWISE_OR: writer.write_string (" | "); break;
+ case CCodeBinaryOperator.BITWISE_XOR: writer.write_string (" ^ "); break;
+ case CCodeBinaryOperator.AND: writer.write_string (" && "); break;
+ case CCodeBinaryOperator.OR: writer.write_string (" || "); break;
+ default: assert_not_reached ();
+ }
+
+ right.write_inner (writer);
+ }
+
+ public override void write_inner (CCodeWriter writer) {
+ writer.write_string ("(");
+ this.write (writer);
+ writer.write_string (")");
+ }
+}
+
+public enum Vala.CCodeBinaryOperator {
+ PLUS,
+ MINUS,
+ MUL,
+ DIV,
+ MOD,
+ SHIFT_LEFT,
+ SHIFT_RIGHT,
+ LESS_THAN,
+ GREATER_THAN,
+ LESS_THAN_OR_EQUAL,
+ GREATER_THAN_OR_EQUAL,
+ EQUALITY,
+ INEQUALITY,
+ BITWISE_AND,
+ BITWISE_OR,
+ BITWISE_XOR,
+ AND,
+ OR
+}
--- /dev/null
+/* valaccodeblock.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a C code block.
+ */
+public class Vala.CCodeBlock : CCodeStatement {
+ /**
+ * Specifies whether a newline at the end of the block should be
+ * suppressed.
+ */
+ public bool suppress_newline { get; set; }
+
+ private List<CCodeNode> statements = new ArrayList<CCodeNode> ();
+
+ /**
+ * Prepend the specified statement to the list of statements.
+ */
+ public void prepend_statement (CCodeNode statement) {
+ statements.insert (0, statement);
+ }
+
+ /**
+ * Append the specified statement to the list of statements.
+ */
+ public void add_statement (CCodeNode statement) {
+ /* allow generic nodes to include comments */
+ statements.add (statement);
+ }
+
+ public override void write (CCodeWriter writer) {
+ // the last reachable statement
+ CCodeNode last_statement = null;
+
+ writer.write_begin_block ();
+ foreach (CCodeNode statement in statements) {
+ statement.write_declaration (writer);
+
+ // determine last reachable statement
+ if (statement is CCodeLabel || statement is CCodeCaseStatement) {
+ last_statement = null;
+ } else if (statement is CCodeReturnStatement || statement is CCodeGotoStatement
+ || statement is CCodeContinueStatement || statement is CCodeBreakStatement) {
+ last_statement = statement;
+ }
+ }
+
+ foreach (CCodeNode statement in statements) {
+ statement.write (writer);
+
+ // only output reachable code
+ if (statement == last_statement) {
+ break;
+ }
+ }
+
+ writer.write_end_block ();
+
+ if (!suppress_newline) {
+ writer.write_newline ();
+ }
+ }
+}
--- /dev/null
+/* valaccodebreakstatement.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a break statement in the C code.
+ */
+public class Vala.CCodeBreakStatement : CCodeStatement {
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("break;");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodecasestatement.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a case block in a switch statement in C code.
+ */
+public class Vala.CCodeCaseStatement : CCodeStatement {
+ /**
+ * The case expression.
+ */
+ public CCodeExpression expression { get; set; }
+
+ public CCodeCaseStatement (CCodeExpression expression) {
+ this.expression = expression;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("case ");
+ expression.write (writer);
+ writer.write_string (":");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodecastexpression.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a type cast in the generated C code.
+ */
+public class Vala.CCodeCastExpression : CCodeExpression {
+ /**
+ * The expression to be cast.
+ */
+ public CCodeExpression inner { get; set; }
+
+ /**
+ * The target type.
+ */
+ public string type_name { get; set; }
+
+ public CCodeCastExpression (CCodeExpression expr, string type) {
+ inner = expr;
+ type_name = type;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string ("(");
+ writer.write_string (type_name);
+ writer.write_string (") ");
+
+ inner.write_inner (writer);
+ }
+
+ public override void write_inner (CCodeWriter writer) {
+ writer.write_string ("(");
+ this.write (writer);
+ writer.write_string (")");
+ }
+}
--- /dev/null
+/* valaccodecommaexpression.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a comma separated expression list in the C code.
+ */
+public class Vala.CCodeCommaExpression : CCodeExpression {
+ private List<CCodeExpression> inner = new ArrayList<CCodeExpression> ();
+
+ /**
+ * Appends the specified expression to the expression list.
+ *
+ * @param expr a C code expression
+ */
+ public void append_expression (CCodeExpression expr) {
+ inner.add (expr);
+ }
+
+ public void set_expression (int index, CCodeExpression expr) {
+ inner[index] = expr;
+ }
+
+ public unowned List<CCodeExpression> get_inner () {
+ return inner;
+ }
+
+ public override void write (CCodeWriter writer) {
+ bool first = true;
+
+ writer.write_string ("(");
+ foreach (CCodeExpression expr in inner) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+ expr.write (writer);
+ }
+ writer.write_string (")");
+ }
+}
--- /dev/null
+/* valaccodecomment.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a comment in the C code.
+ */
+public class Vala.CCodeComment : CCodeNode {
+ /**
+ * The text content of the comment.
+ */
+ public string text { get; set; }
+
+ public CCodeComment (string _text) {
+ text = _text;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_comment (text);
+ }
+}
--- /dev/null
+/* valaccodeconditionalexpression.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a conditional expression in C code.
+ */
+public class Vala.CCodeConditionalExpression : CCodeExpression {
+ /**
+ * The condition.
+ */
+ public CCodeExpression condition { get; set; }
+
+ /**
+ * The expression to be evaluated if the condition holds.
+ */
+ public CCodeExpression true_expression { get; set; }
+
+ /**
+ * The expression to be evaluated if the condition doesn't hold.
+ */
+ public CCodeExpression false_expression { get; set; }
+
+ public CCodeConditionalExpression (CCodeExpression cond, CCodeExpression true_expr, CCodeExpression false_expr) {
+ condition = cond;
+ true_expression = true_expr;
+ false_expression = false_expr;
+ }
+
+ public override void write (CCodeWriter writer) {
+ condition.write_inner (writer);
+ writer.write_string (" ? ");
+ true_expression.write_inner (writer);
+ writer.write_string (" : ");
+ false_expression.write_inner (writer);
+ }
+
+ public override void write_inner (CCodeWriter writer) {
+ writer.write_string ("(");
+ this.write (writer);
+ writer.write_string (")");
+ }
+}
--- /dev/null
+/* valaccodeconstant.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * A constant C expression.
+ */
+public class Vala.CCodeConstant : CCodeExpression {
+ /**
+ * The name of this constant.
+ */
+ public string name { get; set; }
+
+ public CCodeConstant (string _name) {
+ name = _name;
+ }
+
+ const int LINE_LENGTH = 70;
+
+ public CCodeConstant.string (string _name) {
+ assert (_name[0] == '\"');
+
+ if (_name.length <= LINE_LENGTH) {
+ name = _name;
+ return;
+ }
+
+ var builder = new StringBuilder ("\"");
+
+ char* p = _name;
+ char* end = p + _name.length;
+
+ // remove quotes
+ p++;
+ end--;
+
+ int col = 0;
+ while (p < end) {
+ if (col >= LINE_LENGTH) {
+ builder.append ("\" \\\n\"");
+ col = 0;
+ }
+ if (*p == '\\') {
+ char* begin_of_char = p;
+
+ builder.append_c (p[0]);
+ builder.append_c (p[1]);
+ p += 2;
+ switch (p[-1]) {
+ case 'x':
+ // hexadecimal character
+ while (p < end && p->isxdigit ()) {
+ builder.append_c (*p);
+ p++;
+ }
+ break;
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ // octal character
+ while (p < end && p - begin_of_char <= 3 && *p >= '0' && *p <= '7') {
+ builder.append_c (*p);
+ p++;
+ }
+ break;
+ case 'n':
+ // break line at \n
+ col = LINE_LENGTH;
+ break;
+ }
+ col += (int) (p - begin_of_char);
+ } else {
+ builder.append_unichar (((string) p).get_char ());
+ p += ((char*) ((string) p).next_char () - p);
+ col++;
+ }
+ }
+
+ builder.append_c ('"');
+
+ this.name = builder.str;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string (name);
+ }
+}
--- /dev/null
+/* valaccodeconstantidentifier.vala
+ *
+ * Copyright (C) 2021 Rico Tzschichholz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+using GLib;
+
+/**
+ * Represents a constant identifier in the C code.
+ */
+public class Vala.CCodeConstantIdentifier : CCodeIdentifier {
+ /**
+ * The name of this constant identifier.
+ */
+ public CCodeConstantIdentifier (string name) {
+ base (name);
+ }
+}
--- /dev/null
+/* valaccodecontinuestatement.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a continue statement in the C code.
+ */
+public class Vala.CCodeContinueStatement : CCodeStatement {
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("continue;");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodedeclaration.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a local variable declaration in the C code.
+ */
+public class Vala.CCodeDeclaration : CCodeStatement {
+ /**
+ * The type of the local variable.
+ */
+ public string type_name { get; set; }
+
+ private List<CCodeDeclarator> declarators = new ArrayList<CCodeDeclarator> ();
+
+ public CCodeDeclaration (string type_name) {
+ this.type_name = type_name;
+ }
+
+ /**
+ * Adds the specified declarator to this declaration.
+ *
+ * @param decl a declarator
+ */
+ public void add_declarator (CCodeDeclarator decl) {
+ declarators.add (decl);
+ }
+
+ /**
+ * Returns the list of declarators.
+ *
+ * @return declarators list
+ */
+ public unowned List<CCodeDeclarator> get_declarators () {
+ return declarators;
+ }
+
+ public override void write (CCodeWriter writer) {
+ if ((modifiers & (CCodeModifiers.STATIC | CCodeModifiers.INTERNAL | CCodeModifiers.EXTERN)) == 0) {
+ foreach (CCodeDeclarator decl in declarators) {
+ decl.write_initialization (writer);
+ }
+ }
+ }
+
+ private bool has_initializer () {
+ foreach (CCodeDeclarator decl in declarators) {
+ var var_decl = decl as CCodeVariableDeclarator;
+ if (var_decl != null && var_decl.initializer == null) {
+ return false;
+ }
+ }
+ return true;
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ if ((modifiers & (CCodeModifiers.STATIC | CCodeModifiers.INTERNAL | CCodeModifiers.EXTERN)) != 0) {
+ // combined declaration and initialization for static and extern variables
+ writer.write_indent (line);
+ if ((modifiers & CCodeModifiers.INTERNAL) != 0) {
+ writer.write_string (GNUC_INTERNAL);
+ }
+ if ((modifiers & CCodeModifiers.STATIC) != 0) {
+ writer.write_string ("static ");
+ }
+ if ((modifiers & CCodeModifiers.VOLATILE) != 0) {
+ writer.write_string ("volatile ");
+ }
+ if ((modifiers & CCodeModifiers.EXTERN) != 0 && !has_initializer ()) {
+ writer.write_string ("VALA_EXTERN ");
+ }
+ if ((modifiers & CCodeModifiers.THREAD_LOCAL) != 0) {
+ writer.write_string ("thread_local ");
+ }
+ writer.write_string (type_name);
+ writer.write_string (" ");
+
+ bool first = true;
+ foreach (CCodeDeclarator decl in declarators) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+ decl.write (writer);
+ }
+
+ writer.write_string (";");
+ writer.write_newline ();
+ return;
+ }
+
+ writer.write_indent ();
+ if ((modifiers & CCodeModifiers.REGISTER) == CCodeModifiers.REGISTER) {
+ writer.write_string ("register ");
+ }
+ if ((modifiers & CCodeModifiers.VOLATILE) != 0) {
+ writer.write_string ("volatile ");
+ }
+ writer.write_string (type_name);
+ writer.write_string (" ");
+
+ bool first = true;
+ foreach (CCodeDeclarator decl in declarators) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+ decl.write_declaration (writer);
+ }
+
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodedeclarator.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a variable or function pointer declarator in the C code.
+ */
+public abstract class Vala.CCodeDeclarator : CCodeNode {
+ /**
+ * The declarator name.
+ */
+ public string name { get; set; }
+
+ /**
+ * Writes initialization statements for this declarator with the
+ * specified C code writer if necessary.
+ *
+ * @param writer a C code writer
+ */
+ public virtual void write_initialization (CCodeWriter writer) {
+ }
+}
--- /dev/null
+/* valaccodedefine.vala
+ *
+ * Copyright (C) 2018 Dr. Michael 'Mickey' Lauer
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Dr. Michael 'Mickey' Lauer <mickey@vanille-media.de>
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+using GLib;
+
+/**
+ * Represents a definition in the C code.
+ */
+public class Vala.CCodeDefine : CCodeNode {
+ /**
+ * The name of this definition.
+ */
+ public string name { get; set; }
+
+ /**
+ * The value of this definition.
+ */
+ public string? value { get; set; }
+
+ /**
+ * The value expression of this definition.
+ */
+ public CCodeExpression? value_expression { get; set; }
+
+ public CCodeDefine (string name, string? value = null) {
+ this.name = name;
+ this.value = value;
+ }
+
+ public CCodeDefine.with_expression (string name, CCodeExpression expression) {
+ this.name = name;
+ this.value_expression = expression;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string ("#define ");
+ writer.write_string (name);
+ if (value != null) {
+ writer.write_string (" ");
+ writer.write_string (@value);
+ } else if (value_expression != null) {
+ writer.write_string (" ");
+ value_expression.write_inner (writer);
+ }
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodedostatement.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a do iteration statement in the C code.
+ */
+public class Vala.CCodeDoStatement : CCodeStatement {
+ /**
+ * The loop body.
+ */
+ public CCodeStatement body { get; set; }
+
+ /**
+ * The loop condition.
+ */
+ public CCodeExpression condition { get; set; }
+
+ public CCodeDoStatement (CCodeStatement stmt, CCodeExpression cond) {
+ body = stmt;
+ condition = cond;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("do");
+
+ /* while shouldn't be on a separate line */
+ if (body is CCodeBlock) {
+ var cblock = (CCodeBlock) body;
+ cblock.suppress_newline = true;
+ }
+
+ body.write (writer);
+
+ writer.write_string (" while (");
+
+ condition.write (writer);
+
+ writer.write_string (");");
+ }
+}
--- /dev/null
+/* valaccodememberaccess.vala
+ *
+ * Copyright (C) 2006 Raffaele Sandrini
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an access to an array member in the C code.
+ */
+public class Vala.CCodeElementAccess : CCodeExpression {
+ /**
+ * Expression representing the container on which we want to access.
+ */
+ public CCodeExpression container { get; set; }
+
+ /**
+ * Expression representing the index we want to access inside the
+ * container.
+ */
+ public List<CCodeExpression> indices { get; set; }
+
+ public CCodeElementAccess (CCodeExpression cont, CCodeExpression i) {
+ container = cont;
+ indices = new ArrayList<CCodeExpression> ();
+ indices.add (i);
+ }
+
+ public CCodeElementAccess.with_indices (CCodeExpression cont, List<CCodeExpression> i) {
+ container = cont;
+ indices = i;
+ }
+
+ public override void write (CCodeWriter writer) {
+ container.write_inner (writer);
+ writer.write_string ("[");
+ bool first = true;
+ foreach (var index in indices) {
+ if (!first) {
+ writer.write_string ("][");
+ }
+ index.write (writer);
+ first = false;
+ }
+ writer.write_string ("]");
+ }
+}
--- /dev/null
+/* valaccodeemptystatement.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an empty statement in the C code.
+ */
+public class Vala.CCodeEmptyStatement : CCodeStatement {
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeenum.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an enum in the C code.
+ */
+public class Vala.CCodeEnum : CCodeNode {
+ /**
+ * The name of this enum.
+ */
+ public string name { get; set; }
+
+ private List<CCodeEnumValue> values = new ArrayList<CCodeEnumValue> ();
+
+ public CCodeEnum (string? name = null) {
+ this.name = name;
+ }
+
+ /**
+ * Adds the specified value to this enum.
+ *
+ * @param value optional numerical value
+ */
+ public void add_value (CCodeEnumValue value) {
+ values.add (value);
+ }
+
+ public override void write (CCodeWriter writer) {
+ if (name != null) {
+ writer.write_string ("typedef ");
+ }
+ writer.write_string ("enum ");
+ writer.write_begin_block ();
+ bool first = true;
+ foreach (CCodeEnumValue value in values) {
+ if (!first) {
+ writer.write_string (",");
+ writer.write_newline ();
+ }
+ writer.write_indent ();
+ value.write (writer);
+ first = false;
+ }
+ if (!first) {
+ writer.write_newline ();
+ }
+ writer.write_end_block ();
+ if (name != null) {
+ writer.write_string (" ");
+ writer.write_string (name);
+ }
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeenumvalue.vala
+ *
+ * Copyright (C) 2007-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an enum value in the C code.
+ */
+public class Vala.CCodeEnumValue : CCodeNode {
+ /**
+ * The name of this enum value.
+ */
+ public string name { get; set; }
+
+ /**
+ * The numerical representation of this enum value.
+ */
+ public CCodeExpression? value { get; set; }
+
+ public CCodeEnumValue (string name, CCodeExpression? value = null) {
+ this.name = name;
+ this.value = value;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string (name);
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ // FIXME Requires GCC 6.0 to work at this place
+ // https://gcc.gnu.org/bugzilla/show_bug.cgi?id=47043
+ //writer.write_string (GNUC_DEPRECATED);
+ }
+ if (value != null) {
+ writer.write_string (" = ");
+ value.write (writer);
+ }
+ }
+}
--- /dev/null
+/* valaccodeexpression.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an expression node in the C code tree.
+ */
+public abstract class Vala.CCodeExpression : CCodeNode {
+ public virtual void write_inner (CCodeWriter writer) {
+ this.write (writer);
+ }
+}
--- /dev/null
+/* valaccodeexpressionstatement.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a C code statement that evaluates a given expression.
+ */
+public class Vala.CCodeExpressionStatement : CCodeStatement {
+ /**
+ * The expression to evaluate.
+ */
+ public CCodeExpression expression { get; set; }
+
+ public CCodeExpressionStatement (CCodeExpression expr) {
+ expression = expr;
+ }
+
+ public override void write (CCodeWriter writer) {
+ if (expression is CCodeCommaExpression) {
+ // expand comma expression into multiple statements
+ // to improve code readability
+ var ccomma = expression as CCodeCommaExpression;
+
+ foreach (CCodeExpression expr in ccomma.get_inner ()) {
+ write_expression (writer, expr);
+ }
+ } else if (expression is CCodeParenthesizedExpression) {
+ var cpar = expression as CCodeParenthesizedExpression;
+
+ write_expression (writer, cpar.inner);
+ } else {
+ write_expression (writer, expression);
+ }
+ }
+
+ private void write_expression (CCodeWriter writer, CCodeExpression? expr) {
+ writer.write_indent (line);
+ if (expr != null) {
+ expr.write (writer);
+ }
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodefile.vala
+ *
+ * Copyright (C) 2009-2011 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+
+public class Vala.CCodeFile {
+ public CCodeFileType file_type { get; private set; }
+
+ public weak SourceFile? file { get; private set; }
+
+ Set<string> features = new HashSet<string> (str_hash, str_equal);
+ Set<string> declarations = new HashSet<string> (str_hash, str_equal);
+ Set<string> definitions = new HashSet<string> (str_hash, str_equal);
+ Set<string> includes = new HashSet<string> (str_hash, str_equal);
+ CCodeFragment comments = new CCodeFragment ();
+ CCodeFragment feature_test_macros = new CCodeFragment ();
+ CCodeFragment define_directives = new CCodeFragment ();
+ CCodeFragment include_directives = new CCodeFragment ();
+ CCodeFragment type_declaration = new CCodeFragment ();
+ CCodeFragment type_definition = new CCodeFragment ();
+ CCodeFragment type_member_declaration = new CCodeFragment ();
+ CCodeFragment constant_declaration = new CCodeFragment ();
+ CCodeFragment type_member_definition = new CCodeFragment ();
+
+ public CCodeFile (CCodeFileType type = CCodeFileType.SOURCE, SourceFile? source_file = null) {
+ file = source_file;
+ file_type = type;
+ }
+
+ public bool add_declaration (string name) {
+ if (name in declarations) {
+ return true;
+ }
+ declarations.add (name);
+ return false;
+ }
+
+ public void add_comment (CCodeComment comment) {
+ comments.append (comment);
+ }
+
+ public void add_feature_test_macro (string feature_test_macro) {
+ if (!(feature_test_macro in features)) {
+ feature_test_macros.append (new CCodeDefine (feature_test_macro));
+ features.add (feature_test_macro);
+ }
+ }
+
+ public void add_include (string filename, bool local = false) {
+ if (!(filename in includes)) {
+ include_directives.append (new CCodeIncludeDirective (filename, local));
+ includes.add (filename);
+ }
+ }
+
+ public void add_define (CCodeNode node) {
+ define_directives.append (node);
+ }
+
+ public void add_type_declaration (CCodeNode node) {
+ type_declaration.append (node);
+ }
+
+ public void add_type_definition (CCodeNode node) {
+ type_definition.append (node);
+ }
+
+ public void add_type_member_declaration (CCodeNode node) {
+ type_member_declaration.append (node);
+ }
+
+ public void add_constant_declaration (CCodeNode node) {
+ constant_declaration.append (node);
+ }
+
+ public void add_type_member_definition (CCodeNode node) {
+ type_member_definition.append (node);
+ }
+
+ public void add_function_declaration (CCodeFunction func) {
+ declarations.add (func.name);
+
+ var decl = func.copy ();
+ decl.is_declaration = true;
+ type_member_declaration.append (decl);
+ }
+
+ public void add_function (CCodeFunction func) {
+ if (!definitions.add (func.name)) {
+ Report.error (null, "internal: Redefinition of `%s'", func.name);
+ return;
+ }
+
+ type_member_definition.append (func);
+ }
+
+ public List<string> get_symbols () {
+ var symbols = new ArrayList<string> (str_equal);
+ get_symbols_from_fragment (symbols, type_member_declaration);
+ return symbols;
+ }
+
+ void get_symbols_from_fragment (List<string> symbols, CCodeFragment fragment) {
+ foreach (CCodeNode node in fragment.get_children ()) {
+ if (node is CCodeFragment) {
+ get_symbols_from_fragment (symbols, (CCodeFragment) node);
+ } else {
+ var func = node as CCodeFunction;
+ if (func != null) {
+ symbols.add (func.name);
+ }
+ }
+ }
+ }
+
+ static string get_define_for_filename (string filename) {
+ var define = new StringBuilder ("__");
+
+ var i = filename;
+ while (i.length > 0) {
+ var c = i.get_char ();
+ if (c.isalnum () && c < 0x80) {
+ define.append_unichar (c.toupper ());
+ } else {
+ define.append_c ('_');
+ }
+
+ i = i.next_char ();
+ }
+
+ define.append ("__");
+
+ return define.str;
+ }
+
+ public bool store (string filename, string? source_filename, bool write_version, bool line_directives, string? begin_decls = null, string? end_decls = null) {
+ var writer = new CCodeWriter (filename, source_filename);
+ if (!writer.open (write_version)) {
+ return false;
+ }
+
+ if (file_type == CCodeFileType.SOURCE) {
+ writer.line_directives = line_directives;
+
+ comments.write (writer);
+ writer.write_newline ();
+ feature_test_macros.write (writer);
+ writer.write_newline ();
+ include_directives.write (writer);
+ writer.write_newline ();
+ define_directives.write (writer);
+ writer.write_newline ();
+ type_declaration.write_combined (writer);
+ writer.write_newline ();
+ type_definition.write_combined (writer);
+ writer.write_newline ();
+ type_member_declaration.write_declaration (writer);
+ writer.write_newline ();
+ type_member_declaration.write (writer);
+ writer.write_newline ();
+ constant_declaration.write_combined (writer);
+ writer.write_newline ();
+ type_member_definition.write (writer);
+ writer.write_newline ();
+ } else {
+ writer.write_newline ();
+
+ var once = new CCodeOnceSection (get_define_for_filename (writer.filename));
+ once.append (new CCodeNewline ());
+ once.append (include_directives);
+ once.append (new CCodeNewline ());
+
+ if (begin_decls != null) {
+ once.append (new CCodeIdentifier (begin_decls));
+ once.append (new CCodeNewline ());
+ }
+
+ once.append (new CCodeNewline ());
+ once.append (define_directives);
+ once.append (new CCodeNewline ());
+ once.append (type_declaration);
+ once.append (new CCodeNewline ());
+ once.append (type_definition);
+ once.append (new CCodeNewline ());
+ once.append (type_member_declaration);
+ once.append (new CCodeNewline ());
+ once.append (constant_declaration);
+ once.append (new CCodeNewline ());
+
+ if (end_decls != null) {
+ once.append (new CCodeIdentifier (end_decls));
+ once.append (new CCodeNewline ());
+ }
+
+ once.append (new CCodeNewline ());
+ once.write (writer);
+ }
+
+ writer.close ();
+
+ return true;
+ }
+}
+
+[Flags]
+public enum CCodeFileType {
+ SOURCE,
+ PUBLIC_HEADER,
+ INTERNAL_HEADER,
+ HEADER = PUBLIC_HEADER | INTERNAL_HEADER
+}
--- /dev/null
+/* valaccodeforstatement.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a for iteration statement in the C code.
+ */
+public class Vala.CCodeForStatement : CCodeStatement {
+ /**
+ * The loop condition.
+ */
+ public CCodeExpression? condition { get; set; }
+
+ /**
+ * The loop body.
+ */
+ public CCodeStatement body { get; set; }
+
+ private List<CCodeExpression> initializer = new ArrayList<CCodeExpression> ();
+ private List<CCodeExpression> iterator = new ArrayList<CCodeExpression> ();
+
+ public CCodeForStatement (CCodeExpression? condition, CCodeStatement? body = null) {
+ this.condition = condition;
+ this.body = body;
+ }
+
+ /**
+ * Appends the specified expression to the list of initializers.
+ *
+ * @param expr an initializer expression
+ */
+ public void add_initializer (CCodeExpression expr) {
+ initializer.add (expr);
+ }
+
+ /**
+ * Appends the specified expression to the iterator.
+ *
+ * @param expr an iterator expression
+ */
+ public void add_iterator (CCodeExpression expr) {
+ iterator.add (expr);
+ }
+
+ public override void write (CCodeWriter writer) {
+ bool first;
+
+ writer.write_indent (line);
+ writer.write_string ("for (");
+
+ first = true;
+ foreach (CCodeExpression init_expr in initializer) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+ if (init_expr != null) {
+ init_expr.write (writer);
+ }
+ }
+
+ writer.write_string ("; ");
+ if (condition != null) {
+ condition.write (writer);
+ }
+ writer.write_string ("; ");
+
+ first = true;
+ foreach (CCodeExpression it_expr in iterator) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+ if (it_expr != null) {
+ it_expr.write (writer);
+ }
+ }
+
+ writer.write_string (")");
+ body.write (writer);
+ }
+}
--- /dev/null
+/* valaccodefragment.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a container for C code nodes.
+ */
+public class Vala.CCodeFragment : CCodeNode {
+ private List<CCodeNode> children = new ArrayList<CCodeNode> ();
+
+ /**
+ * Appends the specified code node to this code fragment.
+ *
+ * @param node a C code node
+ */
+ public void append (CCodeNode node) {
+ children.add (node);
+ }
+
+ /**
+ * Returns the list of children.
+ *
+ * @return children list
+ */
+ public unowned List<CCodeNode> get_children () {
+ return children;
+ }
+
+ public override void write (CCodeWriter writer) {
+ foreach (CCodeNode node in children) {
+ node.write (writer);
+ }
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ foreach (CCodeNode node in children) {
+ node.write_declaration (writer);
+ }
+ }
+
+ public override void write_combined (CCodeWriter writer) {
+ foreach (CCodeNode node in children) {
+ node.write_combined (writer);
+ }
+ }
+}
--- /dev/null
+/* valaccodefunction.vala
+ *
+ * Copyright (C) 2006-2012 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a function declaration in the C code.
+ */
+public class Vala.CCodeFunction : CCodeNode {
+ /**
+ * The name of this function.
+ */
+ public string name { get; set; }
+
+ /**
+ * The function return type.
+ */
+ public string return_type { get; set; }
+
+ public bool is_declaration { get; set; }
+
+ /**
+ * The function body.
+ */
+ public CCodeBlock block { get; set; }
+
+ /**
+ * The current line directive.
+ */
+ public CCodeLineDirective current_line { get; set; }
+
+ /**
+ * The current block to be written into.
+ */
+ public CCodeBlock current_block { get; set; }
+
+ private List<CCodeParameter> parameters = new ArrayList<CCodeParameter> ();
+
+ List<CCodeStatement> statement_stack = new ArrayList<CCodeStatement> ();
+
+ public CCodeFunction (string name, string return_type = "void") {
+ this.name = name;
+ this.return_type = return_type;
+ this.block = new CCodeBlock ();
+ current_block = block;
+ }
+
+ /**
+ * Appends the specified parameter to the list of function parameters.
+ *
+ * @param param a formal parameter
+ */
+ public void add_parameter (CCodeParameter param) {
+ parameters.add (param);
+ }
+
+ public void insert_parameter (int position, CCodeParameter param) {
+ parameters.insert (position, param);
+ }
+
+ public int get_parameter_count () {
+ return parameters.size;
+ }
+
+ public CCodeParameter get_parameter (int position) {
+ return parameters[position];
+ }
+
+ /**
+ * Returns a copy of this function.
+ *
+ * @return copied function
+ */
+ public CCodeFunction copy () {
+ var func = new CCodeFunction (name, return_type);
+ func.modifiers = modifiers;
+
+ /* no deep copy for lists available yet
+ * func.parameters = parameters.copy ();
+ */
+ foreach (CCodeParameter param in parameters) {
+ func.parameters.add (param);
+ }
+
+ func.is_declaration = is_declaration;
+ func.block = block;
+ return func;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ if (CCodeModifiers.INTERNAL in modifiers) {
+ writer.write_string (GNUC_INTERNAL);
+ } else if (is_declaration && CCodeModifiers.EXTERN in modifiers) {
+ writer.write_string ("VALA_EXTERN ");
+ }
+ if (!is_declaration && CCodeModifiers.NO_INLINE in modifiers) {
+ writer.write_string (GNUC_NO_INLINE);
+ }
+ if (CCodeModifiers.STATIC in modifiers) {
+ writer.write_string ("static ");
+ }
+ if (CCodeModifiers.INLINE in modifiers) {
+ writer.write_string ("inline ");
+ }
+ writer.write_string (return_type);
+ if (is_declaration) {
+ writer.write_string (" ");
+ } else {
+ writer.write_newline ();
+ }
+ writer.write_string (name);
+ writer.write_string (" (");
+ int param_pos_begin = (is_declaration ? return_type.char_count () + 1 : 0 ) + name.char_count () + 2;
+
+ bool has_args = (CCodeModifiers.PRINTF in modifiers || CCodeModifiers.SCANF in modifiers);
+ int i = 0;
+ int format_arg_index = -1;
+ int args_index = -1;
+ foreach (CCodeParameter param in parameters) {
+ if (i > 0) {
+ writer.write_string (",");
+ writer.write_newline ();
+ writer.write_nspaces (param_pos_begin);
+ }
+ param.write (writer);
+ if (CCodeModifiers.FORMAT_ARG in param.modifiers) {
+ format_arg_index = i;
+ }
+ if (has_args && param.ellipsis) {
+ args_index = i;
+ } else if (has_args && param.type_name == "va_list" && format_arg_index < 0) {
+ format_arg_index = i - 1;
+ }
+ i++;
+ }
+ if (i == 0) {
+ writer.write_string ("void");
+ }
+
+ writer.write_string (")");
+
+ if (is_declaration) {
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+
+ if (CCodeModifiers.PRINTF in modifiers) {
+ format_arg_index = (format_arg_index >= 0 ? format_arg_index + 1 : args_index);
+ writer.write_string (GNUC_PRINTF.printf (format_arg_index, args_index + 1));
+ } else if (CCodeModifiers.SCANF in modifiers) {
+ format_arg_index = (format_arg_index >= 0 ? format_arg_index + 1 : args_index);
+ writer.write_string (GNUC_SCANF.printf (format_arg_index, args_index + 1));
+ } else if (format_arg_index >= 0) {
+ writer.write_string (GNUC_FORMAT.printf (format_arg_index + 1));
+ }
+
+ if (CCodeModifiers.CONST in modifiers) {
+ writer.write_string (GNUC_CONST);
+ }
+ if (CCodeModifiers.UNUSED in modifiers) {
+ writer.write_string (GNUC_UNUSED);
+ }
+
+ if (CCodeModifiers.CONSTRUCTOR in modifiers) {
+ writer.write_string (" __attribute__((constructor))");
+ } else if (CCodeModifiers.DESTRUCTOR in modifiers) {
+ writer.write_string (" __attribute__((destructor))");
+ }
+
+ writer.write_string (";");
+ } else {
+ writer.write_newline ();
+ block.write (writer);
+ writer.write_newline ();
+ }
+ writer.write_newline ();
+ }
+
+ public void add_statement (CCodeNode stmt) {
+ stmt.line = current_line;
+ current_block.add_statement (stmt);
+ }
+
+ public void open_block () {
+ statement_stack.add (current_block);
+ var parent_block = current_block;
+
+ current_block = new CCodeBlock ();
+
+ parent_block.add_statement (current_block);
+ }
+
+ public void open_if (CCodeExpression condition) {
+ statement_stack.add (current_block);
+ var parent_block = current_block;
+
+ current_block = new CCodeBlock ();
+
+ var cif = new CCodeIfStatement (condition, current_block);
+ cif.line = current_line;
+ statement_stack.add (cif);
+
+ parent_block.add_statement (cif);
+ }
+
+ public void add_else () {
+ current_block = new CCodeBlock ();
+
+ var cif = (CCodeIfStatement) statement_stack[statement_stack.size - 1];
+ cif.line = current_line;
+ assert (cif.false_statement == null);
+ cif.false_statement = current_block;
+ }
+
+ public void else_if (CCodeExpression condition) {
+ var parent_if = (CCodeIfStatement) statement_stack.remove_at (statement_stack.size - 1);
+ assert (parent_if.false_statement == null);
+
+ current_block = new CCodeBlock ();
+
+ var cif = new CCodeIfStatement (condition, current_block);
+ cif.line = current_line;
+ parent_if.false_statement = cif;
+ statement_stack.add (cif);
+ }
+
+ public void open_while (CCodeExpression condition) {
+ statement_stack.add (current_block);
+ var parent_block = current_block;
+
+ current_block = new CCodeBlock ();
+
+ var cwhile = new CCodeWhileStatement (condition, current_block);
+ cwhile.line = current_line;
+ parent_block.add_statement (cwhile);
+ }
+
+ public void open_for (CCodeExpression? initializer, CCodeExpression condition, CCodeExpression? iterator) {
+ statement_stack.add (current_block);
+ var parent_block = current_block;
+
+ current_block = new CCodeBlock ();
+
+ var cfor = new CCodeForStatement (condition, current_block);
+ cfor.line = current_line;
+ if (initializer != null) {
+ cfor.add_initializer (initializer);
+ }
+ if (iterator != null) {
+ cfor.add_iterator (iterator);
+ }
+
+ parent_block.add_statement (cfor);
+ }
+
+ public void open_switch (CCodeExpression expression) {
+ statement_stack.add (current_block);
+ var parent_block = current_block;
+
+ var cswitch = new CCodeSwitchStatement (expression);
+ cswitch.line = current_line;
+ current_block = cswitch;
+
+ parent_block.add_statement (cswitch);
+ }
+
+ public void add_label (string label) {
+ add_statement (new CCodeLabel (label));
+ }
+
+ public void add_case (CCodeExpression expression) {
+ add_statement (new CCodeCaseStatement (expression));
+ }
+
+ public void add_default () {
+ add_statement (new CCodeLabel ("default"));
+ }
+
+ public void add_goto (string target) {
+ add_statement (new CCodeGotoStatement (target));
+ }
+
+ public void add_expression (CCodeExpression expression) {
+ add_statement (new CCodeExpressionStatement (expression));
+ }
+
+ public void add_assignment (CCodeExpression left, CCodeExpression right) {
+ add_expression (new CCodeAssignment (left, right));
+ }
+
+ public void add_return (CCodeExpression? expression = null) {
+ add_statement (new CCodeReturnStatement (expression));
+ }
+
+ public void add_break () {
+ add_statement (new CCodeBreakStatement ());
+ }
+
+ public void add_continue () {
+ add_statement (new CCodeContinueStatement ());
+ }
+
+ public void add_declaration (string type_name, CCodeDeclarator declarator, CCodeModifiers modifiers = 0) {
+ var stmt = new CCodeDeclaration (type_name);
+ stmt.add_declarator (declarator);
+ stmt.modifiers = modifiers;
+ add_statement (stmt);
+ }
+
+ public void close () {
+ do {
+ var top = statement_stack.remove_at (statement_stack.size - 1);
+ current_block = top as CCodeBlock;
+ } while (current_block == null);
+ }
+}
--- /dev/null
+/* valaccodefunctioncall.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a function call in the C code.
+ */
+public class Vala.CCodeFunctionCall : CCodeExpression {
+ /**
+ * The function to be called.
+ */
+ public CCodeExpression? call { get; set; }
+
+ private List<CCodeExpression> arguments = new ArrayList<CCodeExpression> ();
+
+ public CCodeFunctionCall (CCodeExpression? call = null) {
+ this.call = call;
+ }
+
+ /**
+ * Appends the specified expression to the list of arguments.
+ *
+ * @param expr a C code expression
+ */
+ public void add_argument (CCodeExpression expr) {
+ arguments.add (expr);
+ }
+
+ public void insert_argument (int index, CCodeExpression expr) {
+ arguments.insert (index, expr);
+ }
+
+ /**
+ * Returns the list of arguments.
+ *
+ * @return list of arguments
+ */
+ public unowned List<CCodeExpression> get_arguments () {
+ return arguments;
+ }
+
+ public override void write (CCodeWriter writer) {
+ call.write_inner (writer);
+ writer.write_string (" (");
+
+ bool first = true;
+ foreach (CCodeExpression expr in arguments) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+
+ if (expr != null) {
+ expr.write (writer);
+ }
+ }
+
+ writer.write_string (")");
+ }
+}
--- /dev/null
+/* valaccodefunctiondeclarator.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a function pointer declarator in the C code.
+ */
+public class Vala.CCodeFunctionDeclarator : CCodeDeclarator {
+ private List<CCodeParameter> parameters = new ArrayList<CCodeParameter> ();
+
+ public CCodeFunctionDeclarator (string name) {
+ this.name = name;
+ }
+
+ /**
+ * Appends the specified parameter to the list of function parameters.
+ *
+ * @param param a formal parameter
+ */
+ public void add_parameter (CCodeParameter param) {
+ parameters.add (param);
+ }
+
+ public override void write (CCodeWriter writer) {
+ write_declaration (writer);
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ writer.write_string ("(*");
+ writer.write_string (name);
+ writer.write_string (") (");
+
+ bool has_args = (CCodeModifiers.PRINTF in modifiers || CCodeModifiers.SCANF in modifiers);
+ int i = 0;
+ int format_arg_index = -1;
+ int args_index = -1;
+ foreach (CCodeParameter param in parameters) {
+ if (i > 0) {
+ writer.write_string (", ");
+ }
+ param.write (writer);
+ if (CCodeModifiers.FORMAT_ARG in param.modifiers) {
+ format_arg_index = i;
+ }
+ if (has_args && param.ellipsis) {
+ args_index = i;
+ } else if (has_args && param.type_name == "va_list" && format_arg_index < 0) {
+ format_arg_index = i - 1;
+ }
+ i++;
+ }
+ if (i == 0) {
+ writer.write_string ("void");
+ }
+
+ writer.write_string (")");
+
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+
+ if (CCodeModifiers.PRINTF in modifiers) {
+ format_arg_index = (format_arg_index >= 0 ? format_arg_index + 1 : args_index);
+ writer.write_string (GNUC_PRINTF.printf (format_arg_index, args_index + 1));
+ } else if (CCodeModifiers.SCANF in modifiers) {
+ format_arg_index = (format_arg_index >= 0 ? format_arg_index + 1 : args_index);
+ writer.write_string (GNUC_SCANF.printf (format_arg_index, args_index + 1));
+ } else if (format_arg_index >= 0) {
+ writer.write_string (GNUC_FORMAT.printf (format_arg_index + 1));
+ }
+ }
+}
--- /dev/null
+/* valaccodeggnucsection.vala
+ *
+ * Copyright (C) 2016 Rico Tzschichholz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+using GLib;
+
+/**
+ * Represents a section that should be processed on condition.
+ */
+public class Vala.CCodeGGnucSection : CCodeFragment {
+ /**
+ * The expression
+ */
+ public GGnucSectionType section_type { get; set; }
+
+ public CCodeGGnucSection (GGnucSectionType t) {
+ section_type = t;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string ("G_GNUC_BEGIN_");
+ writer.write_string (section_type.to_string ());
+ writer.write_newline ();
+ foreach (CCodeNode node in get_children ()) {
+ node.write_combined (writer);
+ }
+ writer.write_string ("G_GNUC_END_");
+ writer.write_string (section_type.to_string ());
+ writer.write_newline ();
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ }
+}
+
+public enum Vala.GGnucSectionType {
+ IGNORE_DEPRECATIONS;
+
+ public unowned string to_string () {
+ switch (this) {
+ case IGNORE_DEPRECATIONS:
+ return "IGNORE_DEPRECATIONS";
+ default:
+ assert_not_reached ();
+ }
+ }
+}
--- /dev/null
+/* valaccodegotostatement.vala
+ *
+ * Copyright (C) 2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a goto statement in the C code.
+ */
+public class Vala.CCodeGotoStatement : CCodeStatement {
+ /**
+ * The name of the target label.
+ */
+ public string name { get; set; }
+
+ public CCodeGotoStatement (string name) {
+ this.name = name;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string ("goto ");
+ writer.write_string (name);
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeidentifier.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a identifier in the C code.
+ */
+public class Vala.CCodeIdentifier : CCodeExpression {
+ /**
+ * The name of this identifier.
+ */
+ public string name { get; set; }
+
+ public CCodeIdentifier (string _name) {
+ name = _name;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string (name);
+ }
+}
--- /dev/null
+/* valaccodeifsection.vala
+ *
+ * Copyright (C) 2013 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Marc-André Lurau <marcandre.lureau@redhat.com>
+ */
+
+using GLib;
+
+/**
+ * Represents a section that should be processed on condition.
+ */
+public class Vala.CCodeIfSection : CCodeFragment {
+ /**
+ * The conditional expression, or null if there is no condition.
+ */
+ public string? expression { get; set; }
+
+ CCodeIfSection? else_section;
+ bool is_else_section;
+
+ public CCodeIfSection (string? expr) {
+ expression = expr;
+ is_else_section = false;
+ }
+
+ public unowned CCodeIfSection append_else (string? expr = null) {
+ else_section = new CCodeIfSection (expr);
+ else_section.is_else_section = true;
+ return else_section;
+ }
+
+ public override void write (CCodeWriter writer) {
+ if (is_else_section) {
+ if (expression != null) {
+ writer.write_string ("#elif ");
+ writer.write_string (expression);
+ } else {
+ writer.write_string ("#else");
+ }
+ } else if (expression != null) {
+ writer.write_string ("#if ");
+ writer.write_string (expression);
+ }
+ writer.write_newline ();
+ foreach (CCodeNode node in get_children ()) {
+ node.write_combined (writer);
+ }
+ if (else_section != null) {
+ else_section.write_combined (writer);
+ } else {
+ writer.write_string ("#endif");
+ writer.write_newline ();
+ }
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ }
+
+ public override void write_combined (CCodeWriter writer) {
+ write (writer);
+ }
+}
--- /dev/null
+/* valaccodeifstatement.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an if selection statement in the C code.
+ */
+public class Vala.CCodeIfStatement : CCodeStatement {
+ /**
+ * The boolean condition to evaluate.
+ */
+ public CCodeExpression condition { get; set; }
+
+ /**
+ * The statement to be evaluated if the condition holds.
+ */
+ public CCodeStatement true_statement { get; set; }
+
+ /**
+ * The optional statement to be evaluated if the condition doesn't hold.
+ */
+ public CCodeStatement? false_statement { get; set; }
+
+ public CCodeIfStatement (CCodeExpression cond, CCodeStatement true_stmt, CCodeStatement? false_stmt = null) {
+ condition = cond;
+ true_statement = true_stmt;
+ false_statement = false_stmt;
+ }
+
+ /**
+ * Specifies whether this if statement is part of an else if statement.
+ * This only affects the output formatting.
+ */
+ public bool else_if { get; set; }
+
+ public override void write (CCodeWriter writer) {
+ if (!else_if) {
+ writer.write_indent (line);
+ } else {
+ writer.write_string (" ");
+ }
+ writer.write_string ("if (");
+ if (condition != null) {
+ condition.write (writer);
+ }
+ writer.write_string (")");
+
+ /* else shouldn't be on a separate line */
+ if (false_statement != null && true_statement is CCodeBlock) {
+ var cblock = (CCodeBlock) true_statement;
+ cblock.suppress_newline = true;
+ }
+
+ true_statement.write (writer);
+ if (false_statement != null) {
+ if (writer.bol) {
+ writer.write_indent ();
+ writer.write_string ("else");
+ } else {
+ writer.write_string (" else");
+ }
+
+ /* else if should be on one line */
+ if (false_statement is CCodeIfStatement) {
+ var cif = (CCodeIfStatement) false_statement;
+ cif.else_if = true;
+ }
+
+ false_statement.write (writer);
+ }
+ }
+}
--- /dev/null
+/* valaccodeincludedirective.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an include preprocessor directive in the C code.
+ */
+public class Vala.CCodeIncludeDirective : CCodeNode {
+ /**
+ * The file to be included.
+ */
+ public string filename { get; set; }
+
+ /**
+ * Specifies whether the specified file should be searched in the local
+ * directory.
+ */
+ public bool local { get; set; }
+
+ public CCodeIncludeDirective (string _filename, bool _local = false) {
+ filename = _filename;
+ local = _local;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string ("#include ");
+ if (local) {
+ writer.write_string ("\"");
+ writer.write_string (filename);
+ writer.write_string ("\"");
+ } else {
+ writer.write_string ("<");
+ writer.write_string (filename);
+ writer.write_string (">");
+ }
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeinitializerlist.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a struct or array initializer list in the C code.
+ */
+public class Vala.CCodeInitializerList : CCodeExpression {
+ private List<CCodeExpression> initializers = new ArrayList<CCodeExpression> ();
+
+ /**
+ * Appends the specified expression to this initializer list.
+ *
+ * @param expr an expression
+ */
+ public void append (CCodeExpression expr) {
+ initializers.add (expr);
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string ("{");
+
+ bool first = true;
+ foreach (CCodeExpression expr in initializers) {
+ if (!first) {
+ writer.write_string (", ");
+ } else {
+ first = false;
+ }
+
+ if (expr != null) {
+ expr.write (writer);
+ }
+ }
+
+ writer.write_string ("}");
+ }
+}
--- /dev/null
+/* valaccodeinvalidexpression.vala
+ *
+ * Copyright (C) 2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+/**
+ * Represents an invalid expression.
+ */
+public class Vala.CCodeInvalidExpression : CCodeExpression {
+ public CCodeInvalidExpression () {
+ }
+
+ public override void write (CCodeWriter writer) {
+ assert_not_reached ();
+ }
+}
--- /dev/null
+/* valaccodelabel.vala
+ *
+ * Copyright (C) 2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a label declaration in the C code.
+ */
+public class Vala.CCodeLabel : CCodeStatement {
+ /**
+ * The name of this label.
+ */
+ public string name { get; set; }
+
+ public CCodeLabel (string name) {
+ this.name = name;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string (name);
+ writer.write_string (":");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodelinedirective.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a line directive in the C code.
+ */
+public class Vala.CCodeLineDirective : CCodeNode {
+ /**
+ * The name of the source file to be presumed.
+ */
+ public string filename { get; set; }
+
+ /**
+ * The line number in the source file to be presumed.
+ */
+ public int line_number { get; set; }
+
+ public CCodeLineDirective (string _filename, int _line) {
+ filename = _filename;
+ line_number = _line;
+ }
+
+ public override void write (CCodeWriter writer) {
+ if (!writer.bol) {
+ writer.write_newline ();
+ }
+ writer.write_string ("#line %d \"%s\"".printf (line_number, filename));
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodemacroreplacement.vala
+ *
+ * Copyright (C) 2006-2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a preprocessor macro replacement definition in the C code.
+ */
+public class Vala.CCodeMacroReplacement : CCodeDefine {
+ public CCodeMacroReplacement (string name, string replacement) {
+ base (name, replacement);
+ }
+
+ public CCodeMacroReplacement.with_expression (string name, CCodeExpression replacement_expression) {
+ base.with_expression (name, replacement_expression);
+ }
+}
--- /dev/null
+/* valaccodememberaccess.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an access to a struct member in the C code.
+ */
+public class Vala.CCodeMemberAccess : CCodeExpression {
+ /**
+ * The parent of the member.
+ */
+ public CCodeExpression inner { get; set; }
+
+ /**
+ * The name of the member.
+ */
+ public string member_name { get; set; }
+
+ /**
+ * Specifies whether the member access happens by pointer dereferencing.
+ */
+ public bool is_pointer { get; set; }
+
+ public CCodeMemberAccess (CCodeExpression container, string member, bool pointer = false) {
+ inner = container;
+ member_name = member;
+ is_pointer = pointer;
+ }
+
+ public CCodeMemberAccess.pointer (CCodeExpression container, string member) {
+ inner = container;
+ member_name = member;
+ is_pointer = true;
+ }
+
+ public override void write (CCodeWriter writer) {
+ inner.write_inner (writer);
+ if (is_pointer) {
+ writer.write_string ("->");
+ } else {
+ writer.write_string (".");
+ }
+ writer.write_string (member_name);
+ }
+}
--- /dev/null
+/* valaccodemodifiers.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+[Flags]
+public enum Vala.CCodeModifiers {
+ NONE = 0,
+ STATIC,
+ REGISTER,
+ EXTERN,
+ INLINE,
+ VOLATILE,
+ DEPRECATED,
+ THREAD_LOCAL,
+ INTERNAL,
+ CONST,
+ UNUSED,
+ CONSTRUCTOR,
+ DESTRUCTOR,
+ FORMAT_ARG,
+ PRINTF,
+ SCANF,
+ NO_INLINE
+}
--- /dev/null
+/* valaccodenewline.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a line break in the C code.
+ */
+public class Vala.CCodeNewline : CCodeNode {
+ public override void write (CCodeWriter writer) {
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodenode.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a node in the C code tree.
+ */
+public abstract class Vala.CCodeNode {
+ /**
+ * The source file name and line number to be presumed for this code
+ * node.
+ */
+ public CCodeLineDirective line { get; set; }
+
+ /**
+ * The modifiers for this code node which will be handled as needed
+ * in every subclass.
+ */
+ public CCodeModifiers modifiers { get; set; }
+
+ /**
+ * Writes this code node and all children with the specified C code
+ * writer.
+ *
+ * @param writer a C code writer
+ */
+ public abstract void write (CCodeWriter writer);
+
+ /**
+ * Writes declaration for this code node with the specified C code
+ * writer if necessary.
+ *
+ * @param writer a C code writer
+ */
+ public virtual void write_declaration (CCodeWriter writer) {
+ }
+
+ /**
+ * Writes declaration and implementation combined for this code node and
+ * all children with the specified C code writer.
+ *
+ * @param writer a C code writer
+ */
+ public virtual void write_combined (CCodeWriter writer) {
+ write_declaration (writer);
+ write (writer);
+ }
+}
--- /dev/null
+/* valaccodeoncesection.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a section that should only to processed once.
+ */
+public class Vala.CCodeOnceSection : CCodeFragment {
+ /**
+ * The name of the guarding define.
+ */
+ public string define { get; set; }
+
+ public CCodeOnceSection (string def) {
+ define = def;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string ("#ifndef ");
+ writer.write_string (define);
+ writer.write_newline ();
+ writer.write_string ("#define ");
+ writer.write_string (define);
+ writer.write_newline ();
+ foreach (CCodeNode node in get_children ()) {
+ node.write_combined (writer);
+ }
+ writer.write_indent ();
+ writer.write_string ("#endif");
+ writer.write_newline ();
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ }
+}
--- /dev/null
+/* valaccodeparameter.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a formal parameter in a C method signature.
+ */
+public class Vala.CCodeParameter : CCodeNode {
+ /**
+ * The parameter name.
+ */
+ public string name { get; set; }
+
+ /**
+ * The parameter type.
+ */
+ public string type_name { get; set; }
+
+ /**
+ * Specifies whether the function accepts an indefinite number of
+ * arguments.
+ */
+ public bool ellipsis { get; set; }
+
+ CCodeDeclarator? declarator;
+
+ public CCodeParameter (string n, string type) {
+ name = n;
+ type_name = type;
+ }
+
+ public CCodeParameter.with_ellipsis () {
+ ellipsis = true;
+ }
+
+ public CCodeParameter.with_declarator (string type, CCodeDeclarator decl) {
+ name = decl.name;
+ type_name = type;
+ declarator = decl;
+ }
+
+ public override void write (CCodeWriter writer) {
+ if (!ellipsis) {
+ writer.write_string (type_name);
+ writer.write_string (" ");
+ if (declarator != null) {
+ declarator.write (writer);
+ } else {
+ writer.write_string (name);
+ }
+ } else {
+ writer.write_string ("...");
+ }
+ }
+}
--- /dev/null
+/* valaccodeparenthesizedexpression.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a parenthesized expression in the C code.
+ */
+public class Vala.CCodeParenthesizedExpression : CCodeExpression {
+ /**
+ * The expression in the parenthesis.
+ */
+ public CCodeExpression inner { get; set; }
+
+ public CCodeParenthesizedExpression (CCodeExpression expr) {
+ inner = expr;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string ("(");
+
+ inner.write (writer);
+
+ writer.write_string (")");
+ }
+}
--- /dev/null
+/* valaccodereturnstatement.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a return statement in the C code.
+ */
+public class Vala.CCodeReturnStatement : CCodeStatement {
+ /**
+ * The optional expression to return.
+ */
+ public CCodeExpression? return_expression { get; set; }
+
+ public CCodeReturnStatement (CCodeExpression? expr = null) {
+ return_expression = expr;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("return");
+
+ if (return_expression != null) {
+ writer.write_string (" ");
+ return_expression.write (writer);
+ }
+
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodestatement.vala
+ *
+ * Copyright (C) 2006 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a statement in the C code.
+ */
+public abstract class Vala.CCodeStatement : CCodeNode {
+}
--- /dev/null
+/* valaccodestruct.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a struct declaration in the C code.
+ */
+public class Vala.CCodeStruct : CCodeNode {
+ /**
+ * The struct name.
+ */
+ public string name { get; set; }
+
+ public bool is_empty { get { return declarations.size == 0; } }
+
+ private List<CCodeDeclaration> declarations = new ArrayList<CCodeDeclaration> ();
+
+ public CCodeStruct (string name) {
+ this.name = name;
+ }
+
+ /**
+ * Adds the specified declaration as member to this struct.
+ *
+ * @param decl a variable declaration
+ */
+ public void add_declaration (CCodeDeclaration decl) {
+ declarations.add (decl);
+ }
+
+ /**
+ * Adds a variable with the specified type and name to this struct.
+ *
+ * @param type_name field type
+ * @param name member name
+ */
+ public void add_field (string type_name, string name, CCodeModifiers modifiers = 0, CCodeDeclaratorSuffix? declarator_suffix = null) {
+ var decl = new CCodeDeclaration (type_name);
+ decl.add_declarator (new CCodeVariableDeclarator (name, null, declarator_suffix));
+ decl.modifiers = modifiers;
+ add_declaration (decl);
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string ("struct ");
+ writer.write_string (name);
+ writer.write_begin_block ();
+ foreach (CCodeDeclaration decl in declarations) {
+ decl.write_declaration (writer);
+ }
+
+ writer.write_end_block ();
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+ writer.write_string (";");
+ writer.write_newline ();
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeswitchstatement.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a switch selection statement in the C code.
+ */
+public class Vala.CCodeSwitchStatement : CCodeBlock {
+ /**
+ * The switch expression.
+ */
+ public CCodeExpression expression { get; set; }
+
+ public CCodeSwitchStatement (CCodeExpression expression) {
+ this.expression = expression;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("switch (");
+ expression.write (writer);
+ writer.write_string (")");
+
+ base.write (writer);
+ }
+}
--- /dev/null
+/* valaccodetypedefinition.vala
+ *
+ * Copyright (C) 2006-2007 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a typedef in the C code.
+ */
+public class Vala.CCodeTypeDefinition : CCodeNode {
+ /**
+ * The type name.
+ */
+ public string type_name { get; set; }
+
+ /**
+ * The type declarator.
+ */
+ public CCodeDeclarator declarator { get; set; }
+
+ public CCodeTypeDefinition (string type, CCodeDeclarator decl) {
+ type_name = type;
+ declarator = decl;
+ }
+
+ public override void write (CCodeWriter writer) {
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ writer.write_indent ();
+ writer.write_string ("typedef ");
+
+ writer.write_string (type_name);
+
+ writer.write_string (" ");
+
+ declarator.write_declaration (writer);
+
+ if (CCodeModifiers.DEPRECATED in modifiers) {
+ writer.write_string (GNUC_DEPRECATED);
+ }
+
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+}
--- /dev/null
+/* valaccodeunaryexpression.vala
+ *
+ * Copyright (C) 2006-2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents an expression with one operand in the C code.
+ */
+public class Vala.CCodeUnaryExpression : CCodeExpression {
+ /**
+ * The unary operator.
+ */
+ public CCodeUnaryOperator operator { get; set; }
+
+ /**
+ * The operand.
+ */
+ public CCodeExpression inner { get; set; }
+
+ public CCodeUnaryExpression (CCodeUnaryOperator op, CCodeExpression expr) {
+ operator = op;
+ inner = expr;
+ }
+
+ public override void write (CCodeWriter writer) {
+ switch (operator) {
+ case CCodeUnaryOperator.PLUS: writer.write_string ("+"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.MINUS: writer.write_string ("-"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.LOGICAL_NEGATION: writer.write_string ("!"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.BITWISE_COMPLEMENT: writer.write_string ("~"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.POINTER_INDIRECTION:
+ var inner_unary = inner as CCodeUnaryExpression;
+ if (inner_unary != null && inner_unary.operator == CCodeUnaryOperator.ADDRESS_OF) {
+ // simplify expression
+ inner_unary.inner.write (writer);
+ return;
+ }
+ writer.write_string ("*");
+ inner.write_inner (writer);
+ break;
+ case CCodeUnaryOperator.ADDRESS_OF:
+ var inner_unary = inner as CCodeUnaryExpression;
+ if (inner_unary != null && inner_unary.operator == CCodeUnaryOperator.POINTER_INDIRECTION) {
+ // simplify expression
+ inner_unary.inner.write (writer);
+ return;
+ }
+ writer.write_string ("&");
+ inner.write_inner (writer);
+ break;
+ case CCodeUnaryOperator.PREFIX_INCREMENT: writer.write_string ("++"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.PREFIX_DECREMENT: writer.write_string ("--"); inner.write_inner (writer); break;
+ case CCodeUnaryOperator.POSTFIX_INCREMENT: inner.write_inner (writer); writer.write_string ("++"); break;
+ case CCodeUnaryOperator.POSTFIX_DECREMENT: inner.write_inner (writer); writer.write_string ("--"); break;
+ default: assert_not_reached ();
+ }
+ }
+
+ public override void write_inner (CCodeWriter writer) {
+ writer.write_string ("(");
+ this.write (writer);
+ writer.write_string (")");
+ }
+}
+
+public enum Vala.CCodeUnaryOperator {
+ PLUS,
+ MINUS,
+ LOGICAL_NEGATION,
+ BITWISE_COMPLEMENT,
+ POINTER_INDIRECTION,
+ ADDRESS_OF,
+ PREFIX_INCREMENT,
+ PREFIX_DECREMENT,
+ POSTFIX_INCREMENT,
+ POSTFIX_DECREMENT
+}
--- /dev/null
+/* valaccodevariabledeclarator.vala
+ *
+ * Copyright (C) 2006-2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a variable declarator in the C code.
+ */
+public class Vala.CCodeVariableDeclarator : CCodeDeclarator {
+ /**
+ * The optional initializer expression.
+ */
+ public CCodeExpression? initializer { get; set; }
+
+ /**
+ * The optional declarator suffix.
+ */
+ public CCodeDeclaratorSuffix? declarator_suffix { get; set; }
+
+ /**
+ * Initializer only used to zero memory, safe to initialize as part
+ * of declaration at beginning of block instead of separate assignment.
+ */
+ public bool init0 { get; set; }
+
+ public CCodeVariableDeclarator (string name, CCodeExpression? initializer = null, CCodeDeclaratorSuffix? declarator_suffix = null) {
+ this.name = name;
+ this.initializer = initializer;
+ this.declarator_suffix = declarator_suffix;
+ }
+
+ public CCodeVariableDeclarator.zero (string name, CCodeExpression? initializer, CCodeDeclaratorSuffix? declarator_suffix = null) {
+ this.name = name;
+ this.initializer = initializer;
+ this.declarator_suffix = declarator_suffix;
+ this.init0 = true;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_string (name);
+
+ if (declarator_suffix != null) {
+ declarator_suffix.write (writer);
+ }
+
+ if (initializer != null) {
+ writer.write_string (" = ");
+ initializer.write (writer);
+ }
+ }
+
+ public override void write_declaration (CCodeWriter writer) {
+ writer.write_string (name);
+
+ if (declarator_suffix != null) {
+ declarator_suffix.write (writer);
+ }
+
+ if (initializer != null && init0) {
+ writer.write_string (" = ");
+ initializer.write (writer);
+ }
+ }
+
+ public override void write_initialization (CCodeWriter writer) {
+ if (initializer != null && !init0) {
+ writer.write_indent (line);
+
+ writer.write_string (name);
+ writer.write_string (" = ");
+ initializer.write (writer);
+
+ writer.write_string (";");
+ writer.write_newline ();
+ }
+ }
+}
+
+public class Vala.CCodeDeclaratorSuffix {
+ bool array;
+ List<CCodeExpression>? array_length;
+
+ public CCodeDeclaratorSuffix.with_array (CCodeExpression? array_length = null) {
+ if (array_length != null) {
+ this.array_length = new ArrayList<CCodeExpression> ();
+ this.array_length.add (array_length);
+ }
+ array = true;
+ }
+
+ public CCodeDeclaratorSuffix.with_multi_array (List<CCodeExpression>? array_length = null) {
+ this.array_length = array_length;
+ array = true;
+ }
+
+ public void write (CCodeWriter writer) {
+ if (array_length != null && array_length.size > 0) {
+ foreach (var length in array_length) {
+ writer.write_string ("[");
+ if (length != null) {
+ length.write (writer);
+ }
+ writer.write_string ("]");
+ }
+ } else if (array) {
+ writer.write_string ("[]");
+ }
+ }
+}
--- /dev/null
+/* valaccodewhilestatement.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a while iteration statement in the C code.
+ */
+public class Vala.CCodeWhileStatement : CCodeStatement {
+ /**
+ * The loop condition.
+ */
+ public CCodeExpression condition { get; set; }
+
+ /**
+ * The loop body.
+ */
+ public CCodeStatement body { get; set; }
+
+ public CCodeWhileStatement (CCodeExpression cond, CCodeStatement? stmt = null) {
+ condition = cond;
+ body = stmt;
+ }
+
+ public override void write (CCodeWriter writer) {
+ writer.write_indent (line);
+ writer.write_string ("while (");
+
+ condition.write (writer);
+
+ writer.write_string (")");
+
+ body.write (writer);
+ }
+}
--- /dev/null
+/* valaccodewriter.vala
+ *
+ * Copyright (C) 2006-2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Represents a writer to write C source files.
+ */
+public class Vala.CCodeWriter {
+ /**
+ * Specifies the file to be written.
+ */
+ public string filename { get; set; }
+
+ /**
+ * Specifies the source file used to generate this one.
+ */
+ private string source_filename;
+
+ /**
+ * Specifies whether to emit line directives.
+ */
+ public bool line_directives { get; set; }
+
+ /**
+ * Specifies whether the output stream is at the beginning of a line.
+ */
+ public bool bol {
+ get { return _bol; }
+ }
+
+ static GLib.Regex fix_indent_regex;
+
+ private string temp_filename;
+ private bool file_exists;
+
+ private FileStream? stream;
+
+ private int indent;
+ private int current_line_number = 1;
+ private bool using_line_directive;
+
+ /* at begin of line */
+ private bool _bol = true;
+ /* at begin after empty line */
+ private bool _bael = false;
+
+ public CCodeWriter (string filename, string? source_filename = null) {
+ this.filename = filename;
+ this.source_filename = source_filename;
+ }
+
+ /**
+ * Opens the file.
+ *
+ * @return true if the file has been opened successfully,
+ * false otherwise
+ */
+ public bool open (bool write_version) {
+ file_exists = FileUtils.test (filename, FileTest.EXISTS);
+ if (file_exists) {
+ temp_filename = "%s.valatmp".printf (filename);
+ stream = FileStream.open (temp_filename, "w");
+ } else {
+ /*
+ * File doesn't exist. In case of a particular destination (-d flag),
+ * check and create the directory structure.
+ */
+ var dirname = Path.get_dirname (filename);
+ DirUtils.create_with_parents (dirname, 0755);
+ stream = FileStream.open (filename, "w");
+ }
+
+ if (stream == null) {
+ return false;
+ }
+
+ var opening = write_version ?
+ "/* %s generated by valac %s, the Vala compiler".printf (Path.get_basename (filename), Vala.BUILD_VERSION) :
+ "/* %s generated by valac, the Vala compiler".printf (Path.get_basename (filename));
+ write_string (opening);
+
+ // Write the file name if known
+ if (source_filename != null) {
+ write_newline ();
+ write_string (" * generated from %s".printf (Path.get_basename (source_filename)));
+ }
+
+ write_string (", do not modify */");
+ write_newline ();
+ write_newline ();
+
+ return true;
+ }
+
+ /**
+ * Closes the file.
+ */
+ public void close () {
+ stream = null;
+
+ if (file_exists) {
+ var changed = true;
+
+ try {
+ var old_file = new MappedFile (filename, false);
+ var new_file = new MappedFile (temp_filename, false);
+ var len = old_file.get_length ();
+ if (len == new_file.get_length ()) {
+ if (Memory.cmp (old_file.get_contents (), new_file.get_contents (), len) == 0) {
+ changed = false;
+ }
+ }
+ old_file = null;
+ new_file = null;
+ } catch (FileError e) {
+ // assume changed if mmap comparison doesn't work
+ }
+
+ if (changed) {
+ FileUtils.rename (temp_filename, filename);
+ } else {
+ FileUtils.unlink (temp_filename);
+ if (source_filename != null) {
+ var stats = Stat (source_filename);
+ var target_stats = Stat (filename);
+ if (stats.st_mtime >= target_stats.st_mtime) {
+ UTimBuf timebuf = { stats.st_atime + 1, stats.st_mtime + 1 };
+ FileUtils.utime (filename, timebuf);
+ }
+ }
+ }
+ }
+ }
+
+ /**
+ * Writes tabs according to the current indent level.
+ */
+ public void write_indent (CCodeLineDirective? line = null) {
+ if (line_directives) {
+ if (line != null) {
+ line.write (this);
+ using_line_directive = true;
+ } else if (using_line_directive) {
+ // no corresponding Vala line, emit line directive for C line
+ write_string ("#line %d \"%s\"".printf (current_line_number + 1, Path.get_basename (filename)));
+ write_newline ();
+ using_line_directive = false;
+ }
+ }
+
+ if (!_bol) {
+ write_newline ();
+ }
+
+ stream.puts (string.nfill (indent, '\t'));
+ _bol = false;
+ }
+
+ /**
+ * Writes n spaces.
+ */
+ public void write_nspaces (uint n) {
+ stream.puts (string.nfill (n, ' '));
+ }
+
+ /**
+ * Writes the specified string.
+ *
+ * @param s a string
+ */
+ public void write_string (string s) {
+ stream.puts (s);
+ _bol = false;
+ }
+
+ /**
+ * Writes a newline.
+ */
+ public void write_newline () {
+ if (!_bol) {
+ _bael = false;
+ } else if (!_bael) {
+ _bael = true;
+ } else {
+ return;
+ }
+ stream.putc ('\n');
+ current_line_number++;
+ _bol = true;
+ }
+
+ /**
+ * Opens a new block, increasing the indent level.
+ */
+ public void write_begin_block () {
+ if (!_bol) {
+ stream.putc (' ');
+ } else {
+ write_indent ();
+ }
+ stream.putc ('{');
+ write_newline ();
+ indent++;
+ }
+
+ /**
+ * Closes the current block, decreasing the indent level.
+ */
+ public void write_end_block () {
+ assert (indent > 0);
+
+ indent--;
+ write_indent ();
+ stream.putc ('}');
+ }
+
+ /**
+ * Writes the specified text as comment.
+ *
+ * @param text the comment text
+ */
+ public void write_comment (string text) {
+ try {
+ write_indent ();
+ stream.puts ("/*");
+ bool first = true;
+
+ // discard tabs at beginning of line
+ if (fix_indent_regex == null)
+ fix_indent_regex = new GLib.Regex ("^\t+");;
+
+ foreach (unowned string line in text.split ("\n")) {
+ if (!first) {
+ write_indent ();
+ } else {
+ first = false;
+ }
+
+ var lineparts = fix_indent_regex.replace_literal (line, -1, 0, "").split ("*/");
+
+ for (int i = 0; lineparts[i] != null; i++) {
+ stream.puts (lineparts[i]);
+ if (lineparts[i+1] != null) {
+ stream.puts ("* /");
+ }
+ }
+ }
+ stream.puts ("*/");
+ write_newline ();
+ } catch (RegexError e) {
+ // ignore
+ }
+ }
+}
--- /dev/null
+/* valaccode.vala
+ *
+ * Copyright (C) 2017 Rico Tzschichholz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+namespace Vala {
+ static int? ccode_attribute_cache_index = null;
+
+ static unowned CCodeAttribute get_ccode_attribute (CodeNode node) {
+ if (ccode_attribute_cache_index == null) {
+ ccode_attribute_cache_index = CodeNode.get_attribute_cache_index ();
+ }
+
+ unowned AttributeCache? attr = node.get_attribute_cache (ccode_attribute_cache_index);
+ if (attr == null) {
+ var new_attr = new CCodeAttribute (node);
+ node.set_attribute_cache (ccode_attribute_cache_index, new_attr);
+ attr = new_attr;
+ }
+ return (CCodeAttribute) attr;
+ }
+
+ public static string get_ccode_name (CodeNode node) {
+ return get_ccode_attribute(node).name;
+ }
+
+ public static string get_ccode_const_name (CodeNode node) {
+ return get_ccode_attribute(node).const_name;
+ }
+
+ public static string get_ccode_type_name (ObjectTypeSymbol sym) {
+ return get_ccode_attribute (sym).type_name;
+ }
+
+ public static string get_ccode_type_cast_function (ObjectTypeSymbol sym) {
+ assert (!(sym is Class && ((Class) sym).is_compact));
+ return get_ccode_upper_case_name (sym);
+ }
+
+ public static string get_ccode_type_get_function (ObjectTypeSymbol sym) {
+ var func_name = sym.get_attribute_string ("CCode", "type_get_function");
+ if (func_name != null) {
+ return func_name;
+ }
+ if (sym is Class) {
+ assert (!((Class) sym).is_compact);
+ return "%s_GET_CLASS".printf (get_ccode_upper_case_name (sym));
+ } else if (sym is Interface) {
+ return "%s_GET_INTERFACE".printf (get_ccode_upper_case_name (sym));
+ } else {
+ Report.error (sym.source_reference, "`CCode.type_get_function' not supported");
+ return "";
+ }
+ }
+
+ public static string get_ccode_class_get_private_function (Class cl) {
+ assert (!cl.is_compact);
+ return "%s_GET_CLASS_PRIVATE".printf (get_ccode_upper_case_name (cl));
+ }
+
+ public static string get_ccode_class_type_function (Class cl) {
+ assert (!cl.is_compact);
+ return "%s_CLASS".printf (get_ccode_upper_case_name (cl));
+ }
+
+ public static string get_ccode_lower_case_name (CodeNode node, string? infix = null) {
+ unowned Symbol? sym = node as Symbol;
+ if (sym != null) {
+ if (infix == null) {
+ infix = "";
+ }
+ if (sym is Delegate) {
+ return "%s%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol), infix, Symbol.camel_case_to_lower_case (sym.name));
+ } else if (sym is Signal) {
+ return get_ccode_attribute (sym).name.replace ("-", "_");
+ } else if (sym is ErrorCode) {
+ return get_ccode_name (sym).ascii_down ();
+ } else {
+ return "%s%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol), infix, get_ccode_lower_case_suffix (sym));
+ }
+ } else if (node is ErrorType) {
+ unowned ErrorType type = (ErrorType) node;
+ if (type.error_domain == null) {
+ if (infix == null) {
+ return "g_error";
+ } else {
+ return "g_%s_error".printf (infix);
+ }
+ } else if (type.error_code == null) {
+ return get_ccode_lower_case_name (type.error_domain, infix);
+ } else {
+ return get_ccode_lower_case_name (type.error_code, infix);
+ }
+ } else if (node is DelegateType) {
+ unowned DelegateType type = (DelegateType) node;
+ return get_ccode_lower_case_name (type.delegate_symbol, infix);
+ } else if (node is PointerType) {
+ unowned PointerType type = (PointerType) node;
+ return get_ccode_lower_case_name (type.base_type, infix);
+ } else if (node is GenericType) {
+ return "valageneric";
+ } else if (node is VoidType) {
+ return "valavoid";
+ } else {
+ unowned DataType type = (DataType) node;
+ return get_ccode_lower_case_name (type.type_symbol, infix);
+ }
+ }
+
+ public static string get_ccode_upper_case_name (Symbol sym, string? infix = null) {
+ if (sym is Property) {
+ return "%s_%s".printf (get_ccode_lower_case_name (sym.parent_symbol), Symbol.camel_case_to_lower_case (sym.name)).ascii_up ();
+ } else {
+ return get_ccode_lower_case_name (sym, infix).ascii_up ();
+ }
+ }
+
+ public static string get_ccode_header_filenames (Symbol sym) {
+ return get_ccode_attribute(sym).header_filenames;
+ }
+
+ public static string get_ccode_feature_test_macros (Symbol sym) {
+ return get_ccode_attribute(sym).feature_test_macros;
+ }
+
+ public static string get_ccode_prefix (Symbol sym) {
+ return get_ccode_attribute(sym).prefix;
+ }
+
+ public static string get_ccode_lower_case_prefix (Symbol sym) {
+ return get_ccode_attribute(sym).lower_case_prefix;
+ }
+
+ public static string get_ccode_lower_case_suffix (Symbol sym) {
+ return get_ccode_attribute(sym).lower_case_suffix;
+ }
+
+ public static string get_ccode_ref_function (TypeSymbol sym) {
+ return get_ccode_attribute(sym).ref_function;
+ }
+
+ public static string get_ccode_quark_name (ErrorDomain edomain) {
+ return "%s-quark".printf (get_ccode_lower_case_name (edomain).replace ("_", "-"));
+ }
+
+ public static bool is_reference_counting (TypeSymbol sym) {
+ if (sym is Class) {
+ return get_ccode_ref_function (sym) != null;
+ } else if (sym is Interface) {
+ return true;
+ } else {
+ return false;
+ }
+ }
+
+ public static bool is_ref_function_void (DataType type) {
+ unowned Class? cl = type.type_symbol as Class;
+ if (cl != null) {
+ return get_ccode_ref_function_void (cl);
+ } else {
+ return false;
+ }
+ }
+
+ public static bool is_free_function_address_of (DataType type) {
+ unowned Class? cl = type.type_symbol as Class;
+ if (cl != null) {
+ return get_ccode_free_function_address_of (cl);
+ } else {
+ return false;
+ }
+ }
+
+ public static bool get_ccode_ref_function_void (Class cl) {
+ return get_ccode_attribute(cl).ref_function_void;
+ }
+
+ public static bool get_ccode_free_function_address_of (Class cl) {
+ return get_ccode_attribute(cl).free_function_address_of;
+ }
+
+ public static string get_ccode_unref_function (ObjectTypeSymbol sym) {
+ return get_ccode_attribute(sym).unref_function;
+ }
+
+ public static string get_ccode_ref_sink_function (ObjectTypeSymbol sym) {
+ return get_ccode_attribute(sym).ref_sink_function;
+ }
+
+ public static string get_ccode_copy_function (TypeSymbol sym) {
+ return get_ccode_attribute(sym).copy_function;
+ }
+
+ public static string get_ccode_destroy_function (TypeSymbol sym) {
+ return get_ccode_attribute(sym).destroy_function;
+ }
+
+ public static string? get_ccode_dup_function (TypeSymbol sym) {
+ if (sym is Struct) {
+ return get_ccode_attribute (sym).dup_function;
+ }
+ return get_ccode_copy_function (sym);
+ }
+
+ public static string get_ccode_free_function (TypeSymbol sym) {
+ return get_ccode_attribute(sym).free_function;
+ }
+
+ public static bool get_ccode_is_gboxed (TypeSymbol sym) {
+ return get_ccode_free_function (sym) == "g_boxed_free";
+ }
+
+ public static bool get_ccode_finish_instance (Method m) {
+ assert (m.coroutine);
+ return get_ccode_attribute (m).finish_instance;
+ }
+
+ public static string get_ccode_type_id (CodeNode node) {
+ return get_ccode_attribute(node).type_id;
+ }
+
+ public static string get_ccode_type_function (TypeSymbol sym) {
+ assert (!((sym is Class && ((Class) sym).is_compact) || sym is ErrorCode || sym is ErrorDomain || sym is Delegate));
+ return "%s_get_type".printf (get_ccode_lower_case_name (sym));
+ }
+
+ public static string get_ccode_marshaller_type_name (CodeNode node) {
+ return get_ccode_attribute(node).marshaller_type_name;
+ }
+
+ public static string get_ccode_get_value_function (CodeNode sym) {
+ return get_ccode_attribute(sym).get_value_function;
+ }
+
+ public static string get_ccode_set_value_function (CodeNode sym) {
+ return get_ccode_attribute(sym).set_value_function;
+ }
+
+ public static string get_ccode_take_value_function (CodeNode sym) {
+ return get_ccode_attribute(sym).take_value_function;
+ }
+
+ public static string get_ccode_param_spec_function (CodeNode sym) {
+ return get_ccode_attribute(sym).param_spec_function;
+ }
+
+ public static string get_ccode_type_check_function (TypeSymbol sym) {
+ unowned Class? cl = sym as Class;
+ var a = sym.get_attribute_string ("CCode", "type_check_function");
+ if (cl != null && a != null) {
+ return a;
+ } else if ((cl != null && cl.is_compact) || sym is Struct || sym is Enum || sym is Delegate) {
+ return "";
+ } else {
+ return get_ccode_upper_case_name (sym, "IS_");
+ }
+ }
+
+ public static string get_ccode_class_type_check_function (Class cl) {
+ assert (!cl.is_compact);
+ return "%s_CLASS".printf (get_ccode_type_check_function (cl));
+ }
+
+ public static string get_ccode_default_value (TypeSymbol sym) {
+ return get_ccode_attribute(sym).default_value;
+ }
+
+ public static string get_ccode_default_value_on_error (TypeSymbol sym) {
+ return get_ccode_attribute (sym).default_value_on_error;
+ }
+
+ public static bool get_ccode_has_copy_function (Struct st) {
+ return st.get_attribute_bool ("CCode", "has_copy_function", true);
+ }
+
+ public static bool get_ccode_has_destroy_function (Struct st) {
+ return st.get_attribute_bool ("CCode", "has_destroy_function", true);
+ }
+
+ public static double get_ccode_instance_pos (CodeNode node) {
+ if (node is Delegate) {
+ return node.get_attribute_double ("CCode", "instance_pos", -2);
+ } else {
+ return node.get_attribute_double ("CCode", "instance_pos", 0);
+ }
+ }
+
+ public static double get_ccode_error_pos (Callable c) {
+ return c.get_attribute_double ("CCode", "error_pos", -1);
+ }
+
+ public static bool get_ccode_array_length (CodeNode node) {
+ return get_ccode_attribute(node).array_length;
+ }
+
+ public static string get_ccode_array_length_type (CodeNode node) {
+ if (node is ArrayType) {
+ return get_ccode_name (((ArrayType) node).length_type);
+ } else if (node is DataType) {
+ Report.error (node.source_reference, "`CCode.array_length_type' not supported");
+ return "";
+ } else {
+ assert (node is Method || node is Parameter || node is Delegate || node is Property || node is Field);
+ return get_ccode_attribute(node).array_length_type;
+ }
+ }
+
+ public static bool get_ccode_array_null_terminated (CodeNode node) {
+ return get_ccode_attribute(node).array_null_terminated;
+ }
+
+ public static string? get_ccode_array_length_name (CodeNode node) {
+ return get_ccode_attribute(node).array_length_name;
+ }
+
+ public static string? get_ccode_array_length_expr (CodeNode node) {
+ return get_ccode_attribute(node).array_length_expr;
+ }
+
+ public static double get_ccode_array_length_pos (CodeNode node) {
+ var a = node.get_attribute ("CCode");
+ if (a != null && a.has_argument ("array_length_pos")) {
+ return a.get_double ("array_length_pos");
+ }
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ return get_ccode_pos (param) + 0.1;
+ } else {
+ return -3;
+ }
+ }
+
+ public static double get_ccode_delegate_target_pos (CodeNode node) {
+ var a = node.get_attribute ("CCode");
+ if (a != null && a.has_argument ("delegate_target_pos")) {
+ return a.get_double ("delegate_target_pos");
+ }
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ return get_ccode_pos (param) + 0.1;
+ } else {
+ return -3;
+ }
+ }
+
+ public static double get_ccode_destroy_notify_pos (CodeNode node) {
+ var a = node.get_attribute ("CCode");
+ if (a != null && a.has_argument ("destroy_notify_pos")) {
+ return a.get_double ("destroy_notify_pos");
+ }
+ return get_ccode_delegate_target_pos (node) + 0.01;
+ }
+
+ public static bool get_ccode_delegate_target (CodeNode node) {
+ return get_ccode_attribute(node).delegate_target;
+ }
+
+ public static string get_ccode_delegate_target_name (Variable variable) {
+ return get_ccode_attribute(variable).delegate_target_name;
+ }
+
+ public static string get_ccode_delegate_target_destroy_notify_name (Variable variable) {
+ return get_ccode_attribute(variable).delegate_target_destroy_notify_name;
+ }
+
+ public static double get_ccode_pos (Parameter param) {
+ return get_ccode_attribute(param).pos;
+ }
+
+ public static string? get_ccode_type (CodeNode node) {
+ return get_ccode_attribute(node).ctype;
+ }
+
+ public static bool get_ccode_simple_generics (Method m) {
+ return m.get_attribute_bool ("CCode", "simple_generics");
+ }
+
+ public static string get_ccode_real_name (Symbol sym) {
+ return get_ccode_attribute(sym).real_name;
+ }
+
+ public static string get_ccode_constructv_name (CreationMethod m) {
+ const string infix = "constructv";
+
+ unowned Class parent = (Class) m.parent_symbol;
+
+ if (m.name == ".new") {
+ return "%s%s".printf (get_ccode_lower_case_prefix (parent), infix);
+ } else {
+ return "%s%s_%s".printf (get_ccode_lower_case_prefix (parent), infix, m.name);
+ }
+ }
+
+ public static string get_ccode_vfunc_name (Method m) {
+ return get_ccode_attribute(m).vfunc_name;
+ }
+
+ public static double get_ccode_async_result_pos (Method m) {
+ assert (m.coroutine);
+ return m.get_attribute_double ("CCode", "async_result_pos", 0.1);
+ }
+
+ public static string get_ccode_finish_name (Method m) {
+ assert (m.coroutine);
+ return get_ccode_attribute(m).finish_name;
+ }
+
+ public static string get_ccode_finish_vfunc_name (Method m) {
+ assert (m.coroutine);
+ return get_ccode_attribute(m).finish_vfunc_name;
+ }
+
+ public static string get_ccode_finish_real_name (Method m) {
+ assert (m.coroutine);
+ return get_ccode_attribute(m).finish_real_name;
+ }
+
+ public static bool get_ccode_no_accessor_method (Property p) {
+ return p.get_attribute ("NoAccessorMethod") != null;
+ }
+
+ public static bool get_ccode_concrete_accessor (Property p) {
+ return p.get_attribute ("ConcreteAccessor") != null;
+ }
+
+ public static bool get_ccode_has_emitter (Signal sig) {
+ return sig.get_attribute ("HasEmitter") != null;
+ }
+
+ public static bool get_ccode_has_type_id (TypeSymbol sym) {
+ return sym.get_attribute_bool ("CCode", "has_type_id", true);
+ }
+
+ public static bool get_ccode_has_new_function (Method m) {
+ return m.get_attribute_bool ("CCode", "has_new_function", true);
+ }
+
+ public static bool get_ccode_has_generic_type_parameter (Method m) {
+ var a = m.get_attribute ("CCode");
+ return a != null && a.has_argument ("generic_type_pos");
+ }
+
+ public static double get_ccode_generic_type_pos (Method m) {
+ return m.get_attribute_double ("CCode", "generic_type_pos");
+ }
+
+ public static bool get_ccode_no_wrapper (Method m) {
+ return m.get_attribute ("NoWrapper") != null;
+ }
+
+ public static string get_ccode_sentinel (Method m) {
+ return get_ccode_attribute(m).sentinel;
+ }
+}
--- /dev/null
+/* valaccodearraymodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+public class Vala.CCodeArrayModule : CCodeMethodCallModule {
+ int next_array_dup_id = 0;
+ int next_array_add_id = 0;
+
+ void append_initializer_list (CCodeExpression name_cnode, InitializerList initializer_list, int rank, ref int i) {
+ foreach (Expression e in initializer_list.get_initializers ()) {
+ if (rank > 1) {
+ append_initializer_list (name_cnode, (InitializerList) e, rank - 1, ref i);
+ } else {
+ ccode.add_assignment (new CCodeElementAccess (name_cnode, new CCodeConstant (i.to_string ())), get_cvalue (e));
+ i++;
+ }
+ }
+ }
+
+ public override void visit_array_creation_expression (ArrayCreationExpression expr) {
+ var array_type = expr.target_type as ArrayType;
+ if (array_type != null && array_type.fixed_length) {
+ // no heap allocation for fixed-length arrays
+
+ var temp_var = get_temp_variable (array_type, true, expr);
+ temp_var.init = true;
+ var name_cnode = get_variable_cexpression (temp_var.name);
+ int i = 0;
+
+ emit_temp_var (temp_var);
+
+ append_initializer_list (name_cnode, expr.initializer_list, expr.rank, ref i);
+
+ set_cvalue (expr, name_cnode);
+
+ return;
+ }
+
+ CCodeFunctionCall gnew;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ } else {
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ gnew.add_argument (new CCodeIdentifier (get_ccode_name (expr.element_type)));
+ }
+
+ bool first = true;
+ CCodeExpression cexpr = null;
+
+ // iterate over each dimension
+ foreach (Expression size in expr.get_sizes ()) {
+ CCodeExpression csize = get_cvalue (size);
+ append_array_length (expr, csize);
+
+ if (first) {
+ cexpr = csize;
+ first = false;
+ } else {
+ cexpr = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, cexpr, csize);
+ }
+ }
+
+ // add extra item to have array NULL-terminated for all reference types
+ if (expr.element_type.type_symbol != null && expr.element_type.type_symbol.is_reference_type ()) {
+ cexpr = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, cexpr, new CCodeConstant ("1"));
+ }
+
+ gnew.add_argument (cexpr);
+
+ if (context.profile == Profile.POSIX) {
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (expr.element_type)));
+ gnew.add_argument (csizeof);
+ }
+
+ var temp_var = get_temp_variable (expr.value_type, true, expr);
+ var name_cnode = get_variable_cexpression (temp_var.name);
+ int i = 0;
+
+ emit_temp_var (temp_var);
+
+ ccode.add_assignment (name_cnode, gnew);
+
+ if (expr.initializer_list != null) {
+ append_initializer_list (name_cnode, expr.initializer_list, expr.rank, ref i);
+ }
+
+ set_cvalue (expr, name_cnode);
+ }
+
+ public override string get_array_length_cname (string array_cname, int dim) {
+ return "%s_length%d".printf (array_cname, dim);
+ }
+
+ public override string get_variable_array_length_cname (Variable variable, int dim) {
+ string? length_cname = get_ccode_array_length_name (variable);
+ if (length_cname == null) {
+ length_cname = get_array_length_cname (get_ccode_name (variable), dim);
+ }
+ return (!) length_cname;
+ }
+
+ public override CCodeExpression get_array_length_cexpression (Expression array_expr, int dim = -1) {
+ return get_array_length_cvalue (array_expr.target_value, dim);
+ }
+
+ public override CCodeExpression get_array_length_cvalue (TargetValue value, int dim = -1) {
+ var array_type = value.value_type as ArrayType;
+
+ if (array_type != null && array_type.fixed_length) {
+ return get_ccodenode (array_type.length);
+ }
+
+ // dim == -1 => total size over all dimensions
+ if (dim == -1) {
+ if (array_type != null && array_type.rank > 1) {
+ CCodeExpression cexpr = get_array_length_cvalue (value, 1);
+ for (dim = 2; dim <= array_type.rank; dim++) {
+ cexpr = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, cexpr, get_array_length_cvalue (value, dim));
+ }
+ return cexpr;
+ } else {
+ dim = 1;
+ }
+ }
+
+ List<CCodeExpression> size = ((GLibValue) value).array_length_cvalues;
+ if (size == null || size.size < dim) {
+ Report.error (array_type.source_reference, "internal: invalid array_length for given dimension");
+ return new CCodeInvalidExpression ();
+ }
+ return size[dim - 1];
+ }
+
+ public override string get_array_size_cname (string array_cname) {
+ return "_%s_size_".printf (array_cname);
+ }
+
+ public override void visit_element_access (ElementAccess expr) {
+ List<Expression> indices = expr.get_indices ();
+ int rank = indices.size;
+
+ var ccontainer = get_cvalue (expr.container);
+ var cindex = get_cvalue (indices[0]);
+ if (expr.container.symbol_reference is ArrayLengthField) {
+ /* Figure if cindex is a constant expression and calculate dim...*/
+ var lit = indices[0] as IntegerLiteral;
+ var memberaccess = expr.container as MemberAccess;
+ if (lit != null && memberaccess != null) {
+ int dim = int.parse (lit.value);
+ set_cvalue (expr, get_array_length_cexpression (memberaccess.inner, dim + 1));
+ } else {
+ Report.error (expr.source_reference, "internal error: only integer literals supported as index");
+ }
+ } else if (expr.container.symbol_reference is Constant && rank > 1) {
+ // access to element in a multi-dimensional array constant
+ var cindices = new ArrayList<CCodeExpression> ();
+ cindices.add (cindex);
+ for (int i = 1; i < rank; i++) {
+ cindices.add (get_cvalue (indices[i]));
+ }
+ set_cvalue (expr, new CCodeElementAccess.with_indices (ccontainer, cindices));
+ } else {
+ // access to element in an array
+ for (int i = 1; i < rank; i++) {
+ var cmul = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, cindex, get_array_length_cexpression (expr.container, i + 1));
+ cindex = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, cmul, get_cvalue (indices[i]));
+ if (expr.container.is_constant ()) {
+ ccontainer = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, ccontainer);
+ }
+ }
+ set_cvalue (expr, new CCodeElementAccess (ccontainer, cindex));
+ }
+
+ expr.target_value.value_type = expr.value_type.copy ();
+ if (!expr.lvalue) {
+ expr.target_value = store_temp_value (expr.target_value, expr);
+ }
+ ((GLibValue) expr.target_value).lvalue = true;
+ }
+
+ public override void visit_slice_expression (SliceExpression expr) {
+ var ccontainer = get_cvalue (expr.container);
+ var cstart = get_cvalue (expr.start);
+ var cstop = get_cvalue (expr.stop);
+
+ var cstartpointer = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, ccontainer, cstart);
+ var splicelen = new CCodeBinaryExpression (CCodeBinaryOperator.MINUS, cstop, cstart);
+
+ set_cvalue (expr, cstartpointer);
+ ((GLibValue) expr.target_value).non_null = get_non_null (expr.container.target_value);
+ // Make sure no previous length values are preserved
+ set_array_length (expr, splicelen);
+ }
+
+ void append_struct_array_free_loop (Struct st) {
+ var cforinit = new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeConstant ("0"));
+ var cforcond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier ("i"), new CCodeIdentifier ("array_length"));
+ var cforiter = new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("i"), new CCodeConstant ("1")));
+ ccode.open_for (cforinit, cforcond, cforiter);
+
+ var cptrarray = new CCodeIdentifier ("array");
+ var cea = new CCodeElementAccess (cptrarray, new CCodeIdentifier ("i"));
+
+ var cfreecall = new CCodeFunctionCall (get_destroy_func_expression (new StructValueType (st)));
+ cfreecall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cea));
+ ccode.add_expression (cfreecall);
+
+ ccode.close ();
+ }
+
+ public override string? append_struct_array_free (Struct st) {
+ string cname = "_vala_%s_array_free".printf (get_ccode_name (st));
+
+ if (cfile.add_declaration (cname)) {
+ return cname;
+ }
+
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var fun = new CCodeFunction (cname, "void");
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", "%s *".printf (get_ccode_name (st))));
+ fun.add_parameter (new CCodeParameter ("array_length", get_ccode_name (ssize_t_type)));
+
+ push_function (fun);
+
+ var ccondarr = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("array"), new CCodeConstant ("NULL"));
+ ccode.open_if (ccondarr);
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("i"));
+ append_struct_array_free_loop (st);
+
+ ccode.close ();
+
+ CCodeFunctionCall carrfree;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ carrfree = new CCodeFunctionCall (new CCodeIdentifier ("free"));
+ } else {
+ carrfree = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ }
+ carrfree.add_argument (new CCodeIdentifier ("array"));
+ ccode.add_expression (carrfree);
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+
+ return cname;
+ }
+
+ public override string? append_struct_array_destroy (Struct st) {
+ string cname = "_vala_%s_array_destroy".printf (get_ccode_name (st));
+
+ if (cfile.add_declaration (cname)) {
+ return cname;
+ }
+
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var fun = new CCodeFunction (cname, "void");
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", "%s *".printf (get_ccode_name (st))));
+ fun.add_parameter (new CCodeParameter ("array_length", get_ccode_name (ssize_t_type)));
+
+ push_function (fun);
+
+ var ccondarr = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("array"), new CCodeConstant ("NULL"));
+ ccode.open_if (ccondarr);
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("i"));
+ append_struct_array_free_loop (st);
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+
+ return cname;
+ }
+
+ void append_vala_array_free_loop () {
+ var cforinit = new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeConstant ("0"));
+ var cforcond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier ("i"), new CCodeIdentifier ("array_length"));
+ var cforiter = new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("i"), new CCodeConstant ("1")));
+ ccode.open_for (cforinit, cforcond, cforiter);
+
+ var cptrarray = new CCodeCastExpression (new CCodeIdentifier ("array"), "%s*".printf (get_ccode_name (pointer_type)));
+ var cea = new CCodeElementAccess (cptrarray, new CCodeIdentifier ("i"));
+
+ var cfreecond = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, cea, new CCodeConstant ("NULL"));
+ ccode.open_if (cfreecond);
+
+ var cfreecall = new CCodeFunctionCall (new CCodeIdentifier ("destroy_func"));
+ cfreecall.add_argument (cea);
+ ccode.add_expression (cfreecall);
+
+ ccode.close ();
+ }
+
+ public override void append_vala_array_free () {
+ // _vala_array_destroy only frees elements but not the array itself
+ generate_type_declaration (delegate_target_destroy_type, cfile);
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var fun = new CCodeFunction ("_vala_array_destroy", "void");
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", get_ccode_name (pointer_type)));
+ fun.add_parameter (new CCodeParameter ("array_length", get_ccode_name (ssize_t_type)));
+ fun.add_parameter (new CCodeParameter ("destroy_func", get_ccode_name (delegate_target_destroy_type)));
+
+ push_function (fun);
+
+ var ccondarr = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("array"), new CCodeConstant ("NULL"));
+ var ccondfunc = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("destroy_func"), new CCodeConstant ("NULL"));
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, ccondarr, ccondfunc));
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("i"));
+ append_vala_array_free_loop ();
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+
+ // _vala_array_free frees elements and array
+
+ fun = new CCodeFunction ("_vala_array_free", "void");
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", get_ccode_name (pointer_type)));
+ fun.add_parameter (new CCodeParameter ("array_length", get_ccode_name (ssize_t_type)));
+ fun.add_parameter (new CCodeParameter ("destroy_func", get_ccode_name (delegate_target_destroy_type)));
+
+ push_function (fun);
+
+ // call _vala_array_destroy to free the array elements
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_destroy"));
+ ccall.add_argument (new CCodeIdentifier ("array"));
+ ccall.add_argument (new CCodeIdentifier ("array_length"));
+ ccall.add_argument (new CCodeIdentifier ("destroy_func"));
+ ccode.add_expression (ccall);
+
+ CCodeFunctionCall carrfree;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ carrfree = new CCodeFunctionCall (new CCodeIdentifier ("free"));
+ } else {
+ carrfree = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ }
+ carrfree.add_argument (new CCodeIdentifier ("array"));
+ ccode.add_expression (carrfree);
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+ }
+
+ public override void append_vala_array_move () {
+ cfile.add_include ("string.h");
+ generate_type_declaration (ssize_t_type, cfile);
+
+ // assumes that overwritten array elements are null before invocation
+ // FIXME will leak memory if that's not the case
+ var fun = new CCodeFunction ("_vala_array_move", "void");
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", get_ccode_name (pointer_type)));
+ fun.add_parameter (new CCodeParameter ("element_size", get_ccode_name (size_t_type)));
+ fun.add_parameter (new CCodeParameter ("src", get_ccode_name (ssize_t_type)));
+ fun.add_parameter (new CCodeParameter ("dest", get_ccode_name (ssize_t_type)));
+ fun.add_parameter (new CCodeParameter ("length", get_ccode_name (ssize_t_type)));
+
+ push_function (fun);
+
+ var array = new CCodeCastExpression (new CCodeIdentifier ("array"), "char*");
+ var element_size = new CCodeIdentifier ("element_size");
+ var length = new CCodeIdentifier ("length");
+ var src = new CCodeIdentifier ("src");
+ var src_end = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, src, length);
+ var dest = new CCodeIdentifier ("dest");
+ var dest_end = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, dest, length);
+ var src_address = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, array, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, src, element_size));
+ var dest_address = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, array, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, dest, element_size));
+ var dest_end_address = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, array, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, dest_end, element_size));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("memmove"));
+ ccall.add_argument (dest_address);
+ ccall.add_argument (src_address);
+ ccall.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, length, element_size));
+ ccode.add_expression (ccall);
+
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, src, dest), new CCodeBinaryExpression (CCodeBinaryOperator.GREATER_THAN, src_end, dest)));
+
+ var czero1 = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ czero1.add_argument (src_address);
+ czero1.add_argument (new CCodeConstant ("0"));
+ czero1.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, new CCodeBinaryExpression (CCodeBinaryOperator.MINUS, dest, src), element_size));
+ ccode.add_expression (czero1);
+
+ ccode.else_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, new CCodeBinaryExpression (CCodeBinaryOperator.GREATER_THAN, src, dest), new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, src, dest_end)));
+
+ var czero2 = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ czero2.add_argument (dest_end_address);
+ czero2.add_argument (new CCodeConstant ("0"));
+ czero2.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, new CCodeBinaryExpression (CCodeBinaryOperator.MINUS, src, dest), element_size));
+ ccode.add_expression (czero2);
+
+ ccode.else_if (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, src, dest));
+
+ var czero3 = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ czero3.add_argument (src_address);
+ czero3.add_argument (new CCodeConstant ("0"));
+ czero3.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, length, element_size));
+ ccode.add_expression (czero3);
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+ }
+
+ public override void append_vala_array_length () {
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var fun = new CCodeFunction ("_vala_array_length", get_ccode_name (ssize_t_type));
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("array", get_ccode_name (pointer_type)));
+
+ push_function (fun);
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("length", new CCodeConstant ("0")));
+
+ // return 0 if the array is NULL
+ // avoids an extra NULL check on the caller side
+ var array_check = new CCodeIdentifier ("array");
+ ccode.open_if (array_check);
+
+ var array_element_check = new CCodeElementAccess (new CCodeCastExpression (new CCodeIdentifier ("array"), "%s*".printf (get_ccode_name (pointer_type))), new CCodeConstant ("length"));
+ ccode.open_while (array_element_check);
+ ccode.add_expression (new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier ("length")));
+ ccode.close ();
+
+ ccode.close ();
+
+ ccode.add_return (new CCodeIdentifier ("length"));
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+ }
+
+ public override TargetValue? copy_value (TargetValue value, CodeNode node) {
+ var type = value.value_type;
+ var cexpr = get_cvalue_ (value);
+
+ if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+
+ if (!array_type.fixed_length) {
+ return base.copy_value (value, node);
+ }
+
+ var temp_value = create_temp_value (type, false, node);
+
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier (generate_array_copy_wrapper (array_type)));
+ copy_call.add_argument (cexpr);
+ copy_call.add_argument (get_cvalue_ (temp_value));
+ ccode.add_expression (copy_call);
+
+ return temp_value;
+ } else {
+ return base.copy_value (value, node);
+ }
+ }
+
+ public override CCodeExpression? get_dup_func_expression (DataType type, SourceReference? source_reference, bool is_chainup) {
+ if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+ // fixed length arrays use different code
+ // generated by overridden get_ref_cexpression method
+ assert (!array_type.fixed_length);
+ return new CCodeIdentifier (generate_array_dup_wrapper (array_type));
+ } else {
+ return base.get_dup_func_expression (type, source_reference, is_chainup);
+ }
+ }
+
+ public override CCodeExpression destroy_value (TargetValue value, bool is_macro_definition = false) {
+ unowned ArrayType? array_type = value.value_type as ArrayType;
+
+ if (array_type != null && array_type.fixed_length) {
+ unowned Struct? st = array_type.element_type.type_symbol as Struct;
+ if (st != null && !array_type.element_type.nullable) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (append_struct_array_destroy (st)));
+ ccall.add_argument (get_cvalue_ (value));
+ ccall.add_argument (get_ccodenode (array_type.length));
+ return ccall;
+ }
+
+ requires_array_free = true;
+ generate_type_declaration (delegate_target_destroy_type, cfile);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_destroy"));
+ ccall.add_argument (get_cvalue_ (value));
+ ccall.add_argument (get_ccodenode (array_type.length));
+ ccall.add_argument (new CCodeCastExpression (get_destroy_func_expression (array_type.element_type), get_ccode_name (delegate_target_destroy_type)));
+
+ return ccall;
+ } else {
+ return base.destroy_value (value, is_macro_definition);
+ }
+ }
+
+ string generate_array_dup_wrapper (ArrayType array_type) {
+ string dup_func = "_vala_array_dup%d".printf (++next_array_dup_id);
+
+ if (!add_wrapper (dup_func)) {
+ // wrapper already defined
+ return dup_func;
+ }
+
+ // declaration
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var function = new CCodeFunction (dup_func, get_ccode_name (array_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (array_type)));
+ // total length over all dimensions
+ function.add_parameter (new CCodeParameter ("length", get_ccode_name (ssize_t_type)));
+ if (array_type.element_type is GenericType) {
+ // dup function array elements
+ function.add_parameter (new CCodeParameter (get_ccode_copy_function (((GenericType) array_type.element_type).type_parameter), "GBoxedCopyFunc"));
+ }
+
+ // definition
+
+ push_context (new EmitContext ());
+ push_function (function);
+
+ if (requires_copy (array_type.element_type)) {
+ var cvardecl = new CCodeVariableDeclarator ("result");
+ CCodeFunctionCall gnew;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ } else {
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ gnew.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ }
+
+ CCodeExpression length_expr = new CCodeIdentifier ("length");
+ CCodeBinaryOperator length_check_op;
+ // add extra item to have array NULL-terminated for all reference types
+ if (array_type.element_type.type_symbol != null && array_type.element_type.type_symbol.is_reference_type ()) {
+ length_expr = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, length_expr, new CCodeConstant ("1"));
+ length_check_op = CCodeBinaryOperator.GREATER_THAN_OR_EQUAL;
+ } else {
+ length_check_op = CCodeBinaryOperator.GREATER_THAN;
+ }
+ gnew.add_argument (length_expr);
+
+ if (context.profile == Profile.POSIX) {
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ gnew.add_argument (csizeof);
+ }
+
+ // only attempt to dup if length >=/> 0, this deals with negative lengths and returns NULL
+ var length_check = new CCodeBinaryExpression (length_check_op, new CCodeIdentifier ("length"), new CCodeConstant ("0"));
+ ccode.open_if (length_check);
+
+ ccode.add_declaration (get_ccode_name (array_type), cvardecl);
+ ccode.add_assignment (new CCodeIdentifier ("result"), gnew);
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("i"));
+
+ ccode.open_for (new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeConstant ("0")),
+ new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier ("i"), new CCodeIdentifier ("length")),
+ new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier ("i")));
+
+ ccode.add_assignment (new CCodeElementAccess (new CCodeIdentifier ("result"), new CCodeIdentifier ("i")), get_cvalue_ (copy_value (new GLibValue (array_type.element_type, new CCodeElementAccess (new CCodeIdentifier ("self"), new CCodeIdentifier ("i")), true), array_type)));
+ ccode.close ();
+
+ ccode.add_return (new CCodeIdentifier ("result"));
+
+ ccode.close ();
+ ccode.add_return (new CCodeConstant ("NULL"));
+ } else {
+ // only dup if length > 0, this deals with negative lengths and returns NULL
+ var length_check = new CCodeBinaryExpression (CCodeBinaryOperator.GREATER_THAN, new CCodeIdentifier ("length"), new CCodeConstant ("0"));
+ ccode.open_if (length_check);
+
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ var length_expr = new CCodeIdentifier ("length");
+
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ cfile.add_include ("string.h");
+
+ var alloc = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ alloc.add_argument (length_expr);
+ alloc.add_argument (sizeof_call);
+
+ var cvardecl = new CCodeVariableDeclarator ("result");
+ ccode.add_declaration (get_ccode_name (array_type), cvardecl);
+ ccode.add_assignment (new CCodeIdentifier ("result"), alloc);
+
+ var dup_call = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ dup_call.add_argument (new CCodeIdentifier ("result"));
+ dup_call.add_argument (new CCodeIdentifier ("self"));
+ dup_call.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, length_expr, sizeof_call));
+ ccode.add_expression (dup_call);
+
+ ccode.add_return (new CCodeIdentifier ("result"));
+ } else {
+ CCodeFunctionCall dup_call;
+ if (context.require_glib_version (2, 68)) {
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("g_memdup2"));
+ } else {
+ requires_memdup2 = true;
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_memdup2"));
+ }
+ dup_call.add_argument (new CCodeIdentifier ("self"));
+ dup_call.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, length_expr, sizeof_call));
+
+ ccode.add_return (dup_call);
+ }
+
+ ccode.close ();
+ ccode.add_return (new CCodeConstant ("NULL"));
+ }
+
+ // append to file
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ pop_context ();
+
+ return dup_func;
+ }
+
+ string generate_array_copy_wrapper (ArrayType array_type) {
+ string dup_func = "_vala_array_copy%d".printf (++next_array_dup_id);
+
+ if (!add_wrapper (dup_func)) {
+ // wrapper already defined
+ return dup_func;
+ }
+
+ // declaration
+
+ var function = new CCodeFunction (dup_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("self", "%s *".printf (get_ccode_name (array_type))));
+ function.add_parameter (new CCodeParameter ("dest", "%s *".printf (get_ccode_name (array_type))));
+
+ // definition
+
+ push_context (new EmitContext ());
+ push_function (function);
+
+ if (requires_copy (array_type.element_type)) {
+ ccode.add_declaration (get_ccode_name (array_type.length_type), new CCodeVariableDeclarator ("i"));
+
+ ccode.open_for (new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeConstant ("0")),
+ new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier ("i"), get_ccodenode (array_type.length)),
+ new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier ("i")));
+
+
+ ccode.add_assignment (new CCodeElementAccess (new CCodeIdentifier ("dest"), new CCodeIdentifier ("i")), get_cvalue_ (copy_value (new GLibValue (array_type.element_type, new CCodeElementAccess (new CCodeIdentifier ("self"), new CCodeIdentifier ("i")), true), array_type)));
+ } else {
+ cfile.add_include ("string.h");
+
+ var dup_call = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ dup_call.add_argument (new CCodeIdentifier ("dest"));
+ dup_call.add_argument (new CCodeIdentifier ("self"));
+
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ dup_call.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, get_ccodenode (array_type.length), sizeof_call));
+
+ ccode.add_expression (dup_call);
+ }
+
+ // append to file
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ pop_context ();
+
+ return dup_func;
+ }
+
+ string generate_array_add_wrapper (ArrayType array_type) {
+ string add_func = "_vala_array_add%d".printf (++next_array_add_id);
+
+ if (!add_wrapper (add_func)) {
+ // wrapper already defined
+ return add_func;
+ }
+
+ var function = new CCodeFunction (add_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("array", "%s *".printf (get_ccode_name (array_type))));
+ function.add_parameter (new CCodeParameter ("length", "%s*".printf (get_ccode_name (array_type.length_type))));
+ function.add_parameter (new CCodeParameter ("size", "%s*".printf (get_ccode_name (array_type.length_type))));
+
+ push_function (function);
+
+ string typename = get_ccode_name (array_type.element_type);
+ CCodeExpression value = new CCodeIdentifier ("value");
+ if (array_type.element_type.is_real_struct_type ()) {
+ if (!array_type.element_type.nullable || !array_type.element_type.value_owned) {
+ typename = "const " + typename;
+ }
+ if (!array_type.element_type.nullable) {
+ typename += "*";
+ value = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, value);
+ }
+ }
+ function.add_parameter (new CCodeParameter ("value", typename));
+
+ var array = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("array"));
+ var length = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("length"));
+ var size = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("size"));
+
+ CCodeFunctionCall renew_call;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ renew_call = new CCodeFunctionCall (new CCodeIdentifier ("realloc"));
+ renew_call.add_argument (array);
+ } else {
+ renew_call = new CCodeFunctionCall (new CCodeIdentifier ("g_renew"));
+ renew_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ renew_call.add_argument (array);
+ }
+ CCodeExpression renew_call_size;
+ if (array_type.element_type.is_reference_type_or_type_parameter ()) {
+ // NULL terminate array
+ renew_call_size = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, size, new CCodeConstant ("1"));
+ } else {
+ renew_call_size = size;
+ }
+ if (context.profile == Profile.POSIX) {
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ renew_call_size = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, size, csizeof);
+ }
+ renew_call.add_argument (renew_call_size);
+
+ var csizecheck = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, length, size);
+ ccode.open_if (csizecheck);
+ ccode.add_assignment (size, new CCodeConditionalExpression (size, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, new CCodeConstant ("2"), size), new CCodeConstant ("4")));
+ ccode.add_assignment (array, renew_call);
+ ccode.close ();
+
+ ccode.add_assignment (new CCodeElementAccess (array, new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, length)), value);
+
+ if (array_type.element_type.is_reference_type_or_type_parameter ()) {
+ // NULL terminate array
+ ccode.add_assignment (new CCodeElementAccess (array, length), new CCodeConstant ("NULL"));
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return add_func;
+ }
+
+ bool is_array_add (Assignment assignment) {
+ var binary = assignment.right as BinaryExpression;
+ if (binary != null && binary.left.value_type is ArrayType) {
+ if (binary.operator == BinaryOperator.PLUS) {
+ if (assignment.left.symbol_reference == binary.left.symbol_reference) {
+ return true;
+ }
+ }
+ }
+
+ return false;
+ }
+
+ public override void visit_assignment (Assignment assignment) {
+ if (!is_array_add (assignment)) {
+ base.visit_assignment (assignment);
+ return;
+ }
+
+ var binary = (BinaryExpression) assignment.right;
+
+ var array = assignment.left;
+ var array_type = (ArrayType) array.value_type;
+ var element = binary.right;
+
+ var array_var = array.symbol_reference;
+ if (array_type.rank == 1 && array_var != null && array_var.is_internal_symbol ()
+ && (array_var is LocalVariable || array_var is Field)) {
+ // valid array add
+ } else {
+ Report.error (assignment.source_reference, "Array concatenation not supported for public array variables and parameters");
+ return;
+ }
+
+ var value_param = new Parameter ("value", element.target_type);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_array_add_wrapper (array_type)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (array)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_array_length_cexpression (array)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_array_size_cvalue (array.target_value)));
+ ccall.add_argument (handle_struct_argument (value_param, element, get_cvalue (element)));
+
+ ccode.add_expression (ccall);
+ }
+
+ public override CCodeParameter generate_parameter (Parameter param, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression>? carg_map) {
+ unowned ArrayType? array_type = param.variable_type as ArrayType;
+ if (array_type == null || param.params_array) {
+ return base.generate_parameter (param, decl_space, cparam_map, carg_map);
+ }
+
+ string? ctypename = get_ccode_type (param);
+ if (ctypename == null) {
+ ctypename = get_ccode_name (param.variable_type);
+
+ if (param.direction != ParameterDirection.IN) {
+ ctypename += "*";
+ }
+ }
+
+ var main_cparam = new CCodeParameter.with_declarator (ctypename, new CCodeVariableDeclarator (get_ccode_name (param), null, get_ccode_declarator_suffix (array_type)));
+
+ generate_type_declaration (array_type.element_type, decl_space);
+
+ cparam_map.set (get_param_pos (get_ccode_pos (param)), main_cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_pos (param)), get_parameter_cexpression (param));
+ }
+
+ if (!array_type.fixed_length && get_ccode_array_length (param)) {
+ var length_ctype = get_ccode_array_length_type (param);
+ if (param.direction != ParameterDirection.IN) {
+ length_ctype = "%s*".printf (length_ctype);
+ }
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var cparam = new CCodeParameter (get_variable_array_length_cname (param, dim), length_ctype);
+ cparam_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), get_cexpression (cparam.name));
+ }
+ }
+ }
+
+ return main_cparam;
+ }
+
+ public override void append_params_array (Method m) {
+ var local = m.params_array_var;
+ var array_type = (ArrayType) local.variable_type;
+
+ var local_length = new LocalVariable (array_type.length_type.copy (), get_array_length_cname (local.name, 1), null, local.source_reference);
+ var local_size = new LocalVariable (array_type.length_type.copy (), get_array_size_cname (get_local_cname (local)));
+
+ CCodeFunctionCall gnew;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ } else {
+ gnew = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ gnew.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ }
+
+ CCodeExpression length_expr = get_local_cexpression (local_length);
+ // add extra item to have array NULL-terminated for all reference types
+ if (array_type.element_type.type_symbol != null && array_type.element_type.type_symbol.is_reference_type ()) {
+ length_expr = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, length_expr, new CCodeConstant ("1"));
+ }
+ gnew.add_argument (length_expr);
+ if (context.profile == Profile.POSIX) {
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ gnew.add_argument (csizeof);
+ }
+ ccode.add_assignment (get_local_cexpression (local), gnew);
+
+ var element = new LocalVariable (array_type.element_type.copy (), "_%s_element".printf (get_ccode_name (local)), null, local.source_reference);
+ emit_temp_var (element);
+
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdarg.h");
+ }
+
+ if (!(m is CreationMethod) || m.parent_symbol is Struct) {
+ ccode.add_declaration ("va_list", new CCodeVariableDeclarator ("_va_list_%s".printf (get_ccode_name (local))));
+ var vastart = new CCodeFunctionCall (new CCodeIdentifier ("va_start"));
+ vastart.add_argument (new CCodeIdentifier ("_va_list_%s".printf (get_ccode_name (local))));
+ vastart.add_argument (new CCodeIdentifier ("_first_%s".printf (get_ccode_name (local))));
+ ccode.add_expression (vastart);
+ }
+
+ ccode.add_assignment (get_local_cexpression (element), new CCodeIdentifier ("_first_%s".printf (get_ccode_name (local))));
+ ccode.open_while (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, get_local_cexpression (element), new CCodeConstant ("NULL")));
+
+ var vaarg = new CCodeFunctionCall (new CCodeIdentifier ("va_arg"));
+ vaarg.add_argument (new CCodeIdentifier ("_va_list_%s".printf (get_ccode_name (local))));
+ vaarg.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_array_add_wrapper (array_type)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_local_cexpression (local)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_local_cexpression (local_length)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_local_cexpression (local_size)));
+ ccall.add_argument (get_local_cexpression (element));
+
+ ccode.add_expression (ccall);
+ ccode.add_assignment (get_local_cexpression (element), vaarg);
+
+ ccode.close ();
+
+ var vaend = new CCodeFunctionCall (new CCodeIdentifier ("va_end"));
+ vaend.add_argument (new CCodeIdentifier ("_va_list_%s".printf (get_ccode_name (local))));
+ ccode.add_expression (vaend);
+ }
+}
--- /dev/null
+/* valaccodeassignmentmodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+/**
+ * The link between an assignment and generated code.
+ */
+public class Vala.CCodeAssignmentModule : CCodeMemberAccessModule {
+ TargetValue emit_simple_assignment (Assignment assignment) {
+ if (requires_destroy (assignment.left.value_type)) {
+ /* unref old value */
+ ccode.add_expression (destroy_value (assignment.left.target_value));
+ }
+
+ if (assignment.operator == AssignmentOperator.SIMPLE) {
+ store_value (assignment.left.target_value, assignment.right.target_value, assignment.source_reference);
+ } else {
+ CCodeAssignmentOperator cop;
+
+ switch (assignment.operator) {
+ case AssignmentOperator.BITWISE_OR: cop = CCodeAssignmentOperator.BITWISE_OR; break;
+ case AssignmentOperator.BITWISE_AND: cop = CCodeAssignmentOperator.BITWISE_AND; break;
+ case AssignmentOperator.BITWISE_XOR: cop = CCodeAssignmentOperator.BITWISE_XOR; break;
+ case AssignmentOperator.ADD: cop = CCodeAssignmentOperator.ADD; break;
+ case AssignmentOperator.SUB: cop = CCodeAssignmentOperator.SUB; break;
+ case AssignmentOperator.MUL: cop = CCodeAssignmentOperator.MUL; break;
+ case AssignmentOperator.DIV: cop = CCodeAssignmentOperator.DIV; break;
+ case AssignmentOperator.PERCENT:
+ // FIXME Code duplication with CCodeBaseModule.visit_binary_expression()
+ var cleft = get_cvalue (assignment.left);
+ var cright = get_cvalue (assignment.right);
+ if (assignment.value_type.equals (double_type)) {
+ cfile.add_include ("math.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("fmod"));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ set_cvalue (assignment.right, ccall);
+ cop = CCodeAssignmentOperator.SIMPLE;
+ } else if (assignment.value_type.equals (float_type)) {
+ cfile.add_include ("math.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("fmodf"));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ set_cvalue (assignment.right, ccall);
+ cop = CCodeAssignmentOperator.SIMPLE;
+ } else {
+ cop = CCodeAssignmentOperator.PERCENT;
+ }
+ break;
+ case AssignmentOperator.SHIFT_LEFT: cop = CCodeAssignmentOperator.SHIFT_LEFT; break;
+ case AssignmentOperator.SHIFT_RIGHT: cop = CCodeAssignmentOperator.SHIFT_RIGHT; break;
+ default: assert_not_reached ();
+ }
+
+ CCodeExpression codenode = new CCodeAssignment (get_cvalue (assignment.left), get_cvalue (assignment.right), cop);
+ ccode.add_expression (codenode);
+ }
+
+ if (assignment.left.value_type is ArrayType && (((ArrayType) assignment.left.value_type).inline_allocated)) {
+ unowned Variable variable = (Variable) assignment.left.symbol_reference;
+ return load_variable (variable, assignment.left.target_value);
+ } else {
+ return assignment.left.target_value;
+ }
+ }
+
+ public override void visit_assignment (Assignment assignment) {
+ if (assignment.left.error || assignment.right.error) {
+ assignment.error = true;
+ return;
+ }
+
+ if (assignment.left.symbol_reference is Property) {
+ unowned MemberAccess ma = (MemberAccess) assignment.left;
+ unowned Property prop = (Property) assignment.left.symbol_reference;
+
+ store_property (prop, ma.inner, assignment.right.target_value);
+ assignment.target_value = assignment.right.target_value;
+ } else if (assignment.left.symbol_reference is Variable && is_simple_struct_creation ((Variable) assignment.left.symbol_reference, assignment.right)) {
+ // delegate to visit_object_creation_expression
+ } else {
+ assignment.target_value = emit_simple_assignment (assignment);
+ }
+ }
+
+ public override void store_value (TargetValue lvalue, TargetValue value, SourceReference? source_reference = null) {
+ var array_type = lvalue.value_type as ArrayType;
+
+ if (array_type != null && array_type.fixed_length) {
+ cfile.add_include ("string.h");
+
+ // it is necessary to use memcpy for fixed-length (stack-allocated) arrays
+ // simple assignments do not work in C
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ var size = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, get_ccodenode (array_type.length), sizeof_call);
+
+ var ccopy = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ ccopy.add_argument (get_cvalue_ (lvalue));
+ ccopy.add_argument (get_cvalue_ (value));
+ ccopy.add_argument (size);
+ ccode.add_expression (ccopy);
+
+ return;
+ }
+
+ var cexpr = get_cvalue_ (value);
+ if (get_ctype (lvalue) != null) {
+ cexpr = new CCodeCastExpression (cexpr, get_ctype (lvalue));
+ }
+
+ ccode.add_assignment (get_cvalue_ (lvalue), cexpr);
+
+ if (array_type != null && ((GLibValue) lvalue).array_length_cvalues != null) {
+ var glib_value = (GLibValue) value;
+ if (glib_value.array_length_cvalues != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (get_array_length_cvalue (lvalue, dim), get_array_length_cvalue (value, dim));
+ }
+ } else if (glib_value.array_null_terminated) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (get_cvalue_ (value));
+
+ ccode.add_assignment (get_array_length_cvalue (lvalue, 1), len_call);
+ } else {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (get_array_length_cvalue (lvalue, dim), new CCodeConstant ("-1"));
+ }
+ }
+
+ if (array_type.rank == 1 && get_array_size_cvalue (lvalue) != null) {
+ ccode.add_assignment (get_array_size_cvalue (lvalue), get_array_length_cvalue (lvalue, 1));
+ }
+ }
+
+ var delegate_type = lvalue.value_type as DelegateType;
+ if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ var lvalue_target = get_delegate_target_cvalue (lvalue);
+ var rvalue_target = get_delegate_target_cvalue (value);
+ if (lvalue_target != null) {
+ if (rvalue_target != null) {
+ ccode.add_assignment (lvalue_target, rvalue_target);
+ } else {
+ Report.error (source_reference, "Assigning delegate without required target in scope");
+ ccode.add_assignment (lvalue_target, new CCodeInvalidExpression ());
+ }
+ var lvalue_destroy_notify = get_delegate_target_destroy_notify_cvalue (lvalue);
+ var rvalue_destroy_notify = get_delegate_target_destroy_notify_cvalue (value);
+ if (lvalue_destroy_notify != null) {
+ if (rvalue_destroy_notify != null) {
+ ccode.add_assignment (lvalue_destroy_notify, rvalue_destroy_notify);
+ } else {
+ ccode.add_assignment (lvalue_destroy_notify, new CCodeConstant ("NULL"));
+ }
+ }
+ }
+ }
+ }
+
+ public override void store_local (LocalVariable local, TargetValue value, bool initializer, SourceReference? source_reference = null) {
+ if (!initializer && requires_destroy (local.variable_type)) {
+ /* unref old value */
+ ccode.add_expression (destroy_local (local));
+ }
+
+ store_value (get_local_cvalue (local), value, source_reference);
+ }
+
+ public override void store_parameter (Parameter param, TargetValue _value, bool capturing_parameter = false, SourceReference? source_reference = null) {
+ var value = _value;
+
+ bool capturing_parameter_in_coroutine = capturing_parameter && is_in_coroutine ();
+
+ var param_type = param.variable_type.copy ();
+ if (param.captured || is_in_coroutine ()) {
+ if (!param_type.value_owned && !no_implicit_copy (param_type)) {
+ // parameter value has been implicitly copied into a heap data structure
+ // treat parameter as owned
+ param_type.value_owned = true;
+
+ var old_coroutine = is_in_coroutine ();
+ if (old_coroutine) {
+ current_method.coroutine = false;
+ }
+
+ if (requires_copy (param_type) && !capturing_parameter_in_coroutine) {
+ // do not copy value when capturing parameter in coroutine
+ // as the value was already copied on coroutine initialization
+ value = copy_value (value, param);
+ }
+
+ if (old_coroutine) {
+ current_method.coroutine = true;
+ }
+ }
+ }
+
+ if (requires_destroy (param_type)) {
+ /* unref old value */
+ ccode.add_expression (destroy_parameter (param));
+ }
+
+ store_value (get_parameter_cvalue (param), value, source_reference);
+ }
+
+ public override void store_field (Field field, TargetValue? instance, TargetValue value, SourceReference? source_reference = null) {
+ var lvalue = get_field_cvalue (field, instance);
+ var type = lvalue.value_type;
+ if (lvalue.actual_value_type != null) {
+ type = lvalue.actual_value_type;
+ }
+ if ((!(field.variable_type is DelegateType) || get_ccode_delegate_target (field)) && requires_destroy (type)) {
+ /* unref old value */
+ ccode.add_expression (destroy_field (field, instance));
+ }
+
+ store_value (lvalue, value, source_reference);
+ }
+}
--- /dev/null
+/* valaccodeattribute.vala
+ *
+ * Copyright (C) 2011 Luca Bruno
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Luca Bruno <lucabru@src.gnome.org>
+ */
+
+
+/**
+ * Cache for the CCode attribute
+ */
+public class Vala.CCodeAttribute : AttributeCache {
+ private weak CodeNode node;
+ private weak Symbol? sym;
+ private Attribute ccode;
+
+ public string name {
+ get {
+ if (_name == null) {
+ if (ccode != null) {
+ _name = ccode.get_string ("cname");
+ }
+ if (_name == null) {
+ _name = get_default_name ();
+ }
+ }
+ return _name;
+ }
+ }
+
+ public string const_name {
+ get {
+ if (_const_name == null) {
+ if (ccode != null) {
+ _const_name = ccode.get_string ("const_cname");
+ }
+ if (_const_name == null) {
+ _const_name = get_default_const_name ();
+ }
+ }
+ return _const_name;
+ }
+ }
+
+ public string type_name {
+ get {
+ if (_type_name == null) {
+ if (ccode != null) {
+ _type_name = ccode.get_string ("type_cname");
+ }
+ if (_type_name == null) {
+ if (sym is Class) {
+ _type_name = "%sClass".printf (get_ccode_name (sym));
+ } else if (sym is Interface) {
+ _type_name = "%sIface".printf (get_ccode_name (sym));
+ } else {
+ Report.error (sym.source_reference, "`CCode.type_cname' not supported");
+ _type_name = "";
+ }
+ }
+ }
+ return _type_name;
+ }
+ }
+
+ public string feature_test_macros {
+ get {
+ if (_feature_test_macros == null) {
+ if (ccode != null) {
+ _feature_test_macros = ccode.get_string ("feature_test_macro");
+ }
+ if (_feature_test_macros == null) {
+ _feature_test_macros = "";
+ }
+ }
+ return _feature_test_macros;
+ }
+ }
+
+ public string header_filenames {
+ get {
+ if (_header_filenames == null) {
+ if (ccode != null) {
+ _header_filenames = ccode.get_string ("cheader_filename");
+ }
+ if (_header_filenames == null) {
+ _header_filenames = get_default_header_filenames ();
+ }
+ }
+ return _header_filenames;
+ }
+ }
+
+ public string prefix {
+ get {
+ if (_prefix == null) {
+ if (ccode != null) {
+ _prefix = ccode.get_string ("cprefix");
+ }
+ if (_prefix == null) {
+ _prefix = get_default_prefix ();
+ }
+ }
+ return _prefix;
+ }
+ }
+
+ public string lower_case_prefix {
+ get {
+ if (_lower_case_prefix == null) {
+ if (ccode != null) {
+ _lower_case_prefix = ccode.get_string ("lower_case_cprefix");
+ if (_lower_case_prefix == null && (sym is ObjectTypeSymbol || sym is Struct)) {
+ _lower_case_prefix = ccode.get_string ("cprefix");
+ }
+ }
+ if (_lower_case_prefix == null) {
+ _lower_case_prefix = get_default_lower_case_prefix ();
+ }
+ }
+ return _lower_case_prefix;
+ }
+ }
+
+ public string lower_case_suffix {
+ get {
+ if (_lower_case_suffix == null) {
+ if (ccode != null) {
+ _lower_case_suffix = ccode.get_string ("lower_case_csuffix");
+ }
+ if (_lower_case_suffix == null) {
+ _lower_case_suffix = get_default_lower_case_suffix ();
+ }
+ }
+ return _lower_case_suffix;
+ }
+ }
+
+ public string ref_function {
+ get {
+ if (!ref_function_set) {
+ if (ccode != null) {
+ _ref_function = ccode.get_string ("ref_function");
+ }
+ if (_ref_function == null) {
+ _ref_function = get_default_ref_function ();
+ }
+ ref_function_set = true;
+ }
+ return _ref_function;
+ }
+ }
+
+ public bool ref_function_void {
+ get {
+ if (_ref_function_void == null) {
+ if (ccode != null && ccode.has_argument ("ref_function_void")) {
+ _ref_function_void = ccode.get_bool ("ref_function_void");
+ } else {
+ var cl = (Class) sym;
+ if (cl.base_class != null) {
+ _ref_function_void = get_ccode_ref_function_void (cl.base_class);
+ } else {
+ _ref_function_void = false;
+ }
+ }
+ }
+ return _ref_function_void;
+ }
+ }
+
+ public string unref_function {
+ get {
+ if (!unref_function_set) {
+ if (ccode != null) {
+ _unref_function = ccode.get_string ("unref_function");
+ }
+ if (_unref_function == null) {
+ _unref_function = get_default_unref_function ();
+ }
+ unref_function_set = true;
+ }
+ return _unref_function;
+ }
+ }
+
+ public string ref_sink_function {
+ get {
+ if (_ref_sink_function == null) {
+ if (ccode != null) {
+ _ref_sink_function = ccode.get_string ("ref_sink_function");
+ }
+ if (_ref_sink_function == null) {
+ _ref_sink_function = get_default_ref_sink_function ();
+ }
+ }
+ return _ref_sink_function;
+ }
+ }
+
+ public string copy_function {
+ get {
+ if (!copy_function_set) {
+ if (ccode != null) {
+ _copy_function = ccode.get_string ("copy_function");
+ }
+ if (_copy_function == null && sym is Struct) {
+ _copy_function = "%scopy".printf (lower_case_prefix);
+ }
+ if (_copy_function == null && sym is TypeParameter) {
+ _copy_function = "%s_dup_func".printf (sym.name.ascii_down ());
+ }
+ copy_function_set = true;
+ }
+ return _copy_function;
+ }
+ }
+
+ public string destroy_function {
+ get {
+ if (!destroy_function_set) {
+ if (ccode != null) {
+ _destroy_function = ccode.get_string ("destroy_function");
+ }
+ if (_destroy_function == null && sym is Struct) {
+ _destroy_function = "%sdestroy".printf (lower_case_prefix);
+ }
+ if (_destroy_function == null && sym is TypeParameter) {
+ _destroy_function = "%s_destroy_func".printf (sym.name.ascii_down ());
+ }
+ destroy_function_set = true;
+ }
+ return _destroy_function;
+ }
+ }
+
+ public string dup_function {
+ get {
+ if (!dup_function_set) {
+ if (ccode != null) {
+ _dup_function = ccode.get_string ("dup_function");
+ }
+ if (_dup_function == null && !sym.external_package
+ && sym is Struct && !((Struct) sym).is_simple_type ()) {
+ _dup_function = "%sdup".printf (lower_case_prefix);
+ }
+ dup_function_set = true;
+ }
+ return _dup_function;
+ }
+ }
+
+ public string free_function {
+ get {
+ if (!free_function_set) {
+ if (ccode != null) {
+ _free_function = ccode.get_string ("free_function");
+ }
+ if (_free_function == null) {
+ _free_function = get_default_free_function ();
+ }
+ free_function_set = true;
+ }
+ return _free_function;
+ }
+ }
+
+ public bool free_function_address_of {
+ get {
+ if (_free_function_address_of == null) {
+ if (ccode != null && ccode.has_argument ("free_function_address_of")) {
+ _free_function_address_of = ccode.get_bool ("free_function_address_of");
+ } else {
+ unowned Class cl = (Class) sym;
+ if (cl.base_class != null) {
+ _free_function_address_of = get_ccode_free_function_address_of (cl.base_class);
+ } else {
+ _free_function_address_of = false;
+ }
+ }
+ }
+ return _free_function_address_of;
+ }
+ }
+
+ public string ctype {
+ get {
+ if (!ctype_set) {
+ if (ccode != null) {
+ _ctype = ccode.get_string ("type");
+ if (_ctype == null) {
+ _ctype = ccode.get_string ("ctype");
+ if (_ctype != null) {
+ Report.deprecated (node.source_reference, "[CCode (ctype = \"...\")] is deprecated, use [CCode (type = \"...\")] instead.");
+ }
+ }
+ }
+ ctype_set = true;
+ }
+ return _ctype;
+ }
+ }
+
+ public string type_id {
+ get {
+ if (_type_id == null) {
+ if (ccode != null) {
+ _type_id = ccode.get_string ("type_id");
+ }
+ if (_type_id == null && sym is TypeParameter) {
+ _type_id = "%s_type".printf (sym.name.ascii_down ());
+ }
+ if (_type_id == null) {
+ _type_id = get_default_type_id ();
+ }
+ }
+ return _type_id;
+ }
+ }
+
+ public string marshaller_type_name {
+ get {
+ if (_marshaller_type_name == null) {
+ if (ccode != null) {
+ _marshaller_type_name = ccode.get_string ("marshaller_type_name");
+ }
+ if (_marshaller_type_name == null) {
+ _marshaller_type_name = get_default_marshaller_type_name ();
+ }
+ }
+ return _marshaller_type_name;
+ }
+ }
+
+ public string get_value_function {
+ get {
+ if (_get_value_function == null) {
+ if (ccode != null) {
+ _get_value_function = ccode.get_string ("get_value_function");
+ }
+ if (_get_value_function == null) {
+ _get_value_function = get_default_get_value_function ();
+ }
+ }
+ return _get_value_function;
+ }
+ }
+
+ public string set_value_function {
+ get {
+ if (_set_value_function == null) {
+ if (ccode != null) {
+ _set_value_function = ccode.get_string ("set_value_function");
+ }
+ if (_set_value_function == null) {
+ _set_value_function = get_default_set_value_function ();
+ }
+ }
+ return _set_value_function;
+ }
+ }
+
+ public string take_value_function {
+ get {
+ if (_take_value_function == null) {
+ if (ccode != null) {
+ _take_value_function = ccode.get_string ("take_value_function");
+ }
+ if (_take_value_function == null) {
+ _take_value_function = get_default_take_value_function ();
+ }
+ }
+ return _take_value_function;
+ }
+ }
+
+ public string param_spec_function {
+ get {
+ if (_param_spec_function == null) {
+ if (ccode != null) {
+ _param_spec_function = ccode.get_string ("param_spec_function");
+ }
+ if (_param_spec_function == null) {
+ _param_spec_function = get_default_param_spec_function ();
+ }
+ }
+ return _param_spec_function;
+ }
+ }
+
+ public string default_value {
+ get {
+ if (_default_value == null) {
+ if (ccode != null) {
+ _default_value = ccode.get_string ("default_value");
+ }
+ if (_default_value == null) {
+ _default_value = get_default_default_value ();
+ }
+ }
+ return _default_value;
+ }
+ }
+
+ public string default_value_on_error {
+ get {
+ if (_default_value_on_error == null) {
+ if (ccode != null) {
+ _default_value_on_error = ccode.get_string ("default_value_on_error");
+ }
+ if (_default_value_on_error == null) {
+ _default_value_on_error = default_value;
+ }
+ }
+ return _default_value_on_error;
+ }
+ }
+
+ public double pos {
+ get {
+ if (_pos == null) {
+ if (ccode != null && ccode.has_argument ("pos")) {
+ _pos = ccode.get_double ("pos");
+ } else {
+ unowned Parameter param = (Parameter) node;
+ unowned Callable? callable = param.parent_symbol as Callable;
+ unowned Method? method = param.parent_symbol as Method;
+ if (method != null && method.coroutine) {
+ int index = method.get_async_begin_parameters ().index_of (param);
+ if (index < 0) {
+ index = method.get_async_end_parameters ().index_of (param);
+ }
+ if (index < 0) {
+ Report.error (param.source_reference, "internal: Parameter `%s' not found in `%s'", param.name, method.get_full_name ());
+ }
+ _pos = index + 1.0;
+ } else if (callable != null) {
+ _pos = callable.get_parameters ().index_of (param) + 1.0;
+ } else {
+ _pos = 0.0;
+ }
+ }
+ }
+ return _pos;
+ }
+ }
+
+ public string real_name {
+ get {
+ if (_real_name == null) {
+ if (ccode != null && sym is CreationMethod) {
+ _real_name = ccode.get_string ("construct_function");
+ }
+ if (_real_name == null) {
+ _real_name = get_default_real_name ();
+ }
+ }
+ return _real_name;
+ }
+ }
+
+ public string vfunc_name {
+ get {
+ if (_vfunc_name == null) {
+ if (ccode != null) {
+ _vfunc_name = ccode.get_string ("vfunc_name");
+ }
+ if (_vfunc_name == null) {
+ unowned Method? m = node as Method;
+ if (m != null && m.signal_reference != null) {
+ _vfunc_name = get_ccode_lower_case_name (m.signal_reference);
+ } else {
+ _vfunc_name = sym.name;
+ }
+ }
+ }
+ return _vfunc_name;
+ }
+ }
+
+ public string finish_name {
+ get {
+ if (_finish_name == null) {
+ if (ccode != null) {
+ _finish_name = ccode.get_string ("finish_name");
+ if (_finish_name == null) {
+ _finish_name = ccode.get_string ("finish_function");
+ if (_finish_name != null) {
+ Report.deprecated (node.source_reference, "[CCode (finish_function = \"...\")] is deprecated, use [CCode (finish_name = \"...\")] instead.");
+ }
+ }
+ }
+ if (_finish_name == null) {
+ _finish_name = get_finish_name_for_basename (name);
+ }
+ }
+ return _finish_name;
+ }
+ }
+
+ public string finish_vfunc_name {
+ get {
+ if (_finish_vfunc_name == null) {
+ if (ccode != null) {
+ _finish_vfunc_name = ccode.get_string ("finish_vfunc_name");
+ }
+ if (_finish_vfunc_name == null) {
+ _finish_vfunc_name = get_finish_name_for_basename (vfunc_name);
+ }
+ }
+ return _finish_vfunc_name;
+ }
+ }
+
+ public string finish_real_name {
+ get {
+ if (_finish_real_name == null) {
+ unowned Method? m = node as Method;
+ if (m != null && !(m is CreationMethod) && !(m.is_abstract || m.is_virtual)) {
+ _finish_real_name = finish_name;
+ } else {
+ _finish_real_name = get_finish_name_for_basename (real_name);
+ }
+ }
+ return _finish_real_name;
+ }
+ }
+
+ public bool finish_instance {
+ get {
+ if (_finish_instance == null) {
+ unowned Method? m = node as Method;
+ bool is_creation_method = m is CreationMethod;
+ if (ccode == null || m == null || m.is_abstract || m.is_virtual) {
+ _finish_instance = !is_creation_method;
+ } else {
+ _finish_instance = ccode.get_bool ("finish_instance", !is_creation_method);
+ }
+ }
+ return _finish_instance;
+ }
+ }
+
+ public bool delegate_target {
+ get {
+ if (_delegate_target == null) {
+ if (ccode != null) {
+ _delegate_target = ccode.get_bool ("delegate_target", get_default_delegate_target ());
+ } else {
+ _delegate_target = get_default_delegate_target ();
+ }
+ }
+ return _delegate_target;
+ }
+ }
+
+ public string delegate_target_name {
+ get {
+ if (_delegate_target_name == null) {
+ if (ccode != null) {
+ _delegate_target_name = ccode.get_string ("delegate_target_cname");
+ }
+ if (_delegate_target_name == null) {
+ _delegate_target_name = "%s_target".printf (name);
+ }
+ }
+ return _delegate_target_name;
+ }
+ }
+
+ public string delegate_target_destroy_notify_name {
+ get {
+ if (_delegate_target_destroy_notify_name == null) {
+ if (ccode != null) {
+ _delegate_target_destroy_notify_name = ccode.get_string ("destroy_notify_cname");
+ }
+ if (_delegate_target_destroy_notify_name == null) {
+ _delegate_target_destroy_notify_name = "%s_destroy_notify".printf (delegate_target_name);
+ }
+ }
+ return _delegate_target_destroy_notify_name;
+ }
+ }
+
+ public bool array_length {
+ get {
+ if (_array_length == null) {
+ if (node.get_attribute ("NoArrayLength") != null) {
+ Report.deprecated (node.source_reference, "[NoArrayLength] is deprecated, use [CCode (array_length = false)] instead.");
+ _array_length = false;
+ } else if (ccode != null && ccode.has_argument ("array_length")) {
+ _array_length = ccode.get_bool ("array_length");
+ } else {
+ _array_length = get_default_array_length ();
+ }
+ }
+ return _array_length;
+ }
+ }
+
+ public bool array_null_terminated {
+ get {
+ if (_array_null_terminated == null) {
+ // If arrays claim to have an array-length and also are null-terminated then rely on the given length
+ if (ccode != null && ccode.has_argument ("array_length") && ccode.get_bool ("array_length")) {
+ _array_null_terminated = false;
+ } else if (ccode != null && ccode.has_argument ("array_null_terminated")) {
+ _array_null_terminated = ccode.get_bool ("array_null_terminated");
+ } else {
+ _array_null_terminated = get_default_array_null_terminated ();
+ }
+ }
+ return _array_null_terminated;
+ }
+ }
+
+ public string array_length_type {
+ get {
+ if (_array_length_type == null) {
+ if (ccode != null && ccode.has_argument ("array_length_type")) {
+ _array_length_type = ccode.get_string ("array_length_type");
+ } else {
+ _array_length_type = get_default_array_length_type ();
+ }
+ }
+ return _array_length_type;
+ }
+ }
+
+ public string sentinel {
+ get {
+ if (_sentinel == null) {
+ if (ccode != null) {
+ _sentinel = ccode.get_string ("sentinel", "NULL");
+ } else {
+ _sentinel = "NULL";
+ }
+ }
+ return _sentinel;
+ }
+ }
+
+ public string? array_length_name { get; private set; }
+ public string? array_length_expr { get; private set; }
+
+ private string _name;
+ private string _const_name;
+ private string _type_name;
+ private string _feature_test_macros;
+ private string _header_filenames;
+ private string _prefix;
+ private string _lower_case_prefix;
+ private string _lower_case_suffix;
+ private string? _ref_function;
+ private bool ref_function_set;
+ private bool? _ref_function_void;
+ private string? _unref_function;
+ private bool unref_function_set;
+ private string _ref_sink_function;
+ private string? _copy_function;
+ private bool copy_function_set;
+ private string? _destroy_function;
+ private bool destroy_function_set;
+ private string? _dup_function;
+ private bool dup_function_set;
+ private string? _free_function;
+ private bool free_function_set;
+ private bool? _free_function_address_of;
+ private string _type_id;
+ private string _marshaller_type_name;
+ private string _get_value_function;
+ private string _set_value_function;
+ private string _take_value_function;
+ private string _param_spec_function;
+ private string _default_value;
+ private string _default_value_on_error;
+ private double? _pos;
+ private string _vfunc_name;
+ private string _finish_name;
+ private string _finish_vfunc_name;
+ private string _finish_real_name;
+ private bool? _finish_instance;
+ private string _real_name;
+ private bool? _delegate_target;
+ private string _delegate_target_name;
+ private string _delegate_target_destroy_notify_name;
+ private string _ctype;
+ private bool ctype_set = false;
+ private bool? _array_length;
+ private string _array_length_type;
+ private bool? _array_null_terminated;
+ private string _sentinel;
+
+ private static int dynamic_method_id;
+
+ public CCodeAttribute (CodeNode node) {
+ this.node = node;
+ this.sym = node as Symbol;
+
+ ccode = node.get_attribute ("CCode");
+ if (ccode != null) {
+ array_length_name = ccode.get_string ("array_length_cname");
+ array_length_expr = ccode.get_string ("array_length_cexpr");
+ }
+ }
+
+ private string get_default_name () {
+ if (sym != null) {
+ if (sym is Constant && !(sym is EnumValue)) {
+ if (sym.parent_symbol is Block) {
+ // local constant
+ return sym.name;
+ }
+ return "%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol).ascii_up (), sym.name);
+ } else if (sym is Field) {
+ var cname = sym.name;
+ if (((Field) sym).binding == MemberBinding.STATIC) {
+ cname = "%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol), sym.name);
+ }
+ if (cname[0].isdigit ()) {
+ Report.error (node.source_reference, "Field name starts with a digit. Use the `cname' attribute to provide a valid C name if intended");
+ return "";
+ }
+ return cname;
+ } else if (sym is CreationMethod) {
+ unowned CreationMethod m = (CreationMethod) sym;
+ string infix;
+ if (m.parent_symbol is Struct) {
+ infix = "init";
+ } else {
+ infix = "new";
+ }
+ if (m.name == ".new") {
+ return "%s%s".printf (get_ccode_lower_case_prefix (m.parent_symbol), infix);
+ } else {
+ return "%s%s_%s".printf (get_ccode_lower_case_prefix (m.parent_symbol), infix, m.name);
+ }
+ } else if (sym is DynamicMethod) {
+ return "_dynamic_%s%d".printf (sym.name, dynamic_method_id++);
+ } else if (sym is Method) {
+ unowned Method m = (Method) sym;
+ if (m.is_async_callback) {
+ return "%s_co".printf (get_ccode_real_name ((Method) m.parent_symbol));
+ }
+ if (m.signal_reference != null) {
+ return "%s%s".printf (get_ccode_lower_case_prefix (m.parent_symbol), get_ccode_lower_case_name (m.signal_reference));
+ }
+ if (sym.name == "main" && sym.parent_symbol.name == null) {
+ // avoid conflict with generated main function
+ if (m.coroutine) {
+ return "_vala_main_async";
+ } else {
+ return "_vala_main";
+ }
+ } else if (sym.name.has_prefix ("_")) {
+ return "_%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol), sym.name.substring (1));
+ } else {
+ return "%s%s".printf (get_ccode_lower_case_prefix (sym.parent_symbol), sym.name);
+ }
+ } else if (sym is Property) {
+ return sym.name.replace ("_", "-");
+ } else if (sym is PropertyAccessor) {
+ unowned PropertyAccessor acc = (PropertyAccessor) sym;
+ var t = (TypeSymbol) acc.prop.parent_symbol;
+
+ if (acc.readable) {
+ return "%sget_%s".printf (get_ccode_lower_case_prefix (t), acc.prop.name);
+ } else {
+ return "%sset_%s".printf (get_ccode_lower_case_prefix (t), acc.prop.name);
+ }
+ } else if (sym is Signal) {
+ return Symbol.camel_case_to_lower_case (sym.name).replace ("_", "-");;
+ } else if (sym is LocalVariable) {
+ unowned string name = sym.name;
+ if (CCodeBaseModule.reserved_identifiers.contains (name)) {
+ return "_%s_".printf (name);
+ } else {
+ return name;
+ }
+ } else if (sym is Parameter) {
+ unowned Parameter param = (Parameter) sym;
+ if (param.ellipsis) {
+ return "...";
+ }
+ unowned string name = sym.name;
+ if (CCodeBaseModule.reserved_identifiers.contains (name)) {
+ return "_%s_".printf (name);
+ } else {
+ return name;
+ }
+ } else if (sym is TypeParameter) {
+ assert (node is GenericType);
+ var type = (GenericType) node;
+ if (type.value_owned) {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gpointer";
+ } else {
+ return "void *";
+ }
+ } else {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gconstpointer";
+ } else {
+ return "const void *";
+ }
+ }
+ } else {
+ return "%s%s".printf (get_ccode_prefix (sym.parent_symbol), sym.name);
+ }
+ } else if (node is ObjectType) {
+ var type = (ObjectType) node;
+
+ string cname;
+ if (!type.value_owned) {
+ cname = get_ccode_const_name (type.type_symbol);
+ } else {
+ cname = get_ccode_name (type.type_symbol);
+ }
+ return "%s*".printf (cname);
+ } else if (node is ArrayType) {
+ var type = (ArrayType) node;
+ var cname = get_ccode_name (type.element_type);
+ if (type.inline_allocated) {
+ return cname;
+ } else {
+ return "%s*".printf (cname);
+ }
+ } else if (node is DelegateType) {
+ var type = (DelegateType) node;
+ return get_ccode_name (type.delegate_symbol);
+ } else if (node is ErrorType) {
+ return "GError*";
+ } else if (node is GenericType) {
+ var type = (GenericType) node;
+ if (type.value_owned) {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gpointer";
+ } else {
+ return "void *";
+ }
+ } else {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gconstpointer";
+ } else {
+ return "const void *";
+ }
+ }
+ } else if (node is MethodType) {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gpointer";
+ } else {
+ return "void *";
+ }
+ } else if (node is NullType) {
+ if (CodeContext.get ().profile == Profile.GOBJECT) {
+ return "gpointer";
+ } else {
+ return "void *";
+ }
+ } else if (node is PointerType) {
+ var type = (PointerType) node;
+ if (type.base_type.type_symbol != null && type.base_type.type_symbol.is_reference_type ()) {
+ return get_ccode_name (type.base_type);
+ } else {
+ return "%s*".printf (get_ccode_name (type.base_type));
+ }
+ } else if (node is VoidType) {
+ return "void";
+ } else if (node is ClassType) {
+ var type = (ClassType) node;
+ return "%s*".printf (get_ccode_type_name (type.class_symbol));
+ } else if (node is InterfaceType) {
+ var type = (InterfaceType) node;
+ return "%s*".printf (get_ccode_type_name (type.interface_symbol));
+ } else if (node is ValueType) {
+ var type = (ValueType) node;
+ var cname = get_ccode_name (type.type_symbol);
+ if (type.nullable) {
+ return "%s*".printf (cname);
+ } else {
+ return cname;
+ }
+ } else if (node is CType) {
+ return ((CType) node).ctype_name;
+ } else {
+ Report.error (node.source_reference, "Unresolved type reference");
+ return "";
+ }
+ }
+
+ private string get_default_header_filenames () {
+ if (sym is DynamicProperty || sym is DynamicMethod) {
+ return "";
+ }
+ if (sym.parent_symbol != null && !sym.is_extern) {
+ var parent_headers = get_ccode_header_filenames (sym.parent_symbol);
+ if (parent_headers.length > 0) {
+ return parent_headers;
+ }
+ }
+ if (sym.source_reference != null && !sym.external_package && !sym.is_extern) {
+ // don't add default include directives for VAPI files
+ return sym.source_reference.file.get_cinclude_filename ();
+ }
+ return "";
+ }
+
+ private string get_default_prefix () {
+ if (sym is ObjectTypeSymbol) {
+ return name;
+ } else if (sym is Enum || sym is ErrorDomain) {
+ return "%s_".printf (get_ccode_upper_case_name (sym));
+ } else if (sym is Namespace) {
+ if (sym.name != null) {
+ var parent_prefix = "";
+ if (sym.parent_symbol != null) {
+ parent_prefix = get_ccode_prefix (sym.parent_symbol);
+ }
+ return "%s%s".printf (parent_prefix, sym.name);
+ } else {
+ return "";
+ }
+ } else if (sym.name != null) {
+ return sym.name;
+ }
+ return "";
+ }
+
+ private string get_default_lower_case_prefix () {
+ if (sym is Namespace) {
+ if (sym.name == null) {
+ return "";
+ } else {
+ return "%s%s_".printf (get_ccode_lower_case_prefix (sym.parent_symbol), Symbol.camel_case_to_lower_case (sym.name));
+ }
+ } else if (sym is Method) {
+ // for lambda expressions
+ return "";
+ } else {
+ return "%s_".printf (get_ccode_lower_case_name (sym));
+ }
+ }
+
+ private string get_default_lower_case_suffix () {
+ if (sym is ObjectTypeSymbol) {
+ var csuffix = Symbol.camel_case_to_lower_case (sym.name);
+
+ // FIXME Code duplication with GirParser.Node.get_default_lower_case_suffix()
+ // remove underscores in some cases to avoid conflicts of type macros
+ if (csuffix.has_prefix ("type_")) {
+ csuffix = "type" + csuffix.substring ("type_".length);
+ } else if (csuffix.has_prefix ("is_")) {
+ csuffix = "is" + csuffix.substring ("is_".length);
+ }
+ if (csuffix.has_suffix ("_class")) {
+ csuffix = csuffix.substring (0, csuffix.length - "_class".length) + "class";
+ }
+ return csuffix;
+ } else if (sym is Signal) {
+ return get_ccode_attribute (sym).name.replace ("-", "_");
+ } else if (sym.name != null) {
+ return Symbol.camel_case_to_lower_case (sym.name);
+ }
+ return "";
+ }
+
+ private string? get_default_ref_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return "%sref".printf (lower_case_prefix);
+ } else if (cl.base_class != null) {
+ return get_ccode_ref_function (cl.base_class);
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ string ref_func = get_ccode_ref_function ((ObjectTypeSymbol) prereq.type_symbol);
+ if (ref_func != null) {
+ return ref_func;
+ }
+ }
+ }
+ return null;
+ }
+
+ private string? get_default_unref_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return "%sunref".printf (lower_case_prefix);
+ } else if (cl.base_class != null) {
+ return get_ccode_unref_function (cl.base_class);
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ string unref_func = get_ccode_unref_function ((ObjectTypeSymbol) prereq.type_symbol);
+ if (unref_func != null) {
+ return unref_func;
+ }
+ }
+ }
+ return null;
+ }
+
+ private string get_default_ref_sink_function () {
+ if (sym is Class) {
+ unowned Class? base_class = ((Class) sym).base_class;
+ if (base_class != null) {
+ return get_ccode_ref_sink_function (base_class);
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ string ref_sink_func = get_ccode_ref_sink_function ((ObjectTypeSymbol) prereq.type_symbol);
+ if (ref_sink_func != "") {
+ return ref_sink_func;
+ }
+ }
+ }
+ return "";
+ }
+
+ private string? get_default_free_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.base_class != null) {
+ return get_ccode_free_function (cl.base_class);
+ }
+ return "%sfree".printf (lower_case_prefix);
+ } else if (sym is Struct) {
+ if (!sym.external_package && !((Struct) sym).is_simple_type ()) {
+ return "%sfree".printf (lower_case_prefix);
+ }
+ }
+ return null;
+ }
+
+ private string get_default_type_id () {
+ if (sym != null) {
+ if (sym is Class && !((Class) sym).is_compact || sym is Interface) {
+ return get_ccode_upper_case_name (sym, "TYPE_");
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_struct = st.base_struct;
+ if (!get_ccode_has_type_id (st) || (base_struct != null && base_struct.is_simple_type ())) {
+ if (base_struct != null) {
+ return get_ccode_type_id (base_struct);
+ }
+ if (!st.is_simple_type ()) {
+ return "G_TYPE_POINTER";
+ }
+ } else {
+ return get_ccode_upper_case_name (st, "TYPE_");
+ }
+ } else if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (get_ccode_has_type_id (en)) {
+ return get_ccode_upper_case_name (en, "TYPE_");
+ } else {
+ return en.is_flags ? "G_TYPE_UINT" : "G_TYPE_INT";
+ }
+ } else {
+ return "G_TYPE_POINTER";
+ }
+ } else if (node is ArrayType && ((ArrayType) node).element_type.type_symbol == CodeContext.get ().analyzer.string_type.type_symbol) {
+ return "G_TYPE_STRV";
+ } else if (node is PointerType || node is DelegateType) {
+ return "G_TYPE_POINTER";
+ } else if (node is ErrorType) {
+ return "G_TYPE_ERROR";
+ } else if (node is VoidType) {
+ return "G_TYPE_NONE";
+ } else {
+ var type = (DataType) node;
+ if (type.type_symbol != null) {
+ return get_ccode_type_id (type.type_symbol);
+ }
+ }
+ return "";
+ }
+
+ private string get_default_marshaller_type_name () {
+ if (sym != null) {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.base_class != null) {
+ return get_ccode_marshaller_type_name (cl.base_class);
+ } else if (!cl.is_compact) {
+ return get_ccode_upper_case_name (cl);
+ } else if (type_id == "G_TYPE_POINTER") {
+ return "POINTER";
+ } else {
+ return "BOXED";
+ }
+ } else if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (get_ccode_has_type_id (en)) {
+ if (en.is_flags) {
+ return "FLAGS";
+ } else {
+ return "ENUM";
+ }
+ } else {
+ if (en.is_flags) {
+ return "UINT";
+ } else {
+ return "INT";
+ }
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ var type_name = get_ccode_marshaller_type_name (prereq.type_symbol);
+ if (type_name != "") {
+ return type_name;
+ }
+ }
+ return "POINTER";
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_st = st.base_struct;
+ while (base_st != null) {
+ if (get_ccode_has_type_id (base_st)) {
+ return get_ccode_marshaller_type_name (base_st);
+ } else {
+ base_st = base_st.base_struct;
+ }
+ }
+ if (st.is_simple_type ()) {
+ Report.error (st.source_reference, "The type `%s' doesn't declare a marshaller type name", st.get_full_name ());
+ } else if (get_ccode_has_type_id (st)) {
+ return "BOXED";
+ } else {
+ return "POINTER";
+ }
+ } else if (sym is Parameter) {
+ unowned Parameter param = (Parameter) sym;
+ if (param.direction != ParameterDirection.IN) {
+ return "POINTER";
+ } else {
+ return get_ccode_marshaller_type_name (param.variable_type);
+ }
+ } else {
+ return "POINTER";
+ }
+ } else if (node is ValueType && ((ValueType) node).nullable) {
+ return "POINTER";
+ } else if (node is PointerType || node is GenericType) {
+ return "POINTER";
+ } else if (node is ErrorType) {
+ return "POINTER";
+ } else if (node is ArrayType) {
+ unowned ArrayType array_type = (ArrayType) node;
+ if (array_type.element_type.type_symbol == CodeContext.get ().analyzer.string_type.type_symbol) {
+ return "BOXED,%s".printf (get_ccode_marshaller_type_name (array_type.length_type.type_symbol));
+ } else {
+ var ret = "POINTER";
+ var length_marshaller_type_name = get_ccode_marshaller_type_name (array_type.length_type.type_symbol);
+ for (var i = 0; i < array_type.rank; i++) {
+ ret = "%s,%s".printf (ret, length_marshaller_type_name);
+ }
+ return ret;
+ }
+ } else if (node is DelegateType) {
+ unowned DelegateType delegate_type = (DelegateType) node;
+ var ret = "POINTER";
+ if (delegate_type.delegate_symbol.has_target) {
+ ret = "%s,POINTER".printf (ret);
+ if (delegate_type.is_disposable ()) {
+ ret = "%s,POINTER".printf (ret);
+ }
+ }
+ return ret;
+ } else if (node is VoidType) {
+ return "VOID";
+ } else {
+ return get_ccode_marshaller_type_name (((DataType) node).type_symbol);
+ }
+ return "";
+ }
+
+ private string get_default_get_value_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return get_ccode_lower_case_name (cl, "value_get_");
+ } else if (cl.base_class != null) {
+ return get_ccode_get_value_function (cl.base_class);
+ } else if (type_id == "G_TYPE_POINTER") {
+ return "g_value_get_pointer";
+ } else {
+ return "g_value_get_boxed";
+ }
+ } else if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (get_ccode_has_type_id (en)) {
+ if (en.is_flags) {
+ return "g_value_get_flags";
+ } else {
+ return "g_value_get_enum";
+ }
+ } else {
+ if (en.is_flags) {
+ return "g_value_get_uint";
+ } else {
+ return "g_value_get_int";
+ }
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ var type_name = get_ccode_get_value_function (prereq.type_symbol);
+ if (type_name != "") {
+ return type_name;
+ }
+ }
+ return "g_value_get_pointer";
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_st = st.base_struct;
+ while (base_st != null) {
+ if (get_ccode_has_type_id (base_st)) {
+ return get_ccode_get_value_function (base_st);
+ } else {
+ base_st = base_st.base_struct;
+ }
+ }
+ if (st.is_simple_type ()) {
+ Report.error (st.source_reference, "The type `%s' doesn't declare a GValue get function", st.get_full_name ());
+ } else if (get_ccode_has_type_id (st)) {
+ return "g_value_get_boxed";
+ } else {
+ return "g_value_get_pointer";
+ }
+ } else {
+ return "g_value_get_pointer";
+ }
+ return "";
+ }
+
+ private string get_default_set_value_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return get_ccode_lower_case_name (cl, "value_set_");
+ } else if (cl.base_class != null) {
+ return get_ccode_set_value_function (cl.base_class);
+ } else if (type_id == "G_TYPE_POINTER") {
+ return "g_value_set_pointer";
+ } else {
+ return "g_value_set_boxed";
+ }
+ } else if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (get_ccode_has_type_id (en)) {
+ if (en.is_flags) {
+ return "g_value_set_flags";
+ } else {
+ return "g_value_set_enum";
+ }
+ } else {
+ if (en.is_flags) {
+ return "g_value_set_uint";
+ } else {
+ return "g_value_set_int";
+ }
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ var type_name = get_ccode_set_value_function (prereq.type_symbol);
+ if (type_name != "") {
+ return type_name;
+ }
+ }
+ return "g_value_set_pointer";
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_st = st.base_struct;
+ while (base_st != null) {
+ if (get_ccode_has_type_id (base_st)) {
+ return get_ccode_set_value_function (base_st);
+ } else {
+ base_st = base_st.base_struct;
+ }
+ }
+ if (st.is_simple_type ()) {
+ Report.error (st.source_reference, "The type `%s' doesn't declare a GValue set function", st.get_full_name ());
+ } else if (get_ccode_has_type_id (st)) {
+ return "g_value_set_boxed";
+ } else {
+ return "g_value_set_pointer";
+ }
+ } else {
+ return "g_value_set_pointer";
+ }
+ return "";
+ }
+
+ private string get_default_take_value_function () {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return get_ccode_lower_case_name (cl, "value_take_");
+ } else if (cl.base_class != null) {
+ return get_ccode_take_value_function (cl.base_class);
+ } else if (type_id == "G_TYPE_POINTER") {
+ return "g_value_set_pointer";
+ } else {
+ return "g_value_take_boxed";
+ }
+ } else if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (get_ccode_has_type_id (en)) {
+ if (en.is_flags) {
+ return "g_value_take_flags";
+ } else {
+ return "g_value_take_enum";
+ }
+ } else {
+ if (en.is_flags) {
+ return "g_value_take_uint";
+ } else {
+ return "g_value_take_int";
+ }
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ var func = get_ccode_take_value_function (prereq.type_symbol);
+ if (func != "") {
+ return func;
+ }
+ }
+ return "g_value_set_pointer";
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_st = st.base_struct;
+ while (base_st != null) {
+ if (get_ccode_has_type_id (base_st)) {
+ return get_ccode_take_value_function (base_st);
+ } else {
+ base_st = base_st.base_struct;
+ }
+ }
+ if (st.is_simple_type ()) {
+ Report.error (st.source_reference, "The type `%s' doesn't declare a GValue take function", st.get_full_name ());
+ } else if (get_ccode_has_type_id (st)) {
+ return "g_value_take_boxed";
+ } else {
+ return "g_value_set_pointer";
+ }
+ } else {
+ return "g_value_set_pointer";
+ }
+ return "";
+ }
+
+ private string get_default_param_spec_function () {
+ if (node is Symbol) {
+ if (sym is Class) {
+ unowned Class cl = (Class) sym;
+ if (cl.is_fundamental ()) {
+ return get_ccode_lower_case_name (cl, "param_spec_");
+ } else if (cl.base_class != null) {
+ return get_ccode_param_spec_function (cl.base_class);
+ } else if (type_id == "G_TYPE_POINTER") {
+ return "g_param_spec_pointer";
+ } else {
+ return "g_param_spec_boxed";
+ }
+ } else if (sym is Interface) {
+ foreach (var prereq in ((Interface) sym).get_prerequisites ()) {
+ var func = get_ccode_param_spec_function (prereq.type_symbol);
+ if (func != "") {
+ return func;
+ }
+ }
+ return "g_param_spec_pointer";
+ } else if (sym is Enum) {
+ unowned Enum e = (Enum) sym;
+ if (get_ccode_has_type_id (e)) {
+ if (e.is_flags) {
+ return "g_param_spec_flags";
+ } else {
+ return "g_param_spec_enum";
+ }
+ } else {
+ if (e.is_flags) {
+ return "g_param_spec_uint";
+ } else {
+ return "g_param_spec_int";
+ }
+ }
+ } else if (sym is Struct) {
+ var type_id = get_ccode_type_id (sym);
+ if (type_id == "G_TYPE_INT") {
+ return "g_param_spec_int";
+ } else if (type_id == "G_TYPE_UINT") {
+ return "g_param_spec_uint";
+ } else if (type_id == "G_TYPE_INT64") {
+ return "g_param_spec_int64";
+ } else if (type_id == "G_TYPE_UINT64") {
+ return "g_param_spec_uint64";
+ } else if (type_id == "G_TYPE_LONG") {
+ return "g_param_spec_long";
+ } else if (type_id == "G_TYPE_ULONG") {
+ return "g_param_spec_ulong";
+ } else if (type_id == "G_TYPE_BOOLEAN") {
+ return "g_param_spec_boolean";
+ } else if (type_id == "G_TYPE_CHAR") {
+ return "g_param_spec_char";
+ } else if (type_id == "G_TYPE_UCHAR") {
+ return "g_param_spec_uchar";
+ }else if (type_id == "G_TYPE_FLOAT") {
+ return "g_param_spec_float";
+ } else if (type_id == "G_TYPE_DOUBLE") {
+ return "g_param_spec_double";
+ } else if (type_id == "G_TYPE_GTYPE") {
+ return "g_param_spec_gtype";
+ } else {
+ return "g_param_spec_boxed";
+ }
+ }
+ } else if (node is ArrayType && ((ArrayType) node).element_type.type_symbol == CodeContext.get ().analyzer.string_type.type_symbol) {
+ return "g_param_spec_boxed";
+ } else if (node is DataType && ((DataType) node).type_symbol != null) {
+ return get_ccode_param_spec_function (((DataType) node).type_symbol);
+ }
+
+ return "g_param_spec_pointer";
+ }
+
+ private string get_default_default_value () {
+ if (sym is Enum) {
+ unowned Enum en = (Enum) sym;
+ if (en.is_flags) {
+ return "0U";
+ } else {
+ return "0";
+ }
+ } else if (sym is Struct) {
+ unowned Struct st = (Struct) sym;
+ unowned Struct? base_st = st.base_struct;
+ if (base_st != null) {
+ return get_ccode_default_value (base_st);
+ }
+ }
+ return "";
+ }
+
+ private string get_finish_name_for_basename (string basename) {
+ string result = basename;
+ if (result.has_suffix ("_async")) {
+ result = result.substring (0, result.length - "_async".length);
+ }
+ return "%s_finish".printf (result);
+ }
+
+ private string get_default_real_name () {
+ if (sym is CreationMethod) {
+ unowned CreationMethod m = (CreationMethod) sym;
+ unowned Class? parent = m.parent_symbol as Class;
+
+ if (parent == null || parent.is_compact) {
+ return name;
+ }
+
+ string infix = "construct";
+
+ if (m.name == ".new") {
+ return "%s%s".printf (get_ccode_lower_case_prefix (parent), infix);
+ } else {
+ return "%s%s_%s".printf (get_ccode_lower_case_prefix (parent), infix, m.name);
+ }
+ } else if (sym is Method) {
+ unowned Method m = (Method) sym;
+ if (m.base_method != null || m.base_interface_method != null || m.signal_reference != null) {
+ string m_name;
+ if (m.signal_reference != null) {
+ m_name = get_ccode_lower_case_name (m.signal_reference);
+ } else {
+ m_name = m.name;
+ }
+ if (m.base_interface_type != null) {
+ return "%sreal_%s%s".printf (get_ccode_lower_case_prefix (m.parent_symbol),
+ get_ccode_lower_case_prefix (m.base_interface_type.type_symbol),
+ m_name);
+ } else {
+ return "%sreal_%s".printf (get_ccode_lower_case_prefix (m.parent_symbol), m_name);
+ }
+ } else {
+ return name;
+ }
+ } else if (sym is PropertyAccessor) {
+ unowned PropertyAccessor acc = (PropertyAccessor) sym;
+ unowned Property prop = (Property) acc.prop;
+ if (prop.base_property != null || prop.base_interface_property != null) {
+ if (acc.readable) {
+ return "%sreal_get_%s".printf (get_ccode_lower_case_prefix (prop.parent_symbol), prop.name);
+ } else {
+ return "%sreal_set_%s".printf (get_ccode_lower_case_prefix (prop.parent_symbol), prop.name);
+ }
+ } else {
+ return name;
+ }
+ }
+ assert_not_reached ();
+ }
+
+ private string get_default_const_name () {
+ if (node is DataType) {
+ unowned DataType type = (DataType) node;
+ string ptr;
+ TypeSymbol t;
+ // FIXME: workaround to make constant arrays possible
+ if (type is ArrayType) {
+ t = ((ArrayType) type).element_type.type_symbol;
+ } else {
+ t = type.type_symbol;
+ }
+ if (!t.is_reference_type ()) {
+ ptr = "";
+ } else {
+ ptr = "*";
+ }
+
+ return "const %s%s".printf (get_ccode_name (t), ptr);
+ } else {
+ if (node is Class && ((Class) node).is_immutable) {
+ return "const %s".printf (name);
+ } else {
+ return name;
+ }
+ }
+ }
+
+ private bool get_default_delegate_target () {
+ if (node is Field || node is Parameter || node is LocalVariable) {
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ if (param.base_parameter != null) {
+ return get_ccode_delegate_target (param.base_parameter);
+ }
+ }
+ unowned DelegateType? delegate_type = ((Variable) node).variable_type as DelegateType;
+ return delegate_type != null && delegate_type.delegate_symbol.has_target;
+ } else if (node is Callable) {
+ if (node is Method) {
+ unowned Method method = (Method) node;
+ if (method.base_method != null && method.base_method != method) {
+ return get_ccode_delegate_target (method.base_method);
+ } else if (method.base_interface_method != null && method.base_interface_method != method) {
+ return get_ccode_delegate_target (method.base_interface_method);
+ }
+ }
+ unowned DelegateType? delegate_type = ((Callable) node).return_type as DelegateType;
+ return delegate_type != null && delegate_type.delegate_symbol.has_target;
+ } else if (node is Property) {
+ unowned Property prop = (Property) node;
+ if (prop.base_property != null && prop.base_property != prop) {
+ return get_ccode_delegate_target (prop.base_property);
+ } else if (prop.base_interface_property != null && prop.base_interface_property != prop) {
+ return get_ccode_delegate_target (prop.base_interface_property);
+ }
+ unowned DelegateType? delegate_type = prop.property_type as DelegateType;
+ return delegate_type != null && delegate_type.delegate_symbol.has_target;
+ } else if (node is PropertyAccessor) {
+ return get_ccode_delegate_target (((PropertyAccessor) node).prop);
+ } else if (node is Expression) {
+ unowned Symbol? symbol = ((Expression) node).symbol_reference;
+ if (symbol != null) {
+ return get_ccode_delegate_target (symbol);
+ }
+ }
+ return false;
+ }
+
+ private bool get_default_array_length () {
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ if (param.base_parameter != null) {
+ return get_ccode_array_length (param.base_parameter);
+ }
+ } else if (node is Method) {
+ unowned Method method = (Method) node;
+ if (method.base_method != null && method.base_method != method) {
+ return get_ccode_array_length (method.base_method);
+ } else if (method.base_interface_method != null && method.base_interface_method != method) {
+ return get_ccode_array_length (method.base_interface_method);
+ }
+ } else if (node is Property) {
+ unowned Property prop = (Property) node;
+ if (prop.base_property != null && prop.base_property != prop) {
+ return get_ccode_array_length (prop.base_property);
+ } else if (prop.base_interface_property != null && prop.base_interface_property != prop) {
+ return get_ccode_array_length (prop.base_interface_property);
+ }
+ } else if (node is PropertyAccessor) {
+ return get_ccode_array_length (((PropertyAccessor) node).prop);
+ }
+ return true;
+ }
+
+ private bool get_default_array_null_terminated () {
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ if (param.base_parameter != null) {
+ return get_ccode_array_null_terminated (param.base_parameter);
+ }
+ } else if (node is Method) {
+ unowned Method method = (Method) node;
+ if (method.base_method != null && method.base_method != method) {
+ return get_ccode_array_null_terminated (method.base_method);
+ } else if (method.base_interface_method != null && method.base_interface_method != method) {
+ return get_ccode_array_null_terminated (method.base_interface_method);
+ }
+ } else if (node is Property) {
+ unowned Property prop = (Property) node;
+ if (prop.base_property != null && prop.base_property != prop) {
+ return get_ccode_array_null_terminated (prop.base_property);
+ } else if (prop.base_interface_property != null && prop.base_interface_property != prop) {
+ return get_ccode_array_null_terminated (prop.base_interface_property);
+ }
+ } else if (node is PropertyAccessor) {
+ return get_ccode_array_null_terminated (((PropertyAccessor) node).prop);
+ }
+ return false;
+ }
+
+ private string get_default_array_length_type () {
+ if (node is Field || node is Parameter) {
+ if (node is Parameter) {
+ unowned Parameter param = (Parameter) node;
+ if (param.base_parameter != null) {
+ return get_ccode_array_length_type (param.base_parameter);
+ }
+ }
+ return get_ccode_array_length_type (((Variable) node).variable_type);
+ } else if (node is Method || node is Delegate) {
+ if (node is Method) {
+ unowned Method method = (Method) node;
+ if (method.base_method != null && method.base_method != method) {
+ return get_ccode_array_length_type (method.base_method);
+ } else if (method.base_interface_method != null && method.base_interface_method != method) {
+ return get_ccode_array_length_type (method.base_interface_method);
+ }
+ }
+ return get_ccode_array_length_type (((Callable) node).return_type);
+ } else if (node is Property) {
+ unowned Property prop = (Property) node;
+ if (prop.base_property != null && prop.base_property != prop) {
+ return get_ccode_array_length_type (prop.base_property);
+ } else if (prop.base_interface_property != null && prop.base_interface_property != prop) {
+ return get_ccode_array_length_type (prop.base_interface_property);
+ } else {
+ return get_ccode_array_length_type (prop.property_type);
+ }
+ } else if (node is PropertyAccessor) {
+ return get_ccode_array_length_type (((PropertyAccessor) node).prop);
+ } else {
+ Report.error (node.source_reference, "`CCode.array_length_type' not supported");
+ return "";
+ }
+ }
+}
--- /dev/null
+/* valaccodebasemodule.vala
+ *
+ * Copyright (C) 2006-2012 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+/**
+ * Code visitor generating C Code.
+ */
+public abstract class Vala.CCodeBaseModule : CodeGenerator {
+ public class EmitContext {
+ public Symbol? current_symbol;
+ public ArrayList<Symbol> symbol_stack = new ArrayList<Symbol> ();
+ public TryStatement current_try;
+ public int current_try_id;
+ public int next_try_id;
+ public CatchClause current_catch;
+ public CCodeFunction ccode;
+ public ArrayList<CCodeFunction> ccode_stack = new ArrayList<CCodeFunction> ();
+ public ArrayList<TargetValue> temp_ref_values = new ArrayList<TargetValue> ();
+ public int next_temp_var_id;
+ public int current_inner_error_id;
+ public bool current_method_inner_error;
+ public bool current_method_return;
+ public int next_coroutine_state = 1;
+ public Map<string,string> variable_name_map = new HashMap<string,string> (str_hash, str_equal);
+ public Map<string,int> closure_variable_count_map = new HashMap<string,int> (str_hash, str_equal);
+ public Map<LocalVariable,int> closure_variable_clash_map = new HashMap<LocalVariable,int> ();
+ public bool is_in_method_precondition;
+
+ public EmitContext (Symbol? symbol = null) {
+ current_symbol = symbol;
+ }
+
+ public void push_symbol (Symbol symbol) {
+ symbol_stack.add (current_symbol);
+ current_symbol = symbol;
+ }
+
+ public void pop_symbol () {
+ current_symbol = symbol_stack.remove_at (symbol_stack.size - 1);
+ }
+ }
+
+ public CodeContext context { get; set; }
+
+ public Symbol root_symbol;
+
+ public EmitContext emit_context = new EmitContext ();
+
+ List<EmitContext> emit_context_stack = new ArrayList<EmitContext> ();
+
+ public CCodeLineDirective? current_line = null;
+
+ List<CCodeLineDirective> line_directive_stack = new ArrayList<CCodeLineDirective> ();
+
+ public Symbol current_symbol { get { return emit_context.current_symbol; } }
+
+ public TryStatement current_try {
+ get { return emit_context.current_try; }
+ set { emit_context.current_try = value; }
+ }
+
+ public int current_try_id {
+ get { return emit_context.current_try_id; }
+ set { emit_context.current_try_id = value; }
+ }
+
+ public int next_try_id {
+ get { return emit_context.next_try_id; }
+ set { emit_context.next_try_id = value; }
+ }
+
+ public CatchClause current_catch {
+ get { return emit_context.current_catch; }
+ set { emit_context.current_catch = value; }
+ }
+
+ public int current_inner_error_id {
+ get { return emit_context.current_inner_error_id; }
+ set { emit_context.current_inner_error_id = value; }
+ }
+
+ public bool is_in_method_precondition {
+ get { return emit_context.is_in_method_precondition; }
+ set { emit_context.is_in_method_precondition = value; }
+ }
+
+ public TypeSymbol? current_type_symbol {
+ get {
+ var sym = current_symbol;
+ while (sym != null) {
+ if (sym is TypeSymbol) {
+ return (TypeSymbol) sym;
+ }
+ sym = sym.parent_symbol;
+ }
+ return null;
+ }
+ }
+
+ public Class? current_class {
+ get { return current_type_symbol as Class; }
+ }
+
+ public Method? current_method {
+ get {
+ var sym = current_symbol;
+ while (sym is Block) {
+ sym = sym.parent_symbol;
+ }
+ return sym as Method;
+ }
+ }
+
+ public PropertyAccessor? current_property_accessor {
+ get {
+ var sym = current_symbol;
+ while (sym is Block) {
+ sym = sym.parent_symbol;
+ }
+ return sym as PropertyAccessor;
+ }
+ }
+
+ public Constructor? current_constructor {
+ get {
+ var sym = current_symbol;
+ while (sym is Block) {
+ sym = sym.parent_symbol;
+ }
+ return sym as Constructor;
+ }
+ }
+
+ public Destructor? current_destructor {
+ get {
+ var sym = current_symbol;
+ while (sym is Block) {
+ sym = sym.parent_symbol;
+ }
+ return sym as Destructor;
+ }
+ }
+
+ public DataType? current_return_type {
+ get {
+ var m = current_method;
+ if (m != null) {
+ return m.return_type;
+ }
+
+ var acc = current_property_accessor;
+ if (acc != null) {
+ if (acc.readable) {
+ return acc.value_type;
+ } else {
+ return void_type;
+ }
+ }
+
+ if (is_in_constructor () || is_in_destructor ()) {
+ return void_type;
+ }
+
+ return null;
+ }
+ }
+
+ public bool is_in_coroutine () {
+ return current_method != null && current_method.coroutine;
+ }
+
+ public bool is_in_constructor () {
+ if (current_method != null) {
+ // make sure to not return true in lambda expression inside constructor
+ return false;
+ }
+ var sym = current_symbol;
+ while (sym != null) {
+ if (sym is Constructor) {
+ return true;
+ }
+ sym = sym.parent_symbol;
+ }
+ return false;
+ }
+
+ public bool is_in_destructor () {
+ if (current_method != null) {
+ // make sure to not return true in lambda expression inside constructor
+ return false;
+ }
+ var sym = current_symbol;
+ while (sym != null) {
+ if (sym is Destructor) {
+ return true;
+ }
+ sym = sym.parent_symbol;
+ }
+ return false;
+ }
+
+ public Block? current_closure_block {
+ get {
+ return next_closure_block (current_symbol);
+ }
+ }
+
+ public unowned Block? next_closure_block (Symbol sym) {
+ while (true) {
+ unowned Method method = sym as Method;
+ if (method != null && !method.closure) {
+ // parent blocks are not captured by this method
+ break;
+ }
+
+ unowned Block block = sym as Block;
+ if (method == null && block == null) {
+ // no closure block
+ break;
+ }
+
+ if (block != null && block.captured) {
+ // closure block found
+ return block;
+ }
+ sym = sym.parent_symbol;
+ }
+ return null;
+ }
+
+ public CCodeFile header_file;
+ public CCodeFile internal_header_file;
+ public CCodeFile cfile;
+
+ public EmitContext class_init_context;
+ public EmitContext base_init_context;
+ public EmitContext class_finalize_context;
+ public EmitContext base_finalize_context;
+ public EmitContext instance_init_context;
+ public EmitContext instance_finalize_context;
+
+ public CCodeStruct param_spec_struct;
+ public CCodeStruct closure_struct;
+ public CCodeEnum prop_enum;
+ public CCodeEnum signal_enum;
+
+ public CCodeFunction ccode { get { return emit_context.ccode; } }
+
+ /* temporary variables that own their content */
+ public ArrayList<TargetValue> temp_ref_values { get { return emit_context.temp_ref_values; } }
+ /* cache to check whether a certain marshaller has been created yet */
+ public Set<string> user_marshal_set;
+ /* (constant) hash table with all predefined marshallers */
+ public Set<string> predefined_marshal_set;
+ /* (constant) hash table with all reserved identifiers in the generated code */
+ public static Set<string> reserved_identifiers;
+
+ public int next_temp_var_id {
+ get { return emit_context.next_temp_var_id; }
+ set { emit_context.next_temp_var_id = value; }
+ }
+
+ public int next_regex_id = 0;
+ public bool in_creation_method { get { return current_method is CreationMethod; } }
+
+ public bool current_method_inner_error {
+ get { return emit_context.current_method_inner_error; }
+ set { emit_context.current_method_inner_error = value; }
+ }
+
+ public bool current_method_return {
+ get { return emit_context.current_method_return; }
+ set { emit_context.current_method_return = value; }
+ }
+
+ int next_block_id = 0;
+ Map<Block,int> block_map = new HashMap<Block,int> ();
+
+ /* count of emitted inner_error variables in methods */
+ Map<weak Method,int> method_inner_error_var_count = new HashMap<weak Method,int> ();
+
+ public DataType void_type = new VoidType ();
+ public DataType bool_type;
+ public DataType char_type;
+ public DataType uchar_type;
+ public DataType? unichar_type;
+ public DataType short_type;
+ public DataType ushort_type;
+ public DataType int_type;
+ public DataType uint_type;
+ public DataType long_type;
+ public DataType ulong_type;
+ public DataType int8_type;
+ public DataType uint8_type;
+ public DataType int16_type;
+ public DataType uint16_type;
+ public DataType int32_type;
+ public DataType uint32_type;
+ public DataType int64_type;
+ public DataType uint64_type;
+ public DataType size_t_type;
+ public DataType ssize_t_type;
+ public DataType string_type;
+ public DataType regex_type;
+ public DataType float_type;
+ public DataType double_type;
+ public DataType pointer_type;
+ public TypeSymbol gtype_type;
+ public TypeSymbol gobject_type;
+ public ErrorType gerror_type;
+ public Class glist_type;
+ public Class gslist_type;
+ public Class gnode_type;
+ public Class gqueue_type;
+ public Class gvaluearray_type;
+ public TypeSymbol gstringbuilder_type;
+ public Class garray_type;
+ public TypeSymbol gbytearray_type;
+ public TypeSymbol genericarray_type;
+ public Class gsequence_type;
+ public Class gsequence_iter_type;
+ public TypeSymbol gthreadpool_type;
+ public DataType gquark_type;
+ public Struct gvalue_type;
+ public Class gvariant_type;
+ public Struct mutex_type;
+ public Struct gmutex_type;
+ public Struct grecmutex_type;
+ public Struct grwlock_type;
+ public Struct gcond_type;
+ public Class gsource_type;
+ public TypeSymbol type_module_type;
+ public TypeSymbol dbus_proxy_type;
+ public Class gtk_widget_type;
+ public DataType delegate_target_type;
+ public DelegateType delegate_target_destroy_type;
+ Delegate destroy_notify;
+ Class gerror;
+
+ public bool in_plugin = false;
+ public string module_init_param_name;
+
+ public bool requires_assert;
+ public bool requires_array_free;
+ public bool requires_array_move;
+ public bool requires_array_length;
+ public bool requires_array_n_elements;
+ public bool requires_clear_mutex;
+ public bool requires_memdup2;
+ public bool requires_vala_extern;
+
+ public Set<string> wrappers;
+ Set<Symbol> generated_external_symbols;
+
+ public Map<string,string> variable_name_map { get { return emit_context.variable_name_map; } }
+
+ public static int ccode_attribute_cache_index = CodeNode.get_attribute_cache_index ();
+
+ protected CCodeBaseModule () {
+ if (Vala.get_build_version () != Vala.BUILD_VERSION) {
+ Report.error (null, "Integrity check failed (libvala %s doesn't match ccodegen %s)".printf (Vala.get_build_version (), Vala.BUILD_VERSION));
+ }
+
+ predefined_marshal_set = new HashSet<string> (str_hash, str_equal);
+ predefined_marshal_set.add ("VOID:VOID");
+ predefined_marshal_set.add ("VOID:BOOLEAN");
+ predefined_marshal_set.add ("VOID:CHAR");
+ predefined_marshal_set.add ("VOID:UCHAR");
+ predefined_marshal_set.add ("VOID:INT");
+ predefined_marshal_set.add ("VOID:UINT");
+ predefined_marshal_set.add ("VOID:LONG");
+ predefined_marshal_set.add ("VOID:ULONG");
+ predefined_marshal_set.add ("VOID:ENUM");
+ predefined_marshal_set.add ("VOID:FLAGS");
+ predefined_marshal_set.add ("VOID:FLOAT");
+ predefined_marshal_set.add ("VOID:DOUBLE");
+ predefined_marshal_set.add ("VOID:STRING");
+ predefined_marshal_set.add ("VOID:POINTER");
+ predefined_marshal_set.add ("VOID:OBJECT");
+ predefined_marshal_set.add ("STRING:OBJECT,POINTER");
+ predefined_marshal_set.add ("VOID:UINT,POINTER");
+ predefined_marshal_set.add ("BOOLEAN:FLAGS");
+ predefined_marshal_set.add ("VOID:BOXED");
+ predefined_marshal_set.add ("VOID:VARIANT");
+ predefined_marshal_set.add ("BOOLEAN:BOXED,BOXED");
+
+ reserved_identifiers = new HashSet<string> (str_hash, str_equal);
+
+ // C99 keywords
+ reserved_identifiers.add ("_Bool");
+ reserved_identifiers.add ("_Complex");
+ reserved_identifiers.add ("_Imaginary");
+ reserved_identifiers.add ("asm");
+ reserved_identifiers.add ("auto");
+ reserved_identifiers.add ("break");
+ reserved_identifiers.add ("case");
+ reserved_identifiers.add ("char");
+ reserved_identifiers.add ("const");
+ reserved_identifiers.add ("continue");
+ reserved_identifiers.add ("default");
+ reserved_identifiers.add ("do");
+ reserved_identifiers.add ("double");
+ reserved_identifiers.add ("else");
+ reserved_identifiers.add ("enum");
+ reserved_identifiers.add ("extern");
+ reserved_identifiers.add ("float");
+ reserved_identifiers.add ("for");
+ reserved_identifiers.add ("goto");
+ reserved_identifiers.add ("if");
+ reserved_identifiers.add ("inline");
+ reserved_identifiers.add ("int");
+ reserved_identifiers.add ("long");
+ reserved_identifiers.add ("register");
+ reserved_identifiers.add ("restrict");
+ reserved_identifiers.add ("return");
+ reserved_identifiers.add ("short");
+ reserved_identifiers.add ("signed");
+ reserved_identifiers.add ("sizeof");
+ reserved_identifiers.add ("static");
+ reserved_identifiers.add ("struct");
+ reserved_identifiers.add ("switch");
+ reserved_identifiers.add ("typedef");
+ reserved_identifiers.add ("union");
+ reserved_identifiers.add ("unsigned");
+ reserved_identifiers.add ("void");
+ reserved_identifiers.add ("volatile");
+ reserved_identifiers.add ("while");
+
+ // C11 keywords
+ reserved_identifiers.add ("_Alignas");
+ reserved_identifiers.add ("_Alignof");
+ reserved_identifiers.add ("_Atomic");
+ reserved_identifiers.add ("_Generic");
+ reserved_identifiers.add ("_Noreturn");
+ reserved_identifiers.add ("_Static_assert");
+ reserved_identifiers.add ("_Thread_local");
+
+ // MSVC keywords
+ reserved_identifiers.add ("cdecl");
+
+ // reserved for Vala/GObject naming conventions
+ reserved_identifiers.add ("error");
+ reserved_identifiers.add ("result");
+ reserved_identifiers.add ("self");
+ }
+
+ public override void emit (CodeContext context) {
+ this.context = context;
+
+ ccode_init (context.profile);
+
+ root_symbol = context.root;
+
+ bool_type = new BooleanType ((Struct) root_symbol.scope.lookup ("bool"));
+ char_type = new IntegerType ((Struct) root_symbol.scope.lookup ("char"));
+ uchar_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uchar"));
+ short_type = new IntegerType ((Struct) root_symbol.scope.lookup ("short"));
+ ushort_type = new IntegerType ((Struct) root_symbol.scope.lookup ("ushort"));
+ int_type = new IntegerType ((Struct) root_symbol.scope.lookup ("int"));
+ uint_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uint"));
+ long_type = new IntegerType ((Struct) root_symbol.scope.lookup ("long"));
+ ulong_type = new IntegerType ((Struct) root_symbol.scope.lookup ("ulong"));
+ int8_type = new IntegerType ((Struct) root_symbol.scope.lookup ("int8"));
+ uint8_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uint8"));
+ int16_type = new IntegerType ((Struct) root_symbol.scope.lookup ("int16"));
+ uint16_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uint16"));
+ int32_type = new IntegerType ((Struct) root_symbol.scope.lookup ("int32"));
+ uint32_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uint32"));
+ int64_type = new IntegerType ((Struct) root_symbol.scope.lookup ("int64"));
+ uint64_type = new IntegerType ((Struct) root_symbol.scope.lookup ("uint64"));
+ size_t_type = new IntegerType ((Struct) root_symbol.scope.lookup ("size_t"));
+ ssize_t_type = new IntegerType ((Struct) root_symbol.scope.lookup ("ssize_t"));
+ float_type = new FloatingType ((Struct) root_symbol.scope.lookup ("float"));
+ double_type = new FloatingType ((Struct) root_symbol.scope.lookup ("double"));
+ string_type = new ObjectType ((Class) root_symbol.scope.lookup ("string"));
+ var unichar_struct = (Struct) root_symbol.scope.lookup ("unichar");
+ if (unichar_struct != null) {
+ unichar_type = new IntegerType (unichar_struct);
+ }
+
+ if (context.profile == Profile.GOBJECT) {
+ var glib_ns = root_symbol.scope.lookup ("GLib");
+
+ gtype_type = (TypeSymbol) glib_ns.scope.lookup ("Type");
+ gobject_type = (TypeSymbol) glib_ns.scope.lookup ("Object");
+ gerror_type = new ErrorType (null, null);
+ glist_type = (Class) glib_ns.scope.lookup ("List");
+ gslist_type = (Class) glib_ns.scope.lookup ("SList");
+ gnode_type = (Class) glib_ns.scope.lookup ("Node");
+ gqueue_type = (Class) glib_ns.scope.lookup ("Queue");
+ gvaluearray_type = (Class) glib_ns.scope.lookup ("ValueArray");
+ gstringbuilder_type = (TypeSymbol) glib_ns.scope.lookup ("StringBuilder");
+ garray_type = (Class) glib_ns.scope.lookup ("Array");
+ gbytearray_type = (TypeSymbol) glib_ns.scope.lookup ("ByteArray");
+ genericarray_type = (TypeSymbol) glib_ns.scope.lookup ("GenericArray");
+ gsequence_type = (Class) glib_ns.scope.lookup ("Sequence");
+ gsequence_iter_type = (Class) glib_ns.scope.lookup ("SequenceIter");
+ gthreadpool_type = (TypeSymbol) glib_ns.scope.lookup ("ThreadPool");
+
+ gerror = (Class) root_symbol.scope.lookup ("GLib").scope.lookup ("Error");
+ gquark_type = new IntegerType ((Struct) glib_ns.scope.lookup ("Quark"));
+ gvalue_type = (Struct) glib_ns.scope.lookup ("Value");
+ gvariant_type = (Class) glib_ns.scope.lookup ("Variant");
+ gsource_type = (Class) glib_ns.scope.lookup ("Source");
+
+ gmutex_type = (Struct) glib_ns.scope.lookup ("Mutex");
+ grecmutex_type = (Struct) glib_ns.scope.lookup ("RecMutex");
+ grwlock_type = (Struct) glib_ns.scope.lookup ("RWLock");
+ gcond_type = (Struct) glib_ns.scope.lookup ("Cond");
+
+ mutex_type = grecmutex_type;
+
+ type_module_type = (TypeSymbol) glib_ns.scope.lookup ("TypeModule");
+
+ regex_type = new ObjectType ((Class) root_symbol.scope.lookup ("GLib").scope.lookup ("Regex"));
+
+ if (context.module_init_method != null) {
+ foreach (Parameter parameter in context.module_init_method.get_parameters ()) {
+ if (parameter.variable_type.type_symbol.is_subtype_of (type_module_type)) {
+ in_plugin = true;
+ module_init_param_name = parameter.name;
+ break;
+
+ }
+ }
+ }
+
+ dbus_proxy_type = (TypeSymbol) glib_ns.scope.lookup ("DBusProxy");
+
+ pointer_type = new StructValueType ((Struct) glib_ns.scope.lookup ("pointer"));
+
+ delegate_target_type = pointer_type;
+ destroy_notify = (Delegate) glib_ns.scope.lookup ("DestroyNotify");
+ delegate_target_destroy_type = new DelegateType (destroy_notify);
+ } else {
+ pointer_type = new PointerType (new VoidType ());
+
+ delegate_target_type = pointer_type;
+ destroy_notify = new Delegate ("ValaDestroyNotify", new VoidType ());
+ destroy_notify.add_parameter (new Parameter ("data", new PointerType (new VoidType ())));
+ destroy_notify.has_target = false;
+ destroy_notify.owner = root_symbol.scope;
+ delegate_target_destroy_type = new DelegateType (destroy_notify);
+ }
+
+ var gtk_ns = root_symbol.scope.lookup ("Gtk");
+ if (gtk_ns != null) {
+ gtk_widget_type = (Class) gtk_ns.scope.lookup ("Widget");
+ }
+
+ header_file = new CCodeFile (CCodeFileType.PUBLIC_HEADER);
+ internal_header_file = new CCodeFile (CCodeFileType.INTERNAL_HEADER);
+
+ /* we're only interested in non-pkg source files */
+ var source_files = context.get_source_files ();
+ foreach (SourceFile file in source_files) {
+ if (file.file_type == SourceFileType.SOURCE ||
+ (context.header_filename != null && file.file_type == SourceFileType.FAST)) {
+ file.accept (this);
+ }
+ }
+
+ // generate symbols file for public API
+ if (context.symbols_filename != null) {
+ var stream = FileStream.open (context.symbols_filename, "w");
+ if (stream == null) {
+ Report.error (null, "unable to open `%s' for writing", context.symbols_filename);
+ this.context = null;
+ return;
+ }
+
+ foreach (string symbol in header_file.get_symbols ()) {
+ stream.puts (symbol);
+ stream.putc ('\n');
+ }
+
+ stream = null;
+ }
+
+ // generate C header file for public API
+ if (context.header_filename != null) {
+ bool ret;
+ if (context.profile == Profile.GOBJECT) {
+ header_file.add_include ("glib.h");
+ ret = header_file.store (context.header_filename, null, context.version_header, false, "G_BEGIN_DECLS", "G_END_DECLS");
+ } else {
+ ret = header_file.store (context.header_filename, null, context.version_header, false, "#ifdef __cplusplus\nextern \"C\" {\n#endif", "#ifdef __cplusplus\n}\n#endif");
+ }
+ if (!ret) {
+ Report.error (null, "unable to open `%s' for writing", context.header_filename);
+ }
+ }
+
+ // generate C header file for internal API
+ if (context.internal_header_filename != null) {
+ bool ret;
+ if (context.profile == Profile.GOBJECT) {
+ internal_header_file.add_include ("glib.h");
+ ret = internal_header_file.store (context.internal_header_filename, null, context.version_header, false, "G_BEGIN_DECLS", "G_END_DECLS");
+ } else {
+ ret = internal_header_file.store (context.internal_header_filename, null, context.version_header, false, "#ifdef __cplusplus\nextern \"C\" {\n#endif", "#ifdef __cplusplus\n}\n#endif");
+ }
+ if (!ret) {
+ Report.error (null, "unable to open `%s' for writing", context.internal_header_filename);
+ }
+ }
+
+ this.context = null;
+ }
+
+ public void push_context (EmitContext emit_context) {
+ if (this.emit_context != null) {
+ emit_context_stack.add (this.emit_context);
+ }
+
+ this.emit_context = emit_context;
+ if (ccode != null) {
+ ccode.current_line = current_line;
+ }
+ }
+
+ public void pop_context () {
+ if (emit_context_stack.size > 0) {
+ this.emit_context = emit_context_stack.remove_at (emit_context_stack.size - 1);
+ if (ccode != null) {
+ ccode.current_line = current_line;
+ }
+ } else {
+ this.emit_context = null;
+ }
+ }
+
+ public void push_line (SourceReference? source_reference) {
+ line_directive_stack.add (current_line);
+ if (source_reference != null) {
+ current_line = new CCodeLineDirective (source_reference.file.get_relative_filename (), source_reference.begin.line);
+ if (ccode != null) {
+ ccode.current_line = current_line;
+ }
+ }
+ }
+
+ public void pop_line () {
+ current_line = line_directive_stack.remove_at (line_directive_stack.size - 1);
+ if (ccode != null) {
+ ccode.current_line = current_line;
+ }
+ }
+
+ public void push_function (CCodeFunction func) {
+ emit_context.ccode_stack.add (ccode);
+ emit_context.ccode = func;
+ ccode.current_line = current_line;
+ }
+
+ public void pop_function () {
+ emit_context.ccode = emit_context.ccode_stack.remove_at (emit_context.ccode_stack.size - 1);
+ if (ccode != null) {
+ ccode.current_line = current_line;
+ }
+ }
+
+ public bool add_symbol_declaration (CCodeFile decl_space, Symbol sym, string name) {
+ bool in_generated_header = context.header_filename != null
+ && (decl_space.file_type != CCodeFileType.PUBLIC_HEADER && !sym.is_internal_symbol () && !(sym is Class && ((Class) sym).is_opaque));
+ if (decl_space.add_declaration (name)) {
+ return true;
+ }
+ if (sym.source_reference != null) {
+ sym.source_reference.file.used = true;
+ }
+ if (sym.anonymous) {
+ return in_generated_header;
+ }
+ // constants with initializer-list are special
+ if (sym is Constant && ((Constant) sym).value is InitializerList) {
+ return false;
+ }
+ // sealed classes are special
+ if (!sym.external_package && sym is Class && ((Class) sym).is_sealed) {
+ return false;
+ }
+ if (sym.external_package || in_generated_header
+ || (sym.is_extern && get_ccode_header_filenames (sym).length > 0)) {
+ // add feature test macros
+ foreach (unowned string feature_test_macro in get_ccode_feature_test_macros (sym).split (",")) {
+ decl_space.add_feature_test_macro (feature_test_macro);
+ }
+ // add appropriate include file
+ foreach (unowned string header_filename in get_ccode_header_filenames (sym).split (",")) {
+ decl_space.add_include (header_filename,
+ !sym.is_extern && (!sym.external_package || (sym.external_package && sym.from_commandline)));
+ }
+ // declaration complete
+ return true;
+ } else {
+ // require declaration
+ return false;
+ }
+ }
+
+ public virtual void append_vala_array_free () {
+ }
+
+ public virtual void append_vala_array_move () {
+ }
+
+ public virtual void append_vala_array_length () {
+ }
+
+ public virtual void append_params_array (Method m) {
+ }
+
+ public void append_vala_clear_mutex (string typename, string funcprefix) {
+ // memset
+ cfile.add_include ("string.h");
+
+ var fun = new CCodeFunction ("_vala_clear_" + typename);
+ fun.modifiers = CCodeModifiers.STATIC;
+ fun.add_parameter (new CCodeParameter ("mutex", typename + " *"));
+
+ push_function (fun);
+
+ ccode.add_declaration (typename, new CCodeVariableDeclarator.zero ("zero_mutex", new CCodeConstant ("{ 0 }")));
+
+ var cmp = new CCodeFunctionCall (new CCodeIdentifier ("memcmp"));
+ cmp.add_argument (new CCodeIdentifier ("mutex"));
+ cmp.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("zero_mutex")));
+ cmp.add_argument (new CCodeIdentifier ("sizeof (" + typename + ")"));
+ ccode.open_if (cmp);
+
+ var mutex_clear = new CCodeFunctionCall (new CCodeIdentifier (funcprefix + "_clear"));
+ mutex_clear.add_argument (new CCodeIdentifier ("mutex"));
+ ccode.add_expression (mutex_clear);
+
+ var mset = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ mset.add_argument (new CCodeIdentifier ("mutex"));
+ mset.add_argument (new CCodeConstant ("0"));
+ mset.add_argument (new CCodeIdentifier ("sizeof (" + typename + ")"));
+ ccode.add_expression (mset);
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+ }
+
+ void append_vala_memdup2 () {
+ // g_malloc
+ cfile.add_include ("glib.h");
+ // memcpy
+ cfile.add_include ("string.h");
+
+ var fun = new CCodeFunction ("_vala_memdup2", "gpointer");
+ fun.modifiers = CCodeModifiers.STATIC | CCodeModifiers.INLINE;
+ fun.add_parameter (new CCodeParameter ("mem", "gconstpointer"));
+ fun.add_parameter (new CCodeParameter ("byte_size", "gsize"));
+
+ push_function (fun);
+
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("new_mem"));
+
+ ccode.open_if (new CCodeIdentifier ("mem && byte_size != 0"));
+
+ var malloc = new CCodeFunctionCall (new CCodeIdentifier ("g_malloc"));
+ malloc.add_argument (new CCodeIdentifier ("byte_size"));
+ ccode.add_assignment (new CCodeIdentifier ("new_mem"), malloc);
+ var mcpy = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ mcpy.add_argument (new CCodeIdentifier ("new_mem"));
+ mcpy.add_argument (new CCodeIdentifier ("mem"));
+ mcpy.add_argument (new CCodeIdentifier ("byte_size"));
+ ccode.add_expression (mcpy);
+
+ ccode.add_else ();
+
+ ccode.add_assignment (new CCodeIdentifier ("new_mem"), new CCodeConstant ("NULL"));
+
+ ccode.close ();
+
+ ccode.add_return (new CCodeIdentifier ("new_mem"));
+
+ pop_function ();
+
+ cfile.add_function_declaration (fun);
+ cfile.add_function (fun);
+ }
+
+ /**
+ * Define a macro hint for exporting a symbol in a portable way.
+ */
+ void append_vala_extern_define (CCodeFile decl_space) {
+ var extern_define = new CCodeIfSection ("!defined(VALA_EXTERN)");
+
+ CCodeIfSection if_section;
+ if_section = new CCodeIfSection ("defined(_MSC_VER)");
+ extern_define.append (if_section);
+ if_section.append (new CCodeDefine ("VALA_EXTERN", "__declspec(dllexport) extern"));
+ if_section = if_section.append_else ("__GNUC__ >= 4");
+ if_section.append (new CCodeDefine ("VALA_EXTERN", "__attribute__((visibility(\"default\"))) extern"));
+ if_section = if_section.append_else ();
+ if_section.append (new CCodeDefine ("VALA_EXTERN", "extern"));
+
+ decl_space.add_define (extern_define);
+ }
+
+ public override void visit_source_file (SourceFile source_file) {
+ cfile = new CCodeFile (CCodeFileType.SOURCE, source_file);
+
+ user_marshal_set = new HashSet<string> (str_hash, str_equal);
+
+ next_regex_id = 0;
+
+ requires_assert = false;
+ requires_array_free = false;
+ requires_array_move = false;
+ requires_array_length = false;
+ requires_array_n_elements = false;
+ requires_clear_mutex = false;
+ requires_vala_extern = false;
+
+ wrappers = new HashSet<string> (str_hash, str_equal);
+ generated_external_symbols = new HashSet<Symbol> ();
+
+ source_file.accept_children (this);
+
+ if (context.report.get_errors () > 0) {
+ return;
+ }
+
+ /* For fast-vapi, we only wanted the header declarations
+ * to be emitted, so bail out here without writing the
+ * C code output.
+ */
+ if (source_file.file_type == SourceFileType.FAST) {
+ return;
+ }
+
+ if (requires_assert) {
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("_vala_assert(expr, msg)", new CCodeConstant ("if G_LIKELY (expr) ; else g_assertion_message_expr (G_LOG_DOMAIN, __FILE__, __LINE__, G_STRFUNC, msg);")));
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("_vala_return_if_fail(expr, msg)", new CCodeConstant ("if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN, G_STRFUNC, msg); return; }")));
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("_vala_return_val_if_fail(expr, msg, val)", new CCodeConstant ("if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN, G_STRFUNC, msg); return val; }")));
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("_vala_warn_if_fail(expr, msg)", new CCodeConstant ("if G_LIKELY (expr) ; else g_warn_message (G_LOG_DOMAIN, __FILE__, __LINE__, G_STRFUNC, msg);")));
+ }
+ if (requires_array_free) {
+ append_vala_array_free ();
+ }
+ if (requires_array_move) {
+ append_vala_array_move ();
+ }
+ if (requires_array_length) {
+ append_vala_array_length ();
+ }
+ if (requires_array_n_elements) {
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("VALA_N_ELEMENTS(arr)", new CCodeConstant ("(sizeof (arr) / sizeof ((arr)[0]))")));
+ }
+ if (requires_clear_mutex) {
+ append_vala_clear_mutex ("GMutex", "g_mutex");
+ append_vala_clear_mutex ("GRecMutex", "g_rec_mutex");
+ append_vala_clear_mutex ("GRWLock", "g_rw_lock");
+ append_vala_clear_mutex ("GCond", "g_cond");
+ }
+ if (requires_memdup2) {
+ append_vala_memdup2 ();
+ }
+ if (requires_vala_extern) {
+ if (context.header_filename != null) {
+ if (!header_file.add_declaration ("VALA_EXTERN")) {
+ append_vala_extern_define (header_file);
+ }
+ cfile.add_include (source_file.get_cinclude_filename (), true);
+ internal_header_file.add_include (source_file.get_cinclude_filename (), true);
+ } else {
+ if (!cfile.add_declaration ("VALA_EXTERN")) {
+ append_vala_extern_define (cfile);
+ append_vala_extern_define (internal_header_file);
+ }
+ }
+ }
+
+ var comments = source_file.get_comments();
+ if (comments != null) {
+ foreach (Comment comment in comments) {
+ var ccomment = new CCodeComment (comment.content);
+ cfile.add_comment (ccomment);
+ }
+ }
+
+ if (!cfile.store (source_file.get_csource_filename (), source_file.filename, context.version_header, context.debug)) {
+ Report.error (null, "unable to open `%s' for writing", source_file.get_csource_filename ());
+ }
+
+ cfile = null;
+ }
+
+ public virtual bool generate_enum_declaration (Enum en, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, en, get_ccode_name (en))) {
+ return false;
+ }
+
+ var cenum = new CCodeEnum (get_ccode_name (en));
+
+ if (en.version.deprecated) {
+ if (context.profile == Profile.GOBJECT) {
+ decl_space.add_include ("glib.h");
+ }
+ cenum.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ var current_cfile = cfile;
+ cfile = decl_space;
+
+ int flag_shift = 0;
+ foreach (EnumValue ev in en.get_values ()) {
+ CCodeEnumValue c_ev;
+ if (ev.value == null) {
+ c_ev = new CCodeEnumValue (get_ccode_name (ev));
+ if (en.is_flags) {
+ c_ev.value = new CCodeConstant ("1 << %d".printf (flag_shift));
+ flag_shift += 1;
+ }
+ } else {
+ ev.value.emit (this);
+ c_ev = new CCodeEnumValue (get_ccode_name (ev), get_cvalue (ev.value));
+ }
+ c_ev.modifiers |= (ev.version.deprecated ? CCodeModifiers.DEPRECATED : 0);
+ cenum.add_value (c_ev);
+ }
+
+ cfile = current_cfile;
+
+ decl_space.add_type_declaration (cenum);
+ decl_space.add_type_declaration (new CCodeNewline ());
+
+ if (context.profile != Profile.GOBJECT || !get_ccode_has_type_id (en)) {
+ return true;
+ }
+
+ decl_space.add_include ("glib-object.h");
+ decl_space.add_type_declaration (new CCodeNewline ());
+
+ var fun_name = get_ccode_type_function (en);
+
+ var macro = "(%s ())".printf (fun_name);
+ decl_space.add_type_declaration (new CCodeMacroReplacement (get_ccode_type_id (en), macro));
+
+ var regfun = new CCodeFunction (fun_name, "GType");
+ regfun.modifiers = CCodeModifiers.CONST;
+
+ if (en.is_private_symbol ()) {
+ // avoid C warning as this function is not always used
+ regfun.modifiers |= CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && en.is_internal_symbol ()) {
+ regfun.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ regfun.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_function_declaration (regfun);
+
+ return true;
+ }
+
+ public override void visit_enum (Enum en) {
+ push_line (en.source_reference);
+
+ if (en.comment != null) {
+ cfile.add_type_member_definition (new CCodeComment (en.comment.content));
+ }
+
+ generate_enum_declaration (en, cfile);
+
+ if (!en.is_internal_symbol ()) {
+ generate_enum_declaration (en, header_file);
+ }
+ if (!en.is_private_symbol ()) {
+ generate_enum_declaration (en, internal_header_file);
+ }
+
+ en.accept_children (this);
+
+ pop_line ();
+ }
+
+ public void visit_member (Symbol m) {
+ /* stuff meant for all lockable members */
+ if (m is Lockable && ((Lockable) m).lock_used) {
+ CCodeExpression l = new CCodeIdentifier ("self");
+ var init_context = class_init_context;
+ var finalize_context = class_finalize_context;
+
+ if (m.is_instance_member ()) {
+ l = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (l, "priv"), get_symbol_lock_name (get_ccode_name (m)));
+ init_context = instance_init_context;
+ finalize_context = instance_finalize_context;
+ } else if (m.is_class_member ()) {
+ var get_class_private_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_get_private_function ((Class) m.parent_symbol)));
+ get_class_private_call.add_argument (new CCodeIdentifier ("klass"));
+ l = new CCodeMemberAccess.pointer (get_class_private_call, get_symbol_lock_name (get_ccode_name (m)));
+ } else {
+ l = new CCodeIdentifier (get_symbol_lock_name ("%s_%s".printf (get_ccode_lower_case_name (m.parent_symbol), get_ccode_name (m))));
+ }
+
+ push_context (init_context);
+ var initf = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (mutex_type.default_construction_method)));
+ initf.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, l));
+ ccode.add_expression (initf);
+ pop_context ();
+
+ if (finalize_context != null) {
+ push_context (finalize_context);
+ var fc = new CCodeFunctionCall (new CCodeIdentifier ("g_rec_mutex_clear"));
+ fc.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, l));
+ ccode.add_expression (fc);
+ pop_context ();
+ }
+ }
+ }
+
+ static void constant_array_ranks_sizes (InitializerList initializer_list, int[] sizes, int rank = 0) {
+ sizes[rank] = int.max (sizes[rank], initializer_list.size);
+ rank++;
+ foreach (var expr in initializer_list.get_initializers()) {
+ if (expr is InitializerList && ((InitializerList) expr).target_type is ArrayType) {
+ constant_array_ranks_sizes ((InitializerList) expr, sizes, rank);
+ }
+ }
+ }
+
+ CCodeDeclaratorSuffix? get_constant_declarator_suffix (Constant c) {
+ unowned ArrayType? array = c.type_reference as ArrayType;
+ unowned InitializerList? initializer_list = c.value as InitializerList;
+ if (array == null || initializer_list == null) {
+ if (c.type_reference.compatible (string_type)) {
+ return new CCodeDeclaratorSuffix.with_array ();
+ }
+ return null;
+ }
+
+ var lengths = new ArrayList<CCodeExpression> ();
+ int[] sizes = new int[array.rank];
+ constant_array_ranks_sizes (initializer_list, sizes);
+ for (int i = 0; i < array.rank; i++) {
+ lengths.add (new CCodeConstant ("%d".printf (sizes[i])));
+ }
+ return new CCodeDeclaratorSuffix.with_multi_array (lengths);
+ }
+
+ public void generate_constant_declaration (Constant c, CCodeFile decl_space, bool definition = false) {
+ if (c.parent_symbol is Block) {
+ // local constant
+ return;
+ }
+
+ if (add_symbol_declaration (decl_space, c, get_ccode_name (c))) {
+ return;
+ }
+
+ if (!c.external && c.value != null) {
+ generate_type_declaration (c.type_reference, decl_space);
+
+ c.value.emit (this);
+
+ var initializer_list = c.value as InitializerList;
+ if (initializer_list != null) {
+ var cdecl = new CCodeDeclaration (get_ccode_const_name (c.type_reference));
+ var cinitializer = get_cvalue (c.value);
+ if (!definition) {
+ // never output value in header
+ // special case needed as this method combines declaration and definition
+ cinitializer = null;
+ }
+
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_ccode_name (c), cinitializer, get_constant_declarator_suffix (c)));
+ if (c.is_private_symbol ()) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_constant_declaration (cdecl);
+ } else {
+ if (c.value is StringLiteral && ((StringLiteral) c.value).translate) {
+ // translated string constant
+ var m = (Method) root_symbol.scope.lookup ("GLib").scope.lookup ("_");
+ add_symbol_declaration (decl_space, m, get_ccode_name (m));
+ }
+
+ var cdefine = new CCodeDefine.with_expression (get_ccode_name (c), get_cvalue (c.value));
+ decl_space.add_define (cdefine);
+ }
+ }
+ }
+
+ public override void visit_constant (Constant c) {
+ push_line (c.source_reference);
+
+ if (c.parent_symbol is Block) {
+ // local constant
+
+ generate_type_declaration (c.type_reference, cfile);
+
+ c.value.emit (this);
+
+ string type_name;
+ if (c.type_reference.compatible (string_type)) {
+ type_name = "const char";
+ } else {
+ type_name = get_ccode_const_name (c.type_reference);
+ }
+
+ var cinitializer = get_cvalue (c.value);
+
+ ccode.add_declaration (type_name, new CCodeVariableDeclarator (get_ccode_name (c), cinitializer, get_constant_declarator_suffix (c)), CCodeModifiers.STATIC);
+ } else {
+ generate_constant_declaration (c, cfile, true);
+
+ if (!c.is_internal_symbol ()) {
+ generate_constant_declaration (c, header_file);
+ }
+ if (!c.is_private_symbol ()) {
+ generate_constant_declaration (c, internal_header_file);
+ }
+ }
+
+ pop_line ();
+ }
+
+ public void append_field (CCodeStruct ccode_struct, Field f, CCodeFile decl_space) {
+ generate_type_declaration (f.variable_type, decl_space);
+
+ CCodeModifiers modifiers = (f.is_volatile ? CCodeModifiers.VOLATILE : 0) | (f.version.deprecated ? CCodeModifiers.DEPRECATED : 0);
+ ccode_struct.add_field (get_ccode_name (f.variable_type), get_ccode_name (f), modifiers, get_ccode_declarator_suffix (f.variable_type));
+
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ // create fields to store array dimensions
+ var array_type = (ArrayType) f.variable_type;
+ if (!array_type.fixed_length) {
+ var length_ctype = get_ccode_array_length_type (f);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (f, dim);
+ ccode_struct.add_field (length_ctype, length_cname);
+ }
+ if (array_type.rank == 1 && f.is_internal_symbol ()) {
+ ccode_struct.add_field (length_ctype, get_array_size_cname (get_ccode_name (f)));
+ }
+ }
+ } else if (get_ccode_delegate_target (f)) {
+ var delegate_type = (DelegateType) f.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ // create field to store delegate target
+ ccode_struct.add_field (get_ccode_name (delegate_target_type), get_ccode_delegate_target_name (f));
+ if (delegate_type.is_disposable ()) {
+ ccode_struct.add_field (get_ccode_name (delegate_target_destroy_type), get_ccode_delegate_target_destroy_notify_name (f));
+ }
+ }
+ }
+ }
+
+ public void generate_field_declaration (Field f, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, f, get_ccode_name (f))) {
+ return;
+ }
+
+ generate_type_declaration (f.variable_type, decl_space);
+
+ var cdecl = new CCodeDeclaration (get_ccode_name (f.variable_type));
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_ccode_name (f), null, get_ccode_declarator_suffix (f.variable_type)));
+ if (f.is_private_symbol ()) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ if (f.version.deprecated) {
+ cdecl.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+ if (f.is_volatile) {
+ cdecl.modifiers |= CCodeModifiers.VOLATILE;
+ }
+ decl_space.add_type_member_declaration (cdecl);
+
+ if (f.lock_used) {
+ // Declare mutex for static member
+ var flock = new CCodeDeclaration (get_ccode_name (mutex_type));
+ var flock_decl = new CCodeVariableDeclarator (get_symbol_lock_name ("%s_%s".printf (get_ccode_lower_case_name (f.parent_symbol), get_ccode_name (f))), new CCodeConstant ("{0}"));
+ flock.add_declarator (flock_decl);
+
+ if (f.is_private_symbol ()) {
+ flock.modifiers = CCodeModifiers.STATIC;
+ } else {
+ flock.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_type_member_declaration (flock);
+ }
+
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ var array_type = (ArrayType) f.variable_type;
+
+ if (!array_type.fixed_length) {
+ var length_ctype = get_ccode_array_length_type (f);
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ cdecl = new CCodeDeclaration (length_ctype);
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_variable_array_length_cname (f, dim)));
+ if (f.is_private_symbol ()) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_type_member_declaration (cdecl);
+ }
+ }
+ } else if (get_ccode_delegate_target (f)) {
+ var delegate_type = (DelegateType) f.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ // create field to store delegate target
+
+ cdecl = new CCodeDeclaration (get_ccode_name (delegate_target_type));
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_ccode_delegate_target_name (f)));
+ if (f.is_private_symbol ()) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_type_member_declaration (cdecl);
+
+ if (delegate_type.is_disposable ()) {
+ cdecl = new CCodeDeclaration (get_ccode_name (delegate_target_destroy_type));
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_ccode_delegate_target_destroy_notify_name (f)));
+ if (f.is_private_symbol ()) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_type_member_declaration (cdecl);
+ }
+ }
+ }
+ }
+
+ public override void visit_field (Field f) {
+ push_line (f.source_reference);
+ visit_member (f);
+
+ var cl = f.parent_symbol as Class;
+ bool is_gtypeinstance = (cl != null && !cl.is_compact);
+
+ CCodeExpression lhs = null;
+
+ if (f.binding == MemberBinding.INSTANCE) {
+ if (is_gtypeinstance && f.access == SymbolAccessibility.PRIVATE) {
+ lhs = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), get_ccode_name (f));
+ } else {
+ lhs = new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), get_ccode_name (f));
+ }
+
+ if (f.initializer != null) {
+ push_context (instance_init_context);
+
+ f.initializer.emit (this);
+
+ var rhs = get_cvalue (f.initializer);
+ if (!is_simple_struct_creation (f, f.initializer)) {
+ // otherwise handled in visit_object_creation_expression
+
+ ccode.add_assignment (lhs, rhs);
+
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ var array_type = (ArrayType) f.variable_type;
+ var field_value = get_field_cvalue (f, load_this_parameter ((TypeSymbol) f.parent_symbol));
+
+ var glib_value = (GLibValue) f.initializer.target_value;
+ if (glib_value.array_length_cvalues != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var array_len_lhs = get_array_length_cvalue (field_value, dim);
+ ccode.add_assignment (array_len_lhs, get_array_length_cvalue (glib_value, dim));
+ }
+ } else if (glib_value.array_null_terminated) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (get_cvalue_ (glib_value));
+
+ ccode.add_assignment (get_array_length_cvalue (field_value, 1), len_call);
+ } else {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (get_array_length_cvalue (field_value, dim), new CCodeConstant ("-1"));
+ }
+ }
+
+ if (array_type.rank == 1 && f.is_internal_symbol ()) {
+ var lhs_array_size = get_array_size_cvalue (field_value);
+ var rhs_array_len = get_array_length_cvalue (field_value, 1);
+ ccode.add_assignment (lhs_array_size, rhs_array_len);
+ }
+ } else if (get_ccode_delegate_target (f)) {
+ var delegate_type = (DelegateType) f.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ var field_value = get_field_cvalue (f, load_this_parameter ((TypeSymbol) f.parent_symbol));
+ var target_cvalue = get_delegate_target_cvalue (f.initializer.target_value);
+ if (target_cvalue != null) {
+ ccode.add_assignment (get_delegate_target_cvalue (field_value), target_cvalue);
+ } else {
+ ccode.add_assignment (get_delegate_target_cvalue (field_value), new CCodeIdentifier ("self"));
+ }
+ if (delegate_type.is_disposable ()) {
+ var destroy_cvalue = get_delegate_target_destroy_notify_cvalue (f.initializer.target_value);
+ if (destroy_cvalue != null) {
+ ccode.add_assignment (get_delegate_target_destroy_notify_cvalue (field_value), destroy_cvalue);
+ } else {
+ ccode.add_assignment (get_delegate_target_destroy_notify_cvalue (field_value), new CCodeConstant ("NULL"));
+ }
+ }
+ }
+ }
+ }
+
+ foreach (var value in temp_ref_values) {
+ ccode.add_expression (destroy_value (value));
+ }
+
+ temp_ref_values.clear ();
+
+ pop_context ();
+ }
+
+ if ((!(f.variable_type is DelegateType) || get_ccode_delegate_target (f)) && requires_destroy (f.variable_type) && instance_finalize_context != null) {
+ push_context (instance_finalize_context);
+ ccode.add_expression (destroy_field (f, load_this_parameter ((TypeSymbol) f.parent_symbol)));
+ pop_context ();
+ }
+ } else if (f.binding == MemberBinding.CLASS) {
+ if (f.access == SymbolAccessibility.PRIVATE) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_get_private_function (cl)));
+ ccall.add_argument (new CCodeIdentifier ("klass"));
+ lhs = new CCodeMemberAccess (ccall, get_ccode_name (f), true);
+ } else {
+ lhs = new CCodeMemberAccess (new CCodeIdentifier ("klass"), get_ccode_name (f), true);
+ }
+
+ if (f.initializer != null) {
+ push_context (class_init_context);
+
+ f.initializer.emit (this);
+
+ var rhs = get_cvalue (f.initializer);
+
+ ccode.add_assignment (lhs, rhs);
+
+ foreach (var value in temp_ref_values) {
+ ccode.add_expression (destroy_value (value));
+ }
+
+ temp_ref_values.clear ();
+
+ pop_context ();
+ }
+ } else {
+ generate_field_declaration (f, cfile);
+
+ if (!f.is_internal_symbol ()) {
+ generate_field_declaration (f, header_file);
+ }
+ if (!f.is_private_symbol ()) {
+ generate_field_declaration (f, internal_header_file);
+ }
+
+ if (!f.external) {
+ lhs = new CCodeIdentifier (get_ccode_name (f));
+
+ var var_decl = new CCodeVariableDeclarator (get_ccode_name (f), null, get_ccode_declarator_suffix (f.variable_type));
+ var_decl.initializer = default_value_for_type (f.variable_type, true);
+
+ if (class_init_context != null) {
+ push_context (class_init_context);
+ } else {
+ push_context (new EmitContext ());
+ }
+
+ if (f.initializer != null) {
+ f.initializer.emit (this);
+
+ var init = get_cvalue (f.initializer);
+ if (is_constant_ccode_expression (init)) {
+ var_decl.initializer = init;
+ }
+ }
+
+ var var_def = new CCodeDeclaration (get_ccode_name (f.variable_type));
+ var_def.add_declarator (var_decl);
+ if (!f.is_private_symbol ()) {
+ var_def.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ } else {
+ var_def.modifiers = CCodeModifiers.STATIC;
+ }
+ if (f.version.deprecated) {
+ var_def.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+ if (f.is_volatile) {
+ var_def.modifiers |= CCodeModifiers.VOLATILE;
+ }
+ cfile.add_type_member_declaration (var_def);
+
+ /* add array length fields where necessary */
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ var array_type = (ArrayType) f.variable_type;
+
+ if (!array_type.fixed_length) {
+ var length_ctype = get_ccode_array_length_type (f);
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_def = new CCodeDeclaration (length_ctype);
+ len_def.add_declarator (new CCodeVariableDeclarator (get_variable_array_length_cname (f, dim), new CCodeConstant ("0")));
+ if (!f.is_private_symbol ()) {
+ len_def.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ } else {
+ len_def.modifiers = CCodeModifiers.STATIC;
+ }
+ cfile.add_type_member_declaration (len_def);
+ }
+
+ if (array_type.rank == 1 && f.is_internal_symbol ()) {
+ var cdecl = new CCodeDeclaration (length_ctype);
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_array_size_cname (get_ccode_name (f)), new CCodeConstant ("0")));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (cdecl);
+ }
+ }
+ } else if (get_ccode_delegate_target (f)) {
+ var delegate_type = (DelegateType) f.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ // create field to store delegate target
+
+ var target_def = new CCodeDeclaration (get_ccode_name (delegate_target_type));
+ target_def.add_declarator (new CCodeVariableDeclarator (get_ccode_delegate_target_name (f), new CCodeConstant ("NULL")));
+ if (!f.is_private_symbol ()) {
+ target_def.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ } else {
+ target_def.modifiers = CCodeModifiers.STATIC;
+ }
+ cfile.add_type_member_declaration (target_def);
+
+ if (delegate_type.is_disposable ()) {
+ var target_destroy_notify_def = new CCodeDeclaration (get_ccode_name (delegate_target_destroy_type));
+ target_destroy_notify_def.add_declarator (new CCodeVariableDeclarator (get_ccode_delegate_target_destroy_notify_name (f), new CCodeConstant ("NULL")));
+ if (!f.is_private_symbol ()) {
+ target_destroy_notify_def.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ } else {
+ target_destroy_notify_def.modifiers = CCodeModifiers.STATIC;
+ }
+ cfile.add_type_member_declaration (target_destroy_notify_def);
+
+ }
+ }
+ }
+
+ if (f.initializer != null) {
+ var rhs = get_cvalue (f.initializer);
+ if (!is_constant_ccode_expression (rhs)) {
+ if (is_gtypeinstance) {
+ if (f.initializer is InitializerList) {
+ ccode.open_block ();
+
+ var temp_decl = get_temp_variable (f.variable_type);
+ var vardecl = new CCodeVariableDeclarator.zero (temp_decl.name, rhs);
+ ccode.add_declaration (get_ccode_name (temp_decl.variable_type), vardecl);
+
+ var tmp = get_variable_cexpression (temp_decl.name);
+ ccode.add_assignment (lhs, tmp);
+
+ ccode.close ();
+ } else {
+ ccode.add_assignment (lhs, rhs);
+ }
+
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ var array_type = (ArrayType) f.variable_type;
+ var field_value = get_field_cvalue (f, null);
+
+ var glib_value = (GLibValue) f.initializer.target_value;
+ if (glib_value.array_length_cvalues != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var array_len_lhs = get_array_length_cvalue (field_value, dim);
+ ccode.add_assignment (array_len_lhs, get_array_length_cvalue (glib_value, dim));
+ }
+ } else if (glib_value.array_null_terminated) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (get_cvalue_ (glib_value));
+
+ ccode.add_assignment (get_array_length_cvalue (field_value, 1), len_call);
+ } else {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (get_array_length_cvalue (field_value, dim), new CCodeConstant ("-1"));
+ }
+ }
+ }
+ } else {
+ f.error = true;
+ Report.error (f.source_reference, "Non-constant field initializers not supported in this context");
+ return;
+ }
+ }
+ }
+
+ pop_context ();
+ }
+ }
+
+ pop_line ();
+ }
+
+ public static bool is_constant_ccode_expression (CCodeExpression cexpr) {
+ if (cexpr is CCodeConstant || cexpr is CCodeConstantIdentifier) {
+ return true;
+ } else if (cexpr is CCodeCastExpression) {
+ var ccast = (CCodeCastExpression) cexpr;
+ return is_constant_ccode_expression (ccast.inner);
+ } else if (cexpr is CCodeUnaryExpression) {
+ var cunary = (CCodeUnaryExpression) cexpr;
+ switch (cunary.operator) {
+ case CCodeUnaryOperator.PREFIX_INCREMENT:
+ case CCodeUnaryOperator.PREFIX_DECREMENT:
+ case CCodeUnaryOperator.POSTFIX_INCREMENT:
+ case CCodeUnaryOperator.POSTFIX_DECREMENT:
+ return false;
+ default:
+ break;
+ }
+ return is_constant_ccode_expression (cunary.inner);
+ } else if (cexpr is CCodeBinaryExpression) {
+ var cbinary = (CCodeBinaryExpression) cexpr;
+ return is_constant_ccode_expression (cbinary.left) && is_constant_ccode_expression (cbinary.right);
+ }
+
+ var cparenthesized = (cexpr as CCodeParenthesizedExpression);
+ return (null != cparenthesized && is_constant_ccode_expression (cparenthesized.inner));
+ }
+
+ public static bool is_constant_ccode (CodeNode expr) {
+ if (expr is Constant) {
+ // Local constants are not considered constant in C
+ return !(((Constant) expr).parent_symbol is Block);
+ } else if (expr is IntegerLiteral) {
+ return ((IntegerLiteral) expr).is_constant ();
+ } else if (expr is MemberAccess) {
+ return is_constant_ccode (((MemberAccess) expr).symbol_reference);
+ } else if (expr is CastExpression) {
+ return is_constant_ccode (((CastExpression) expr).inner);
+ }
+
+ return false;
+ }
+
+ /**
+ * Returns whether the passed cexpr is a pure expression, i.e. an
+ * expression without side-effects.
+ */
+ public static bool is_pure_ccode_expression (CCodeExpression cexpr) {
+ if (cexpr is CCodeConstant || cexpr is CCodeIdentifier) {
+ return true;
+ } else if (cexpr is CCodeBinaryExpression) {
+ var cbinary = (CCodeBinaryExpression) cexpr;
+ return is_pure_ccode_expression (cbinary.left) && is_pure_ccode_expression (cbinary.right);
+ } else if (cexpr is CCodeUnaryExpression) {
+ var cunary = (CCodeUnaryExpression) cexpr;
+ switch (cunary.operator) {
+ case CCodeUnaryOperator.PREFIX_INCREMENT:
+ case CCodeUnaryOperator.PREFIX_DECREMENT:
+ case CCodeUnaryOperator.POSTFIX_INCREMENT:
+ case CCodeUnaryOperator.POSTFIX_DECREMENT:
+ return false;
+ default:
+ return is_pure_ccode_expression (cunary.inner);
+ }
+ } else if (cexpr is CCodeMemberAccess) {
+ var cma = (CCodeMemberAccess) cexpr;
+ return is_pure_ccode_expression (cma.inner);
+ } else if (cexpr is CCodeElementAccess) {
+ var cea = (CCodeElementAccess) cexpr;
+ return is_pure_ccode_expression (cea.container) && is_pure_ccode_expression (cea.indices[0]);
+ } else if (cexpr is CCodeCastExpression) {
+ var ccast = (CCodeCastExpression) cexpr;
+ return is_pure_ccode_expression (ccast.inner);
+ } else if (cexpr is CCodeParenthesizedExpression) {
+ var cparenthesized = (CCodeParenthesizedExpression) cexpr;
+ return is_pure_ccode_expression (cparenthesized.inner);
+ }
+
+ return false;
+ }
+
+ public override void visit_property (Property prop) {
+ visit_member (prop);
+
+ if (prop.get_accessor != null) {
+ prop.get_accessor.accept (this);
+ }
+ if (prop.set_accessor != null) {
+ prop.set_accessor.accept (this);
+ }
+ }
+
+ public void generate_type_declaration (DataType type, CCodeFile decl_space) {
+ if (type is ObjectType) {
+ var object_type = (ObjectType) type;
+ if (object_type.type_symbol is Class) {
+ var cl = (Class) object_type.type_symbol;
+ generate_class_declaration (cl, decl_space);
+ if (!cl.is_compact && cl.has_type_parameters ()) {
+ generate_struct_declaration ((Struct) gtype_type, decl_space);
+ }
+ } else if (object_type.type_symbol is Interface) {
+ var iface = (Interface) object_type.type_symbol;
+ generate_interface_declaration (iface, decl_space);
+ if (iface.has_type_parameters ()) {
+ generate_struct_declaration ((Struct) gtype_type, decl_space);
+ }
+ }
+ } else if (type is DelegateType) {
+ var deleg_type = (DelegateType) type;
+ var d = deleg_type.delegate_symbol;
+ generate_delegate_declaration (d, decl_space);
+ if (d.has_target) {
+ generate_type_declaration (delegate_target_type, decl_space);
+ if (deleg_type.is_disposable ()) {
+ generate_type_declaration (delegate_target_destroy_type, decl_space);
+ }
+ }
+ } else if (type.type_symbol is Enum) {
+ var en = (Enum) type.type_symbol;
+ generate_enum_declaration (en, decl_space);
+ } else if (type is ValueType) {
+ var value_type = (ValueType) type;
+ generate_struct_declaration ((Struct) value_type.type_symbol, decl_space);
+ } else if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+ generate_type_declaration (array_type.element_type, decl_space);
+ if (array_type.length_type != null) {
+ generate_type_declaration (array_type.length_type, decl_space);
+ }
+ } else if (type is ErrorType) {
+ var error_type = (ErrorType) type;
+ if (error_type.error_domain != null) {
+ generate_error_domain_declaration (error_type.error_domain, decl_space);
+ } else {
+ generate_class_declaration (gerror, decl_space);
+ }
+ } else if (type is PointerType) {
+ var pointer_type = (PointerType) type;
+ generate_type_declaration (pointer_type.base_type, decl_space);
+ } else if (type is MethodType) {
+ var method = ((MethodType) type).method_symbol;
+ if (method.has_type_parameters () && !get_ccode_simple_generics (method)) {
+ generate_struct_declaration ((Struct) gtype_type, decl_space);
+ }
+ }
+
+ foreach (DataType type_arg in type.get_type_arguments ()) {
+ generate_type_declaration (type_arg, decl_space);
+ }
+ }
+
+ public virtual void generate_class_struct_declaration (Class cl, CCodeFile decl_space) {
+ }
+
+ public virtual void generate_struct_declaration (Struct st, CCodeFile decl_space) {
+ }
+
+ public virtual void generate_delegate_declaration (Delegate d, CCodeFile decl_space) {
+ }
+
+ public virtual void generate_cparameters (Method m, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, CCodeFunction func, CCodeFunctionDeclarator? vdeclarator = null, Map<int,CCodeExpression>? carg_map = null, CCodeFunctionCall? vcall = null, int direction = 3) {
+ }
+
+ public void generate_property_accessor_declaration (PropertyAccessor acc, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, acc, get_ccode_name (acc))) {
+ return;
+ }
+
+ var prop = (Property) acc.prop;
+
+ bool returns_real_struct = acc.readable && prop.property_type.is_real_non_null_struct_type ();
+
+
+ CCodeParameter cvalueparam;
+ if (returns_real_struct) {
+ cvalueparam = new CCodeParameter ("result", "%s *".printf (get_ccode_name (acc.value_type)));
+ } else if (!acc.readable && prop.property_type.is_real_non_null_struct_type ()) {
+ cvalueparam = new CCodeParameter ("value", "%s *".printf (get_ccode_name (acc.value_type)));
+ } else {
+ cvalueparam = new CCodeParameter ("value", get_ccode_name (acc.value_type));
+ }
+ generate_type_declaration (acc.value_type, decl_space);
+
+ CCodeFunction function;
+ if (acc.readable && !returns_real_struct) {
+ function = new CCodeFunction (get_ccode_name (acc), get_ccode_name (acc.value_type));
+ } else {
+ function = new CCodeFunction (get_ccode_name (acc), "void");
+ }
+
+ if (prop.binding == MemberBinding.INSTANCE) {
+ var t = (TypeSymbol) prop.parent_symbol;
+ var this_type = SemanticAnalyzer.get_data_type_for_symbol (t);
+ generate_type_declaration (this_type, decl_space);
+ var cselfparam = new CCodeParameter ("self", get_ccode_name (this_type));
+ if (t is Struct && !((Struct) t).is_simple_type ()) {
+ cselfparam.type_name += "*";
+ }
+
+ function.add_parameter (cselfparam);
+ }
+
+ if (acc.writable || acc.construction || returns_real_struct) {
+ function.add_parameter (cvalueparam);
+ }
+
+ if (acc.value_type is ArrayType && get_ccode_array_length (prop)) {
+ var array_type = (ArrayType) acc.value_type;
+ var length_ctype = get_ccode_array_length_type (prop);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter (get_array_length_cname (acc.readable ? "result" : "value", dim), acc.readable ? length_ctype + "*" : length_ctype));
+ }
+ } else if ((acc.value_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) acc.value_type).delegate_symbol.has_target) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_cname (acc.readable ? "result" : "value"), acc.readable ? get_ccode_name (delegate_target_type) + "*" : get_ccode_name (delegate_target_type)));
+ if (!acc.readable && acc.value_type.value_owned) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_destroy_notify_cname ("value"), get_ccode_name (delegate_target_destroy_type)));
+ }
+ }
+
+ if (prop.version.deprecated) {
+ if (context.profile == Profile.GOBJECT) {
+ decl_space.add_include ("glib.h");
+ }
+ function.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ if (!prop.is_abstract
+ && (prop.is_private_symbol () || (!acc.readable && !acc.writable) || acc.access == SymbolAccessibility.PRIVATE)) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && (prop.is_internal_symbol () || acc.access == SymbolAccessibility.INTERNAL)) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_function_declaration (function);
+ }
+
+ public override void visit_property_accessor (PropertyAccessor acc) {
+ push_context (new EmitContext (acc));
+ push_line (acc.source_reference);
+
+ var prop = (Property) acc.prop;
+
+ if (acc.comment != null) {
+ cfile.add_type_member_definition (new CCodeComment (acc.comment.content));
+ }
+
+ bool returns_real_struct = acc.readable && prop.property_type.is_real_non_null_struct_type ();
+
+ if (acc.result_var != null) {
+ acc.result_var.accept (this);
+ }
+
+ var t = (TypeSymbol) prop.parent_symbol;
+
+ // do not declare overriding properties and interface implementations
+ if (prop.is_abstract || prop.is_virtual
+ || (prop.base_property == null && prop.base_interface_property == null)) {
+ generate_property_accessor_declaration (acc, cfile);
+
+ // do not declare construct-only properties in header files
+ if (acc.readable || acc.writable) {
+ if (!prop.is_internal_symbol ()
+ && (acc.access == SymbolAccessibility.PUBLIC
+ || acc.access == SymbolAccessibility.PROTECTED)) {
+ generate_property_accessor_declaration (acc, header_file);
+ }
+ if (!prop.is_private_symbol () && acc.access != SymbolAccessibility.PRIVATE) {
+ generate_property_accessor_declaration (acc, internal_header_file);
+ }
+ }
+ }
+
+ if (acc.source_type == SourceFileType.FAST) {
+ pop_line ();
+ pop_context ();
+ return;
+ }
+
+ var this_type = SemanticAnalyzer.get_data_type_for_symbol (t);
+ var cselfparam = new CCodeParameter ("self", get_ccode_name (this_type));
+ if (t is Struct && !((Struct) t).is_simple_type ()) {
+ cselfparam.type_name += "*";
+ }
+ CCodeParameter cvalueparam;
+ if (returns_real_struct) {
+ cvalueparam = new CCodeParameter ("result", "%s *".printf (get_ccode_name (acc.value_type)));
+ } else if (!acc.readable && prop.property_type.is_real_non_null_struct_type ()) {
+ cvalueparam = new CCodeParameter ("value", "%s *".printf (get_ccode_name (acc.value_type)));
+ } else {
+ cvalueparam = new CCodeParameter ("value", get_ccode_name (acc.value_type));
+ }
+
+ if (prop.is_abstract || prop.is_virtual) {
+ CCodeFunction function;
+ if (acc.readable && !returns_real_struct) {
+ function = new CCodeFunction (get_ccode_name (acc), get_ccode_name (current_return_type));
+ } else {
+ function = new CCodeFunction (get_ccode_name (acc), "void");
+ }
+ function.add_parameter (cselfparam);
+ if (acc.writable || acc.construction || returns_real_struct) {
+ function.add_parameter (cvalueparam);
+ }
+
+ if (acc.value_type is ArrayType && get_ccode_array_length (prop)) {
+ var array_type = (ArrayType) acc.value_type;
+ var length_ctype = get_ccode_array_length_type (prop);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter (get_array_length_cname (acc.readable ? "result" : "value", dim), acc.readable ? length_ctype + "*": length_ctype));
+ }
+ } else if ((acc.value_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) acc.value_type).delegate_symbol.has_target) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_cname (acc.readable ? "result" : "value"), acc.readable ? get_ccode_name (delegate_target_type) + "*" : get_ccode_name (delegate_target_type)));
+ if (!acc.readable && acc.value_type.value_owned) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_destroy_notify_cname ("value"), get_ccode_name (delegate_target_destroy_type)));
+ }
+ }
+
+ if (!prop.is_abstract
+ && (prop.is_private_symbol () || !(acc.readable || acc.writable) || acc.access == SymbolAccessibility.PRIVATE)) {
+ // accessor function should be private if the property is an internal symbol or it's a construct-only setter
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && (prop.is_internal_symbol () || acc.access == SymbolAccessibility.INTERNAL)) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ }
+
+ push_function (function);
+
+ if (acc.value_type.is_non_null_simple_type () && default_value_for_type (acc.value_type, false) == null) {
+ var vardecl = new CCodeVariableDeclarator ("result", default_value_for_type (acc.value_type, true));
+ vardecl.init0 = true;
+ ccode.add_declaration (get_ccode_name (acc.value_type), vardecl);
+ }
+
+ if (prop.binding == MemberBinding.INSTANCE) {
+ if (!acc.readable || returns_real_struct) {
+ create_property_type_check_statement (prop, false, t, true, "self");
+ } else {
+ create_property_type_check_statement (prop, true, t, true, "self");
+ }
+ }
+
+ CCodeExpression vcast;
+ if (prop.parent_symbol is Interface) {
+ var iface = (Interface) prop.parent_symbol;
+
+ vcast = new CCodeIdentifier ("_iface_");
+ var vcastcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (iface)));
+ ((CCodeFunctionCall) vcastcall).add_argument (new CCodeIdentifier ("self"));
+ ccode.add_declaration ("%s*".printf (get_ccode_type_name (iface)), new CCodeVariableDeclarator ("_iface_"));
+ ccode.add_assignment (vcast, vcastcall);
+ } else {
+ var cl = (Class) prop.parent_symbol;
+ if (!cl.is_compact) {
+ vcast = new CCodeIdentifier ("_klass_");
+ var vcastcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ ((CCodeFunctionCall) vcastcall).add_argument (new CCodeIdentifier ("self"));
+ ccode.add_declaration ("%s*".printf (get_ccode_type_name (cl)), new CCodeVariableDeclarator ("_klass_"));
+ ccode.add_assignment (vcast, vcastcall);
+ } else {
+ vcast = new CCodeIdentifier ("self");
+ }
+ }
+
+ if (acc.readable) {
+ var vcall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, "get_%s".printf (prop.name)));
+ vcall.add_argument (new CCodeIdentifier ("self"));
+
+ // check if vfunc pointer is properly set
+ ccode.open_if (vcall.call);
+
+ if (returns_real_struct) {
+ vcall.add_argument (new CCodeIdentifier ("result"));
+ ccode.add_expression (vcall);
+ } else {
+ if (acc.value_type is ArrayType && get_ccode_array_length (prop)) {
+ var array_type = (ArrayType) acc.value_type;
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_expr = new CCodeIdentifier (get_array_length_cname ("result", dim));
+ vcall.add_argument (len_expr);
+ }
+ } else if ((acc.value_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) acc.value_type).delegate_symbol.has_target) {
+ vcall.add_argument (new CCodeIdentifier (get_delegate_target_cname ("result")));
+ }
+
+ ccode.add_return (vcall);
+ }
+ ccode.close ();
+
+ if (acc.value_type.is_non_null_simple_type () && default_value_for_type (acc.value_type, false) == null) {
+ ccode.add_return (new CCodeIdentifier ("result"));
+ } else if (!(acc.value_type is VoidType)) {
+ ccode.add_return (default_value_for_type (acc.value_type, false, true));
+ }
+ } else {
+ var vcall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, "set_%s".printf (prop.name)));
+ vcall.add_argument (new CCodeIdentifier ("self"));
+ vcall.add_argument (new CCodeIdentifier ("value"));
+
+ // check if vfunc pointer is properly set
+ ccode.open_if (vcall.call);
+
+ if (acc.value_type is ArrayType && get_ccode_array_length (prop)) {
+ var array_type = (ArrayType) acc.value_type;
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_expr = new CCodeIdentifier (get_array_length_cname ("value", dim));
+ vcall.add_argument (len_expr);
+ }
+ } else if ((acc.value_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) acc.value_type).delegate_symbol.has_target) {
+ vcall.add_argument (new CCodeIdentifier (get_delegate_target_cname ("value")));
+ if (!acc.readable && acc.value_type.value_owned) {
+ vcall.add_argument (new CCodeIdentifier (get_delegate_target_destroy_notify_cname ("value")));
+ }
+ }
+
+ ccode.add_expression (vcall);
+ ccode.close ();
+ }
+
+ pop_function ();
+
+ cfile.add_function (function);
+ }
+
+ if (!prop.is_abstract && acc.body != null) {
+ bool is_virtual = prop.base_property != null || prop.base_interface_property != null;
+
+ string cname = get_ccode_real_name (acc);
+
+ CCodeFunction function;
+ if (acc.writable || acc.construction || returns_real_struct) {
+ function = new CCodeFunction (cname, "void");
+ } else {
+ function = new CCodeFunction (cname, get_ccode_name (acc.value_type));
+ }
+
+ ObjectType base_type = null;
+ if (prop.binding == MemberBinding.INSTANCE) {
+ if (is_virtual) {
+ if (prop.base_property != null) {
+ base_type = new ObjectType ((ObjectTypeSymbol) prop.base_property.parent_symbol);
+ } else if (prop.base_interface_property != null) {
+ base_type = new ObjectType ((ObjectTypeSymbol) prop.base_interface_property.parent_symbol);
+ }
+ function.modifiers |= CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("base", get_ccode_name (base_type)));
+ } else {
+ function.add_parameter (cselfparam);
+ }
+ }
+ if (acc.writable || acc.construction || returns_real_struct) {
+ function.add_parameter (cvalueparam);
+ }
+
+ if (acc.value_type is ArrayType && get_ccode_array_length (prop)) {
+ var array_type = (ArrayType) acc.value_type;
+ var length_ctype = get_ccode_array_length_type (prop);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter (get_array_length_cname (acc.readable ? "result" : "value", dim), acc.readable ? length_ctype + "*" : length_ctype));
+ }
+ } else if ((acc.value_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) acc.value_type).delegate_symbol.has_target) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_cname (acc.readable ? "result" : "value"), acc.readable ? get_ccode_name (delegate_target_type) + "*" : get_ccode_name (delegate_target_type)));
+ if (!acc.readable && acc.value_type.value_owned) {
+ function.add_parameter (new CCodeParameter (get_delegate_target_destroy_notify_cname ("value"), get_ccode_name (delegate_target_destroy_type)));
+ }
+ }
+
+ if (!is_virtual) {
+ if (prop.is_private_symbol () || !(acc.readable || acc.writable) || acc.access == SymbolAccessibility.PRIVATE) {
+ // accessor function should be private if the property is an internal symbol or it's a construct-only setter
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && (prop.is_internal_symbol () || acc.access == SymbolAccessibility.INTERNAL)) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ }
+ }
+
+ push_function (function);
+
+ if (prop.binding == MemberBinding.INSTANCE && !is_virtual) {
+ if (!acc.readable || returns_real_struct) {
+ create_property_type_check_statement (prop, false, t, true, "self");
+ } else {
+ create_property_type_check_statement (prop, true, t, true, "self");
+ }
+ }
+
+ if (acc.readable && !returns_real_struct) {
+ // do not declare result variable if exit block is known to be unreachable
+ if (acc.return_block == null || acc.return_block.get_predecessors ().size > 0) {
+ ccode.add_declaration (get_ccode_name (acc.value_type), new CCodeVariableDeclarator ("result"));
+ }
+ }
+
+ if (is_virtual) {
+ ccode.add_declaration (get_ccode_name (this_type), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), get_cvalue_ (transform_value (new GLibValue (base_type, new CCodeIdentifier ("base"), true), this_type, acc)));
+ }
+
+ // notify on property changes
+ if (context.analyzer.is_gobject_property (prop) &&
+ prop.notify &&
+ (acc.writable || acc.construction)) {
+ var notify_call = new CCodeFunctionCall (new CCodeIdentifier ("g_object_notify_by_pspec"));
+ notify_call.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GObject *"));
+ notify_call.add_argument (get_param_spec_cexpression (prop));
+
+ var get_accessor = prop.get_accessor;
+ if (get_accessor != null && get_accessor.automatic_body) {
+ var property_type = prop.property_type;
+ var get_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (get_accessor)));
+ get_call.add_argument (new CCodeIdentifier (is_virtual ? "base" : "self"));
+
+ if (property_type is ArrayType && get_ccode_array_length (prop)) {
+ ccode.add_declaration (get_ccode_name (property_type), new CCodeVariableDeclarator ("old_value"));
+ ccode.add_declaration (get_ccode_array_length_type (prop), new CCodeVariableDeclarator ("old_value_length"));
+ get_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("old_value_length")));
+ ccode.add_assignment (new CCodeIdentifier ("old_value"), get_call);
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("old_value"), new CCodeIdentifier ("value")));
+ } else if (property_type.compatible (string_type)) {
+ ccode.add_declaration (get_ccode_name (property_type), new CCodeVariableDeclarator ("old_value"));
+ ccode.add_assignment (new CCodeIdentifier ("old_value"), get_call);
+ CCodeFunctionCall ccall;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("string.h");
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_cmp_wrapper (new CCodeIdentifier ("strcmp"))));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strcmp0"));
+ }
+ ccall.add_argument (new CCodeIdentifier ("value"));
+ ccall.add_argument (new CCodeIdentifier ("old_value"));
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, ccall, new CCodeConstant ("0")));
+ } else if (property_type is StructValueType) {
+ ccode.add_declaration (get_ccode_name (property_type), new CCodeVariableDeclarator ("old_value"));
+ if (property_type.nullable) {
+ ccode.add_assignment (new CCodeIdentifier ("old_value"), get_call);
+ } else {
+ get_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("old_value")));
+ ccode.add_expression (get_call);
+ }
+ var equalfunc = generate_struct_equal_function ((Struct) property_type.type_symbol);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (equalfunc));
+ ccall.add_argument (new CCodeIdentifier ("value"));
+ if (property_type.nullable) {
+ ccall.add_argument (new CCodeIdentifier ("old_value"));
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("old_value")));
+ }
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, ccall, new CCodeConstant ("TRUE")));
+ } else {
+ ccode.add_declaration (get_ccode_name (property_type), new CCodeVariableDeclarator ("old_value"));
+ ccode.add_assignment (new CCodeIdentifier ("old_value"), get_call);
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("old_value"), new CCodeIdentifier ("value")));
+ }
+
+ acc.body.emit (this);
+ ccode.add_expression (notify_call);
+ ccode.close ();
+
+ if (prop.get_accessor.value_type.is_disposable ()) {
+ var old_value = new GLibValue (prop.get_accessor.value_type, new CCodeIdentifier ("old_value"), true);
+ if (property_type is ArrayType && get_ccode_array_length (prop)) {
+ old_value.append_array_length_cvalue (new CCodeIdentifier ("old_value_length"));
+ }
+ ccode.add_expression (destroy_value (old_value));
+ }
+ } else {
+ acc.body.emit (this);
+ ccode.add_expression (notify_call);
+ }
+ } else {
+ acc.body.emit (this);
+ }
+
+ if (current_method_inner_error) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ pop_function ();
+
+ cfile.add_function (function);
+ }
+
+ pop_line ();
+ pop_context ();
+ }
+
+ public override void visit_destructor (Destructor d) {
+ if (d.binding == MemberBinding.STATIC && !in_plugin) {
+ Report.error (d.source_reference, "static destructors are only supported for dynamic types");
+ d.error = true;
+ return;
+ }
+ }
+
+ public int get_block_id (Block b) {
+ int result = block_map[b];
+ if (result == 0) {
+ result = ++next_block_id;
+ block_map[b] = result;
+ }
+ return result;
+ }
+
+ public bool no_implicit_copy (DataType type) {
+ // note: implicit copy of array is planned to be forbidden
+ unowned Class? cl = type.type_symbol as Class;
+ return (type is DelegateType ||
+ type is ArrayType ||
+ (cl != null && !cl.is_immutable && !is_reference_counting (cl) && !get_ccode_is_gboxed (cl)));
+ }
+
+ void capture_parameter (Parameter param, CCodeStruct data, int block_id) {
+ generate_type_declaration (param.variable_type, cfile);
+
+ var param_type = param.variable_type.copy ();
+ if (!param.variable_type.value_owned) {
+ param_type.value_owned = !no_implicit_copy (param.variable_type);
+ }
+ data.add_field (get_ccode_name (param_type), get_ccode_name (param), 0, get_ccode_declarator_suffix (param_type));
+
+ // create copy if necessary as captured variables may need to be kept alive
+ param.captured = false;
+ var value = load_parameter (param);
+
+ var array_type = param.variable_type as ArrayType;
+ var deleg_type = param.variable_type as DelegateType;
+
+ if (array_type != null && get_ccode_array_length (param) && !((ArrayType) array_type).fixed_length) {
+ var length_ctype = get_ccode_array_length_type (param);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ data.add_field (length_ctype, get_variable_array_length_cname (param, dim));
+ }
+ } else if (deleg_type != null && deleg_type.delegate_symbol.has_target) {
+ data.add_field (get_ccode_name (delegate_target_type), get_ccode_delegate_target_name (param));
+ if (param.variable_type.is_disposable ()) {
+ data.add_field (get_ccode_name (delegate_target_destroy_type), get_ccode_delegate_target_destroy_notify_name (param));
+ // reference transfer for delegates
+ var lvalue = get_parameter_cvalue (param);
+ ((GLibValue) value).delegate_target_destroy_notify_cvalue = get_delegate_target_destroy_notify_cvalue (lvalue);
+ }
+ }
+ param.captured = true;
+
+ store_parameter (param, value, true);
+ }
+
+ public override void visit_block (Block b) {
+ emit_context.push_symbol (b);
+
+ var local_vars = b.get_local_variables ();
+
+ if (b.parent_node is Block || b.parent_node is SwitchStatement || b.parent_node is TryStatement) {
+ ccode.open_block ();
+ }
+
+ if (b.parent_node is TryStatement && b == ((TryStatement) b.parent_node).finally_body) {
+ // finally-block with nested error handling
+ if (((TryStatement) b.parent_node).body.tree_can_fail) {
+ if (is_in_coroutine ()) {
+ // _inner_error0_ gets added to closure_struct in CCodeMethodModule.visit_method()
+ if (current_inner_error_id > 0
+ && (!method_inner_error_var_count.contains (current_method)
+ || method_inner_error_var_count.get (current_method) < current_inner_error_id)) {
+ // no initialization necessary, closure struct is zeroed
+ closure_struct.add_field ("GError*", "_inner_error%d_".printf (current_inner_error_id));
+ method_inner_error_var_count.set (current_method, current_inner_error_id);
+ }
+ } else {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+ }
+ }
+
+ if (b.captured) {
+ var parent_block = next_closure_block (b.parent_symbol);
+
+ int block_id = get_block_id (b);
+ string struct_name = "Block%dData".printf (block_id);
+
+ var data = new CCodeStruct ("_" + struct_name);
+ data.add_field ("int", "_ref_count_");
+ if (parent_block != null) {
+ int parent_block_id = get_block_id (parent_block);
+
+ data.add_field ("Block%dData *".printf (parent_block_id), "_data%d_".printf (parent_block_id));
+ } else {
+ unowned DataType? this_type = get_this_type ();
+ if (this_type != null) {
+ data.add_field (get_ccode_name (this_type), "self");
+ }
+
+ if (current_method != null) {
+ // allow capturing generic type parameters
+ foreach (var type_param in current_method.get_type_parameters ()) {
+ data.add_field ("GType", get_ccode_type_id (type_param));
+ data.add_field ("GBoxedCopyFunc", get_ccode_copy_function (type_param));
+ data.add_field ("GDestroyNotify", get_ccode_destroy_function (type_param));
+ }
+ }
+ }
+ foreach (var local in local_vars) {
+ if (local.captured) {
+ generate_type_declaration (local.variable_type, cfile);
+
+ data.add_field (get_ccode_name (local.variable_type), get_local_cname (local), 0, get_ccode_declarator_suffix (local.variable_type));
+
+ if (local.variable_type is ArrayType && !((ArrayType) local.variable_type).fixed_length) {
+ var array_type = (ArrayType) local.variable_type;
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ data.add_field (length_ctype, get_array_length_cname (get_local_cname (local), dim));
+ }
+ data.add_field (length_ctype, get_array_size_cname (get_local_cname (local)));
+ } else if (local.variable_type is DelegateType && ((DelegateType) local.variable_type).delegate_symbol.has_target) {
+ data.add_field (get_ccode_name (delegate_target_type), get_delegate_target_cname (get_local_cname (local)));
+ if (local.variable_type.is_disposable ()) {
+ data.add_field (get_ccode_name (delegate_target_destroy_type), get_delegate_target_destroy_notify_cname (get_local_cname (local)));
+ }
+ } else if (local.variable_type.type_symbol == context.analyzer.va_list_type.type_symbol) {
+ Report.error (local.source_reference, "internal: Capturing `va_list' variable `%s' is not allowed", local.get_full_name ());
+ b.error = true;
+ }
+ }
+ }
+
+ var data_alloc = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_new0"));
+ data_alloc.add_argument (new CCodeIdentifier (struct_name));
+
+ if (is_in_coroutine ()) {
+ closure_struct.add_field (struct_name + "*", "_data%d_".printf (block_id));
+ } else {
+ ccode.add_declaration (struct_name + "*", new CCodeVariableDeclarator ("_data%d_".printf (block_id)));
+ }
+ ccode.add_assignment (get_variable_cexpression ("_data%d_".printf (block_id)), data_alloc);
+
+ // initialize ref_count
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (block_id)), "_ref_count_"), new CCodeIdentifier ("1"));
+
+ if (parent_block != null) {
+ int parent_block_id = get_block_id (parent_block);
+
+ var ref_call = new CCodeFunctionCall (new CCodeIdentifier ("block%d_data_ref".printf (parent_block_id)));
+ ref_call.add_argument (get_variable_cexpression ("_data%d_".printf (parent_block_id)));
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (block_id)), "_data%d_".printf (parent_block_id)), ref_call);
+ } else {
+ // skip self assignment in toplevel block of creation methods with chainup as self is not set at the beginning of the method
+ // the chainup statement takes care of assigning self in the closure struct
+ bool in_creation_method_with_chainup = (current_method is CreationMethod && current_class != null && current_class.base_class != null);
+
+ unowned DataType? this_type = get_this_type ();
+ if (this_type != null && (!in_creation_method_with_chainup || current_method.body != b)) {
+ CCodeExpression instance;
+ if (is_in_destructor ()) {
+ // never increase reference count for self in finalizers to avoid infinite recursion on following unref
+ instance = new CCodeIdentifier ("self");
+ } else {
+ var ref_call = new CCodeFunctionCall (get_dup_func_expression (this_type, b.source_reference));
+ ref_call.add_argument (get_this_cexpression ());
+ instance = ref_call;
+ }
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (block_id)), "self"), instance);
+ }
+
+ if (current_method != null) {
+ // allow capturing generic type parameters
+ var data_var = get_variable_cexpression ("_data%d_".printf (block_id));
+ foreach (var type_param in current_method.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, type), get_variable_cexpression (type));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, dup_func), get_variable_cexpression (dup_func));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, destroy_func), get_variable_cexpression (destroy_func));
+ }
+ }
+ }
+
+ if (b.parent_symbol is Method) {
+ var m = (Method) b.parent_symbol;
+
+ // parameters are captured with the top-level block of the method
+ foreach (var param in m.get_parameters ()) {
+ if (param.captured) {
+ capture_parameter (param, data, block_id);
+
+ if (param.variable_type.type_symbol == context.analyzer.va_list_type.type_symbol) {
+ Report.error (param.source_reference, "internal: Capturing `va_list' parameter `%s' is not allowed", param.get_full_name ());
+ b.error = true;
+ }
+ }
+ }
+
+ if (m.coroutine) {
+ // capture async data to allow invoking callback from inside closure
+ data.add_field (get_ccode_name (pointer_type), "_async_data_");
+
+ // async method is suspended while waiting for callback,
+ // so we never need to care about memory management of async data
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (block_id)), "_async_data_"), new CCodeIdentifier ("_data_"));
+ }
+ } else if (b.parent_symbol is PropertyAccessor) {
+ var acc = (PropertyAccessor) b.parent_symbol;
+
+ if (!acc.readable && acc.value_parameter.captured) {
+ capture_parameter (acc.value_parameter, data, block_id);
+ }
+ } else if (b.parent_symbol is ForeachStatement) {
+ var stmt = (ForeachStatement) b.parent_symbol;
+ if (!stmt.use_iterator && stmt.element_variable.captured) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (block_id)), get_local_cname (stmt.element_variable)), get_variable_cexpression (get_local_cname (stmt.element_variable)));
+ }
+ }
+
+ var typedef = new CCodeTypeDefinition ("struct _" + struct_name, new CCodeVariableDeclarator (struct_name));
+ cfile.add_type_declaration (typedef);
+ cfile.add_type_definition (data);
+
+ // create ref/unref functions
+ var ref_fun = new CCodeFunction ("block%d_data_ref".printf (block_id), struct_name + "*");
+ ref_fun.add_parameter (new CCodeParameter ("_data%d_".printf (block_id), struct_name + "*"));
+ ref_fun.modifiers = CCodeModifiers.STATIC;
+
+ push_function (ref_fun);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_atomic_int_inc"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "_ref_count_")));
+ ccode.add_expression (ccall);
+ ccode.add_return (new CCodeIdentifier ("_data%d_".printf (block_id)));
+
+ pop_function ();
+
+ cfile.add_function_declaration (ref_fun);
+ cfile.add_function (ref_fun);
+
+ var unref_fun = new CCodeFunction ("block%d_data_unref".printf (block_id), "void");
+ unref_fun.add_parameter (new CCodeParameter ("_userdata_", "void *"));
+ unref_fun.modifiers = CCodeModifiers.STATIC;
+
+ push_function (unref_fun);
+
+ ccode.add_declaration (struct_name + "*", new CCodeVariableDeclarator ("_data%d_".printf (block_id), new CCodeCastExpression (new CCodeIdentifier ("_userdata_"), struct_name + "*")));
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_atomic_int_dec_and_test"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "_ref_count_")));
+ ccode.open_if (ccall);
+
+ CCodeExpression outer_block = new CCodeIdentifier ("_data%d_".printf (block_id));
+ unowned Block parent_closure_block = b;
+ while (true) {
+ parent_closure_block = next_closure_block (parent_closure_block.parent_symbol);
+ if (parent_closure_block == null) {
+ break;
+ }
+ int parent_block_id = get_block_id (parent_closure_block);
+ outer_block = new CCodeMemberAccess.pointer (outer_block, "_data%d_".printf (parent_block_id));
+ }
+
+ var this_type = get_this_type ();
+ if (this_type != null) {
+ // assign "self" for type parameters
+ ccode.add_declaration(get_ccode_name (this_type), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), new CCodeMemberAccess.pointer (outer_block, "self"));
+ }
+
+ if (current_method != null) {
+ // assign captured generic type parameters
+ foreach (var type_param in current_method.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_declaration ("GType", new CCodeVariableDeclarator (type));
+ ccode.add_declaration ("GBoxedCopyFunc", new CCodeVariableDeclarator (dup_func));
+ ccode.add_declaration ("GDestroyNotify", new CCodeVariableDeclarator (destroy_func));
+ ccode.add_assignment (new CCodeIdentifier (type), new CCodeMemberAccess.pointer (outer_block, type));
+ ccode.add_assignment (new CCodeIdentifier (dup_func), new CCodeMemberAccess.pointer (outer_block, dup_func));
+ ccode.add_assignment (new CCodeIdentifier (destroy_func), new CCodeMemberAccess.pointer (outer_block, destroy_func));
+ }
+ }
+
+ // free in reverse order
+ for (int i = local_vars.size - 1; i >= 0; i--) {
+ var local = local_vars[i];
+ if (local.captured) {
+ if (requires_destroy (local.variable_type)) {
+ bool old_coroutine = false;
+ if (current_method != null) {
+ old_coroutine = current_method.coroutine;
+ current_method.coroutine = false;
+ }
+
+ ccode.add_expression (destroy_local (local));
+
+ if (old_coroutine) {
+ current_method.coroutine = true;
+ }
+ }
+ }
+ }
+
+ if (b.parent_symbol is Method) {
+ var m = (Method) b.parent_symbol;
+
+ // parameters are captured with the top-level block of the method
+ foreach (var param in m.get_parameters ()) {
+ if (param.captured) {
+ var param_type = param.variable_type.copy ();
+ if (!param_type.value_owned) {
+ param_type.value_owned = !no_implicit_copy (param_type);
+ }
+
+ if (requires_destroy (param_type)) {
+ bool old_coroutine = false;
+ if (m != null) {
+ old_coroutine = m.coroutine;
+ m.coroutine = false;
+ }
+
+ ccode.add_expression (destroy_parameter (param));
+
+ if (old_coroutine) {
+ m.coroutine = true;
+ }
+ }
+ }
+ }
+ } else if (b.parent_symbol is PropertyAccessor) {
+ var acc = (PropertyAccessor) b.parent_symbol;
+
+ if (!acc.readable && acc.value_parameter.captured) {
+ var param_type = acc.value_parameter.variable_type.copy ();
+ if (!param_type.value_owned) {
+ param_type.value_owned = !no_implicit_copy (param_type);
+ }
+
+ if (requires_destroy (param_type)) {
+ ccode.add_expression (destroy_parameter (acc.value_parameter));
+ }
+ }
+ }
+
+ // free parent block and "self" after captured variables
+ // because they may require type parameters
+ if (parent_block != null) {
+ int parent_block_id = get_block_id (parent_block);
+
+ var unref_call = new CCodeFunctionCall (new CCodeIdentifier ("block%d_data_unref".printf (parent_block_id)));
+ unref_call.add_argument (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "_data%d_".printf (parent_block_id)));
+ ccode.add_expression (unref_call);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "_data%d_".printf (parent_block_id)), new CCodeConstant ("NULL"));
+ } else {
+ this_type = get_this_type ();
+ if (this_type != null) {
+ this_type = this_type.copy ();
+ this_type.value_owned = true;
+ if (this_type.is_disposable () && !is_in_destructor ()) {
+ // reference count for self is not increased in finalizers
+ var this_value = new GLibValue (this_type, new CCodeIdentifier ("self"), true);
+ ccode.add_expression (destroy_value (this_value));
+ }
+ }
+ }
+
+ var data_free = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_free"));
+ data_free.add_argument (new CCodeIdentifier (struct_name));
+ data_free.add_argument (new CCodeIdentifier ("_data%d_".printf (block_id)));
+ ccode.add_expression (data_free);
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (unref_fun);
+ cfile.add_function (unref_fun);
+ }
+
+ foreach (Statement stmt in b.get_statements ()) {
+ push_line (stmt.source_reference);
+ stmt.emit (this);
+ pop_line ();
+ }
+
+ if (!b.unreachable_exit) {
+ if (b.parent_symbol is Method) {
+ unowned Method m = (Method) b.parent_symbol;
+ // check postconditions
+ foreach (var postcondition in m.get_postconditions ()) {
+ create_postcondition_statement (postcondition);
+ }
+ }
+
+ // free in reverse order
+ for (int i = local_vars.size - 1; i >= 0; i--) {
+ var local = local_vars[i];
+ local.active = false;
+ if (!local.unreachable && !local.captured && requires_destroy (local.variable_type)) {
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ if (b.parent_symbol is Method) {
+ var m = (Method) b.parent_symbol;
+ foreach (Parameter param in m.get_parameters ()) {
+ if (!param.captured && !param.ellipsis && !param.params_array && requires_destroy (param.variable_type) && param.direction == ParameterDirection.IN) {
+ ccode.add_expression (destroy_parameter (param));
+ } else if (param.direction == ParameterDirection.OUT && !m.coroutine) {
+ return_out_parameter (param);
+ }
+ }
+ } else if (b.parent_symbol is PropertyAccessor) {
+ var acc = (PropertyAccessor) b.parent_symbol;
+ if (acc.value_parameter != null && !acc.value_parameter.captured && requires_destroy (acc.value_parameter.variable_type)) {
+ ccode.add_expression (destroy_parameter (acc.value_parameter));
+ }
+ }
+
+ if (b.captured) {
+ int block_id = get_block_id (b);
+
+ var data_unref = new CCodeFunctionCall (new CCodeIdentifier ("block%d_data_unref".printf (block_id)));
+ data_unref.add_argument (get_variable_cexpression ("_data%d_".printf (block_id)));
+ ccode.add_expression (data_unref);
+ ccode.add_assignment (get_variable_cexpression ("_data%d_".printf (block_id)), new CCodeConstant ("NULL"));
+ }
+ }
+
+ if (b.parent_node is Block || b.parent_node is SwitchStatement || b.parent_node is TryStatement) {
+ ccode.close ();
+ }
+
+ emit_context.pop_symbol ();
+ }
+
+ public override void visit_declaration_statement (DeclarationStatement stmt) {
+ stmt.declaration.accept (this);
+ }
+
+ public CCodeExpression get_cexpression (string name) {
+ if (is_in_coroutine ()) {
+ return new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), name);
+ } else {
+ return new CCodeIdentifier (name);
+ }
+ }
+
+ public CCodeExpression get_local_cexpression (LocalVariable local) {
+ return get_cexpression (get_local_cname (local));
+ }
+
+ public CCodeExpression get_parameter_cexpression (Parameter param) {
+ return get_cexpression (get_ccode_name (param));
+ }
+
+ public CCodeExpression get_variable_cexpression (string name) {
+ return get_cexpression (get_variable_cname (name));
+ }
+
+ public CCodeExpression get_this_cexpression () {
+ return get_cexpression ("self");
+ }
+
+ public CCodeExpression get_this_class_cexpression (Class cl, TargetValue? instance = null) {
+ CCodeExpression cast;
+ CCodeFunctionCall call;
+ if (instance != null) {
+ // Accessing the member of an instance
+ if (cl.external_package) {
+ call = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_INSTANCE_GET_CLASS"));
+ call.add_argument (get_cvalue_ (instance));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_id (cl)));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_name (cl)));
+ } else {
+ call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ call.add_argument (get_cvalue_ (instance));
+ }
+ cast = call;
+ } else if (get_this_type () != null) {
+ // Accessing the member from within an instance method
+ if (cl.external_package) {
+ call = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_INSTANCE_GET_CLASS"));
+ call.add_argument (get_this_cexpression ());
+ call.add_argument (new CCodeIdentifier (get_ccode_type_id (cl)));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_name (cl)));
+ } else {
+ call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ call.add_argument (get_this_cexpression ());
+ }
+ cast = call;
+ } else {
+ // Accessing the member from a static or class constructor
+ if (current_class == cl) {
+ cast = new CCodeIdentifier ("klass");
+ } else {
+ call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (cl)));
+ call.add_argument (new CCodeIdentifier ("klass"));
+ cast = call;
+ }
+ }
+ return cast;
+ }
+
+ public CCodeExpression get_this_interface_cexpression (Interface iface, TargetValue? instance = null) {
+ unowned Class? cl = current_class;
+ if (cl != null && cl.implements (iface)) {
+ return new CCodeIdentifier ("%s_%s_parent_iface".printf (get_ccode_lower_case_name (cl), get_ccode_lower_case_name (iface)));
+ }
+
+ if (cl != null && !cl.is_a (iface)) {
+ Report.warning (cl.source_reference, "internal: `%s' is not a `%s'", cl.get_full_name (), iface.get_full_name ());
+ }
+
+ CCodeExpression cast;
+ CCodeFunctionCall call;
+ if (instance != null) {
+ if (iface.external_package) {
+ call = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_INSTANCE_GET_INTERFACE"));
+ call.add_argument (get_cvalue_ (instance));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_id (iface)));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_name (iface)));
+ } else {
+ call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (iface)));
+ call.add_argument (get_cvalue_ (instance));
+ }
+ cast = call;
+ } else if (get_this_type () != null) {
+ if (iface.external_package) {
+ call = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_INSTANCE_GET_INTERFACE"));
+ call.add_argument (get_this_cexpression ());
+ call.add_argument (new CCodeIdentifier (get_ccode_type_id (iface)));
+ call.add_argument (new CCodeIdentifier (get_ccode_type_name (iface)));
+ } else {
+ call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (iface)));
+ call.add_argument (get_this_cexpression ());
+ }
+ cast = call;
+ } else {
+ Report.error (null, "internal: missing instance");
+ cast = null;
+ assert_not_reached ();
+ }
+ return cast;
+ }
+
+ public CCodeExpression get_inner_error_cexpression () {
+ return get_cexpression ("_inner_error%d_".printf (current_inner_error_id));
+ }
+
+ public string get_local_cname (LocalVariable local) {
+ var cname = get_variable_cname (local.name);
+ if (cname[0].isdigit ()) {
+ cname = "_%s_".printf (cname);
+ }
+ if (is_in_coroutine ()) {
+ var clash_index = emit_context.closure_variable_clash_map.get (local);
+ if (clash_index > 0) {
+ cname = "_vala%d_%s".printf (clash_index, cname);
+ }
+ }
+ return cname;
+ }
+
+ public string get_variable_cname (string name) {
+ if (name[0] == '.') {
+ if (name == ".result") {
+ return "result";
+ }
+ // compiler-internal variable
+ if (!variable_name_map.contains (name)) {
+ variable_name_map.set (name, "_tmp%d_".printf (next_temp_var_id));
+ next_temp_var_id++;
+ }
+ return variable_name_map.get (name);
+ } else if (reserved_identifiers.contains (name)) {
+ return "_%s_".printf (name);
+ } else {
+ return name;
+ }
+ }
+
+ public bool is_simple_struct_creation (Variable variable, Expression expr) {
+ unowned Struct? st = variable.variable_type.type_symbol as Struct;
+ var creation = expr as ObjectCreationExpression;
+ if (creation != null && st != null && (!st.is_simple_type () || get_ccode_name (st) == "va_list") && !variable.variable_type.nullable &&
+ variable.variable_type.type_symbol != gvalue_type && creation.get_object_initializer ().size == 0) {
+ return true;
+ } else {
+ return false;
+ }
+ }
+
+ static bool is_foreach_element_variable (LocalVariable local) {
+ var block = local.parent_symbol;
+ if (block != null) {
+ var stmt = block.parent_symbol as ForeachStatement;
+ if (stmt != null && !stmt.use_iterator && stmt.element_variable == local) {
+ return true;
+ }
+ }
+ return false;
+ }
+
+ public override void visit_local_variable (LocalVariable local) {
+ /* Declaration */
+
+ generate_type_declaration (local.variable_type, cfile);
+
+ // captured element variables of foreach statements (without iterator) require local declaration
+ var declared = !local.captured || is_foreach_element_variable (local);
+ if (declared) {
+ if (is_in_coroutine ()) {
+ var count = emit_context.closure_variable_count_map.get (local.name);
+ if (count > 0) {
+ emit_context.closure_variable_clash_map.set (local, count);
+ }
+ emit_context.closure_variable_count_map.set (local.name, count + 1);
+
+ closure_struct.add_field (get_ccode_name (local.variable_type), get_local_cname (local), 0, get_ccode_declarator_suffix (local.variable_type));
+ } else {
+ var cvar = new CCodeVariableDeclarator (get_local_cname (local), null, get_ccode_declarator_suffix (local.variable_type));
+
+ // try to initialize uninitialized variables
+ // initialization not necessary for variables stored in closure
+ CCodeExpression? size = null;
+ if (!requires_memset_init (local, out size)) {
+ cvar.initializer = default_value_for_type (local.variable_type, true);
+ cvar.init0 = true;
+ } else if (size != null && local.initializer == null) {
+ cfile.add_include ("string.h");
+ var memset_call = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ memset_call.add_argument (get_variable_cexpression (local.name));
+ memset_call.add_argument (new CCodeConstant ("0"));
+ memset_call.add_argument (size);
+ ccode.add_expression (memset_call);
+ }
+
+ ccode.add_declaration (get_ccode_name (local.variable_type), cvar);
+ }
+ }
+
+ /* Emit initializer */
+ if (local.initializer != null) {
+ local.initializer.emit (this);
+
+ visit_end_full_expression (local.initializer);
+ }
+
+
+ CCodeExpression rhs = null;
+ if (local.initializer != null && get_cvalue (local.initializer) != null) {
+ rhs = get_cvalue (local.initializer);
+ }
+
+ /* Additional temp variables */
+
+ if (declared) {
+ if (local.variable_type is ArrayType) {
+ // create variables to store array dimensions
+ var array_type = (ArrayType) local.variable_type;
+
+ if (!array_type.fixed_length) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_var = new LocalVariable (array_type.length_type.copy (), get_array_length_cname (get_local_cname (local), dim));
+ len_var.init = local.initializer == null;
+ emit_temp_var (len_var);
+ }
+
+ if (array_type.rank == 1) {
+ var size_var = new LocalVariable (array_type.length_type.copy (), get_array_size_cname (get_local_cname (local)));
+ size_var.init = local.initializer == null;
+ emit_temp_var (size_var);
+ }
+ }
+ } else if (local.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) local.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ // create variable to store delegate target
+ var target_var = new LocalVariable (delegate_target_type.copy (), get_delegate_target_cname (get_local_cname (local)));
+ target_var.init = local.initializer == null;
+ emit_temp_var (target_var);
+ if (deleg_type.is_disposable ()) {
+ var target_destroy_notify_var = new LocalVariable (delegate_target_destroy_type.copy (), get_delegate_target_destroy_notify_cname (get_local_cname (local)));
+ target_destroy_notify_var.init = local.initializer == null;
+ emit_temp_var (target_destroy_notify_var);
+ }
+ }
+ }
+ }
+
+ /* Store the initializer */
+
+ if (rhs != null) {
+ if (!is_simple_struct_creation (local, local.initializer)) {
+ store_local (local, local.initializer.target_value, true, local.source_reference);
+ }
+ }
+
+ if (local.initializer != null && local.initializer.tree_can_fail) {
+ add_simple_check (local.initializer);
+ }
+
+ local.active = true;
+ }
+
+ /**
+ * Create a temporary variable and return lvalue access to it
+ */
+ public TargetValue create_temp_value (DataType type, bool init, CodeNode node_reference, bool? value_owned = null) {
+ if (type is VoidType) {
+ Report.error (node_reference.source_reference, "internal: 'void' not supported as variable type");
+ }
+
+ var local = new LocalVariable (type.copy (), "_tmp%d_".printf (next_temp_var_id++), null, node_reference.source_reference);
+ local.init = init;
+ if (value_owned != null) {
+ local.variable_type.value_owned = value_owned;
+ }
+
+ var array_type = local.variable_type as ArrayType;
+ var deleg_type = local.variable_type as DelegateType;
+
+ emit_temp_var (local);
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_var = new LocalVariable (array_type.length_type.copy (), get_array_length_cname (local.name, dim), null, node_reference.source_reference);
+ len_var.init = init;
+ emit_temp_var (len_var);
+ }
+ } else if (deleg_type != null && deleg_type.delegate_symbol.has_target) {
+ var target_var = new LocalVariable (delegate_target_type.copy (), get_delegate_target_cname (local.name), null, node_reference.source_reference);
+ target_var.init = init;
+ emit_temp_var (target_var);
+ if (deleg_type.is_disposable ()) {
+ var target_destroy_notify_var = new LocalVariable (delegate_target_destroy_type.copy (), get_delegate_target_destroy_notify_cname (local.name), null, node_reference.source_reference);
+ target_destroy_notify_var.init = init;
+ emit_temp_var (target_destroy_notify_var);
+ }
+ }
+
+ var value = get_local_cvalue (local);
+ set_array_size_cvalue (value, null);
+ return value;
+ }
+
+ /**
+ * Load a temporary variable returning unowned or owned rvalue access to it, depending on the ownership of the value type.
+ */
+ public TargetValue load_temp_value (TargetValue lvalue) {
+ var value = ((GLibValue) lvalue).copy ();
+ var deleg_type = value.value_type as DelegateType;
+ if (deleg_type != null) {
+ if (!deleg_type.delegate_symbol.has_target) {
+ value.delegate_target_cvalue = new CCodeConstant ("NULL");
+ ((GLibValue) value).lvalue = false;
+ } else if (!deleg_type.is_disposable ()) {
+ value.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ ((GLibValue) value).lvalue = false;
+ }
+ }
+ return value;
+ }
+
+ /**
+ * Store a value in a temporary variable and return unowned or owned rvalue access to it, depending on the ownership of the given type.
+ */
+ public TargetValue store_temp_value (TargetValue initializer, CodeNode node_reference, bool? value_owned = null) {
+ var lvalue = create_temp_value (initializer.value_type, false, node_reference, value_owned);
+ store_value (lvalue, initializer, node_reference.source_reference);
+ return load_temp_value (lvalue);
+ }
+
+ public override void visit_initializer_list (InitializerList list) {
+ if (list.target_type.type_symbol is Struct) {
+ /* initializer is used as struct initializer */
+ unowned Struct st = (Struct) list.target_type.type_symbol;
+ while (st.base_struct != null) {
+ st = st.base_struct;
+ }
+
+ if (list.parent_node is Constant || list.parent_node is Field || list.parent_node is InitializerList) {
+ var clist = new CCodeInitializerList ();
+
+ var field_it = st.get_fields ().iterator ();
+ foreach (Expression expr in list.get_initializers ()) {
+ Field field = null;
+ while (field == null) {
+ field_it.next ();
+ field = field_it.get ();
+ if (field.binding != MemberBinding.INSTANCE) {
+ // we only initialize instance fields
+ field = null;
+ }
+ }
+
+ var cexpr = get_cvalue (expr);
+
+ string ctype = get_ccode_type (field);
+ if (ctype != null) {
+ cexpr = new CCodeCastExpression (cexpr, ctype);
+ }
+
+ clist.append (cexpr);
+
+ var array_type = field.variable_type as ArrayType;
+ if (array_type != null && !array_type.fixed_length && get_ccode_array_length (field) && !get_ccode_array_null_terminated (field)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ clist.append (get_array_length_cvalue (expr.target_value, dim));
+ }
+ if (array_type.rank == 1 && field.is_internal_symbol ()) {
+ clist.append (get_array_length_cvalue (expr.target_value, 1));
+ }
+ }
+ }
+
+ if (list.size <= 0) {
+ clist.append (new CCodeConstant ("0"));
+ }
+
+ if (list.parent_node is Constant
+ || (list.parent_node is Expression && ((Expression) list.parent_node).value_type is ArrayType)) {
+ set_cvalue (list, clist);
+ } else {
+ set_cvalue (list, new CCodeCastExpression (clist, get_ccode_name (list.target_type.type_symbol)));
+ }
+ } else {
+ // used as expression
+ var instance = create_temp_value (list.value_type, true, list);
+
+ var field_it = st.get_fields ().iterator ();
+ foreach (Expression expr in list.get_initializers ()) {
+ Field field = null;
+ while (field == null) {
+ field_it.next ();
+ field = field_it.get ();
+ if (field.binding != MemberBinding.INSTANCE) {
+ // we only initialize instance fields
+ field = null;
+ }
+ }
+
+ store_field (field, instance, expr.target_value, expr.source_reference);
+ }
+
+ list.target_value = instance;
+ }
+ } else {
+ var clist = new CCodeInitializerList ();
+ foreach (Expression expr in list.get_initializers ()) {
+ clist.append (get_cvalue (expr));
+ }
+ set_cvalue (list, clist);
+ }
+ }
+
+ public LocalVariable get_temp_variable (DataType type, bool value_owned = true, CodeNode? node_reference = null, bool init = false) {
+ var var_type = type.copy ();
+ var_type.value_owned = value_owned;
+ var local = new LocalVariable (var_type, "_tmp%d_".printf (next_temp_var_id));
+ local.init = init;
+
+ if (node_reference != null) {
+ local.source_reference = node_reference.source_reference;
+ }
+
+ next_temp_var_id++;
+
+ return local;
+ }
+
+ bool is_in_generic_type (GenericType type) {
+ if (current_symbol != null && type.type_parameter.parent_symbol is TypeSymbol
+ && (current_method == null || current_method.binding == MemberBinding.INSTANCE)) {
+ return true;
+ } else {
+ return false;
+ }
+ }
+
+ void require_generic_accessors (Interface iface) {
+ if (iface.get_attribute ("GenericAccessors") == null) {
+ Report.error (iface.source_reference,
+ "missing generic type for interface `%s', add GenericAccessors attribute to interface declaration",
+ iface.get_full_name ());
+ }
+ }
+
+ CCodeExpression get_generic_type_expression (string identifier, GenericType type, bool is_chainup = false) {
+ if (type.type_parameter.parent_symbol is Interface) {
+ unowned Interface iface = (Interface) type.type_parameter.parent_symbol;
+ require_generic_accessors (iface);
+
+ var cast_self = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (iface)));
+ cast_self.add_argument (get_this_cexpression ());
+ var function_call = new CCodeFunctionCall (new CCodeMemberAccess.pointer (cast_self, "get_%s".printf (identifier)));
+ function_call.add_argument (get_this_cexpression ());
+ return function_call;
+ }
+
+ if (is_in_generic_type (type) && !is_chainup && !in_creation_method) {
+ return new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (get_this_cexpression (), "priv"), identifier);
+ } else {
+ return get_variable_cexpression (identifier);
+ }
+ }
+
+ public CCodeExpression get_type_id_expression (DataType type, bool is_chainup = false) {
+ if (type is GenericType) {
+ var type_parameter = ((GenericType) type).type_parameter;
+ string identifier = get_ccode_type_id (type_parameter);
+ return get_generic_type_expression (identifier, (GenericType) type, is_chainup);
+ } else {
+ string type_id = get_ccode_type_id (type);
+ if (type_id == "") {
+ type_id = "G_TYPE_INVALID";
+ } else {
+ generate_type_declaration (type, cfile);
+ }
+ return new CCodeIdentifier (type_id);
+ }
+ }
+
+ public virtual CCodeExpression? get_dup_func_expression (DataType type, SourceReference? source_reference, bool is_chainup = false) {
+ if (type is ErrorType) {
+ return new CCodeIdentifier ("g_error_copy");
+ } else if (type is GenericType) {
+ var type_parameter = ((GenericType) type).type_parameter;
+ string identifier = get_ccode_copy_function (type_parameter);
+ return get_generic_type_expression (identifier, (GenericType) type, is_chainup);
+ } else if (type.type_symbol != null) {
+ string dup_function;
+ unowned Class? cl = type.type_symbol as Class;
+ if (is_reference_counting (type.type_symbol)) {
+ dup_function = get_ccode_ref_function ((ObjectTypeSymbol) type.type_symbol);
+ if (type.type_symbol is Interface && dup_function == null) {
+ Report.error (source_reference, "missing class prerequisite for interface `%s', add GLib.Object to interface declaration if unsure", type.type_symbol.get_full_name ());
+ return new CCodeInvalidExpression();
+ }
+ } else if (cl != null && cl.is_immutable) {
+ // allow duplicates of immutable instances as for example strings
+ dup_function = get_ccode_dup_function (type.type_symbol);
+ if (dup_function == null) {
+ dup_function = "";
+ }
+ } else if (get_ccode_is_gboxed (type.type_symbol)) {
+ // allow duplicates of gboxed instances
+ dup_function = generate_dup_func_wrapper (type);
+ if (dup_function == null) {
+ dup_function = "";
+ }
+ } else if (type is ValueType) {
+ dup_function = get_ccode_dup_function (type.type_symbol);
+ if (dup_function == null && type.nullable) {
+ dup_function = generate_struct_dup_wrapper ((ValueType) type);
+ } else if (dup_function == null) {
+ dup_function = "";
+ }
+ } else {
+ // duplicating non-reference counted objects may cause side-effects (and performance issues)
+ Report.error (source_reference, "duplicating `%s' instance, use unowned variable or explicitly invoke copy method", type.type_symbol.name);
+ return new CCodeInvalidExpression();
+ }
+
+ return new CCodeIdentifier (dup_function);
+ } else if (type is PointerType) {
+ var pointer_type = (PointerType) type;
+ return get_dup_func_expression (pointer_type.base_type, source_reference);
+ } else {
+ return new CCodeConstant ("NULL");
+ }
+ }
+
+ void make_comparable_cexpression (ref DataType left_type, ref CCodeExpression cleft, ref DataType right_type, ref CCodeExpression cright) {
+ unowned Struct? left_type_as_struct = left_type.type_symbol as Struct;
+ unowned Struct? right_type_as_struct = right_type.type_symbol as Struct;
+ unowned ObjectTypeSymbol? left_type_as_object_type = left_type.type_symbol as ObjectTypeSymbol;
+ unowned ObjectTypeSymbol? right_type_as_object_type = right_type.type_symbol as ObjectTypeSymbol;
+
+ if (left_type_as_object_type != null && (!(left_type_as_object_type is Class) || !((Class) left_type_as_object_type).is_compact)
+ && right_type_as_object_type != null && (!(right_type_as_object_type is Class) || !((Class) right_type_as_object_type).is_compact)) {
+ if (left_type_as_object_type != right_type_as_object_type) {
+ if (left_type_as_object_type.is_subtype_of (right_type_as_object_type)) {
+ cleft = generate_instance_cast (cleft, right_type_as_object_type);
+ } else if (right_type_as_object_type.is_subtype_of (left_type_as_object_type)) {
+ cright = generate_instance_cast (cright, left_type_as_object_type);
+ }
+ }
+ } else if (left_type_as_struct != null && right_type_as_struct != null) {
+ if (left_type is StructValueType) {
+ // real structs (uses compare/equal function)
+ if (!left_type.nullable) {
+ cleft = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cleft);
+ }
+ if (!right_type.nullable) {
+ cright = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cright);
+ }
+ } else {
+ // integer or floating or boolean type
+ if (left_type.nullable && right_type.nullable) {
+ // FIXME also compare contents, not just address
+ } else if (left_type.nullable) {
+ // FIXME check left value is not null
+ cleft = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, cleft);
+ } else if (right_type.nullable) {
+ // FIXME check right value is not null
+ cright = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, cright);
+ }
+ }
+ }
+ }
+
+ private string generate_struct_equal_function (Struct st) {
+ if (st.base_struct != null) {
+ return generate_struct_equal_function (st.base_struct);
+ }
+
+ string equal_func = "_%sequal".printf (get_ccode_lower_case_prefix (st));
+
+ if (!add_wrapper (equal_func)) {
+ // wrapper already defined
+ return equal_func;
+ }
+
+ var function = new CCodeFunction (equal_func, get_ccode_name (bool_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("s1", "const %s *".printf (get_ccode_name (st))));
+ function.add_parameter (new CCodeParameter ("s2", "const %s *".printf (get_ccode_name (st))));
+
+ push_function (function);
+
+ // if (s1 == s2) return TRUE;
+ {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s1"), new CCodeIdentifier ("s2"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (true));
+ ccode.close ();
+ }
+ // if (s1 == NULL || s2 == NULL) return FALSE;
+ {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s1"), new CCodeConstant ("NULL"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (false));
+ ccode.close ();
+
+ cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s2"), new CCodeConstant ("NULL"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (false));
+ ccode.close ();
+ }
+
+ bool has_instance_fields = false;
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding != MemberBinding.INSTANCE) {
+ // we only compare instance fields
+ continue;
+ }
+
+ has_instance_fields = true;
+
+ CCodeExpression cexp; // if (cexp) return FALSE;
+ var s1 = (CCodeExpression) new CCodeMemberAccess.pointer (new CCodeIdentifier ("s1"), get_ccode_name (f)); // s1->f
+ var s2 = (CCodeExpression) new CCodeMemberAccess.pointer (new CCodeIdentifier ("s2"), get_ccode_name (f)); // s2->f
+
+ var variable_type = f.variable_type.copy ();
+ make_comparable_cexpression (ref variable_type, ref s1, ref variable_type, ref s2);
+
+ if (!(f.variable_type is NullType) && f.variable_type.compatible (string_type)) {
+ CCodeFunctionCall ccall;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("string.h");
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_cmp_wrapper (new CCodeIdentifier ("strcmp"))));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strcmp0"));
+ }
+ ccall.add_argument (s1);
+ ccall.add_argument (s2);
+ cexp = ccall;
+ } else if (f.variable_type is StructValueType) {
+ var equalfunc = generate_struct_equal_function (f.variable_type.type_symbol as Struct);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (equalfunc));
+ ccall.add_argument (s1);
+ ccall.add_argument (s2);
+ cexp = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, ccall);
+ } else {
+ cexp = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, s1, s2);
+ }
+
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (false));
+ ccode.close ();
+ }
+
+ if (!has_instance_fields) {
+ // either opaque structure or simple type
+ if (st.is_simple_type ()) {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("s1")), new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("s2")));
+ ccode.add_return (cexp);
+ } else {
+ ccode.add_return (get_boolean_cconstant (false));
+ }
+ } else {
+ ccode.add_return (get_boolean_cconstant (true));
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return equal_func;
+ }
+
+ private string generate_numeric_equal_function (TypeSymbol sym) {
+ string equal_func = "_%sequal".printf (get_ccode_lower_case_prefix (sym));
+
+ if (!add_wrapper (equal_func)) {
+ // wrapper already defined
+ return equal_func;
+ }
+
+ var function = new CCodeFunction (equal_func, get_ccode_name (bool_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("s1", "const %s *".printf (get_ccode_name (sym))));
+ function.add_parameter (new CCodeParameter ("s2", "const %s *".printf (get_ccode_name (sym))));
+
+ push_function (function);
+
+ // if (s1 == s2) return TRUE;
+ {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s1"), new CCodeIdentifier ("s2"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (true));
+ ccode.close ();
+ }
+ // if (s1 == NULL || s2 == NULL) return FALSE;
+ {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s1"), new CCodeConstant ("NULL"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (false));
+ ccode.close ();
+
+ cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("s2"), new CCodeConstant ("NULL"));
+ ccode.open_if (cexp);
+ ccode.add_return (get_boolean_cconstant (false));
+ ccode.close ();
+ }
+ // return (*s1 == *s2);
+ {
+ var cexp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("s1")), new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("s2")));
+ ccode.add_return (cexp);
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return equal_func;
+ }
+
+ private string generate_struct_dup_wrapper (ValueType value_type) {
+ string dup_func = "_%sdup".printf (get_ccode_lower_case_prefix (value_type.type_symbol));
+
+ if (!add_wrapper (dup_func)) {
+ // wrapper already defined
+ return dup_func;
+ }
+
+ var function = new CCodeFunction (dup_func, get_ccode_name (value_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (value_type)));
+
+ push_function (function);
+
+ if (value_type.type_symbol == gvalue_type) {
+ var dup_call = new CCodeFunctionCall (new CCodeIdentifier ("g_boxed_copy"));
+ dup_call.add_argument (new CCodeIdentifier ("G_TYPE_VALUE"));
+ dup_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_return (dup_call);
+ } else {
+ ccode.add_declaration (get_ccode_name (value_type), new CCodeVariableDeclarator ("dup"));
+
+ CCodeFunctionCall creation_call;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ creation_call.add_argument (new CCodeConstant ("1"));
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (value_type.type_symbol)));
+ creation_call.add_argument (csizeof);
+ } else {
+ cfile.add_include ("glib.h");
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ creation_call.add_argument (new CCodeIdentifier (get_ccode_name (value_type.type_symbol)));
+ creation_call.add_argument (new CCodeConstant ("1"));
+ }
+ ccode.add_assignment (new CCodeIdentifier ("dup"), creation_call);
+
+ var st = value_type.type_symbol as Struct;
+ if (st != null && st.is_disposable ()) {
+ if (!get_ccode_has_copy_function (st)) {
+ generate_struct_copy_function (st);
+ }
+
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_copy_function (st)));
+ copy_call.add_argument (new CCodeIdentifier ("self"));
+ copy_call.add_argument (new CCodeIdentifier ("dup"));
+ ccode.add_expression (copy_call);
+ } else {
+ cfile.add_include ("string.h");
+
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeConstant (get_ccode_name (value_type.type_symbol)));
+
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ copy_call.add_argument (new CCodeIdentifier ("dup"));
+ copy_call.add_argument (new CCodeIdentifier ("self"));
+ copy_call.add_argument (sizeof_call);
+ ccode.add_expression (copy_call);
+ }
+
+ ccode.add_return (new CCodeIdentifier ("dup"));
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return dup_func;
+ }
+
+ protected string generate_dup_func_wrapper (DataType type) {
+ string destroy_func = "_vala_%s_copy".printf (get_ccode_name (type.type_symbol));
+
+ if (!add_wrapper (destroy_func)) {
+ // wrapper already defined
+ return destroy_func;
+ }
+
+ var function = new CCodeFunction (destroy_func, get_ccode_name (type));
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (type)));
+
+ push_function (function);
+
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_boxed_copy"));
+ free_call.add_argument (new CCodeIdentifier (get_ccode_type_id (type.type_symbol)));
+ free_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_return (free_call);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return destroy_func;
+ }
+
+ protected string generate_free_function_address_of_wrapper (DataType type) {
+ string destroy_func = "_vala_%s_free_function_address_of".printf (get_ccode_name (type.type_symbol));
+
+ if (!add_wrapper (destroy_func)) {
+ // wrapper already defined
+ return destroy_func;
+ }
+
+ var function = new CCodeFunction (destroy_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (type)));
+
+ push_function (function);
+
+ unowned Class? cl = type.type_symbol as Class;
+ assert (cl != null);
+
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_free_function (cl)));
+ free_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("self")));
+
+ ccode.add_expression (free_call);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return destroy_func;
+ }
+
+ protected string generate_destroy_function_content_of_wrapper (DataType type) {
+ // g_array_set_clear_func has a specific GDestroyNotify where the content of an element is given
+ string destroy_func = "_vala_%s_free_function_content_of".printf (get_ccode_name (type.type_symbol));
+
+ if (!add_wrapper (destroy_func)) {
+ // wrapper already defined
+ return destroy_func;
+ }
+
+ var function = new CCodeFunction (destroy_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("data", get_ccode_name (pointer_type)));
+ push_function (function);
+
+ ccode.add_declaration (get_ccode_name (type), new CCodeVariableDeclarator ("self"));
+ var cast = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeCastExpression (new CCodeIdentifier ("data"), get_ccode_name (type) + "*"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), cast);
+
+ var free_call = new CCodeFunctionCall (get_destroy0_func_expression (type));
+ free_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_expression (free_call);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return destroy_func;
+ }
+
+ protected string generate_free_func_wrapper (DataType type) {
+ string destroy_func = "_vala_%s_free".printf (get_ccode_name (type.type_symbol));
+
+ if (!add_wrapper (destroy_func)) {
+ // wrapper already defined
+ return destroy_func;
+ }
+
+ var function = new CCodeFunction (destroy_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (type)));
+
+ push_function (function);
+
+ if (get_ccode_is_gboxed (type.type_symbol) || (gvalue_type != null && type.type_symbol == gvalue_type)) {
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_boxed_free"));
+ free_call.add_argument (new CCodeIdentifier (get_ccode_type_id (type.type_symbol)));
+ free_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_expression (free_call);
+ } else {
+ unowned Struct? st = type.type_symbol as Struct;
+ if (st != null && st.is_disposable ()) {
+ if (!get_ccode_has_destroy_function (st)) {
+ generate_struct_destroy_function (st);
+ }
+
+ var destroy_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_destroy_function (st)));
+ destroy_call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (destroy_call);
+ }
+
+ CCodeFunctionCall free_call;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ free_call = new CCodeFunctionCall (new CCodeIdentifier ("free"));
+ } else {
+ cfile.add_include ("glib.h");
+ free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ }
+ free_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_expression (free_call);
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return destroy_func;
+ }
+
+ public CCodeExpression? get_destroy0_func_expression (DataType type, bool is_chainup = false) {
+ var element_destroy_func_expression = get_destroy_func_expression (type, is_chainup);
+
+ if (!(type is GenericType) && element_destroy_func_expression is CCodeIdentifier) {
+ var freeid = (CCodeIdentifier) element_destroy_func_expression;
+ string free0_func = "_%s0_".printf (freeid.name);
+
+ if (add_wrapper (free0_func)) {
+ var function = new CCodeFunction (free0_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("var", get_ccode_name (pointer_type)));
+
+ push_function (function);
+
+ ccode.add_expression (destroy_value (new GLibValue (type, new CCodeIdentifier ("var"), true), true));
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+ }
+
+ element_destroy_func_expression = new CCodeIdentifier (free0_func);
+ }
+
+ return element_destroy_func_expression;
+ }
+
+ public CCodeExpression? get_destroy_func_expression (DataType type, bool is_chainup = false) {
+ if (context.profile == Profile.GOBJECT && (type.type_symbol == glist_type || type.type_symbol == gslist_type || type.type_symbol == gnode_type || type.type_symbol == gqueue_type)) {
+ // create wrapper function to free list elements if necessary
+
+ bool elements_require_free = false;
+ bool generic_elements = false;
+ CCodeExpression element_destroy_func_expression = null;
+
+ foreach (DataType type_arg in type.get_type_arguments ()) {
+ elements_require_free = requires_destroy (type_arg);
+ if (elements_require_free) {
+ element_destroy_func_expression = get_destroy0_func_expression (type_arg);
+ generic_elements = (type_arg is GenericType);
+ }
+ }
+
+ if (elements_require_free) {
+ CCodeExpression? cexpr = null;
+ if (element_destroy_func_expression is CCodeIdentifier || element_destroy_func_expression is CCodeMemberAccess) {
+ cexpr = new CCodeIdentifier (generate_collection_free_wrapper (type, (generic_elements ? null : element_destroy_func_expression as CCodeIdentifier)));
+ if (generic_elements) {
+ // adding second argument early, instance parameter will be inserted by destroy_value()
+ cexpr = new CCodeFunctionCall (cexpr);
+ ((CCodeFunctionCall) cexpr).add_argument (element_destroy_func_expression);
+ }
+ } else {
+ Report.error (null, "internal error: No useable element_destroy_function found");
+ }
+ return cexpr;
+ } else {
+ return new CCodeIdentifier (get_ccode_free_function (type.type_symbol));
+ }
+ } else if (type is ErrorType) {
+ cfile.add_include ("glib.h");
+ return new CCodeIdentifier ("g_error_free");
+ } else if (type is GenericType) {
+ var type_parameter = ((GenericType) type).type_parameter;
+ string identifier = get_ccode_destroy_function (type_parameter);
+ return get_generic_type_expression (identifier, (GenericType) type, is_chainup);
+ } else if (type.type_symbol != null) {
+ string unref_function;
+ if (type is ReferenceType) {
+ if (is_reference_counting (type.type_symbol)) {
+ unref_function = get_ccode_unref_function ((ObjectTypeSymbol) type.type_symbol);
+ if (type.type_symbol is Interface && unref_function == null) {
+ Report.error (type.source_reference, "missing class prerequisite for interface `%s', add GLib.Object to interface declaration if unsure", type.type_symbol.get_full_name ());
+ return null;
+ }
+ } else {
+ if (get_ccode_is_gboxed (type.type_symbol)) {
+ unref_function = generate_free_func_wrapper (type);
+ } else {
+ if (is_free_function_address_of (type)) {
+ unref_function = generate_free_function_address_of_wrapper (type);
+ } else {
+ unref_function = get_ccode_free_function (type.type_symbol);
+ }
+ }
+ }
+ } else {
+ if (type.nullable) {
+ if (get_ccode_is_gboxed (type.type_symbol)) {
+ unref_function = generate_free_func_wrapper (type);
+ } else {
+ unref_function = get_ccode_free_function (type.type_symbol);
+ }
+ if (unref_function == null) {
+ if (type.type_symbol is Struct && ((Struct) type.type_symbol).is_disposable ()) {
+ unref_function = generate_free_func_wrapper (type);
+ } else {
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ unref_function = "free";
+ } else {
+ cfile.add_include ("glib.h");
+ unref_function = "g_free";
+ }
+ }
+ }
+ } else if (type is EnumValueType) {
+ unref_function = null;
+ } else {
+ unowned Struct? st = type.type_symbol as Struct;
+ if (st != null && st.is_disposable ()) {
+ if (!get_ccode_has_destroy_function (st)) {
+ generate_struct_destroy_function (st);
+ }
+ unref_function = get_ccode_destroy_function (st);
+ } else {
+ unref_function = null;
+ }
+ }
+ }
+ if (unref_function == null) {
+ return new CCodeConstant ("NULL");
+ }
+ return new CCodeIdentifier (unref_function);
+ } else if (type is ArrayType) {
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ return new CCodeIdentifier ("free");
+ } else {
+ cfile.add_include ("glib.h");
+ return new CCodeIdentifier ("g_free");
+ }
+ } else if (type is PointerType) {
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdlib.h");
+ return new CCodeIdentifier ("free");
+ } else {
+ cfile.add_include ("glib.h");
+ return new CCodeIdentifier ("g_free");
+ }
+ } else {
+ return new CCodeConstant ("NULL");
+ }
+ }
+
+ private string generate_collection_free_wrapper (DataType collection_type, CCodeIdentifier? element_destroy_func_expression) {
+ string destroy_func;
+
+ string? destroy_func_wrapper = null;
+ if (element_destroy_func_expression != null) {
+ destroy_func_wrapper = "_%s_%s".printf (get_ccode_free_function (collection_type.type_symbol), element_destroy_func_expression.name);
+ if (!add_wrapper (destroy_func_wrapper)) {
+ // wrapper already defined
+ return destroy_func_wrapper;
+ }
+ }
+
+ if (collection_type.type_symbol == gnode_type) {
+ destroy_func = "_g_node_free_all";
+ if (!add_wrapper (destroy_func)) {
+ // wrapper already defined
+ return destroy_func;
+ }
+
+ var function = new CCodeFunction (destroy_func, "void");
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (collection_type)));
+ function.add_parameter (new CCodeParameter ("free_func", "GDestroyNotify"));
+
+ push_function (function);
+
+ CCodeFunctionCall element_free_call;
+ string destroy_node_func = "%s_node".printf (destroy_func);
+ var wrapper = new CCodeFunction (destroy_node_func, get_ccode_name (bool_type));
+ wrapper.modifiers = CCodeModifiers.STATIC;
+ wrapper.add_parameter (new CCodeParameter ("node", get_ccode_name (collection_type)));
+ wrapper.add_parameter (new CCodeParameter ("free_func", "GDestroyNotify"));
+ push_function (wrapper);
+
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("free_func"));
+ free_call.add_argument (new CCodeMemberAccess.pointer (new CCodeIdentifier("node"), "data"));
+
+ var data_isnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeMemberAccess.pointer (new CCodeIdentifier("node"), "data"), new CCodeConstant ("NULL"));
+ var ccomma_data = new CCodeCommaExpression ();
+ ccomma_data.append_expression (new CCodeConditionalExpression (data_isnull, new CCodeConstant ("NULL"), free_call));
+ ccode.add_expression (ccomma_data);
+
+ ccode.add_return (new CCodeConstant ("FALSE"));
+
+ pop_function ();
+ cfile.add_function_declaration (wrapper);
+ cfile.add_function (wrapper);
+
+ /* Now the code to call g_traverse with the above */
+ element_free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_node_traverse"));
+ element_free_call.add_argument (new CCodeIdentifier("self"));
+ element_free_call.add_argument (new CCodeConstant ("G_POST_ORDER"));
+ element_free_call.add_argument (new CCodeConstant ("G_TRAVERSE_ALL"));
+ element_free_call.add_argument (new CCodeConstant ("-1"));
+ element_free_call.add_argument (new CCodeCastExpression (new CCodeIdentifier (destroy_node_func), "GNodeTraverseFunc"));
+ element_free_call.add_argument (new CCodeIdentifier ("free_func"));
+
+ var free_func_isnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("free_func"), new CCodeConstant ("NULL"));
+ var ccomma = new CCodeCommaExpression ();
+ ccomma.append_expression (new CCodeConditionalExpression (free_func_isnull, new CCodeConstant ("NULL"), element_free_call));
+
+ ccode.add_expression (ccomma);
+
+ var cfreecall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_free_function (gnode_type)));
+ cfreecall.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (cfreecall);
+
+ function.modifiers = CCodeModifiers.STATIC;
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+ } else if (collection_type.type_symbol == glist_type) {
+ destroy_func = "g_list_free_full";
+ } else if (collection_type.type_symbol == gslist_type) {
+ destroy_func = "g_slist_free_full";
+ } else if (collection_type.type_symbol == gqueue_type) {
+ destroy_func = "g_queue_free_full";
+ } else {
+ Report.error (null, "internal error: type of collection not supported");
+ return "";
+ }
+
+ if (element_destroy_func_expression != null) {
+ var function = new CCodeFunction (destroy_func_wrapper, "void");
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (collection_type)));
+
+ push_function (function);
+
+ var collection_free_call = new CCodeFunctionCall (new CCodeIdentifier (destroy_func));
+ collection_free_call.add_argument (new CCodeIdentifier ("self"));
+ collection_free_call.add_argument (new CCodeCastExpression (element_destroy_func_expression, "GDestroyNotify"));
+ ccode.add_expression (collection_free_call);
+
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.INLINE;
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return destroy_func_wrapper;
+ }
+
+ return destroy_func;
+ }
+
+ public virtual string? append_struct_array_destroy (Struct st) {
+ return null;
+ }
+
+ public virtual string? append_struct_array_free (Struct st) {
+ return null;
+ }
+
+ public CCodeExpression destroy_local (LocalVariable local) {
+ return destroy_value (get_local_cvalue (local));
+ }
+
+ public CCodeExpression destroy_parameter (Parameter param) {
+ return destroy_value (get_parameter_cvalue (param));
+ }
+
+ public CCodeExpression destroy_field (Field field, TargetValue? instance) {
+ return destroy_value (get_field_cvalue (field, instance));
+ }
+
+ public virtual CCodeExpression destroy_value (TargetValue value, bool is_macro_definition = false) {
+ var type = value.value_type;
+ if (value.actual_value_type != null) {
+ type = value.actual_value_type;
+ }
+ var cvar = get_cvalue_ (value);
+
+ if (type is DelegateType) {
+ if (context.profile != Profile.GOBJECT) {
+ // Required for NULL
+ cfile.add_include ("stddef.h");
+ }
+
+ var delegate_target = get_delegate_target_cvalue (value);
+ var delegate_target_destroy_notify = get_delegate_target_destroy_notify_cvalue (value);
+
+ var ccall = new CCodeFunctionCall (delegate_target_destroy_notify);
+ ccall.add_argument (delegate_target);
+
+ var destroy_call = new CCodeCommaExpression ();
+ destroy_call.append_expression (ccall);
+ destroy_call.append_expression (new CCodeConstant ("NULL"));
+
+ var cisnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, delegate_target_destroy_notify, new CCodeConstant ("NULL"));
+
+ var ccomma = new CCodeCommaExpression ();
+ ccomma.append_expression (new CCodeConditionalExpression (cisnull, new CCodeConstant ("NULL"), destroy_call));
+ ccomma.append_expression (new CCodeAssignment (cvar, new CCodeConstant ("NULL")));
+ ccomma.append_expression (new CCodeAssignment (delegate_target, new CCodeConstant ("NULL")));
+ ccomma.append_expression (new CCodeAssignment (delegate_target_destroy_notify, new CCodeConstant ("NULL")));
+
+ return ccomma;
+ }
+
+ bool is_gcollection = (type.type_symbol == glist_type || type.type_symbol == gslist_type || type.type_symbol == gnode_type || type.type_symbol == gqueue_type);
+ CCodeFunctionCall ccall;
+ var cexpr = get_destroy_func_expression (type);
+ if (is_gcollection && cexpr is CCodeFunctionCall) {
+ ccall = (CCodeFunctionCall) cexpr;
+ } else {
+ ccall = new CCodeFunctionCall (cexpr);
+ }
+
+ if (type is ValueType && !type.nullable) {
+ // normal value type, no null check
+ unowned Struct? st = type.type_symbol as Struct;
+ if (st != null && st.is_simple_type ()) {
+ // used for va_list
+ ccall.add_argument (cvar);
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cvar));
+ }
+
+ if (gvalue_type != null && type.type_symbol == gvalue_type) {
+ // g_value_unset must not be called for already unset values
+ var cisvalid = new CCodeFunctionCall (new CCodeIdentifier ("G_IS_VALUE"));
+ cisvalid.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cvar));
+
+ var ccomma = new CCodeCommaExpression ();
+ ccomma.append_expression (ccall);
+ ccomma.append_expression (new CCodeConstant ("NULL"));
+
+ return new CCodeConditionalExpression (cisvalid, ccomma, new CCodeConstant ("NULL"));
+ } else if ((type.type_symbol == gmutex_type ||
+ type.type_symbol == grecmutex_type ||
+ type.type_symbol == grwlock_type ||
+ type.type_symbol == gcond_type)) {
+ // g_mutex_clear must not be called for uninitialized mutex
+ // also, g_mutex_clear does not clear the struct
+ requires_clear_mutex = true;
+ ccall.call = new CCodeIdentifier ("_vala_clear_" + get_ccode_name (type.type_symbol));
+ return ccall;
+ } else {
+ return ccall;
+ }
+ }
+
+ if (!is_gcollection && ccall.call is CCodeIdentifier && !(type is ArrayType) && !(type is GenericType) && !is_macro_definition) {
+ // generate and use NULL-aware free macro to simplify code
+
+ var freeid = (CCodeIdentifier) ccall.call;
+ string free0_func = "_%s0".printf (freeid.name);
+
+ if (add_wrapper (free0_func)) {
+ var macro = destroy_value (new GLibValue (type, new CCodeIdentifier ("var"), true), true);
+ cfile.add_type_declaration (new CCodeMacroReplacement.with_expression ("%s(var)".printf (free0_func), macro));
+ }
+
+ // FIXME this breaks in our macro, so this should not happen
+ while (cvar is CCodeCastExpression) {
+ cvar = ((CCodeCastExpression) cvar).inner;
+ }
+ if (cvar is CCodeFunctionCall) {
+ cvar = ((CCodeFunctionCall) cvar).get_arguments ()[0];
+ }
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (free0_func));
+ ccall.add_argument (cvar);
+ return ccall;
+ }
+
+ if (context.profile != Profile.GOBJECT) {
+ // Required for NULL
+ cfile.add_include ("stddef.h");
+ }
+
+ /* (foo == NULL ? NULL : foo = (unref (foo), NULL)) */
+
+ /* can be simplified to
+ * foo = (unref (foo), NULL)
+ * if foo is of static type non-null
+ */
+
+ var cisnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, cvar, new CCodeConstant ("NULL"));
+ if (type is GenericType) {
+ var parent = ((GenericType) type).type_parameter.parent_symbol;
+ var cl = parent as Class;
+ if ((!(parent is Method) && !(parent is ObjectTypeSymbol)) || (cl != null && cl.is_compact)) {
+ return new CCodeConstant ("NULL");
+ }
+
+ // unref functions are optional for type parameters
+ var cunrefisnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, get_destroy_func_expression (type), new CCodeConstant ("NULL"));
+ cisnull = new CCodeBinaryExpression (CCodeBinaryOperator.OR, cisnull, cunrefisnull);
+ }
+
+ // glib collections already have the free_func argument, so make sure the instance parameter gets first
+ ccall.insert_argument (0, cvar);
+
+ /* set freed references to NULL to prevent further use */
+ var ccomma = new CCodeCommaExpression ();
+
+ if (context.profile == Profile.GOBJECT
+ && type.type_symbol != null && !is_reference_counting (type.type_symbol)
+ && type.type_symbol.is_subtype_of (gstringbuilder_type)) {
+ ccall.add_argument (new CCodeConstant ("TRUE"));
+ } else if (context.profile == Profile.GOBJECT
+ && type.type_symbol == gthreadpool_type) {
+ ccall.add_argument (new CCodeConstant ("FALSE"));
+ ccall.add_argument (new CCodeConstant ("TRUE"));
+ } else if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+ if (requires_destroy (array_type.element_type)) {
+ CCodeExpression csizeexpr = null;
+ if (((GLibValue) value).array_length_cvalues != null) {
+ csizeexpr = get_array_length_cvalue (value);
+ } else if (get_array_null_terminated (value)) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (cvar);
+ csizeexpr = len_call;
+ } else {
+ csizeexpr = get_array_length_cexpr (value);
+ }
+
+ if (csizeexpr != null) {
+ unowned Struct? st = array_type.element_type.type_symbol as Struct;
+ if (st != null && !array_type.element_type.nullable) {
+ ccall.call = new CCodeIdentifier (append_struct_array_free (st));
+ ccall.add_argument (csizeexpr);
+ } else {
+ requires_array_free = true;
+ generate_type_declaration (delegate_target_destroy_type, cfile);
+
+ ccall.call = new CCodeIdentifier ("_vala_array_free");
+ ccall.add_argument (csizeexpr);
+ ccall.add_argument (new CCodeCastExpression (get_destroy_func_expression (array_type.element_type), get_ccode_name (delegate_target_destroy_type)));
+ }
+ }
+ }
+ }
+
+ ccomma.append_expression (ccall);
+ ccomma.append_expression (new CCodeConstant ("NULL"));
+
+ var cassign = new CCodeAssignment (cvar, ccomma);
+
+ // g_free (NULL) is allowed
+ bool uses_gfree = (type.type_symbol != null && !is_reference_counting (type.type_symbol) && get_ccode_free_function (type.type_symbol) == "g_free");
+ uses_gfree = uses_gfree || type is ArrayType;
+ if (uses_gfree) {
+ return cassign;
+ }
+
+ return new CCodeConditionalExpression (cisnull, new CCodeConstant ("NULL"), cassign);
+ }
+
+ public override void visit_end_full_expression (Expression expr) {
+ /* expr is a full expression, i.e. an initializer, the
+ * expression in an expression statement, the controlling
+ * expression in if, while, for, or foreach statements
+ *
+ * we unref temporary variables at the end of a full
+ * expression
+ */
+ if (temp_ref_values.size == 0) {
+ /* nothing to do without temporary variables */
+ return;
+ }
+
+ var local_decl = expr.parent_node as LocalVariable;
+ if (!(local_decl != null && is_simple_struct_creation (local_decl, local_decl.initializer))) {
+ expr.target_value = store_temp_value (expr.target_value, expr);
+ }
+
+ foreach (var value in temp_ref_values) {
+ ccode.add_expression (destroy_value (value));
+ }
+
+ temp_ref_values.clear ();
+ }
+
+ public void emit_temp_var (LocalVariable local, bool on_error = false) {
+ generate_type_declaration (local.variable_type, cfile);
+
+ var init = (!local.name.has_prefix ("*") && local.init);
+ if (is_in_coroutine ()) {
+ closure_struct.add_field (get_ccode_name (local.variable_type), local.name, 0, get_ccode_declarator_suffix (local.variable_type));
+
+ // even though closure struct is zerod, we need to initialize temporary variables
+ // as they might be used multiple times when declared in a loop
+
+ if (init) {
+ var initializer = default_value_for_type (local.variable_type, false, on_error);
+ if (initializer == null) {
+ cfile.add_include ("string.h");
+ var memset_call = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ memset_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_variable_cexpression (local.name)));
+ memset_call.add_argument (new CCodeConstant ("0"));
+ CCodeExpression? size = null;
+ requires_memset_init (local, out size);
+ if (size == null) {
+ size = new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (local.variable_type)));
+ }
+ memset_call.add_argument (size);
+ ccode.add_expression (memset_call);
+ } else {
+ ccode.add_assignment (get_variable_cexpression (local.name), initializer);
+ }
+ }
+ } else {
+ var cvar = new CCodeVariableDeclarator (local.name, null, get_ccode_declarator_suffix (local.variable_type));
+ CCodeExpression? size = null;
+ if (init && !requires_memset_init (local, out size)) {
+ cvar.initializer = default_value_for_type (local.variable_type, true, on_error);
+ cvar.init0 = true;
+ } else if (init && size != null && local.initializer == null) {
+ cfile.add_include ("string.h");
+ var memset_call = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ memset_call.add_argument (get_variable_cexpression (local.name));
+ memset_call.add_argument (new CCodeConstant ("0"));
+ memset_call.add_argument (size);
+ ccode.add_expression (memset_call);
+ }
+ ccode.add_declaration (get_ccode_name (local.variable_type), cvar);
+ }
+ }
+
+ public override void visit_expression_statement (ExpressionStatement stmt) {
+ if (stmt.expression.error) {
+ stmt.error = true;
+ return;
+ }
+
+ /* free temporary objects and handle errors */
+
+ foreach (var value in temp_ref_values) {
+ ccode.add_expression (destroy_value (value));
+ }
+
+ if (stmt.tree_can_fail && stmt.expression.tree_can_fail) {
+ // simple case, no node breakdown necessary
+ add_simple_check (stmt.expression);
+ }
+
+ temp_ref_values.clear ();
+ }
+
+ protected virtual void append_scope_free (Symbol sym, CodeNode? stop_at = null) {
+ var b = (Block) sym;
+
+ var local_vars = b.get_local_variables ();
+ // free in reverse order
+ for (int i = local_vars.size - 1; i >= 0; i--) {
+ var local = local_vars[i];
+ if (!local.unreachable && local.active && !local.captured && requires_destroy (local.variable_type)) {
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ if (b.captured) {
+ int block_id = get_block_id (b);
+
+ var data_unref = new CCodeFunctionCall (new CCodeIdentifier ("block%d_data_unref".printf (block_id)));
+ data_unref.add_argument (get_variable_cexpression ("_data%d_".printf (block_id)));
+ ccode.add_expression (data_unref);
+ ccode.add_assignment (get_variable_cexpression ("_data%d_".printf (block_id)), new CCodeConstant ("NULL"));
+ }
+ }
+
+ public void append_local_free (Symbol sym, Statement? jump_stmt = null, CodeNode? stop_at = null) {
+ var b = (Block) sym;
+
+ append_scope_free (sym, stop_at);
+
+ if (jump_stmt is BreakStatement) {
+ if (b.parent_node is LoopStatement ||
+ b.parent_node is ForeachStatement ||
+ b.parent_node is SwitchStatement) {
+ return;
+ }
+ } else if (jump_stmt is ContinueStatement) {
+ if (b.parent_node is LoopStatement ||
+ b.parent_node is ForeachStatement) {
+ return;
+ }
+ }
+
+ if (stop_at != null && b.parent_node == stop_at) {
+ return;
+ }
+
+ if (sym.parent_symbol is Block) {
+ append_local_free (sym.parent_symbol, jump_stmt, stop_at);
+ } else if (sym.parent_symbol is Method) {
+ append_param_free ((Method) sym.parent_symbol);
+ } else if (sym.parent_symbol is PropertyAccessor) {
+ var acc = (PropertyAccessor) sym.parent_symbol;
+ if (acc.value_parameter != null && requires_destroy (acc.value_parameter.variable_type)) {
+ ccode.add_expression (destroy_parameter (acc.value_parameter));
+ }
+ }
+ }
+
+ private void append_param_free (Method m) {
+ foreach (Parameter param in m.get_parameters ()) {
+ if (!param.captured && !param.ellipsis && !param.params_array && requires_destroy (param.variable_type) && param.direction == ParameterDirection.IN) {
+ ccode.add_expression (destroy_parameter (param));
+ }
+ }
+ }
+
+ public void append_out_param_free (Method? m) {
+ if (m == null) {
+ return;
+ }
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction == ParameterDirection.OUT && param.variable_type.is_disposable ()) {
+ ccode.add_expression (destroy_parameter (param));
+ }
+ }
+ }
+
+ public bool variable_accessible_in_finally (LocalVariable local) {
+ if (current_try == null) {
+ return false;
+ }
+
+ var sym = current_symbol;
+
+ while (!(sym is Method || sym is PropertyAccessor) && sym.scope.lookup (local.name) == null) {
+ if ((sym.parent_node is TryStatement && ((TryStatement) sym.parent_node).finally_body != null) ||
+ (sym.parent_node is CatchClause && ((TryStatement) sym.parent_node.parent_node).finally_body != null)) {
+
+ return true;
+ }
+
+ sym = sym.parent_symbol;
+ }
+
+ return false;
+ }
+
+ public void return_out_parameter (Parameter param) {
+ var delegate_type = param.variable_type as DelegateType;
+
+ var value = get_parameter_cvalue (param);
+
+ var old_coroutine = is_in_coroutine ();
+ current_method.coroutine = false;
+
+ ccode.open_if (get_parameter_cexpression (param));
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_parameter_cexpression (param)), get_cvalue_ (value));
+
+ if (get_ccode_delegate_target (param) && delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_cexpression (get_ccode_delegate_target_name (param))), get_delegate_target_cvalue (value));
+ if (delegate_type.is_disposable ()) {
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_cexpression (get_ccode_delegate_target_destroy_notify_name (param))), get_delegate_target_destroy_notify_cvalue (get_parameter_cvalue (param)));
+ }
+ }
+
+ if (param.variable_type.is_disposable ()){
+ ccode.add_else ();
+ current_method.coroutine = old_coroutine;
+ ccode.add_expression (destroy_parameter (param));
+ current_method.coroutine = false;
+ }
+ ccode.close ();
+
+ var array_type = param.variable_type as ArrayType;
+ if (array_type != null && !array_type.fixed_length && get_ccode_array_length (param)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+ ccode.open_if (get_cexpression (length_cname));
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_cexpression (length_cname)), get_array_length_cvalue (value, dim));
+ ccode.close ();
+ }
+ }
+
+ current_method.coroutine = old_coroutine;
+ }
+
+ public override void visit_return_statement (ReturnStatement stmt) {
+ Symbol return_expression_symbol = null;
+
+ if (stmt.return_expression != null) {
+ // avoid unnecessary ref/unref pair
+ var local = stmt.return_expression.symbol_reference as LocalVariable;
+ if (local != null && !local.active) {
+ /* return expression is local variable taking ownership and
+ * current method is transferring ownership */
+
+ return_expression_symbol = local;
+ }
+ }
+
+ // return array length if appropriate
+ if (((current_method != null && get_ccode_array_length (current_method)) || (current_property_accessor != null && get_ccode_array_length (current_property_accessor))) && current_return_type is ArrayType) {
+ var temp_value = store_temp_value (stmt.return_expression.target_value, stmt);
+
+ var array_type = (ArrayType) current_return_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var len_l = get_cexpression (get_array_length_cname ("result", dim));
+ var len_r = get_array_length_cvalue (temp_value, dim);
+ if (!is_in_coroutine ()) {
+ ccode.open_if (len_l);
+ len_l = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, len_l);
+ ccode.add_assignment (len_l, len_r);
+ ccode.close ();
+ } else {
+ ccode.add_assignment (len_l, len_r);
+ }
+ }
+
+ stmt.return_expression.target_value = temp_value;
+ } else if (((current_method != null && get_ccode_delegate_target (current_method)) || (current_property_accessor != null && get_ccode_delegate_target (current_property_accessor))) && current_return_type is DelegateType) {
+ var delegate_type = (DelegateType) current_return_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ var temp_value = store_temp_value (stmt.return_expression.target_value, stmt);
+
+ var target_l = get_cexpression (get_delegate_target_cname ("result"));
+ if (!is_in_coroutine ()) {
+ target_l = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, target_l);
+ }
+ var target_r = get_delegate_target_cvalue (temp_value);
+ ccode.add_assignment (target_l, target_r);
+ if (delegate_type.is_disposable ()) {
+ var target_l_destroy_notify = get_cexpression (get_delegate_target_destroy_notify_cname ("result"));
+ if (!is_in_coroutine ()) {
+ target_l_destroy_notify = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, target_l_destroy_notify);
+ }
+ var target_r_destroy_notify = get_delegate_target_destroy_notify_cvalue (temp_value);
+ ccode.add_assignment (target_l_destroy_notify, target_r_destroy_notify);
+ }
+
+ stmt.return_expression.target_value = temp_value;
+ }
+ }
+
+ if (stmt.return_expression != null) {
+ // assign method result to `result'
+ CCodeExpression result_lhs = get_cexpression ("result");
+ if (current_return_type.is_real_non_null_struct_type () && !is_in_coroutine ()) {
+ result_lhs = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, result_lhs);
+ }
+ ccode.add_assignment (result_lhs, get_cvalue (stmt.return_expression));
+ }
+
+ if (current_method != null) {
+ // check postconditions
+ foreach (Expression postcondition in current_method.get_postconditions ()) {
+ create_postcondition_statement (postcondition);
+ }
+ }
+
+ // free local variables
+ append_local_free (current_symbol);
+
+ if (current_method != null && !current_method.coroutine) {
+ // assign values to output parameters if they are not NULL
+ // otherwise, free the value if necessary
+ foreach (var param in current_method.get_parameters ()) {
+ if (param.direction != ParameterDirection.OUT) {
+ continue;
+ }
+
+ return_out_parameter (param);
+ }
+ }
+
+ // TODO: don't duplicate the code in CCodeMethodModule, we do this right now because it needs to be before return
+ if (current_method != null && current_method.get_attribute ("Profile") != null) {
+ string prefix = "_vala_prof_%s".printf (get_ccode_real_name (current_method));
+
+ var level = new CCodeIdentifier (prefix + "_level");
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeUnaryExpression (CCodeUnaryOperator.PREFIX_DECREMENT, level)));
+
+ var timer = new CCodeIdentifier (prefix + "_timer");
+
+ var stop_call = new CCodeFunctionCall (new CCodeIdentifier ("g_timer_stop"));
+ stop_call.add_argument (timer);
+ ccode.add_expression (stop_call);
+
+ ccode.close ();
+ }
+
+ if (is_in_constructor ()) {
+ ccode.add_return (new CCodeIdentifier ("obj"));
+ } else if (is_in_destructor ()) {
+ // do not call return as member cleanup and chain up to base finalizer
+ // still need to be executed
+ ccode.add_goto ("_return");
+ } else if (is_in_coroutine ()) {
+ } else if (current_method is CreationMethod) {
+ ccode.add_return (new CCodeIdentifier ("self"));
+ } else if (current_return_type is VoidType || current_return_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ ccode.add_return ();
+ } else {
+ ccode.add_return (new CCodeIdentifier ("result"));
+ }
+
+ if (return_expression_symbol != null) {
+ return_expression_symbol.active = true;
+ }
+
+ // required for destructors
+ current_method_return = true;
+ }
+
+ public string get_symbol_lock_name (string symname) {
+ return "__lock_%s".printf (symname.replace ("-", "_"));
+ }
+
+ private CCodeExpression get_lock_expression (Statement stmt, Expression resource) {
+ CCodeExpression l = null;
+ var member = resource.symbol_reference;
+ var parent = (TypeSymbol)resource.symbol_reference.parent_symbol;
+
+ if (member.is_instance_member ()) {
+ l = get_cvalue (((MemberAccess) resource).inner);
+ l = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (l, "priv"), get_symbol_lock_name (get_ccode_name (member)));
+ } else if (member.is_class_member ()) {
+ unowned Class cl = (Class) parent;
+ var cast = get_this_class_cexpression (cl);
+ var get_class_private_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_get_private_function (cl)));
+ get_class_private_call.add_argument (cast);
+ l = new CCodeMemberAccess.pointer (get_class_private_call, get_symbol_lock_name (get_ccode_name (member)));
+ } else {
+ string lock_name = "%s_%s".printf (get_ccode_lower_case_name (parent), get_ccode_name (member));
+ l = new CCodeIdentifier (get_symbol_lock_name (lock_name));
+ }
+ return l;
+ }
+
+ public override void visit_lock_statement (LockStatement stmt) {
+ var l = get_lock_expression (stmt, stmt.resource);
+
+ var fc = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (mutex_type.scope.lookup ("lock"))));
+ fc.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, l));
+
+ ccode.add_expression (fc);
+ }
+
+ public override void visit_unlock_statement (UnlockStatement stmt) {
+ var l = get_lock_expression (stmt, stmt.resource);
+
+ var fc = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (mutex_type.scope.lookup ("unlock"))));
+ fc.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, l));
+
+ ccode.add_expression (fc);
+ }
+
+ public override void visit_delete_statement (DeleteStatement stmt) {
+ unowned DataType type = stmt.expression.value_type;
+ unowned PointerType? pointer_type = type as PointerType;
+ if (pointer_type != null && pointer_type.base_type.type_symbol != null && pointer_type.base_type.type_symbol.is_reference_type ()) {
+ type = pointer_type.base_type;
+ }
+
+ ccode.add_expression (destroy_value (new GLibValue (type, get_cvalue (stmt.expression))));
+ }
+
+ static bool is_compact_class_destructor_call (Expression expr) {
+ unowned Class? cl = expr.value_type.type_symbol as Class;
+ if (cl != null && cl.is_compact && expr.parent_node is MemberAccess) {
+ unowned MethodType? mt = ((MemberAccess) expr.parent_node).value_type as MethodType;
+ if (mt != null && mt.method_symbol != null && mt.method_symbol.get_attribute ("DestroysInstance") != null) {
+ return true;
+ }
+ }
+ return false;
+ }
+
+ public override void visit_expression (Expression expr) {
+ if (get_cvalue (expr) != null && !expr.lvalue) {
+ if (expr.formal_value_type is GenericType && !(expr.value_type is GenericType)) {
+ var type_parameter = ((GenericType) expr.formal_value_type).type_parameter;
+ var st = type_parameter.parent_symbol.parent_symbol as Struct;
+ if (type_parameter.parent_symbol != garray_type &&
+ (st == null || get_ccode_name (st) != "va_list")) {
+ // GArray and va_list don't use pointer-based generics
+ set_cvalue (expr, convert_from_generic_pointer (get_cvalue (expr), expr.value_type));
+ ((GLibValue) expr.target_value).lvalue = false;
+ }
+ }
+
+ // memory management, implicit casts, and boxing/unboxing
+ if (expr.value_type != null) {
+ // FIXME: temporary workaround until the refactoring is complete, not all target_value have a value_type
+ expr.target_value.value_type = expr.value_type;
+ expr.target_value = transform_value (expr.target_value, expr.target_type, expr);
+ }
+
+ if (expr.target_value == null) {
+ return;
+ }
+
+ if (expr.formal_target_type is GenericType && !(expr.target_type is GenericType)) {
+ if (((GenericType) expr.formal_target_type).type_parameter.parent_symbol != garray_type) {
+ // GArray doesn't use pointer-based generics
+ set_cvalue (expr, convert_to_generic_pointer (get_cvalue (expr), expr.target_type));
+ ((GLibValue) expr.target_value).lvalue = false;
+ }
+ }
+
+ // Allow null to initialize non-null struct inside initializer list
+ if (expr is NullLiteral && expr.parent_node is InitializerList
+ && expr.target_type != null && expr.target_type.is_real_non_null_struct_type ()) {
+ var clist = new CCodeInitializerList ();
+ clist.append (new CCodeConstant ("0"));
+ set_cvalue (expr, new CCodeCastExpression (clist, get_ccode_name (expr.target_type.type_symbol)));
+ }
+
+ if (!(expr.value_type is ValueType && !expr.value_type.nullable)) {
+ ((GLibValue) expr.target_value).non_null = expr.is_non_null ();
+ }
+ } else if (expr.value_type != null && is_compact_class_destructor_call (expr)) {
+ // transfer ownership here and consume given instance
+ var temp_value = store_temp_value (expr.target_value, expr);
+ ccode.add_assignment (get_cvalue (expr), new CCodeConstant ("NULL"));
+ expr.target_value = temp_value;
+ }
+ }
+
+ public override void visit_boolean_literal (BooleanLiteral expr) {
+ set_cvalue (expr, get_boolean_cconstant (expr.value));
+ }
+
+ public override void visit_character_literal (CharacterLiteral expr) {
+ if (expr.get_char () >= 0x20 && expr.get_char () < 0x80) {
+ set_cvalue (expr, new CCodeConstant (expr.value));
+ } else {
+ set_cvalue (expr, new CCodeConstant ("%uU".printf (expr.get_char ())));
+ }
+ }
+
+ public override void visit_integer_literal (IntegerLiteral expr) {
+ set_cvalue (expr, new CCodeConstant (expr.value + expr.type_suffix));
+ }
+
+ public override void visit_real_literal (RealLiteral expr) {
+ string c_literal = expr.value;
+ if (c_literal.has_suffix ("d") || c_literal.has_suffix ("D")) {
+ // there is no suffix for double in C
+ c_literal = c_literal.substring (0, c_literal.length - 1);
+ }
+ if (!("." in c_literal || "e" in c_literal || "E" in c_literal)) {
+ // C requires period or exponent part for floating constants
+ if ("f" in c_literal || "F" in c_literal) {
+ c_literal = c_literal.substring (0, c_literal.length - 1) + ".f";
+ } else {
+ c_literal += ".";
+ }
+ }
+ set_cvalue (expr, new CCodeConstant (c_literal));
+ }
+
+ public override void visit_string_literal (StringLiteral expr) {
+ set_cvalue (expr, new CCodeConstant.string (expr.value.replace ("\n", "\\n")));
+
+ if (expr.translate) {
+ // translated string constant
+ var translate = new CCodeFunctionCall (new CCodeIdentifier ("_"));
+ translate.add_argument (get_cvalue (expr));
+ set_cvalue (expr, translate);
+ }
+ }
+
+ public override void visit_regex_literal (RegexLiteral expr) {
+ string[] parts = expr.value.split ("/", 3);
+ string re = parts[2].escape ("");
+ string flags = "0";
+
+ if (parts[1].contains ("i")) {
+ flags += " | G_REGEX_CASELESS";
+ }
+ if (parts[1].contains ("m")) {
+ flags += " | G_REGEX_MULTILINE";
+ }
+ if (parts[1].contains ("s")) {
+ flags += " | G_REGEX_DOTALL";
+ }
+ if (parts[1].contains ("x")) {
+ flags += " | G_REGEX_EXTENDED";
+ }
+
+ var cdecl = new CCodeDeclaration ("GRegex*");
+
+ var cname = "_tmp_regex_%d".printf (next_regex_id);
+ if (this.next_regex_id == 0) {
+ var fun = new CCodeFunction ("_thread_safe_regex_init", "GRegex*");
+ fun.modifiers = CCodeModifiers.STATIC | CCodeModifiers.INLINE;
+ fun.add_parameter (new CCodeParameter ("re", "GRegex**"));
+ fun.add_parameter (new CCodeParameter ("pattern", "const gchar *"));
+ fun.add_parameter (new CCodeParameter ("compile_flags", "GRegexCompileFlags"));
+
+ push_function (fun);
+
+ var once_enter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_enter"));
+ if (context.require_glib_version (2, 68)) {
+ once_enter_call.add_argument (new CCodeConstant ("(gsize*) re"));
+ } else {
+ once_enter_call.add_argument (new CCodeConstant ("(volatile gsize*) re"));
+ }
+ ccode.open_if (once_enter_call);
+
+ var regex_new_call = new CCodeFunctionCall (new CCodeIdentifier ("g_regex_new"));
+ regex_new_call.add_argument (new CCodeConstant ("pattern"));
+ regex_new_call.add_argument (new CCodeConstant ("compile_flags"));
+ regex_new_call.add_argument (new CCodeConstant ("0"));
+ regex_new_call.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_assignment (new CCodeIdentifier ("GRegex* val"), regex_new_call);
+
+ var once_leave_call = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_leave"));
+ if (context.require_glib_version (2, 68)) {
+ once_leave_call.add_argument (new CCodeConstant ("(gsize*) re"));
+ } else {
+ once_leave_call.add_argument (new CCodeConstant ("(volatile gsize*) re"));
+ }
+ once_leave_call.add_argument (new CCodeConstant ("(gsize) val"));
+ ccode.add_expression (once_leave_call);
+
+ ccode.close ();
+
+ ccode.add_return (new CCodeIdentifier ("*re"));
+
+ pop_function ();
+
+ cfile.add_function (fun);
+ }
+ this.next_regex_id++;
+
+ cdecl.add_declarator (new CCodeVariableDeclarator (cname + " = NULL"));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+
+ var regex_const = new CCodeConstant ("_thread_safe_regex_init (&%s, \"%s\", %s)".printf (cname, re, flags));
+
+ cfile.add_constant_declaration (cdecl);
+ set_cvalue (expr, regex_const);
+ }
+
+ public override void visit_null_literal (NullLiteral expr) {
+ if (context.profile == Profile.GOBJECT) {
+ cfile.add_include ("glib.h");
+ } else {
+ cfile.add_include ("stddef.h");
+ }
+ set_cvalue (expr, new CCodeConstant ("NULL"));
+
+ var array_type = expr.target_type as ArrayType;
+ var delegate_type = expr.target_type as DelegateType;
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ append_array_length (expr, new CCodeConstant ("0"));
+ }
+ } else if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ set_delegate_target (expr, new CCodeConstant ("NULL"));
+ set_delegate_target_destroy_notify (expr, new CCodeConstant ("NULL"));
+ }
+ }
+
+ public abstract TargetValue get_local_cvalue (LocalVariable local);
+
+ public abstract TargetValue get_parameter_cvalue (Parameter param);
+
+ public abstract TargetValue get_field_cvalue (Field field, TargetValue? instance);
+
+ public abstract TargetValue load_variable (Variable variable, TargetValue value, Expression? expr = null);
+
+ public abstract TargetValue load_this_parameter (TypeSymbol sym);
+
+ public abstract void store_value (TargetValue lvalue, TargetValue value, SourceReference? source_reference = null);
+
+ public virtual string get_delegate_target_cname (string delegate_cname) {
+ assert_not_reached ();
+ }
+
+ public virtual CCodeExpression get_delegate_target_cexpression (Expression delegate_expr, out CCodeExpression delegate_target_destroy_notify) {
+ assert_not_reached ();
+ }
+
+ public virtual CCodeExpression get_delegate_target_cvalue (TargetValue value) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_delegate_target_destroy_notify_cvalue (TargetValue value) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual string get_delegate_target_destroy_notify_cname (string delegate_cname) {
+ assert_not_reached ();
+ }
+
+ public override void visit_base_access (BaseAccess expr) {
+ unowned Class? cl = expr.value_type.type_symbol as Class;
+ if (cl != null && !cl.is_compact) {
+ set_cvalue (expr, generate_instance_cast (get_this_cexpression (), cl));
+ } else {
+ expr.target_value = load_this_parameter (expr.value_type.type_symbol);
+ }
+ }
+
+ public override void visit_postfix_expression (PostfixExpression expr) {
+ MemberAccess ma = find_property_access (expr.inner);
+ if (ma != null) {
+ // property postfix expression
+ var prop = (Property) ma.symbol_reference;
+
+ // increment/decrement property
+ var op = expr.increment ? CCodeBinaryOperator.PLUS : CCodeBinaryOperator.MINUS;
+ var cexpr = new CCodeBinaryExpression (op, get_cvalue (expr.inner), new CCodeConstant ("1"));
+ store_property (prop, ma.inner, new GLibValue (expr.value_type, cexpr));
+
+ // return previous value
+ expr.target_value = expr.inner.target_value;
+ return;
+ }
+
+ // assign current value to temp variable
+ var temp_value = store_temp_value (expr.inner.target_value, expr);
+
+ // increment/decrement variable
+ var op = expr.increment ? CCodeBinaryOperator.PLUS : CCodeBinaryOperator.MINUS;
+ var cexpr = new CCodeBinaryExpression (op, get_cvalue_ (temp_value), new CCodeConstant ("1"));
+ ccode.add_assignment (get_cvalue (expr.inner), cexpr);
+
+ // return previous value
+ expr.target_value = temp_value;
+ }
+
+ private MemberAccess? find_property_access (Expression expr) {
+ if (!(expr is MemberAccess)) {
+ return null;
+ }
+
+ var ma = (MemberAccess) expr;
+ if (ma.symbol_reference is Property) {
+ return ma;
+ }
+
+ return null;
+ }
+
+ static bool is_limited_generic_type (GenericType type) {
+ unowned Class? cl = type.type_parameter.parent_symbol as Class;
+ unowned Struct? st = type.type_parameter.parent_symbol as Struct;
+ if ((cl != null && cl.is_compact) || st != null) {
+ // compact classes and structs only
+ // have very limited generics support
+ return true;
+ }
+ return false;
+ }
+
+ public static bool requires_copy (DataType type) {
+ if (!type.is_disposable ()) {
+ return false;
+ }
+
+ unowned Class? cl = type.type_symbol as Class;
+ if (cl != null && is_reference_counting (cl)
+ && get_ccode_ref_function (cl) == "") {
+ // empty ref_function => no ref necessary
+ return false;
+ }
+
+ if (type is GenericType) {
+ if (is_limited_generic_type ((GenericType) type)) {
+ return false;
+ }
+ }
+
+ return true;
+ }
+
+ public static bool requires_destroy (DataType type) {
+ if (!type.is_disposable ()) {
+ return false;
+ }
+
+ var array_type = type as ArrayType;
+ if (array_type != null && array_type.fixed_length) {
+ return requires_destroy (array_type.element_type);
+ }
+
+ unowned Class? cl = type.type_symbol as Class;
+ if (cl != null && is_reference_counting (cl)
+ && get_ccode_unref_function (cl) == "") {
+ // empty unref_function => no unref necessary
+ return false;
+ }
+
+ if (type is GenericType) {
+ if (is_limited_generic_type ((GenericType) type)) {
+ return false;
+ }
+ }
+
+ return true;
+ }
+
+ public virtual TargetValue? copy_value (TargetValue value, CodeNode node) {
+ var type = value.value_type;
+ var cexpr = get_cvalue_ (value);
+ var result = ((GLibValue) value).copy ();
+
+ if (type is DelegateType) {
+ var delegate_type = (DelegateType) type;
+ if (get_ccode_delegate_target (node) && delegate_type.delegate_symbol.has_target && !context.deprecated) {
+ Report.deprecated (node.source_reference, "copying delegates is not supported");
+ }
+ result.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ return result;
+ }
+
+ if (type is ValueType && !type.nullable) {
+ // normal value type, no null check
+
+ // use temp-var for upcoming address-of operator
+ var temp_cvalue = create_temp_value (type, false, node);
+ store_value (temp_cvalue, value, node.source_reference);
+ cexpr = get_cvalue_ (temp_cvalue);
+
+ var temp_value = create_temp_value (type, true, node, true);
+ var ctemp = get_cvalue_ (temp_value);
+
+ var vt = (ValueType) type;
+ var st = (Struct) vt.type_symbol;
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_copy_function (st)));
+ copy_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr));
+ copy_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ctemp));
+
+ if (!get_ccode_has_copy_function (st)) {
+ generate_struct_copy_function (st);
+ }
+
+ if (gvalue_type != null && type.type_symbol == gvalue_type) {
+ var cisvalid = new CCodeFunctionCall (new CCodeIdentifier ("G_IS_VALUE"));
+ cisvalid.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr));
+
+ ccode.open_if (cisvalid);
+
+ // GValue requires g_value_init in addition to g_value_copy
+ var value_type_call = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE"));
+ value_type_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr));
+
+ var init_call = new CCodeFunctionCall (new CCodeIdentifier ("g_value_init"));
+ init_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ctemp));
+ init_call.add_argument (value_type_call);
+ ccode.add_expression (init_call);
+ ccode.add_expression (copy_call);
+
+ ccode.add_else ();
+
+ // g_value_init/copy must not be called for uninitialized values
+ store_value (temp_value, temp_cvalue, node.source_reference);
+ ccode.close ();
+ } else {
+ ccode.add_expression (copy_call);
+ }
+
+ return temp_value;
+ }
+
+ /* (temp = expr, temp == NULL ? NULL : ref (temp))
+ *
+ * can be simplified to
+ * ref (expr)
+ * if static type of expr is non-null
+ */
+
+ var dupexpr = get_dup_func_expression (type, node.source_reference);
+
+ if (dupexpr == null) {
+ node.error = true;
+ return null;
+ }
+
+ if (dupexpr is CCodeIdentifier && !(type is ArrayType) && !(type is GenericType) && !is_ref_function_void (type)) {
+ // generate and call NULL-aware ref function to reduce number
+ // of temporary variables and simplify code
+
+ var dupid = (CCodeIdentifier) dupexpr;
+ string dup0_func = "_%s0".printf (dupid.name);
+
+ // g_strdup is already NULL-safe
+ if (dupid.name == "g_strdup") {
+ dup0_func = dupid.name;
+ } else if (add_wrapper (dup0_func)) {
+ var dup0_fun = new CCodeFunction (dup0_func, get_ccode_name (pointer_type));
+ dup0_fun.add_parameter (new CCodeParameter ("self", get_ccode_name (pointer_type)));
+ dup0_fun.modifiers = CCodeModifiers.STATIC;
+
+ push_function (dup0_fun);
+
+ var dup_call = new CCodeFunctionCall (dupexpr);
+ dup_call.add_argument (new CCodeIdentifier ("self"));
+
+ ccode.add_return (new CCodeConditionalExpression (new CCodeIdentifier ("self"), dup_call, new CCodeConstant ("NULL")));
+
+ pop_function ();
+
+ cfile.add_function (dup0_fun);
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (dup0_func));
+ ccall.add_argument (cexpr);
+ result.cvalue = ccall;
+ result.value_type.value_owned = true;
+ return store_temp_value (result, node);
+ }
+
+ var ccall = new CCodeFunctionCall (dupexpr);
+
+ if (!(type is ArrayType) && get_non_null (value) && !is_ref_function_void (type)) {
+ // expression is non-null
+ ccall.add_argument (cexpr);
+
+ return store_temp_value (new GLibValue (type, ccall), node);
+ } else {
+ CCodeExpression ccallarg;
+ if (node is SliceExpression) {
+ ccallarg = cexpr;
+ cexpr = get_cvalue (((SliceExpression) node).container);
+ } else {
+ ccallarg = cexpr;
+ }
+ var cnotnull = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, cexpr, new CCodeConstant ("NULL"));
+ if (type is GenericType) {
+ // dup functions are optional for type parameters
+ var cdupnotnull = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, get_dup_func_expression (type, node.source_reference), new CCodeConstant ("NULL"));
+ cnotnull = new CCodeBinaryExpression (CCodeBinaryOperator.AND, cnotnull, cdupnotnull);
+ }
+
+ if (type is GenericType) {
+ // cast from gconstpointer to gpointer as GBoxedCopyFunc expects gpointer
+ ccall.add_argument (new CCodeCastExpression (ccallarg, get_ccode_name (pointer_type)));
+ } else {
+ ccall.add_argument (ccallarg);
+ }
+
+ if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+ ccall.add_argument (get_array_length_cvalue (value));
+
+ if (array_type.element_type is GenericType) {
+ var elem_dupexpr = get_dup_func_expression (array_type.element_type, node.source_reference);
+ if (elem_dupexpr == null) {
+ elem_dupexpr = new CCodeConstant ("NULL");
+ }
+ ccall.add_argument (elem_dupexpr);
+ }
+ }
+
+ CCodeExpression cifnull;
+ if (type is GenericType) {
+ // the value might be non-null even when the dup function is null,
+ // so we may not just use NULL for type parameters
+
+ // cast from gconstpointer to gpointer as methods in
+ // generic classes may not return gconstpointer
+ cifnull = new CCodeCastExpression (cexpr, get_ccode_name (pointer_type));
+ } else if (type.type_symbol != null) {
+ cifnull = new CCodeConstant ("NULL");
+ } else {
+ cifnull = cexpr;
+ }
+
+ if (is_ref_function_void (type)) {
+ ccode.open_if (cnotnull);
+ ccode.add_expression (ccall);
+ ccode.close ();
+ } else {
+ if (get_non_null (value)) {
+ result.cvalue = ccall;
+ } else {
+ var ccond = new CCodeConditionalExpression (cnotnull, ccall, cifnull);
+ result.cvalue = ccond;
+ }
+ result = (GLibValue) store_temp_value (result, node, true);
+ }
+ return result;
+ }
+ }
+
+ public virtual void generate_class_declaration (Class cl, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, cl, get_ccode_name (cl))) {
+ return;
+ }
+ }
+
+ public virtual void generate_interface_declaration (Interface iface, CCodeFile decl_space) {
+ }
+
+ public virtual bool generate_method_declaration (Method m, CCodeFile decl_space) {
+ return false;
+ }
+
+ public virtual void generate_error_domain_declaration (ErrorDomain edomain, CCodeFile decl_space) {
+ }
+
+ public void add_generic_type_arguments (Method m, Map<int,CCodeExpression> arg_map, List<DataType> type_args, CodeNode expr, bool is_chainup = false, List<TypeParameter>? type_parameters = null) {
+ int type_param_index = 0;
+ foreach (var type_arg in type_args) {
+ if (get_ccode_simple_generics (m)) {
+ if (requires_copy (type_arg)) {
+ arg_map.set (get_param_pos (-1 + 0.1 * type_param_index + 0.03), get_destroy0_func_expression (type_arg, is_chainup));
+ } else {
+ arg_map.set (get_param_pos (-1 + 0.1 * type_param_index + 0.03), new CCodeConstant ("NULL"));
+ }
+ type_param_index++;
+ continue;
+ }
+
+ if (type_parameters != null) {
+ var type_param_name = type_parameters.get (type_param_index).name.ascii_down ().replace ("_", "-");
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.01), new CCodeConstant ("\"%s-type\"".printf (type_param_name)));
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.03), new CCodeConstant ("\"%s-dup-func\"".printf (type_param_name)));
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.05), new CCodeConstant ("\"%s-destroy-func\"".printf (type_param_name)));
+ }
+
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.02), get_type_id_expression (type_arg, is_chainup));
+ if (requires_copy (type_arg)) {
+ var dup_func = get_dup_func_expression (type_arg, type_arg.source_reference ?? expr.source_reference, is_chainup);
+ if (dup_func == null) {
+ // type doesn't contain a copy function
+ expr.error = true;
+ return;
+ }
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.04), new CCodeCastExpression (dup_func, "GBoxedCopyFunc"));
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.06), new CCodeCastExpression (get_destroy_func_expression (type_arg, is_chainup), "GDestroyNotify"));
+ } else {
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.04), new CCodeConstant ("NULL"));
+ arg_map.set (get_param_pos (0.1 * type_param_index + 0.06), new CCodeConstant ("NULL"));
+ }
+ type_param_index++;
+ }
+ }
+
+ public override void visit_object_creation_expression (ObjectCreationExpression expr) {
+ CCodeExpression instance = null;
+ CCodeExpression creation_expr = null;
+
+ unowned Struct? st = expr.type_reference.type_symbol as Struct;
+ if ((st != null && (!st.is_simple_type () || get_ccode_name (st) == "va_list")) || expr.get_object_initializer ().size > 0) {
+ // value-type initialization or object creation expression with object initializer
+
+ var local = expr.parent_node as LocalVariable;
+ var field = expr.parent_node as Field;
+ var a = expr.parent_node as Assignment;
+ if (local != null && is_simple_struct_creation (local, local.initializer)) {
+ instance = get_cvalue_ (get_local_cvalue (local));
+ } else if (field != null && is_simple_struct_creation (field, field.initializer)) {
+ // field initialization
+ var thisparam = load_this_parameter ((TypeSymbol) field.parent_symbol);
+ instance = get_cvalue_ (get_field_cvalue (field, thisparam));
+ } else if (a != null && a.left.symbol_reference is Variable && is_simple_struct_creation ((Variable) a.left.symbol_reference, a.right)) {
+ if (requires_destroy (a.left.value_type)) {
+ /* unref old value */
+ ccode.add_expression (destroy_value (a.left.target_value));
+ }
+
+ local = a.left.symbol_reference as LocalVariable;
+ field = a.left.symbol_reference as Field;
+ var param = a.left.symbol_reference as Parameter;
+ if (local != null) {
+ instance = get_cvalue_ (get_local_cvalue (local));
+ } else if (field != null) {
+ var inner = ((MemberAccess) a.left).inner;
+ instance = get_cvalue_ (get_field_cvalue (field, inner != null ? inner.target_value : null));
+ } else if (param != null) {
+ instance = get_cvalue_ (get_parameter_cvalue (param));
+ }
+ } else if (expr.is_chainup) {
+ instance = get_this_cexpression ();
+ } else {
+ var temp_value = create_temp_value (expr.type_reference, true, expr);
+ instance = get_cvalue_ (temp_value);
+ }
+ }
+
+ if (expr.symbol_reference == null) {
+ // no creation method
+ if (expr.type_reference.type_symbol is Struct) {
+ // memset needs string.h
+ cfile.add_include ("string.h");
+ var creation_call = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ creation_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, instance));
+ creation_call.add_argument (new CCodeConstant ("0"));
+ creation_call.add_argument (new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (expr.type_reference))));
+
+ creation_expr = creation_call;
+ }
+ } else if (expr.type_reference.type_symbol == glist_type ||
+ expr.type_reference.type_symbol == gslist_type) {
+ // NULL is an empty list
+ set_cvalue (expr, new CCodeConstant ("NULL"));
+ } else if (expr.symbol_reference is Method) {
+ // use creation method
+ var m = (Method) expr.symbol_reference;
+ var params = m.get_parameters ();
+ CCodeFunctionCall creation_call;
+
+ CCodeFunctionCall async_call = null;
+ CCodeFunctionCall finish_call = null;
+
+ generate_method_declaration (m, cfile);
+
+ if (m is CreationMethod && !m.external && m.external_package) {
+ unowned CreationMethod cm = (CreationMethod) m;
+ if (!cm.chain_up) {
+ Report.error (cm.source_reference, "internal: Creation method implementation in binding must be chained up");
+ }
+ // internal VAPI creation methods
+ // only add them once per source file
+ if (add_generated_external_symbol (cm)) {
+ visit_creation_method (cm);
+ }
+ }
+
+ unowned Class? cl = expr.type_reference.type_symbol as Class;
+
+ if (!get_ccode_has_new_function (m)) {
+ // use construct function directly
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (m)));
+ creation_call.add_argument (new CCodeIdentifier (get_ccode_type_id (cl)));
+ } else {
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (m)));
+ }
+
+ if ((st != null && !st.is_simple_type ()) && !(get_ccode_instance_pos (m) < 0)) {
+ if (expr.is_chainup) {
+ creation_call.add_argument (instance);
+ } else {
+ creation_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, instance));
+ }
+ } else if (st != null && get_ccode_name (st) == "va_list") {
+ creation_call.add_argument (instance);
+ if (get_ccode_name (m) == "va_start") {
+ unowned Class? parent = current_method.parent_symbol as Class;
+ if (in_creation_method && parent != null && !parent.is_compact) {
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier ("va_copy"));
+ creation_call.add_argument (instance);
+ creation_call.add_argument (new CCodeIdentifier ("_vala_va_list"));
+ } else {
+ Parameter last_param = null;
+ // FIXME: this doesn't take into account exception handling parameters
+ foreach (var param in current_method.get_parameters ()) {
+ if (param.ellipsis || param.params_array) {
+ break;
+ }
+ last_param = param;
+ }
+ int nParams = ccode.get_parameter_count ();
+ if (nParams == 0 || !ccode.get_parameter (nParams - 1).ellipsis) {
+ Report.error (expr.source_reference, "`va_list' used in method with fixed args");
+ } else if (nParams == 1) {
+ Report.error (expr.source_reference, "`va_list' used in method without parameter");
+ } else {
+ creation_call.add_argument (new CCodeIdentifier (ccode.get_parameter (nParams - 2).name));
+ }
+ }
+ }
+ }
+
+ generate_type_declaration (expr.type_reference, cfile);
+
+ var in_arg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ var out_arg_map = in_arg_map;
+
+ if (m != null && m.coroutine) {
+ // async call
+
+ async_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (m)));
+ finish_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_finish_name (m)));
+
+ creation_call = finish_call;
+
+ // output arguments used separately
+ out_arg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ // pass GAsyncResult stored in closure to finish function
+ out_arg_map.set (get_param_pos (get_ccode_async_result_pos (m)), new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_res_"));
+ }
+
+ if (cl != null && (!cl.is_compact || get_ccode_simple_generics (m))) {
+ add_generic_type_arguments (m, in_arg_map, expr.type_reference.get_type_arguments (), expr);
+ }
+
+ bool ellipsis = false;
+
+ int i = 1;
+ int arg_pos;
+ Iterator<Parameter> params_it = params.iterator ();
+ foreach (Expression arg in expr.get_argument_list ()) {
+ CCodeExpression cexpr = get_cvalue (arg);
+
+ var carg_map = in_arg_map;
+
+ Parameter param = null;
+ if (params_it.next ()) {
+ param = params_it.get ();
+ ellipsis = param.ellipsis || param.params_array;
+ if (!ellipsis) {
+ if (param.direction == ParameterDirection.OUT) {
+ carg_map = out_arg_map;
+ }
+
+ if (get_ccode_array_length (param) && param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), get_array_length_cexpression (arg, dim));
+ }
+ } else if (get_ccode_delegate_target (param) && param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+ var d = deleg_type.delegate_symbol;
+ if (d.has_target) {
+ CCodeExpression delegate_target_destroy_notify;
+ var delegate_target = get_delegate_target_cexpression (arg, out delegate_target_destroy_notify);
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), delegate_target);
+ if (deleg_type.is_disposable ()) {
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), delegate_target_destroy_notify);
+ }
+ }
+ }
+
+ cexpr = handle_struct_argument (param, arg, cexpr);
+
+ if (get_ccode_type (param) != null) {
+ cexpr = new CCodeCastExpression (cexpr, get_ccode_type (param));
+ }
+ } else {
+ cexpr = handle_struct_argument (null, arg, cexpr);
+ }
+
+ arg_pos = get_param_pos (get_ccode_pos (param), ellipsis);
+ } else {
+ // default argument position
+ cexpr = handle_struct_argument (null, arg, cexpr);
+ arg_pos = get_param_pos (i, ellipsis);
+ }
+
+ carg_map.set (arg_pos, cexpr);
+
+ i++;
+ }
+ if (params_it.next ()) {
+ var param = params_it.get ();
+
+ /* if there are more parameters than arguments,
+ * the additional parameter is an ellipsis parameter
+ * otherwise there is a bug in the semantic analyzer
+ */
+ assert (param.params_array || param.ellipsis);
+ ellipsis = true;
+ }
+
+ if (expr.tree_can_fail) {
+ // method can fail
+ current_method_inner_error = true;
+ // add &inner_error before the ellipsis arguments
+ out_arg_map.set (get_param_pos (-1), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+ }
+
+ if (ellipsis) {
+ /* ensure variable argument list ends with NULL
+ * except when using printf-style arguments */
+ if (m == null) {
+ in_arg_map.set (get_param_pos (-1, true), new CCodeConstant ("NULL"));
+ } else if (!m.printf_format && !m.scanf_format && get_ccode_sentinel (m) != "") {
+ in_arg_map.set (get_param_pos (-1, true), new CCodeConstant (get_ccode_sentinel (m)));
+ }
+ }
+
+ if ((st != null && !st.is_simple_type ()) && get_ccode_instance_pos (m) < 0) {
+ // instance parameter is at the end in a struct creation method
+ out_arg_map.set (get_param_pos (-3), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, instance));
+ }
+
+ if (m != null && m.coroutine) {
+ if (expr.is_yield_expression) {
+ // asynchronous call
+ in_arg_map.set (get_param_pos (-1), new CCodeIdentifier (generate_ready_function (current_method)));
+ in_arg_map.set (get_param_pos (-0.9), new CCodeIdentifier ("_data_"));
+ }
+ }
+
+ if (m != null && m.coroutine && m.parent_symbol is Class) {
+ if (get_ccode_finish_instance (m)) {
+ var tmp = new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_source_object_");
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), tmp);
+ }
+ }
+
+ // append C arguments in the right order
+
+ int last_pos;
+ int min_pos;
+
+ if (async_call != creation_call) {
+ // don't append out arguments for .begin() calls
+ last_pos = -1;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in out_arg_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ creation_call.add_argument (out_arg_map.get (min_pos));
+ last_pos = min_pos;
+ }
+ }
+
+ if (async_call != null) {
+ last_pos = -1;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in in_arg_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ async_call.add_argument (in_arg_map.get (min_pos));
+ last_pos = min_pos;
+ }
+ }
+
+ if (expr.is_yield_expression) {
+ // set state before calling async function to support immediate callbacks
+ int state = emit_context.next_coroutine_state++;
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_state_"), new CCodeConstant (state.to_string ()));
+ ccode.add_expression (async_call);
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ ccode.add_label ("_state_%d".printf (state));
+ }
+
+ creation_expr = creation_call;
+
+ // cast the return value of the creation method back to the intended type if
+ // it requested a special C return type
+ if (get_ccode_type (m) != null) {
+ creation_expr = new CCodeCastExpression (creation_expr, get_ccode_name (expr.type_reference));
+ }
+ } else if (expr.symbol_reference is ErrorCode) {
+ var ecode = (ErrorCode) expr.symbol_reference;
+ var edomain = (ErrorDomain) ecode.parent_symbol;
+ CCodeFunctionCall creation_call;
+
+ generate_error_domain_declaration (edomain, cfile);
+
+ if (expr.get_argument_list ().size == 1) {
+ // must not be a format argument
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier ("g_error_new_literal"));
+ } else {
+ creation_call = new CCodeFunctionCall (new CCodeIdentifier ("g_error_new"));
+ }
+ creation_call.add_argument (new CCodeIdentifier (get_ccode_upper_case_name (edomain)));
+ creation_call.add_argument (new CCodeIdentifier (get_ccode_name (ecode)));
+
+ foreach (Expression arg in expr.get_argument_list ()) {
+ creation_call.add_argument (get_cvalue (arg));
+ }
+
+ creation_expr = creation_call;
+ } else {
+ assert (false);
+ }
+
+ var local = expr.parent_node as LocalVariable;
+ if (local != null && is_simple_struct_creation (local, local.initializer)) {
+ // no temporary variable necessary
+ ccode.add_expression (creation_expr);
+ set_cvalue (expr, instance);
+ } else if (instance != null) {
+ if (expr.type_reference.type_symbol is Struct) {
+ ccode.add_expression (creation_expr);
+ } else {
+ ccode.add_assignment (instance, creation_expr);
+ }
+
+ foreach (MemberInitializer init in expr.get_object_initializer ()) {
+ if (init.symbol_reference is Field) {
+ var f = (Field) init.symbol_reference;
+ var instance_target_type = SemanticAnalyzer.get_data_type_for_symbol ((TypeSymbol) f.parent_symbol);
+ var typed_inst = transform_value (new GLibValue (expr.type_reference, instance, true), instance_target_type, init);
+ store_field (f, typed_inst, init.initializer.target_value, init.source_reference);
+
+ var cl = f.parent_symbol as Class;
+ if (cl != null) {
+ generate_class_struct_declaration (cl, cfile);
+ }
+ } else if (init.symbol_reference is Property) {
+ var p = (Property) init.symbol_reference;
+ if (p.base_property != null) {
+ p = p.base_property;
+ } else if (p.base_interface_property != null) {
+ p = p.base_interface_property;
+ }
+ var instance_target_type = SemanticAnalyzer.get_data_type_for_symbol ((TypeSymbol) p.parent_symbol);
+ var typed_inst = transform_value (new GLibValue (expr.type_reference, instance), instance_target_type, init);
+ var inst_ma = new MemberAccess.simple ("fake");
+ inst_ma.target_value = typed_inst;
+ store_property (p, inst_ma, init.initializer.target_value);
+ // FIXME Do not ref/copy in the first place
+ if (!p.set_accessor.value_type.value_owned && requires_destroy (init.initializer.target_value.value_type)) {
+ ccode.add_expression (destroy_value (init.initializer.target_value));
+ }
+ } else {
+ Report.error (init.source_reference, "internal: Unsupported symbol");
+ }
+ }
+
+ set_cvalue (expr, instance);
+ } else if (creation_expr != null) {
+ var temp_value = create_temp_value (expr.value_type, false, expr);
+ ccode.add_assignment (get_cvalue_ (temp_value), creation_expr);
+ expr.target_value = temp_value;
+
+ unowned Class? cl = expr.type_reference.type_symbol as Class;
+ if (context.gobject_tracing) {
+ // GObject creation tracing enabled
+
+ if (cl != null && cl.is_subtype_of (gobject_type)) {
+ // creating GObject
+
+ // instance can be NULL in error cases
+ ccode.open_if (get_cvalue_ (expr.target_value));
+
+ var set_data_call = new CCodeFunctionCall (new CCodeIdentifier ("g_object_set_data"));
+ set_data_call.add_argument (new CCodeCastExpression (get_cvalue_ (expr.target_value), "GObject *"));
+ set_data_call.add_argument (new CCodeConstant ("\"vala-creation-function\""));
+
+ string func_name = "";
+ if (current_method != null) {
+ func_name = current_method.get_full_name ();
+ } else if (current_property_accessor != null) {
+ func_name = current_property_accessor.get_full_name ();
+ }
+
+ set_data_call.add_argument (new CCodeConstant ("\"%s\"".printf (func_name)));
+
+ ccode.add_expression (set_data_call);
+
+ ccode.close ();
+ }
+ }
+
+ // create a special GDestroyNotify for created GArray and set with g_array_set_clear_func (since glib 2.32)
+ if (cl != null && cl == garray_type) {
+ var type_arg = expr.type_reference.get_type_arguments ().get (0);
+ if (requires_destroy (type_arg)) {
+ var clear_func = new CCodeFunctionCall (new CCodeIdentifier ("g_array_set_clear_func"));
+ clear_func.add_argument (get_cvalue_ (expr.target_value));
+ string destroy_func;
+ if (type_arg.is_non_null_simple_type () || type_arg.is_real_non_null_struct_type ()) {
+ destroy_func = get_ccode_destroy_function (type_arg.type_symbol);
+ } else {
+ destroy_func = generate_destroy_function_content_of_wrapper (type_arg);
+ }
+ clear_func.add_argument (new CCodeCastExpression (new CCodeIdentifier (destroy_func), "GDestroyNotify"));
+ ccode.add_expression (clear_func);
+ }
+ }
+ }
+
+ ((GLibValue) expr.target_value).lvalue = true;
+ }
+
+ public CCodeExpression? handle_struct_argument (Parameter? param, Expression arg, CCodeExpression? cexpr) {
+ DataType type;
+ if (param != null) {
+ type = param.variable_type;
+ } else {
+ // varargs
+ type = arg.value_type;
+ }
+
+ var unary = arg as UnaryExpression;
+ // pass non-simple struct instances always by reference
+ if (!(arg.value_type is NullType) && type.is_real_struct_type ()) {
+ // we already use a reference for arguments of ref, out, and nullable parameters
+ if (!(unary != null && (unary.operator == UnaryOperator.OUT || unary.operator == UnaryOperator.REF)) && !type.nullable) {
+ if (cexpr is CCodeIdentifier || cexpr is CCodeMemberAccess) {
+ return new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr);
+ } else {
+ // if cexpr is e.g. a function call, we can't take the address of the expression
+ var temp_value = create_temp_value (type, false, arg);
+ ccode.add_assignment (get_cvalue_ (temp_value), cexpr);
+ return new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (temp_value));
+ }
+ }
+ }
+
+ return cexpr;
+ }
+
+ public override void visit_sizeof_expression (SizeofExpression expr) {
+ generate_type_declaration (expr.type_reference, cfile);
+
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (expr.type_reference)));
+ set_cvalue (expr, csizeof);
+ }
+
+ public override void visit_typeof_expression (TypeofExpression expr) {
+ cfile.add_include ("glib-object.h");
+
+ set_cvalue (expr, get_type_id_expression (expr.type_reference));
+ }
+
+ public override void visit_unary_expression (UnaryExpression expr) {
+ if (expr.operator == UnaryOperator.REF || expr.operator == UnaryOperator.OUT) {
+ var glib_value = (GLibValue) expr.inner.target_value;
+
+ var ref_value = new GLibValue (glib_value.value_type);
+ if (expr.target_type != null && glib_value.value_type.is_real_struct_type () && glib_value.value_type.nullable != expr.target_type.nullable) {
+ // the only possibility is that value_type is nullable and target_type is non-nullable
+ ref_value.cvalue = glib_value.cvalue;
+ } else {
+ ref_value.cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, glib_value.cvalue);
+ }
+
+ if (glib_value.array_length_cvalues != null) {
+ for (int i = 0; i < glib_value.array_length_cvalues.size; i++) {
+ ref_value.append_array_length_cvalue (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, glib_value.array_length_cvalues[i]));
+ }
+ }
+
+ if (glib_value.delegate_target_cvalue != null) {
+ ref_value.delegate_target_cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, glib_value.delegate_target_cvalue);
+ }
+ if (glib_value.delegate_target_destroy_notify_cvalue != null) {
+ ref_value.delegate_target_destroy_notify_cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, glib_value.delegate_target_destroy_notify_cvalue);
+ }
+
+ expr.target_value = ref_value;
+ return;
+ }
+
+ if (expr.operator == UnaryOperator.INCREMENT || expr.operator == UnaryOperator.DECREMENT) {
+ // increment/decrement variable
+ var op = expr.operator == UnaryOperator.INCREMENT ? CCodeBinaryOperator.PLUS : CCodeBinaryOperator.MINUS;
+ var cexpr = new CCodeBinaryExpression (op, get_cvalue_ (expr.inner.target_value), new CCodeConstant ("1"));
+ ccode.add_assignment (get_cvalue (expr.inner), cexpr);
+
+ // assign new value to temp variable
+ var temp_value = store_temp_value (expr.inner.target_value, expr);
+
+ MemberAccess ma = find_property_access (expr.inner);
+ if (ma != null) {
+ // property postfix expression
+ var prop = (Property) ma.symbol_reference;
+
+ store_property (prop, ma.inner, temp_value);
+ }
+
+ // return new value
+ expr.target_value = temp_value;
+ return;
+ }
+
+ CCodeUnaryOperator op;
+ switch (expr.operator) {
+ case UnaryOperator.PLUS:
+ op = CCodeUnaryOperator.PLUS;
+ break;
+ case UnaryOperator.MINUS:
+ op = CCodeUnaryOperator.MINUS;
+ break;
+ case UnaryOperator.LOGICAL_NEGATION:
+ op = CCodeUnaryOperator.LOGICAL_NEGATION;
+ break;
+ case UnaryOperator.BITWISE_COMPLEMENT:
+ op = CCodeUnaryOperator.BITWISE_COMPLEMENT;
+ break;
+ case UnaryOperator.INCREMENT:
+ op = CCodeUnaryOperator.PREFIX_INCREMENT;
+ break;
+ case UnaryOperator.DECREMENT:
+ op = CCodeUnaryOperator.PREFIX_DECREMENT;
+ break;
+ default:
+ assert_not_reached ();
+ }
+ set_cvalue (expr, new CCodeUnaryExpression (op, get_cvalue (expr.inner)));
+ }
+
+ public virtual CCodeExpression? deserialize_expression (DataType type, CCodeExpression variant_expr, CCodeExpression? expr, CCodeExpression? error_expr = null, out bool may_fail = null) {
+ assert_not_reached ();
+ }
+
+ public virtual CCodeExpression? serialize_expression (DataType type, CCodeExpression expr) {
+ assert_not_reached ();
+ }
+
+ public override void visit_cast_expression (CastExpression expr) {
+ if (expr.is_silent_cast) {
+ set_cvalue (expr, new CCodeInvalidExpression ());
+ expr.error = true;
+ Report.error (expr.source_reference, "Operation not supported for this type");
+ return;
+ }
+
+ generate_type_declaration (expr.type_reference, cfile);
+
+ // recompute array length when casting to other array type
+ var array_type = expr.type_reference as ArrayType;
+ if (array_type != null && expr.inner.value_type is ArrayType) {
+ if (array_type.element_type is GenericType || ((ArrayType) expr.inner.value_type).element_type is GenericType) {
+ // element size unknown for generic arrays, retain array length as is
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ append_array_length (expr, get_array_length_cexpression (expr.inner, dim));
+ }
+ } else {
+ var sizeof_to = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_to.add_argument (new CCodeConstant (get_ccode_name (array_type.element_type)));
+
+ var sizeof_from = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_from.add_argument (new CCodeConstant (get_ccode_name (((ArrayType) expr.inner.value_type).element_type)));
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ append_array_length (expr, new CCodeBinaryExpression (CCodeBinaryOperator.DIV, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, get_array_length_cexpression (expr.inner, dim), sizeof_from), sizeof_to));
+ }
+ }
+ } else if (array_type != null) {
+ CCodeExpression array_length_expr;
+
+ var sizeof_to = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_to.add_argument (new CCodeConstant (get_ccode_name (array_type.element_type)));
+ var sizeof_from = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+
+ var value_type = expr.inner.value_type;
+ if (value_type is ValueType) {
+ sizeof_from.add_argument (new CCodeConstant (get_ccode_name (value_type.type_symbol)));
+ array_length_expr = new CCodeBinaryExpression (CCodeBinaryOperator.DIV, sizeof_from, sizeof_to);
+ } else if (value_type is PointerType && ((PointerType) value_type).base_type is ValueType) {
+ sizeof_from.add_argument (new CCodeConstant (get_ccode_name (((PointerType) value_type).base_type.type_symbol)));
+ array_length_expr = new CCodeBinaryExpression (CCodeBinaryOperator.DIV, sizeof_from, sizeof_to);
+ } else {
+ // cast from unsupported non-array to array, set invalid length
+ // required by string.data, e.g.
+ array_length_expr = new CCodeConstant ("-1");
+ }
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ append_array_length (expr, array_length_expr);
+ }
+ }
+
+ var innercexpr = get_cvalue (expr.inner);
+ if (expr.type_reference is ValueType && !expr.type_reference.nullable &&
+ expr.inner.value_type is ValueType && expr.inner.value_type.nullable) {
+ // handle nested cast expressions
+ unowned Expression? inner_expr = expr.inner;
+ while (inner_expr is CastExpression) {
+ inner_expr = ((CastExpression) inner_expr).inner;
+ }
+ if (inner_expr.value_type.value_owned
+ && !(inner_expr.symbol_reference is Variable || inner_expr is ElementAccess)) {
+ // heap allocated struct leaked, destroy it
+ var value = new GLibValue (new PointerType (new VoidType ()), innercexpr);
+ temp_ref_values.insert (0, value);
+ }
+ // nullable integer or float or boolean or struct or enum cast to non-nullable
+ innercexpr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, innercexpr);
+ } else if (expr.type_reference is ValueType && expr.type_reference.nullable &&
+ expr.inner.value_type.is_real_non_null_struct_type ()) {
+ // real non-null struct cast to nullable
+ innercexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, innercexpr);
+ } else if (expr.type_reference is ArrayType && !(expr.inner is Literal)
+ && expr.inner.value_type is ValueType && !expr.inner.value_type.nullable) {
+ // integer or float or boolean or struct or enum to array cast
+ innercexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, innercexpr);
+ }
+ set_cvalue (expr, new CCodeCastExpression (innercexpr, get_ccode_name (expr.type_reference)));
+ //TODO Use get_non_null (expr.inner.target_value)
+ ((GLibValue) expr.target_value).non_null = expr.is_non_null ();
+
+ if (expr.type_reference is DelegateType) {
+ var target = get_delegate_target (expr.inner);
+ if (target != null) {
+ set_delegate_target (expr, target);
+ } else {
+ set_delegate_target (expr, new CCodeConstant ("NULL"));
+ }
+ var target_destroy_notify = get_delegate_target_destroy_notify (expr.inner);
+ if (target_destroy_notify != null) {
+ set_delegate_target_destroy_notify (expr, target_destroy_notify);
+ } else {
+ set_delegate_target_destroy_notify (expr, new CCodeConstant ("NULL"));
+ }
+ }
+ }
+
+ public override void visit_named_argument (NamedArgument expr) {
+ set_cvalue (expr, get_cvalue (expr.inner));
+ }
+
+ public override void visit_pointer_indirection (PointerIndirection expr) {
+ set_cvalue (expr, new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_cvalue (expr.inner)));
+ ((GLibValue) expr.target_value).lvalue = get_lvalue (expr.inner.target_value);
+ }
+
+ public override void visit_addressof_expression (AddressofExpression expr) {
+ set_cvalue (expr, new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (expr.inner)));
+ }
+
+ public override void visit_reference_transfer_expression (ReferenceTransferExpression expr) {
+ /* tmp = expr.inner; expr.inner = NULL; expr = tmp; */
+ expr.target_value = store_temp_value (expr.inner.target_value, expr);
+
+ if (expr.inner.value_type is StructValueType && !expr.inner.value_type.nullable) {
+ // memset needs string.h
+ cfile.add_include ("string.h");
+ var creation_call = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ creation_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (expr.inner)));
+ creation_call.add_argument (new CCodeConstant ("0"));
+ creation_call.add_argument (new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (expr.inner.value_type))));
+ ccode.add_expression (creation_call);
+ } else if (expr.value_type is DelegateType) {
+ ccode.add_assignment (get_cvalue (expr.inner), new CCodeConstant ("NULL"));
+ var target = get_delegate_target_cvalue (expr.inner.target_value);
+ if (target != null) {
+ ccode.add_assignment (target, new CCodeConstant ("NULL"));
+ }
+ var target_destroy_notify = get_delegate_target_destroy_notify_cvalue (expr.inner.target_value);
+ if (target_destroy_notify != null) {
+ ccode.add_assignment (target_destroy_notify, new CCodeConstant ("NULL"));
+ }
+ } else if (expr.inner.value_type is ArrayType) {
+ var array_type = (ArrayType) expr.inner.value_type;
+ var glib_value = (GLibValue) expr.inner.target_value;
+
+ ccode.add_assignment (get_cvalue (expr.inner), new CCodeConstant ("NULL"));
+ if (glib_value.array_length_cvalues != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (get_array_length_cvalue (glib_value, dim), new CCodeConstant ("0"));
+ }
+ }
+ } else {
+ ccode.add_assignment (get_cvalue (expr.inner), new CCodeConstant ("NULL"));
+ }
+ }
+
+ public override void visit_binary_expression (BinaryExpression expr) {
+ var cleft = get_cvalue (expr.left);
+ var cright = get_cvalue (expr.right);
+
+ CCodeExpression? left_chain = null;
+ if (expr.is_chained) {
+ var lbe = (BinaryExpression) expr.left;
+
+ var temp_decl = get_temp_variable (lbe.right.target_type, true, null, false);
+ emit_temp_var (temp_decl);
+ var cvar = get_variable_cexpression (temp_decl.name);
+ var clbe = (CCodeBinaryExpression) get_cvalue (lbe);
+ if (lbe.is_chained) {
+ clbe = (CCodeBinaryExpression) clbe.right;
+ }
+ ccode.add_assignment (cvar, get_cvalue (lbe.right));
+ clbe.right = get_variable_cexpression (temp_decl.name);
+ left_chain = cleft;
+ cleft = cvar;
+ }
+
+ CCodeBinaryOperator op;
+ switch (expr.operator) {
+ case BinaryOperator.PLUS:
+ op = CCodeBinaryOperator.PLUS;
+ break;
+ case BinaryOperator.MINUS:
+ op = CCodeBinaryOperator.MINUS;
+ break;
+ case BinaryOperator.MUL:
+ op = CCodeBinaryOperator.MUL;
+ break;
+ case BinaryOperator.DIV:
+ op = CCodeBinaryOperator.DIV;
+ break;
+ case BinaryOperator.MOD:
+ // FIXME Code duplication with CCodeAssignmentModule.emit_simple_assignment()
+ if (expr.value_type.equals (double_type)) {
+ cfile.add_include ("math.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("fmod"));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ set_cvalue (expr, ccall);
+ return;
+ } else if (expr.value_type.equals (float_type)) {
+ cfile.add_include ("math.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("fmodf"));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ set_cvalue (expr, ccall);
+ return;
+ } else {
+ op = CCodeBinaryOperator.MOD;
+ }
+ break;
+ case BinaryOperator.SHIFT_LEFT:
+ op = CCodeBinaryOperator.SHIFT_LEFT;
+ break;
+ case BinaryOperator.SHIFT_RIGHT:
+ op = CCodeBinaryOperator.SHIFT_RIGHT;
+ break;
+ case BinaryOperator.LESS_THAN:
+ op = CCodeBinaryOperator.LESS_THAN;
+ break;
+ case BinaryOperator.GREATER_THAN:
+ op = CCodeBinaryOperator.GREATER_THAN;
+ break;
+ case BinaryOperator.LESS_THAN_OR_EQUAL:
+ op = CCodeBinaryOperator.LESS_THAN_OR_EQUAL;
+ break;
+ case BinaryOperator.GREATER_THAN_OR_EQUAL:
+ op = CCodeBinaryOperator.GREATER_THAN_OR_EQUAL;
+ break;
+ case BinaryOperator.EQUALITY:
+ op = CCodeBinaryOperator.EQUALITY;
+ break;
+ case BinaryOperator.INEQUALITY:
+ op = CCodeBinaryOperator.INEQUALITY;
+ break;
+ case BinaryOperator.BITWISE_AND:
+ op = CCodeBinaryOperator.BITWISE_AND;
+ break;
+ case BinaryOperator.BITWISE_OR:
+ op = CCodeBinaryOperator.BITWISE_OR;
+ break;
+ case BinaryOperator.BITWISE_XOR:
+ op = CCodeBinaryOperator.BITWISE_XOR;
+ break;
+ case BinaryOperator.AND:
+ op = CCodeBinaryOperator.AND;
+ break;
+ case BinaryOperator.OR:
+ op = CCodeBinaryOperator.OR;
+ break;
+ case BinaryOperator.IN:
+ if (expr.right.value_type is ArrayType) {
+ unowned ArrayType array_type = (ArrayType) expr.right.value_type;
+ unowned DataType element_type = array_type.element_type;
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_array_contains_wrapper (array_type)));
+ CCodeExpression node = ccall;
+
+ ccall.add_argument (cright);
+ ccall.add_argument (get_array_length_cexpression (expr.right));
+ if (element_type is StructValueType) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cleft));
+ } else if (element_type is ValueType && !element_type.nullable
+ && expr.left.value_type is ValueType && expr.left.value_type.nullable) {
+ // null check
+ var cnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, cleft, new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, cleft));
+ node = new CCodeParenthesizedExpression (new CCodeConditionalExpression (cnull, new CCodeConstant ("FALSE"), ccall));
+ } else {
+ ccall.add_argument (cleft);
+ }
+ set_cvalue (expr, node);
+ } else {
+ set_cvalue (expr, new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeBinaryExpression (CCodeBinaryOperator.BITWISE_AND, cright, cleft), cleft));
+ }
+ return;
+ default:
+ assert_not_reached ();
+ }
+
+ if (expr.operator == BinaryOperator.EQUALITY ||
+ expr.operator == BinaryOperator.INEQUALITY) {
+ var left_type = expr.left.target_type;
+ var right_type = expr.right.target_type;
+ make_comparable_cexpression (ref left_type, ref cleft, ref right_type, ref cright);
+
+ if (left_type is StructValueType && right_type is StructValueType) {
+ var equalfunc = generate_struct_equal_function ((Struct) left_type.type_symbol);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (equalfunc));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ cleft = ccall;
+ cright = get_boolean_cconstant (true);
+ } else if ((left_type is IntegerType || left_type is FloatingType || left_type is BooleanType || left_type is EnumValueType) && left_type.nullable &&
+ (right_type is IntegerType || right_type is FloatingType || right_type is BooleanType || right_type is EnumValueType) && right_type.nullable) {
+ var equalfunc = generate_numeric_equal_function ((TypeSymbol) left_type.type_symbol);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (equalfunc));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ cleft = ccall;
+ cright = get_boolean_cconstant (true);
+ }
+ }
+
+ bool is_string_comparison = !(expr.left.value_type is NullType) && expr.left.value_type.compatible (string_type)
+ && !(expr.right.value_type is NullType) && expr.right.value_type.compatible (string_type);
+ bool has_string_literal = (expr.left is StringLiteral || expr.right is StringLiteral);
+
+ if (is_string_comparison || (has_string_literal && expr.operator != BinaryOperator.PLUS)) {
+ switch (expr.operator) {
+ case BinaryOperator.PLUS:
+ // string concatenation
+ if (expr.left.is_constant () && expr.right.is_constant ()) {
+ string left, right;
+
+ if (cleft is CCodeIdentifier) {
+ left = ((CCodeIdentifier) cleft).name;
+ } else if (cleft is CCodeConstant) {
+ left = ((CCodeConstant) cleft).name;
+ } else {
+ Report.error (expr.source_reference, "internal: Unsupported expression");
+ left = "NULL";
+ }
+ if (cright is CCodeIdentifier) {
+ right = ((CCodeIdentifier) cright).name;
+ } else if (cright is CCodeConstant) {
+ right = ((CCodeConstant) cright).name;
+ } else {
+ Report.error (expr.source_reference, "internal: Unsupported expression");
+ right = "NULL";
+ }
+
+ set_cvalue (expr, new CCodeConstant ("%s %s".printf (left, right)));
+ } else {
+ var temp_value = create_temp_value (expr.value_type, false, expr);
+ CCodeFunctionCall ccall;
+
+ if (context.profile == Profile.POSIX) {
+ // convert to strcat (strcpy (malloc (1 + strlen (a) + strlen (b)), a), b)
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("strcat"));
+ var strcpy = new CCodeFunctionCall (new CCodeIdentifier ("strcpy"));
+ var malloc = new CCodeFunctionCall (new CCodeIdentifier ("malloc"));
+
+ var strlen_a = new CCodeFunctionCall (new CCodeIdentifier ("strlen"));
+ strlen_a.add_argument (cleft);
+ var strlen_b = new CCodeFunctionCall (new CCodeIdentifier ("strlen"));
+ strlen_b.add_argument (cright);
+ var newlength = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("1"),
+ new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, strlen_a, strlen_b));
+ malloc.add_argument (newlength);
+
+ strcpy.add_argument (malloc);
+ strcpy.add_argument (cleft);
+
+ ccall.add_argument (strcpy);
+ ccall.add_argument (cright);
+ } else {
+ // convert to g_strconcat (a, b, NULL)
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strconcat"));
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ ccall.add_argument (new CCodeConstant("NULL"));
+ }
+
+ ccode.add_assignment (get_cvalue_ (temp_value), ccall);
+ expr.target_value = temp_value;
+ }
+ return;
+ case BinaryOperator.EQUALITY:
+ case BinaryOperator.INEQUALITY:
+ case BinaryOperator.LESS_THAN:
+ case BinaryOperator.GREATER_THAN:
+ case BinaryOperator.LESS_THAN_OR_EQUAL:
+ case BinaryOperator.GREATER_THAN_OR_EQUAL:
+ CCodeFunctionCall ccall;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("string.h");
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_cmp_wrapper (new CCodeIdentifier ("strcmp"))));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strcmp0"));
+ }
+ ccall.add_argument (cleft);
+ ccall.add_argument (cright);
+ cleft = ccall;
+ cright = new CCodeConstant ("0");
+ break;
+ default:
+ break;
+ }
+ }
+
+ set_cvalue (expr, new CCodeBinaryExpression (op, cleft, cright));
+ if (left_chain != null) {
+ set_cvalue (expr, new CCodeBinaryExpression (CCodeBinaryOperator.AND, left_chain, get_cvalue (expr)));
+ }
+ }
+
+ public CCodeExpression? create_type_check (CCodeNode ccodenode, DataType type) {
+ var et = type as ErrorType;
+ if (et != null && et.error_code != null) {
+ var matches_call = new CCodeFunctionCall (new CCodeIdentifier ("g_error_matches"));
+ matches_call.add_argument ((CCodeExpression) ccodenode);
+ matches_call.add_argument (new CCodeIdentifier (get_ccode_upper_case_name (et.error_domain)));
+ matches_call.add_argument (new CCodeIdentifier (get_ccode_name (et.error_code)));
+ return matches_call;
+ } else if (et != null && et.error_domain != null) {
+ var instance_domain = new CCodeMemberAccess.pointer ((CCodeExpression) ccodenode, "domain");
+ var type_domain = new CCodeIdentifier (get_ccode_upper_case_name (et.error_domain));
+ return new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, instance_domain, type_domain);
+ } else {
+ CCodeFunctionCall ccheck;
+ if (type is GenericType || type.type_symbol == null || type.type_symbol.external_package) {
+ ccheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_INSTANCE_TYPE"));
+ ccheck.add_argument ((CCodeExpression) ccodenode);
+ ccheck.add_argument (get_type_id_expression (type));
+ } else {
+ ccheck = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_check_function (type.type_symbol)));
+ ccheck.add_argument ((CCodeExpression) ccodenode);
+ }
+
+ return ccheck;
+ }
+ }
+
+ string generate_array_contains_wrapper (ArrayType array_type) {
+ string array_contains_func = "_vala_%s_array_contains".printf (get_ccode_lower_case_name (array_type.element_type));
+
+ if (!add_wrapper (array_contains_func)) {
+ return array_contains_func;
+ }
+
+ generate_type_declaration (ssize_t_type, cfile);
+
+ var function = new CCodeFunction (array_contains_func, get_ccode_name (bool_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("stack", "%s *".printf (get_ccode_name (array_type.element_type))));
+ function.add_parameter (new CCodeParameter ("stack_length", get_ccode_name (ssize_t_type)));
+ if (array_type.element_type is StructValueType) {
+ function.add_parameter (new CCodeParameter ("needle", "const %s *".printf (get_ccode_name (array_type.element_type))));
+ } else {
+ function.add_parameter (new CCodeParameter ("needle", "const %s".printf (get_ccode_name (array_type.element_type))));
+ }
+
+ push_function (function);
+
+ ccode.add_declaration (get_ccode_name (ssize_t_type), new CCodeVariableDeclarator ("i"));
+
+ var cloop_initializer = new CCodeAssignment (new CCodeIdentifier ("i"), new CCodeConstant ("0"));
+ var cloop_condition = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier ("i"), new CCodeIdentifier ("stack_length"));
+ var cloop_iterator = new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier ("i"));
+ ccode.open_for (cloop_initializer, cloop_condition, cloop_iterator);
+
+ var celement = new CCodeElementAccess (new CCodeIdentifier ("stack"), new CCodeIdentifier ("i"));
+ var cneedle = new CCodeIdentifier ("needle");
+ CCodeBinaryExpression cif_condition;
+ if (array_type.element_type.compatible (string_type)) {
+ CCodeFunctionCall ccall;
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("string.h");
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_cmp_wrapper (new CCodeIdentifier ("strcmp"))));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strcmp0"));
+ }
+ ccall.add_argument (celement);
+ ccall.add_argument (cneedle);
+ cif_condition = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccall, new CCodeConstant ("0"));
+ } else if (array_type.element_type is StructValueType) {
+ var equalfunc = generate_struct_equal_function ((Struct) array_type.element_type.type_symbol);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (equalfunc));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, celement));
+ ccall.add_argument (cneedle);
+ cif_condition = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccall, get_boolean_cconstant (true));
+ } else {
+ cif_condition = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, cneedle, celement);
+ }
+
+ ccode.open_if (cif_condition);
+ ccode.add_return (get_boolean_cconstant (true));
+ ccode.close ();
+
+ ccode.close ();
+
+ ccode.add_return (get_boolean_cconstant (false));
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return array_contains_func;
+ }
+
+ string generate_cmp_wrapper (CCodeIdentifier cmpid) {
+ // generate and call NULL-aware cmp function to reduce number
+ // of temporary variables and simplify code
+
+ string cmp0_func = "_%s0".printf (cmpid.name);
+
+ // g_strcmp0 is already NULL-safe
+ if (cmpid.name == "g_strcmp0") {
+ cmp0_func = cmpid.name;
+ } else if (add_wrapper (cmp0_func)) {
+ var cmp0_fun = new CCodeFunction (cmp0_func, get_ccode_name (int_type));
+ cmp0_fun.add_parameter (new CCodeParameter ("s1", "const void *"));
+ cmp0_fun.add_parameter (new CCodeParameter ("s2", "const void *"));
+ cmp0_fun.modifiers = CCodeModifiers.STATIC;
+
+ push_function (cmp0_fun);
+
+ // s1 != s2;
+ var noteq = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("s1"), new CCodeIdentifier ("s2"));
+
+ // if (!s1) return -(s1 != s2);
+ {
+ var cexp = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("s1"));
+ ccode.open_if (cexp);
+ ccode.add_return (new CCodeUnaryExpression (CCodeUnaryOperator.MINUS, noteq));
+ ccode.close ();
+ }
+ // if (!s2) return s1 != s2;
+ {
+ var cexp = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("s2"));
+ ccode.open_if (cexp);
+ ccode.add_return (noteq);
+ ccode.close ();
+ }
+ // return strcmp (s1, s2);
+ var cmp_call = new CCodeFunctionCall (cmpid);
+ cmp_call.add_argument (new CCodeIdentifier ("s1"));
+ cmp_call.add_argument (new CCodeIdentifier ("s2"));
+ ccode.add_return (cmp_call);
+
+ pop_function ();
+
+ cfile.add_function (cmp0_fun);
+ }
+
+ return cmp0_func;
+ }
+
+ public override void visit_type_check (TypeCheck expr) {
+ generate_type_declaration (expr.type_reference, cfile);
+
+ var type = expr.expression.value_type;
+ var pointer_type = type as PointerType;
+ if (pointer_type != null) {
+ type = pointer_type.base_type;
+ }
+ unowned Class? cl = type.type_symbol as Class;
+ unowned Interface? iface = type.type_symbol as Interface;
+ if ((cl != null && !cl.is_compact) || iface != null || type is GenericType || type is ErrorType) {
+ set_cvalue (expr, create_type_check (get_cvalue (expr.expression), expr.type_reference));
+ } else {
+ set_cvalue (expr, new CCodeInvalidExpression ());
+ }
+
+ if (get_cvalue (expr) is CCodeInvalidExpression) {
+ Report.error (expr.source_reference, "type check expressions not supported for compact classes, structs, and enums");
+ }
+ }
+
+ public override void visit_lambda_expression (LambdaExpression lambda) {
+ var delegate_type = (DelegateType) lambda.target_type;
+
+ lambda.accept_children (this);
+
+ bool expr_owned = lambda.value_type.value_owned;
+
+ set_cvalue (lambda, new CCodeIdentifier (get_ccode_name (lambda.method)));
+
+ unowned DataType? this_type;
+ if (lambda.method.closure) {
+ int block_id = get_block_id (current_closure_block);
+ var delegate_target = get_variable_cexpression ("_data%d_".printf (block_id));
+ if (expr_owned || delegate_type.is_called_once) {
+ var ref_call = new CCodeFunctionCall (new CCodeIdentifier ("block%d_data_ref".printf (block_id)));
+ ref_call.add_argument (delegate_target);
+ delegate_target = ref_call;
+ set_delegate_target_destroy_notify (lambda, new CCodeIdentifier ("block%d_data_unref".printf (block_id)));
+ } else {
+ set_delegate_target_destroy_notify (lambda, new CCodeConstant ("NULL"));
+ }
+ set_delegate_target (lambda, delegate_target);
+ } else if ((this_type = get_this_type ()) != null) {
+ CCodeExpression delegate_target = get_this_cexpression ();
+ delegate_target = convert_to_generic_pointer (delegate_target, this_type);
+ if (expr_owned || delegate_type.is_called_once) {
+ var ref_call = new CCodeFunctionCall (get_dup_func_expression (this_type, lambda.source_reference));
+ ref_call.add_argument (delegate_target);
+ delegate_target = ref_call;
+ set_delegate_target_destroy_notify (lambda, get_destroy_func_expression (this_type));
+ } else {
+ set_delegate_target_destroy_notify (lambda, new CCodeConstant ("NULL"));
+ }
+ set_delegate_target (lambda, delegate_target);
+ } else {
+ set_delegate_target (lambda, new CCodeConstant ("NULL"));
+ set_delegate_target_destroy_notify (lambda, new CCodeConstant ("NULL"));
+ }
+ }
+
+ public CCodeExpression convert_from_generic_pointer (CCodeExpression cexpr, DataType actual_type) {
+ unowned SemanticAnalyzer analyzer = context.analyzer;
+ var result = cexpr;
+ if (analyzer.is_reference_type_argument (actual_type) || analyzer.is_nullable_value_type_argument (actual_type)) {
+ generate_type_declaration (actual_type, cfile);
+ result = new CCodeCastExpression (cexpr, get_ccode_name (actual_type));
+ } else if (analyzer.is_signed_integer_type_argument (actual_type)) {
+ // FIXME this should not happen
+ while (cexpr is CCodeCastExpression) {
+ cexpr = ((CCodeCastExpression) cexpr).inner;
+ }
+ result = new CCodeCastExpression (new CCodeCastExpression (cexpr, "gintptr"), get_ccode_name (actual_type));
+ } else if (analyzer.is_unsigned_integer_type_argument (actual_type)) {
+ // FIXME this should not happen
+ while (cexpr is CCodeCastExpression) {
+ cexpr = ((CCodeCastExpression) cexpr).inner;
+ }
+ result = new CCodeCastExpression (new CCodeCastExpression (cexpr, "guintptr"), get_ccode_name (actual_type));
+ }
+ return result;
+ }
+
+ public CCodeExpression convert_to_generic_pointer (CCodeExpression cexpr, DataType actual_type) {
+ unowned SemanticAnalyzer analyzer = context.analyzer;
+ var result = cexpr;
+ if (analyzer.is_signed_integer_type_argument (actual_type)) {
+ // FIXME this should not happen
+ while (cexpr is CCodeCastExpression) {
+ cexpr = ((CCodeCastExpression) cexpr).inner;
+ }
+ result = new CCodeCastExpression (new CCodeCastExpression (cexpr, "gintptr"), get_ccode_name (pointer_type));
+ } else if (analyzer.is_unsigned_integer_type_argument (actual_type)) {
+ // FIXME this should not happen
+ while (cexpr is CCodeCastExpression) {
+ cexpr = ((CCodeCastExpression) cexpr).inner;
+ }
+ result = new CCodeCastExpression (new CCodeCastExpression (cexpr, "guintptr"), get_ccode_name (pointer_type));
+ }
+ return result;
+ }
+
+ int next_variant_function_id = 0;
+
+ public TargetValue transform_value (TargetValue value, DataType? target_type, CodeNode node) {
+ var type = value.value_type;
+ var result = ((GLibValue) value).copy ();
+
+ if (type.value_owned
+ && (target_type == null || target_type is GenericType || !target_type.floating_reference)
+ && type.floating_reference) {
+ /* floating reference, sink it.
+ */
+ unowned ObjectTypeSymbol? cl = type.type_symbol as ObjectTypeSymbol;
+ var sink_func = (cl != null) ? get_ccode_ref_sink_function (cl) : "";
+
+ if (sink_func != "") {
+ if (type.nullable) {
+ var is_not_null = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, result.cvalue, new CCodeConstant ("NULL"));
+ ccode.open_if (is_not_null);
+ }
+
+ var csink = new CCodeFunctionCall (new CCodeIdentifier (sink_func));
+ csink.add_argument (result.cvalue);
+ ccode.add_expression (csink);
+
+ if (type.nullable) {
+ ccode.close ();
+ }
+ } else {
+ Report.error (node.source_reference, "type `%s' does not support floating references", type.type_symbol.name);
+ }
+ }
+
+ bool boxing = (type is ValueType && !type.nullable
+ && target_type is ValueType && target_type.nullable);
+ bool unboxing = (type is ValueType && type.nullable
+ && target_type is ValueType && !target_type.nullable);
+
+ bool gvalue_boxing = (context.profile == Profile.GOBJECT
+ && target_type != null
+ && target_type.type_symbol == gvalue_type
+ && !(type is NullType)
+ && get_ccode_type_id (type) != "G_TYPE_VALUE");
+ bool gvariant_boxing = (context.profile == Profile.GOBJECT
+ && target_type != null
+ && target_type.type_symbol == gvariant_type
+ && !(type is NullType)
+ && type.type_symbol != gvariant_type);
+
+ if (type.value_owned
+ && (target_type == null || !target_type.value_owned || boxing || unboxing || gvariant_boxing)
+ && !gvalue_boxing /* gvalue can assume ownership of value, no need to free it */) {
+ // value leaked, destroy it
+ if (target_type is PointerType) {
+ // manual memory management for pointers
+ } else if (requires_destroy (type)) {
+ if (!is_lvalue_access_allowed (type)) {
+ // cannot assign to a temporary variable
+ temp_ref_values.insert (0, result.copy ());
+ } else {
+ var temp_value = create_temp_value (type, false, node);
+ temp_ref_values.insert (0, ((GLibValue) temp_value).copy ());
+ store_value (temp_value, result, node.source_reference);
+ result.cvalue = get_cvalue_ (temp_value);
+ }
+ }
+ }
+
+ if (target_type == null) {
+ // value will be destroyed, no need for implicit casts
+ return result;
+ }
+
+ result.value_type = target_type.copy ();
+
+ if (gvalue_boxing) {
+ // implicit conversion to GValue
+ var temp_value = create_temp_value (target_type, true, node, true);
+
+ if (!target_type.value_owned) {
+ // boxed GValue leaked, destroy it
+ temp_ref_values.insert (0, ((GLibValue) temp_value).copy ());
+ }
+
+ if (target_type.nullable) {
+ var newcall = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ newcall.add_argument (new CCodeConstant ("GValue"));
+ newcall.add_argument (new CCodeConstant ("1"));
+ var newassignment = new CCodeAssignment (get_cvalue_ (temp_value), newcall);
+ ccode.add_expression (newassignment);
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_init"));
+ if (target_type.nullable) {
+ ccall.add_argument (get_cvalue_ (temp_value));
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (temp_value)));
+ }
+ var type_id = get_ccode_type_id (type);
+ if (type_id == "") {
+ Report.error (node.source_reference, "GValue boxing of type `%s' is not supported", type.to_string ());
+ }
+ ccall.add_argument (new CCodeIdentifier (type_id));
+ ccode.add_expression (ccall);
+
+ if (requires_destroy (type)) {
+ ccall = new CCodeFunctionCall (get_value_taker_function (type));
+ } else {
+ ccall = new CCodeFunctionCall (get_value_setter_function (type));
+ }
+ if (target_type.nullable) {
+ ccall.add_argument (get_cvalue_ (temp_value));
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (temp_value)));
+ }
+ if (type.is_real_non_null_struct_type ()) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, result.cvalue));
+ } else {
+ ccall.add_argument (result.cvalue);
+ }
+
+ ccode.add_expression (ccall);
+
+ result = (GLibValue) temp_value;
+ } else if (gvariant_boxing) {
+ // implicit conversion to GVariant
+ string variant_func = "_variant_new%d".printf (++next_variant_function_id);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (variant_func));
+ ccall.add_argument (result.cvalue);
+
+ var cfunc = new CCodeFunction (variant_func, "GVariant*");
+ cfunc.modifiers = CCodeModifiers.STATIC;
+ cfunc.add_parameter (new CCodeParameter ("value", get_ccode_name (type)));
+
+ if (type is ArrayType) {
+ // return array length if appropriate
+ var array_type = (ArrayType) type;
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccall.add_argument (get_array_length_cvalue (value, dim));
+ cfunc.add_parameter (new CCodeParameter (get_array_length_cname ("value", dim), length_ctype));
+ }
+ }
+
+ push_function (cfunc);
+
+ // sink floating reference
+ var sink = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_ref_sink"));
+ sink.add_argument (serialize_expression (type, new CCodeIdentifier ("value")));
+ ccode.add_return (sink);
+
+ pop_function ();
+
+ cfile.add_function_declaration (cfunc);
+ cfile.add_function (cfunc);
+
+ result.cvalue = ccall;
+ result.value_type.value_owned = true;
+
+ result = (GLibValue) store_temp_value (result, node);
+ if (!target_type.value_owned) {
+ // value leaked
+ temp_ref_values.insert (0, ((GLibValue) result).copy ());
+ }
+ } else if (boxing) {
+ // value needs to be boxed
+
+ result.value_type.nullable = false;
+ if (!result.lvalue || !result.value_type.equals (value.value_type)) {
+ result.cvalue = get_implicit_cast_expression (result.cvalue, value.value_type, result.value_type, node);
+ if (!(result.cvalue is CCodeConstantIdentifier)) {
+ result = (GLibValue) store_temp_value (result, node);
+ }
+ }
+ result.cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, result.cvalue);
+ result.lvalue = false;
+ result.value_type.nullable = true;
+ } else if (unboxing) {
+ // unbox value
+
+ result.cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, result.cvalue);
+ } else {
+ // TODO: rewrite get_implicit_cast_expression to return a GLibValue
+ var old_cexpr = result.cvalue;
+ result.cvalue = get_implicit_cast_expression (result.cvalue, type, target_type, node);
+ result.lvalue = result.lvalue && result.cvalue == old_cexpr;
+ }
+
+ bool array_needs_copy = false;
+ if (type is ArrayType && target_type is ArrayType) {
+ var array = (ArrayType) type;
+ var target_array = (ArrayType) target_type;
+ if (target_array.element_type.value_owned && !array.element_type.value_owned) {
+ array_needs_copy = requires_copy (target_array.element_type);
+ }
+ }
+
+ if (!gvalue_boxing && !gvariant_boxing && target_type.value_owned && (!type.value_owned || boxing || unboxing || array_needs_copy) && requires_copy (target_type) && !(type is NullType)) {
+ // need to copy value
+ var copy = (GLibValue) copy_value (result, node);
+ if (target_type.type_symbol is Interface && copy == null) {
+ Report.error (node.source_reference, "missing class prerequisite for interface `%s', add GLib.Object to interface declaration if unsure", target_type.type_symbol.get_full_name ());
+ return result;
+ }
+ // need to free old array after copying it
+ if (array_needs_copy && requires_destroy (type)) {
+ result.value_type = type.copy ();
+ ccode.add_expression (destroy_value (result));
+ }
+ result = copy;
+
+ // implicit array copying is deprecated, but allow it for internal codegen usage
+ var prop_acc = node as PropertyAccessor;
+ if ((prop_acc != null && !prop_acc.automatic_body)
+ && result.value_type is ArrayType) {
+ Report.deprecated (node.source_reference, "implicit copy of array is deprecated, explicitly invoke the copy method instead");
+ }
+ }
+
+ return result;
+ }
+
+ public virtual CCodeExpression get_implicit_cast_expression (CCodeExpression source_cexpr, DataType? expression_type, DataType? target_type, CodeNode? node) {
+ var cexpr = source_cexpr;
+
+ if (expression_type.type_symbol != null && expression_type.type_symbol == target_type.type_symbol) {
+ // same type, no cast required
+ return cexpr;
+ }
+
+ if (expression_type is NullType) {
+ // null literal, no cast required when not converting to generic type pointer
+ return cexpr;
+ }
+
+ generate_type_declaration (target_type, cfile);
+
+ unowned Class? cl = target_type.type_symbol as Class;
+ unowned Interface? iface = target_type.type_symbol as Interface;
+ if (context.checking && (iface != null || (cl != null && !cl.is_compact))) {
+ // checked cast for strict subtypes of GTypeInstance
+ return generate_instance_cast (cexpr, target_type.type_symbol);
+ } else if (target_type.type_symbol != null && get_ccode_name (expression_type) != get_ccode_name (target_type)) {
+ unowned Struct? st = target_type.type_symbol as Struct;
+ if (target_type.type_symbol.is_reference_type () || (st != null && st.is_simple_type ())) {
+ // don't cast non-simple structs
+ return new CCodeCastExpression (cexpr, get_ccode_name (target_type));
+ } else {
+ return cexpr;
+ }
+ } else {
+ return cexpr;
+ }
+ }
+
+ public void store_property (Property prop, Expression? instance, TargetValue value) {
+ unowned Property base_prop = prop;
+ if (prop.base_property != null) {
+ base_prop = prop.base_property;
+ } else if (prop.base_interface_property != null) {
+ base_prop = prop.base_interface_property;
+ }
+ if (instance is BaseAccess && (base_prop.is_abstract || base_prop.is_virtual)) {
+ CCodeExpression? vcast = null;
+ if (base_prop.parent_symbol is Class) {
+ unowned Class base_class = (Class) base_prop.parent_symbol;
+ vcast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_class)));
+ ((CCodeFunctionCall) vcast).add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (current_class))));
+ } else if (base_prop.parent_symbol is Interface) {
+ unowned Interface base_iface = (Interface) base_prop.parent_symbol;
+ vcast = get_this_interface_cexpression (base_iface);
+ }
+ if (vcast != null) {
+ var ccall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, "set_%s".printf (prop.name)));
+ ccall.add_argument ((CCodeExpression) get_ccodenode (instance));
+ var cexpr = get_cvalue_ (value);
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ //TODO Make use of get_lvalue (value)
+ if (!(cexpr is CCodeConstant || cexpr is CCodeIdentifier)) {
+ var temp_value = store_temp_value (value, instance);
+ cexpr = get_cvalue_ (temp_value);
+ }
+ cexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr);
+ }
+ ccall.add_argument (cexpr);
+
+ ccode.add_expression (ccall);
+ } else {
+ Report.error (instance.source_reference, "internal: Invalid assignment to `%s'", base_prop.get_full_name ());
+ }
+ return;
+ }
+
+ var set_func = "g_object_set";
+
+ if (!get_ccode_no_accessor_method (prop) && !(prop is DynamicProperty)) {
+ generate_property_accessor_declaration (base_prop.set_accessor, cfile);
+ set_func = get_ccode_name (base_prop.set_accessor);
+
+ if (!prop.external && prop.external_package) {
+ // internal VAPI properties
+ // only add them once per source file
+ if (add_generated_external_symbol (prop)) {
+ visit_property (prop);
+ }
+ }
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (set_func));
+
+ if (prop.binding == MemberBinding.INSTANCE) {
+ /* target instance is first argument */
+ var cinstance = (CCodeExpression) get_ccodenode (instance);
+
+ if (prop.parent_symbol is Struct && !((Struct) prop.parent_symbol).is_simple_type ()) {
+ // we need to pass struct instance by reference if it isn't a simple-type
+ var instance_value = instance.target_value;
+ if (!get_lvalue (instance_value)) {
+ instance_value = store_temp_value (instance_value, instance);
+ }
+ cinstance = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (instance_value));
+ }
+
+ ccall.add_argument (cinstance);
+ }
+
+ if (get_ccode_no_accessor_method (prop) || prop is DynamicProperty) {
+ /* property name is second argument of g_object_set */
+ ccall.add_argument (get_property_canonical_cconstant (prop));
+ }
+
+ var cexpr = get_cvalue_ (value);
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ //TODO Make use of get_lvalue (value)
+ if (!(cexpr is CCodeConstant || cexpr is CCodeIdentifier)) {
+ var temp_value = store_temp_value (value, instance);
+ cexpr = get_cvalue_ (temp_value);
+ }
+ cexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, cexpr);
+ }
+
+ var array_type = prop.property_type as ArrayType;
+
+ ccall.add_argument (cexpr);
+
+ if (array_type != null && get_ccode_array_length (prop)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccall.add_argument (get_array_length_cvalue (value, dim));
+ }
+ } else if (prop.property_type is DelegateType) {
+ var delegate_type = (DelegateType) prop.property_type;
+ if (get_ccode_delegate_target (prop) && delegate_type.delegate_symbol.has_target) {
+ ccall.add_argument (get_delegate_target_cvalue (value));
+ if (base_prop.set_accessor.value_type.value_owned) {
+ ccall.add_argument (get_delegate_target_destroy_notify_cvalue (value));
+ }
+ }
+ }
+
+ if (get_ccode_no_accessor_method (prop) || prop is DynamicProperty) {
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ ccode.add_expression (ccall);
+ }
+
+ public bool add_wrapper (string wrapper_name) {
+ return wrappers.add (wrapper_name);
+ }
+
+ public bool add_generated_external_symbol (Symbol external_symbol) {
+ return generated_external_symbols.add (external_symbol);
+ }
+
+ public static DataType get_callable_creturn_type (Callable c) {
+ assert (c is Method || c is Delegate);
+ var creturn_type = c.return_type.copy ();
+ if (c is CreationMethod) {
+ unowned Class? cl = c.parent_symbol as Class;
+ unowned Struct? st = c.parent_symbol as Struct;
+ if (cl != null) {
+ // object creation methods return the new object in C
+ // in Vala they have no return type
+ creturn_type = new ObjectType (cl);
+ } else if (st != null && st.is_simple_type ()) {
+ // constructors return simple type structs by value
+ creturn_type = new StructValueType (st);
+ }
+ } else if (c.return_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ creturn_type = new VoidType ();
+ }
+ return creturn_type;
+ }
+
+ public CCodeExpression? default_value_for_type (DataType type, bool initializer_expression, bool on_error = false) {
+ unowned Struct? st = type.type_symbol as Struct;
+ var array_type = type as ArrayType;
+ if (type.type_symbol != null && !type.nullable
+ && (on_error ? get_ccode_default_value_on_error (type.type_symbol) : get_ccode_default_value (type.type_symbol)) != "") {
+ CCodeExpression val = new CCodeConstant (on_error ? get_ccode_default_value_on_error (type.type_symbol) : get_ccode_default_value (type.type_symbol));
+ if (st != null && st.get_fields ().size > 0) {
+ val = new CCodeCastExpression (val, get_ccode_name (st));
+ }
+ return val;
+ } else if (initializer_expression && !type.nullable &&
+ (st != null || (array_type != null && array_type.fixed_length))) {
+ // 0-initialize struct with struct initializer { 0 }
+ // only allowed as initializer expression in C
+ var clist = new CCodeInitializerList ();
+ clist.append (new CCodeConstant ("0"));
+ return clist;
+ } else if ((type.type_symbol != null && type.type_symbol.is_reference_type ())
+ || type.nullable
+ || type is PointerType || type is DelegateType
+ || (array_type != null && !array_type.fixed_length)) {
+ return new CCodeConstant ("NULL");
+ } else if (type is GenericType) {
+ return new CCodeConstant ("NULL");
+ } else if (type is ErrorType) {
+ return new CCodeConstant ("NULL");
+ } else if (type is CType) {
+ return new CCodeConstant (((CType) type).cdefault_value);
+ }
+ return null;
+ }
+
+ private void create_property_type_check_statement (Property prop, bool check_return_type, TypeSymbol t, bool non_null, string var_name) {
+ if (check_return_type) {
+ create_type_check_statement (prop, prop.property_type, t, non_null, var_name);
+ } else {
+ create_type_check_statement (prop, new VoidType (), t, non_null, var_name);
+ }
+ }
+
+ public virtual void create_type_check_statement (CodeNode method_node, DataType ret_type, TypeSymbol t, bool non_null, string var_name) {
+ }
+
+ public int get_param_pos (double param_pos, bool ellipsis = false) {
+ if (!ellipsis) {
+ if (param_pos >= 0) {
+ return (int) (param_pos * 1000);
+ } else {
+ return (int) ((100 + param_pos) * 1000);
+ }
+ } else {
+ if (param_pos >= 0) {
+ return (int) ((100 + param_pos) * 1000);
+ } else {
+ return (int) ((200 + param_pos) * 1000);
+ }
+ }
+ }
+
+ public CCodeExpression? get_ccodenode (Expression node) {
+ if (get_cvalue (node) == null) {
+ node.emit (this);
+ }
+ return get_cvalue (node);
+ }
+
+ public bool is_lvalue_access_allowed (DataType type) {
+ var array_type = type as ArrayType;
+ if (array_type != null && array_type.inline_allocated) {
+ return false;
+ }
+ if (type.type_symbol != null) {
+ return type.type_symbol.get_attribute_bool ("CCode", "lvalue_access", true);
+ }
+ return true;
+ }
+
+ public bool requires_memset_init (Variable variable, out CCodeExpression? size) {
+ unowned ArrayType? array_type = variable.variable_type as ArrayType;
+ if (array_type != null && array_type.fixed_length) {
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ size = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, get_ccodenode (array_type.length), sizeof_call);
+ return !is_constant_ccode (array_type.length);
+ }
+ size = null;
+ return false;
+ }
+
+ public CCodeDeclaratorSuffix? get_ccode_declarator_suffix (DataType type) {
+ var array_type = type as ArrayType;
+ if (array_type != null) {
+ if (array_type.fixed_length) {
+ return new CCodeDeclaratorSuffix.with_array (get_ccodenode (array_type.length));
+ } else if (array_type.inline_allocated) {
+ return new CCodeDeclaratorSuffix.with_array ();
+ }
+ }
+ return null;
+ }
+
+ public CCodeConstant get_signal_canonical_constant (Signal sig, string? detail = null) {
+ return new CCodeConstant ("\"%s%s\"".printf (get_ccode_name (sig), (detail != null ? "::%s".printf (detail) : "")));
+ }
+
+ public CCodeConstant get_property_canonical_cconstant (Property prop) {
+ return new CCodeConstant ("\"%s\"".printf (get_ccode_name (prop)));
+ }
+
+ public override void visit_class (Class cl) {
+ }
+
+ public void create_postcondition_statement (Expression postcondition) {
+ var cassert = new CCodeFunctionCall (new CCodeIdentifier ("_vala_warn_if_fail"));
+
+ postcondition.emit (this);
+
+ string message = ((string) postcondition.source_reference.begin.pos).substring (0, (int) (postcondition.source_reference.end.pos - postcondition.source_reference.begin.pos));
+ cassert.add_argument (get_cvalue (postcondition));
+ cassert.add_argument (new CCodeConstant ("\"%s\"".printf (message.replace ("\n", " ").escape (""))));
+ requires_assert = true;
+
+ ccode.add_expression (cassert);
+
+ foreach (var value in temp_ref_values) {
+ ccode.add_expression (destroy_value (value));
+ }
+
+ temp_ref_values.clear ();
+ }
+
+ public unowned DataType? get_this_type () {
+ if (current_method != null && current_method.binding == MemberBinding.INSTANCE) {
+ return current_method.this_parameter.variable_type;
+ } else if (current_property_accessor != null && current_property_accessor.prop.binding == MemberBinding.INSTANCE) {
+ return current_property_accessor.prop.this_parameter.variable_type;
+ } else if (current_constructor != null && current_constructor.binding == MemberBinding.INSTANCE) {
+ return current_constructor.this_parameter.variable_type;
+ } else if (current_destructor != null && current_destructor.binding == MemberBinding.INSTANCE) {
+ return current_destructor.this_parameter.variable_type;
+ }
+ return null;
+ }
+
+ public CCodeFunctionCall generate_instance_cast (CCodeExpression expr, TypeSymbol type) {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_INSTANCE_CAST"));
+ result.add_argument (expr);
+ result.add_argument (new CCodeIdentifier (get_ccode_type_id (type)));
+ result.add_argument (new CCodeIdentifier (get_ccode_name (type)));
+ return result;
+ }
+
+ void generate_struct_destroy_function (Struct st) {
+ if (cfile.add_declaration (get_ccode_destroy_function (st))) {
+ // only generate function once per source file
+ return;
+ }
+
+ var function = new CCodeFunction (get_ccode_destroy_function (st), "void");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", "%s *".printf (get_ccode_name (st))));
+
+ push_context (new EmitContext ());
+ push_function (function);
+
+ var this_value = load_this_parameter (st);
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding == MemberBinding.INSTANCE) {
+ if ((!(f.variable_type is DelegateType) || get_ccode_delegate_target (f)) && requires_destroy (f.variable_type)) {
+ ccode.add_expression (destroy_field (f, this_value));
+ }
+ }
+ }
+
+ pop_function ();
+ pop_context ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+ }
+
+ void generate_struct_copy_function (Struct st) {
+ if (cfile.add_declaration (get_ccode_copy_function (st))) {
+ // only generate function once per source file
+ return;
+ }
+
+ var function = new CCodeFunction (get_ccode_copy_function (st), "void");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", "const %s *".printf (get_ccode_name (st))));
+ function.add_parameter (new CCodeParameter ("dest", "%s *".printf (get_ccode_name (st))));
+
+ push_context (new EmitContext ());
+ push_function (function);
+
+ var dest_struct = new GLibValue (SemanticAnalyzer.get_data_type_for_symbol (st), new CCodeIdentifier ("(*dest)"), true);
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding == MemberBinding.INSTANCE) {
+ var value = load_field (f, load_this_parameter ((TypeSymbol) st));
+ if ((!(f.variable_type is DelegateType) || get_ccode_delegate_target (f)) && requires_copy (f.variable_type)) {
+ value = copy_value (value, f);
+ if (value == null) {
+ // error case, continue to avoid critical
+ continue;
+ }
+ }
+ store_field (f, dest_struct, value);
+ }
+ }
+
+ pop_function ();
+ pop_context ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+ }
+
+ public void return_default_value (DataType return_type, bool on_error = false) {
+ unowned Struct? st = return_type.type_symbol as Struct;
+ if (st != null && st.is_simple_type () && !return_type.nullable) {
+ // 0-initialize struct with struct initializer { 0 }
+ // only allowed as initializer expression in C
+ var ret_temp_var = get_temp_variable (return_type, true, null, true);
+ emit_temp_var (ret_temp_var, on_error);
+ ccode.add_return (new CCodeIdentifier (ret_temp_var.name));
+ } else {
+ ccode.add_return (default_value_for_type (return_type, false, on_error));
+ }
+ }
+
+ public virtual void generate_dynamic_method_wrapper (DynamicMethod method) {
+ }
+
+ public virtual CCodeExpression get_param_spec_cexpression (Property prop) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_param_spec (Property prop) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_signal_creation (Signal sig, ObjectTypeSymbol type) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_value_getter_function (DataType type_reference) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_value_setter_function (DataType type_reference) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_value_taker_function (DataType type_reference) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual void register_dbus_info (CCodeBlock block, ObjectTypeSymbol bindable) {
+ }
+
+ public virtual string get_dynamic_signal_cname (DynamicSignal node) {
+ return "";
+ }
+
+ public virtual string get_array_length_cname (string array_cname, int dim) {
+ return "";
+ }
+
+ public virtual string get_variable_array_length_cname (Variable variable, int dim) {
+ return "";
+ }
+
+ public virtual CCodeExpression get_array_length_cexpression (Expression array_expr, int dim = -1) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual CCodeExpression get_array_length_cvalue (TargetValue value, int dim = -1) {
+ return new CCodeInvalidExpression ();
+ }
+
+ public virtual string get_array_size_cname (string array_cname) {
+ return "";
+ }
+
+ public virtual void add_simple_check (CodeNode node, bool always_fails = false) {
+ }
+
+ public virtual string generate_ready_function (Method m) {
+ return "";
+ }
+
+ public CCodeExpression get_boolean_cconstant (bool b) {
+ if (context.profile == Profile.GOBJECT) {
+ return new CCodeConstant (b ? "TRUE" : "FALSE");
+ } else {
+ cfile.add_include ("stdbool.h");
+ return new CCodeConstant (b ? "true" : "false");
+ }
+ }
+}
--- /dev/null
+/* valaccodecompiler.vala
+ *
+ * Copyright (C) 2007-2009 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Interface to the C compiler.
+ */
+public class Vala.CCodeCompiler {
+ public CCodeCompiler () {
+ }
+
+ /**
+ * Compile generated C code to object code and optionally link object
+ * files.
+ *
+ * @param context a code context
+ */
+ public void compile (CodeContext context, string? cc_command, string[] cc_options) {
+ string pc = "";
+ if (context.profile == Profile.GOBJECT) {
+ pc += " gobject-2.0";
+ }
+ foreach (string pkg in context.get_packages ()) {
+ if (context.pkg_config_exists (pkg)) {
+ pc += " " + pkg;
+ }
+ }
+ string? pkgflags;
+ if (pc.length > 0) {
+ pkgflags = context.pkg_config_compile_flags (pc);
+ if (pkgflags == null) {
+ return;
+ }
+ } else {
+ pkgflags = "";
+ }
+
+ // TODO compile the C code files in parallel
+
+ if (cc_command == null) {
+ cc_command = "cc";
+ }
+ string cmdline = cc_command;
+ if (context.debug) {
+ cmdline += " -g";
+ }
+ if (context.compile_only) {
+ cmdline += " -c";
+ } else if (context.output != null) {
+ string output = context.output;
+ if (context.directory != null && context.directory != "" && !Path.is_absolute (context.output)) {
+ output = "%s%c%s".printf (context.directory, Path.DIR_SEPARATOR, context.output);
+ }
+ cmdline += " -o " + Shell.quote (output);
+ }
+
+ /* we're only interested in non-pkg source files */
+ var source_files = context.get_source_files ();
+ foreach (SourceFile file in source_files) {
+ if (file.file_type == SourceFileType.SOURCE) {
+ cmdline += " " + Shell.quote (file.get_csource_filename ());
+ }
+ }
+ var c_source_files = context.get_c_source_files ();
+ foreach (string file in c_source_files) {
+ cmdline += " " + Shell.quote (file);
+ }
+
+ // add libraries after source files to fix linking
+ // with --as-needed and on Windows
+ cmdline += " " + pkgflags.strip ();
+ foreach (string cc_option in cc_options) {
+ cmdline += " " + Shell.quote (cc_option);
+ }
+
+ if (context.verbose_mode) {
+ stdout.printf ("%s\n", cmdline);
+ }
+
+ try {
+ int exit_status;
+ Process.spawn_command_line_sync (cmdline, null, null, out exit_status);
+ if (exit_status != 0) {
+ Report.error (null, "cc exited with status %d", exit_status);
+ }
+ } catch (SpawnError e) {
+ Report.error (null, e.message);
+ }
+
+ /* remove generated C source and header files */
+ if (!context.save_csources) {
+ foreach (SourceFile file in source_files) {
+ if (file.file_type == SourceFileType.SOURCE) {
+ FileUtils.unlink (file.get_csource_filename ());
+ }
+ }
+ }
+ }
+}
--- /dev/null
+/* valaccodecontrolflowmodule.vala
+ *
+ * Copyright (C) 2006-2011 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+public abstract class Vala.CCodeControlFlowModule : CCodeMethodModule {
+ public override void visit_if_statement (IfStatement stmt) {
+ ccode.open_if (get_cvalue (stmt.condition));
+
+ stmt.true_statement.emit (this);
+
+ if (stmt.false_statement != null) {
+ ccode.add_else ();
+ stmt.false_statement.emit (this);
+ }
+
+ ccode.close ();
+ }
+
+ void visit_string_switch_statement (SwitchStatement stmt) {
+ // we need a temporary variable to save the property value
+ var temp_value = create_temp_value (stmt.expression.value_type, false, stmt);
+ var ctemp = get_cvalue_ (temp_value);
+
+ var cinit = new CCodeAssignment (ctemp, get_cvalue (stmt.expression));
+ var czero = new CCodeConstant ("0");
+
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ free_call.add_argument (ctemp);
+
+ var cisnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeConstant ("NULL"), ctemp);
+ var cquark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_string"));
+ cquark.add_argument (ctemp);
+
+ var ccond = new CCodeConditionalExpression (cisnull, new CCodeConstant ("0"), cquark);
+
+ int label_temp_id = next_temp_var_id++;
+
+ temp_value = create_temp_value (gquark_type, true, stmt);
+
+ int label_count = 0;
+
+ foreach (SwitchSection section in stmt.get_sections ()) {
+ if (section.has_default_label ()) {
+ continue;
+ }
+
+ foreach (SwitchLabel label in section.get_labels ()) {
+ label.expression.emit (this);
+ var cexpr = get_cvalue (label.expression);
+
+ if (is_constant_ccode_expression (cexpr)) {
+ var cname = "_tmp%d_label%d".printf (label_temp_id, label_count++);
+
+ ccode.add_declaration (get_ccode_name (gquark_type), new CCodeVariableDeclarator (cname, czero), CCodeModifiers.STATIC);
+ }
+ }
+ }
+
+ ccode.add_expression (cinit);
+
+ ctemp = get_cvalue_ (temp_value);
+ cinit = new CCodeAssignment (ctemp, ccond);
+
+ ccode.add_expression (cinit);
+
+ if (stmt.expression.value_type.value_owned) {
+ // free owned string
+ ccode.add_expression (free_call);
+ }
+
+ SwitchSection default_section = null;
+ label_count = 0;
+
+ int n = 0;
+
+ foreach (SwitchSection section in stmt.get_sections ()) {
+ if (section.has_default_label ()) {
+ default_section = section;
+ continue;
+ }
+
+ CCodeBinaryExpression cor = null;
+ foreach (SwitchLabel label in section.get_labels ()) {
+ label.expression.emit (this);
+ var cexpr = get_cvalue (label.expression);
+
+ if (is_constant_ccode_expression (cexpr)) {
+ var cname = new CCodeIdentifier ("_tmp%d_label%d".printf (label_temp_id, label_count++));
+ var ccondition = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, czero, cname);
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ cinit = new CCodeAssignment (cname, ccall);
+
+ ccall.add_argument (cexpr);
+
+ cexpr = new CCodeConditionalExpression (ccondition, cname, cinit);
+ } else {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_string"));
+ ccall.add_argument (cexpr);
+ cexpr = ccall;
+ }
+
+ var ccmp = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ctemp, cexpr);
+
+ if (cor == null) {
+ cor = ccmp;
+ } else {
+ cor = new CCodeBinaryExpression (CCodeBinaryOperator.OR, cor, ccmp);
+ }
+ }
+
+ if (n > 0) {
+ ccode.else_if (cor);
+ } else {
+ ccode.open_if (cor);
+ }
+
+ ccode.open_switch (new CCodeConstant ("0"));
+ ccode.add_default ();
+
+ section.emit (this);
+
+ ccode.close ();
+
+ n++;
+ }
+
+ if (default_section != null) {
+ if (n > 0) {
+ ccode.add_else ();
+ }
+
+ ccode.open_switch (new CCodeConstant ("0"));
+ ccode.add_default ();
+
+ default_section.emit (this);
+
+ ccode.close ();
+ }
+
+ if (n > 0) {
+ ccode.close ();
+ }
+ }
+
+ public override void visit_switch_statement (SwitchStatement stmt) {
+ if (stmt.expression.value_type.compatible (string_type)) {
+ visit_string_switch_statement (stmt);
+ return;
+ }
+
+ ccode.open_switch (get_cvalue (stmt.expression));
+
+ bool has_default = false;
+
+ foreach (SwitchSection section in stmt.get_sections ()) {
+ if (section.has_default_label ()) {
+ ccode.add_default ();
+ has_default = true;
+ }
+ section.emit (this);
+ }
+
+ if (!has_default) {
+ // silence C compiler
+ ccode.add_default ();
+ ccode.add_break ();
+ }
+
+ ccode.close ();
+ }
+
+ public override void visit_switch_label (SwitchLabel label) {
+ if (((SwitchStatement) label.section.parent_node).expression.value_type.compatible (string_type)) {
+ return;
+ }
+
+ if (label.expression != null) {
+ label.expression.emit (this);
+
+ visit_end_full_expression (label.expression);
+
+ ccode.add_case (get_cvalue (label.expression));
+ }
+ }
+
+ public override void visit_loop_statement (LoopStatement stmt) {
+ if (context.profile == Profile.GOBJECT) {
+ ccode.open_while (new CCodeConstant ("TRUE"));
+ } else {
+ cfile.add_include ("stdbool.h");
+ ccode.open_while (new CCodeConstant ("true"));
+ }
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ }
+
+ public override void visit_foreach_statement (ForeachStatement stmt) {
+ ccode.open_block ();
+
+ var collection_backup = stmt.collection_variable;
+ var collection_type = collection_backup.variable_type;
+
+ var array_type = collection_type as ArrayType;
+ if (array_type != null) {
+ // avoid assignment issues
+ array_type.inline_allocated = false;
+ array_type.fixed_length = false;
+ }
+
+ visit_local_variable (collection_backup);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (collection_backup)), get_cvalue (stmt.collection));
+
+ if (stmt.tree_can_fail && stmt.collection.tree_can_fail) {
+ // exception handling
+ add_simple_check (stmt.collection);
+ }
+
+ if (stmt.collection.value_type is ArrayType) {
+ array_type = (ArrayType) stmt.collection.value_type;
+
+ var array_len = get_variable_cexpression (get_array_length_cname (get_local_cname (collection_backup), 1));
+
+ // store array length for use by _vala_array_free
+ ccode.add_assignment (array_len, get_array_length_cexpression (stmt.collection));
+
+ var iterator_variable = new LocalVariable (array_type.length_type.copy (), stmt.variable_name + "_it");
+ visit_local_variable (iterator_variable);
+ var it_name = get_local_cname (iterator_variable);
+
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, get_variable_cexpression (it_name), array_len);
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (it_name), new CCodeConstant ("0")),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (it_name), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, get_variable_cexpression (it_name), new CCodeConstant ("1"))));
+
+ CCodeExpression element_expr = new CCodeElementAccess (get_variable_cexpression (get_local_cname (collection_backup)), get_variable_cexpression (it_name));
+
+ var element_type = array_type.element_type.copy ();
+ element_type.value_owned = false;
+ element_expr = get_cvalue_ (transform_value (new GLibValue (element_type, element_expr, true), stmt.type_reference, stmt));
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ // set array length for stacked arrays
+ if (stmt.type_reference is ArrayType) {
+ var inner_array_type = (ArrayType) stmt.type_reference;
+ for (int dim = 1; dim <= inner_array_type.rank; dim++) {
+ ccode.add_assignment (get_variable_cexpression (get_array_length_cname (get_local_cname (stmt.element_variable), dim)), new CCodeConstant ("-1"));
+ }
+ }
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else if (stmt.collection.value_type.compatible (new ObjectType (garray_type))) {
+ // iterating over a GArray
+
+ var iterator_variable = new LocalVariable (uint_type.copy (), "%s_index".printf (stmt.variable_name));
+ visit_local_variable (iterator_variable);
+ var arr_index = get_variable_cname (get_local_cname (iterator_variable));
+
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, get_variable_cexpression (arr_index), new CCodeMemberAccess.pointer (get_variable_cexpression (get_local_cname (collection_backup)), "len"));
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeConstant ("0")),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, get_variable_cexpression (arr_index), new CCodeConstant ("1"))));
+
+ var get_item = new CCodeFunctionCall (new CCodeIdentifier ("g_array_index"));
+ get_item.add_argument (get_variable_cexpression (get_local_cname (collection_backup)));
+ get_item.add_argument (new CCodeIdentifier (get_ccode_name (stmt.type_reference)));
+ get_item.add_argument (get_variable_cexpression (arr_index));
+
+ if (collection_type.get_type_arguments ().size != 1) {
+ Report.error (stmt.source_reference, "internal error: missing generic type argument");
+ stmt.error = true;
+ return;
+ }
+
+ var element_type = collection_type.get_type_arguments ().get (0).copy ();
+ element_type.value_owned = false;
+ var element_expr = get_cvalue_ (transform_value (new GLibValue (element_type, get_item, true), stmt.type_reference, stmt));
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else if (stmt.collection.value_type.compatible (new ObjectType (glist_type)) || stmt.collection.value_type.compatible (new ObjectType (gslist_type))) {
+ // iterating over a GList or GSList
+
+ var iterator_variable = new LocalVariable (collection_type.copy (), stmt.variable_name + "_it");
+ visit_local_variable (iterator_variable);
+ var it_name = get_local_cname (iterator_variable);
+
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, get_variable_cexpression (it_name), new CCodeConstant ("NULL"));
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (it_name), get_variable_cexpression (get_local_cname (collection_backup))),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (it_name), new CCodeMemberAccess.pointer (get_variable_cexpression (it_name), "next")));
+
+ CCodeExpression element_expr = new CCodeMemberAccess.pointer (get_variable_cexpression (it_name), "data");
+
+ if (collection_type.get_type_arguments ().size != 1) {
+ Report.error (stmt.source_reference, "internal error: missing generic type argument");
+ stmt.error = true;
+ return;
+ }
+
+ var element_data_type = collection_type.get_type_arguments ().get (0).copy ();
+ element_data_type.value_owned = false;
+ element_expr = convert_from_generic_pointer (element_expr, element_data_type);
+ element_expr = get_cvalue_ (transform_value (new GLibValue (element_data_type, element_expr), stmt.type_reference, stmt));
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else if (stmt.collection.value_type.compatible (new ObjectType ((Class) genericarray_type))) {
+ // iterating over a GenericArray / GPtrArray
+
+ var iterator_variable = new LocalVariable (uint_type.copy (), "%s_index".printf (stmt.variable_name));
+ visit_local_variable (iterator_variable);
+ var arr_index = get_variable_cname (get_local_cname (iterator_variable));
+
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, get_variable_cexpression (arr_index), new CCodeMemberAccess.pointer (get_variable_cexpression (get_local_cname (collection_backup)), "len"));
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeConstant ("0")),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, get_variable_cexpression (arr_index), new CCodeConstant ("1"))));
+
+ var get_item = new CCodeFunctionCall (new CCodeIdentifier ("g_ptr_array_index"));
+ get_item.add_argument (get_variable_cexpression (get_local_cname (collection_backup)));
+ get_item.add_argument (get_variable_cexpression (arr_index));
+
+ CCodeExpression element_expr = get_item;
+
+ if (stmt.type_reference.value_owned) {
+ element_expr = get_cvalue_ (copy_value (new GLibValue (stmt.type_reference, element_expr), stmt.element_variable));
+ }
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else if (stmt.collection.value_type.compatible (new ObjectType (gvaluearray_type))) {
+ // iterating over a GValueArray
+
+ var iterator_variable = new LocalVariable (uint_type.copy (), "%s_index".printf (stmt.variable_name));
+ visit_local_variable (iterator_variable);
+ var arr_index = get_variable_cname (get_local_cname (iterator_variable));
+
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, get_variable_cexpression (arr_index), new CCodeMemberAccess.pointer (get_variable_cexpression (get_local_cname (collection_backup)), "n_values"));
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeConstant ("0")),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (arr_index), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, get_variable_cexpression (arr_index), new CCodeConstant ("1"))));
+
+ var get_item = new CCodeFunctionCall (new CCodeIdentifier ("g_value_array_get_nth"));
+ get_item.add_argument (get_variable_cexpression (get_local_cname (collection_backup)));
+ get_item.add_argument (get_variable_cexpression (arr_index));
+
+ CCodeExpression element_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_item);
+
+ if (stmt.type_reference.value_owned) {
+ element_expr = get_cvalue_ (copy_value (new GLibValue (stmt.type_reference, element_expr), new StructValueType (gvalue_type)));
+ }
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else if (stmt.collection.value_type.compatible (new ObjectType (gsequence_type))) {
+ // iterating over a GSequence
+
+ var iterator_variable = new LocalVariable (new ObjectType (gsequence_iter_type), "%s_iter".printf (stmt.variable_name));
+ visit_local_variable (iterator_variable);
+ var sequence_iter = get_variable_cname (get_local_cname (iterator_variable));
+
+ var ccond_is_end = new CCodeFunctionCall (new CCodeIdentifier ("g_sequence_iter_is_end"));
+ ccond_is_end.add_argument (get_variable_cexpression (sequence_iter));
+ var ccond = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, ccond_is_end);
+ var cbegin = new CCodeFunctionCall (new CCodeIdentifier ("g_sequence_get_begin_iter"));
+ cbegin.add_argument (get_variable_cexpression (get_local_cname (collection_backup)));
+ var cnext = new CCodeFunctionCall (new CCodeIdentifier ("g_sequence_iter_next"));
+ cnext.add_argument (get_variable_cexpression (sequence_iter));
+
+ ccode.open_for (new CCodeAssignment (get_variable_cexpression (sequence_iter), cbegin),
+ ccond,
+ new CCodeAssignment (get_variable_cexpression (sequence_iter), cnext));
+
+ var get_item = new CCodeFunctionCall (new CCodeIdentifier ("g_sequence_get"));
+ get_item.add_argument (get_variable_cexpression (sequence_iter));
+
+ CCodeExpression element_expr = get_item;
+
+ if (collection_type.get_type_arguments ().size != 1) {
+ Report.error (stmt.source_reference, "internal error: missing generic type argument");
+ stmt.error = true;
+ return;
+ }
+
+ var element_type = collection_type.get_type_arguments ().get (0).copy ();
+ element_type.value_owned = false;
+ element_expr = convert_from_generic_pointer (element_expr, element_type);
+ element_expr = get_cvalue_ (transform_value (new GLibValue (element_type, element_expr), stmt.type_reference, stmt));
+
+ visit_local_variable (stmt.element_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (stmt.element_variable)), element_expr);
+
+ stmt.body.emit (this);
+
+ ccode.close ();
+ } else {
+ Report.error (stmt.source_reference, "internal error: unsupported collection type");
+ stmt.error = true;
+ return;
+ }
+
+ foreach (LocalVariable local in stmt.get_local_variables ()) {
+ if (requires_destroy (local.variable_type)) {
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ ccode.close ();
+ }
+
+ public override void visit_break_statement (BreakStatement stmt) {
+ append_local_free (current_symbol, stmt);
+
+ ccode.add_break ();
+ }
+
+ public override void visit_continue_statement (ContinueStatement stmt) {
+ append_local_free (current_symbol, stmt);
+
+ ccode.add_continue ();
+ }
+}
+
--- /dev/null
+/* valaccodedelegatemodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+/**
+ * The link between an assignment and generated code.
+ */
+public class Vala.CCodeDelegateModule : CCodeArrayModule {
+ public override void generate_delegate_declaration (Delegate d, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, d, get_ccode_name (d))) {
+ return;
+ }
+
+ // internally generated delegates don't require a typedef
+ if (d.sender_type != null) {
+ return;
+ }
+
+ var creturn_type = get_callable_creturn_type (d);
+ if (creturn_type is DelegateType && ((DelegateType) creturn_type).delegate_symbol == d) {
+ // recursive delegate
+ creturn_type = new DelegateType ((Delegate) context.root.scope.lookup ("GLib").scope.lookup ("Callback"));
+ }
+
+ generate_type_declaration (creturn_type, decl_space);
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ var cfundecl = new CCodeFunctionDeclarator (get_ccode_name (d));
+ foreach (Parameter param in d.get_parameters ()) {
+ generate_parameter (param, decl_space, cparam_map, null);
+ }
+
+ // FIXME partial code duplication with CCodeMethodModule.generate_cparameters
+
+ if (d.return_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ var cparam = new CCodeParameter ("result", get_ccode_name (d.return_type) + "*");
+ cparam_map.set (get_param_pos (-3), cparam);
+ } else if (get_ccode_array_length (d) && d.return_type is ArrayType) {
+ // return array length if appropriate
+ var array_type = (ArrayType) d.return_type;
+ var length_ctype = get_ccode_array_length_type (d) + "*";
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var cparam = new CCodeParameter (get_array_length_cname ("result", dim), length_ctype);
+ cparam_map.set (get_param_pos (get_ccode_array_length_pos (d) + 0.01 * dim), cparam);
+ }
+ } else if (get_ccode_delegate_target (d) && d.return_type is DelegateType) {
+ // return delegate target if appropriate
+ var deleg_type = (DelegateType) d.return_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ generate_type_declaration (delegate_target_type, decl_space);
+ var cparam = new CCodeParameter (get_delegate_target_cname ("result"), get_ccode_name (delegate_target_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_delegate_target_pos (d)), cparam);
+ if (deleg_type.is_disposable ()) {
+ generate_type_declaration (delegate_target_destroy_type, decl_space);
+ cparam = new CCodeParameter (get_delegate_target_destroy_notify_cname ("result"), get_ccode_name (delegate_target_destroy_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_destroy_notify_pos (d)), cparam);
+ }
+ }
+ }
+
+ if (d.has_target) {
+ generate_type_declaration (delegate_target_type, decl_space);
+ var cparam = new CCodeParameter ("user_data", get_ccode_name (delegate_target_type));
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (d)), cparam);
+ }
+ if (d.tree_can_fail) {
+ generate_type_declaration (gerror_type, decl_space);
+ var cparam = new CCodeParameter ("error", "GError**");
+ cparam_map.set (get_param_pos (get_ccode_error_pos (d)), cparam);
+ }
+
+ // append C parameters in the right order
+ int last_pos = -1;
+ int min_pos;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in cparam_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ cfundecl.add_parameter (cparam_map.get (min_pos));
+ last_pos = min_pos;
+ }
+
+ var ctypedef = new CCodeTypeDefinition (get_ccode_name (creturn_type), cfundecl);
+
+ if (d.version.deprecated) {
+ if (context.profile == Profile.GOBJECT) {
+ decl_space.add_include ("glib.h");
+ }
+ ctypedef.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ decl_space.add_type_declaration (ctypedef);
+ }
+
+ public override void visit_delegate (Delegate d) {
+ generate_delegate_declaration (d, cfile);
+
+ if (!d.is_internal_symbol ()) {
+ generate_delegate_declaration (d, header_file);
+ }
+ if (!d.is_private_symbol ()) {
+ generate_delegate_declaration (d, internal_header_file);
+ }
+
+ d.accept_children (this);
+ }
+
+ public override string get_delegate_target_cname (string delegate_cname) {
+ return "%s_target".printf (delegate_cname);
+ }
+
+ public override CCodeExpression get_delegate_target_cexpression (Expression delegate_expr, out CCodeExpression delegate_target_destroy_notify) {
+ delegate_target_destroy_notify = get_delegate_target_destroy_notify_cvalue (delegate_expr.target_value);
+ return get_delegate_target_cvalue (delegate_expr.target_value);
+ }
+
+ public override CCodeExpression get_delegate_target_cvalue (TargetValue value) {
+ return ((GLibValue) value).delegate_target_cvalue;
+ }
+
+ public override CCodeExpression get_delegate_target_destroy_notify_cvalue (TargetValue value) {
+ return ((GLibValue) value).delegate_target_destroy_notify_cvalue;
+ }
+
+ public override string get_delegate_target_destroy_notify_cname (string delegate_cname) {
+ return "%s_target_destroy_notify".printf (delegate_cname);
+ }
+
+ public override CCodeExpression get_implicit_cast_expression (CCodeExpression source_cexpr, DataType? expression_type, DataType? target_type, CodeNode? node) {
+ if (target_type is DelegateType && expression_type is MethodType) {
+ var dt = (DelegateType) target_type;
+ var mt = (MethodType) expression_type;
+
+ var method = mt.method_symbol;
+ if (method.base_method != null) {
+ method = method.base_method;
+ } else if (method.base_interface_method != null) {
+ method = method.base_interface_method;
+ }
+
+ if (method.is_variadic ()) {
+ Report.warning (node.source_reference, "internal: Variadic method requires a direct cast to delegate");
+ } else {
+ return new CCodeIdentifier (generate_delegate_wrapper (method, dt, node));
+ }
+ }
+
+ return base.get_implicit_cast_expression (source_cexpr, expression_type, target_type, node);
+ }
+
+ public string generate_delegate_wrapper (Method m, DelegateType dt, CodeNode? node) {
+ var d = dt.delegate_symbol;
+ string delegate_name;
+ var sig = d.parent_symbol as Signal;
+ var dynamic_sig = sig as DynamicSignal;
+ if (dynamic_sig != null) {
+ delegate_name = get_dynamic_signal_cname (dynamic_sig);
+ } else if (sig != null) {
+ delegate_name = get_ccode_lower_case_prefix (sig.parent_symbol) + get_ccode_lower_case_name (sig);
+ } else {
+ delegate_name = Symbol.camel_case_to_lower_case (get_ccode_name (d));
+ }
+
+ string wrapper_name = "_%s_%s".printf (get_ccode_name (m), delegate_name);
+
+ if (!add_wrapper (wrapper_name)) {
+ // wrapper already defined
+ return wrapper_name;
+ }
+
+ // declaration
+ var creturn_type = get_callable_creturn_type (d);
+
+ var function = new CCodeFunction (wrapper_name, get_ccode_name (creturn_type));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ push_function (function);
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ if (d.has_target) {
+ var cparam = new CCodeParameter ("self", get_ccode_name (delegate_target_type));
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (d)), cparam);
+ }
+
+ if (d.sender_type != null) {
+ var param = new Parameter ("_sender", d.sender_type);
+ generate_parameter (param, cfile, cparam_map, null);
+ }
+
+ var d_params = d.get_parameters ();
+ foreach (Parameter param in d_params) {
+ if (dynamic_sig != null
+ && param.variable_type is ArrayType
+ && ((ArrayType) param.variable_type).element_type.type_symbol == string_type.type_symbol) {
+ // use null-terminated string arrays for dynamic signals for compatibility reasons
+ param.set_attribute_bool ("CCode", "array_length", false);
+ param.set_attribute_bool ("CCode", "array_null_terminated", true);
+ }
+
+ generate_parameter (param, cfile, cparam_map, null);
+ }
+ if (get_ccode_array_length (d) && d.return_type is ArrayType) {
+ // return array length if appropriate
+ var array_type = (ArrayType) d.return_type;
+ var length_ctype = get_ccode_array_length_type (d) + "*";
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var cparam = new CCodeParameter (get_array_length_cname ("result", dim), length_ctype);
+ cparam_map.set (get_param_pos (get_ccode_array_length_pos (d) + 0.01 * dim), cparam);
+ }
+ } else if (d.return_type is DelegateType) {
+ // return delegate target if appropriate
+ var deleg_type = (DelegateType) d.return_type;
+
+ if (get_ccode_delegate_target (d) && deleg_type.delegate_symbol.has_target) {
+ var cparam = new CCodeParameter (get_delegate_target_cname ("result"), get_ccode_name (delegate_target_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_delegate_target_pos (d)), cparam);
+ if (deleg_type.is_disposable ()) {
+ cparam = new CCodeParameter (get_delegate_target_destroy_notify_cname ("result"), get_ccode_name (delegate_target_destroy_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_destroy_notify_pos (d)), cparam);
+ }
+ }
+ } else if (d.return_type.is_real_non_null_struct_type ()) {
+ var cparam = new CCodeParameter ("result", "%s*".printf (get_ccode_name (d.return_type)));
+ cparam_map.set (get_param_pos (-3), cparam);
+ }
+
+ if (m.tree_can_fail) {
+ var cparam = new CCodeParameter ("error", "GError**");
+ cparam_map.set (get_param_pos (get_ccode_error_pos (d)), cparam);
+ }
+
+ // append C parameters in the right order
+ int last_pos = -1;
+ int min_pos;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in cparam_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ function.add_parameter (cparam_map.get (min_pos));
+ last_pos = min_pos;
+ }
+
+
+ // definition
+
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ int i = 0;
+ if (m.binding == MemberBinding.INSTANCE || m.closure) {
+ CCodeExpression arg;
+ if (d.has_target) {
+ arg = new CCodeIdentifier ("self");
+ if (!m.closure && m.this_parameter != null) {
+ arg = convert_from_generic_pointer (arg, m.this_parameter.variable_type);
+ }
+ } else {
+ // use first delegate parameter as instance
+ if (d_params.size == 0 || m.closure) {
+ Report.error (node != null ? node.source_reference : null, "internal: Cannot create delegate wrapper");
+ arg = new CCodeInvalidExpression ();
+ } else {
+ arg = new CCodeIdentifier (get_ccode_name (d_params.get (0)));
+ i = 1;
+ }
+ }
+ carg_map.set (get_param_pos (get_ccode_instance_pos (m)), arg);
+ }
+
+ bool first = true;
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (first && d.sender_type != null && m.get_parameters ().size == d.get_parameters ().size + 1) {
+ // sender parameter
+ carg_map.set (get_param_pos (get_ccode_pos (param)), new CCodeIdentifier ("_sender"));
+
+ first = false;
+ continue;
+ }
+
+ CCodeExpression arg;
+ arg = new CCodeIdentifier (get_ccode_name (d_params.get (i)));
+ if (d_params.get (i).variable_type is GenericType) {
+ arg = convert_from_generic_pointer (arg, param.variable_type);
+ }
+ carg_map.set (get_param_pos (get_ccode_pos (param)), arg);
+
+ // handle array arguments
+ if (get_ccode_array_length (param) && param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ CCodeExpression clength;
+ if (get_ccode_array_null_terminated (d_params.get (i))) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (new CCodeIdentifier (d_params.get (i).name));
+ clength = len_call;
+ } else if (!get_ccode_array_length (d_params.get (i))) {
+ clength = new CCodeConstant ("-1");
+ } else {
+ clength = new CCodeIdentifier (get_variable_array_length_cname (d_params.get (i), dim));
+ }
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), clength);
+ }
+ } else if (get_ccode_delegate_target (param) && param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+
+ if (deleg_type.delegate_symbol.has_target) {
+ var ctarget = new CCodeIdentifier (get_ccode_delegate_target_name (d_params.get (i)));
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), ctarget);
+ if (deleg_type.is_disposable ()) {
+ var ctarget_destroy_notify = new CCodeIdentifier (get_ccode_delegate_target_destroy_notify_name (d_params.get (i)));
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (m)), ctarget_destroy_notify);
+ }
+ }
+ }
+
+ i++;
+ }
+ if (get_ccode_array_length (m) && m.return_type is ArrayType) {
+ var array_type = (ArrayType) m.return_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ CCodeExpression clength;
+ if (!get_ccode_array_length (d)) {
+ clength = new CCodeConstant ("NULL");
+ } else {
+ clength = new CCodeIdentifier (get_array_length_cname ("result", dim));
+ }
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (m) + 0.01 * dim), clength);
+ }
+ } else if (get_ccode_delegate_target (m) && m.return_type is DelegateType) {
+ var deleg_type = (DelegateType) m.return_type;
+
+ if (deleg_type.delegate_symbol.has_target) {
+ var ctarget = new CCodeIdentifier (get_delegate_target_cname ("result"));
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (m)), ctarget);
+ if (deleg_type.is_disposable ()) {
+ var ctarget_destroy_notify = new CCodeIdentifier (get_delegate_target_destroy_notify_cname ("result"));
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (m)), ctarget_destroy_notify);
+ }
+ }
+ } else if (m.return_type.is_real_non_null_struct_type ()) {
+ carg_map.set (get_param_pos (-3), new CCodeIdentifier ("result"));
+ }
+
+ if (m.tree_can_fail) {
+ carg_map.set (get_param_pos (get_ccode_error_pos (m)), new CCodeIdentifier ("error"));
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (m)));
+
+ // append C arguments in the right order
+ last_pos = -1;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in carg_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ ccall.add_argument (carg_map.get (min_pos));
+ last_pos = min_pos;
+ }
+
+ if (m.coroutine) {
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ if (m.return_type is VoidType || m.return_type.is_real_non_null_struct_type ()) {
+ ccode.add_expression (ccall);
+ if (!(d.return_type is VoidType || d.return_type.is_real_non_null_struct_type ())) {
+ // return a default value
+ ccode.add_declaration (get_ccode_name (creturn_type), new CCodeVariableDeclarator ("result", default_value_for_type (d.return_type, true)));
+ }
+ } else {
+ CCodeExpression result = ccall;
+ if (d.return_type is GenericType) {
+ result = convert_to_generic_pointer (result, m.return_type);
+ }
+ ccode.add_declaration (get_ccode_name (creturn_type), new CCodeVariableDeclarator ("result", result));
+ }
+
+ if (d.has_target /* TODO: && dt.value_owned */ && dt.is_called_once) {
+ // destroy notify "self" after the call
+ CCodeExpression? destroy_notify = null;
+ if (m.closure) {
+ int block_id = get_block_id (current_closure_block);
+ destroy_notify = new CCodeIdentifier ("block%d_data_unref".printf (block_id));
+ } else if (get_this_type () != null && m.binding != MemberBinding.STATIC && !m.is_async_callback && is_reference_counting (m.this_parameter.variable_type.type_symbol)) {
+ destroy_notify = get_destroy_func_expression (m.this_parameter.variable_type);
+ }
+
+ if (destroy_notify != null) {
+ var unref_call = new CCodeFunctionCall (destroy_notify);
+ unref_call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (unref_call);
+ }
+ }
+
+ if (!(m.return_type is VoidType || m.return_type.is_real_non_null_struct_type ()) ||
+ !(d.return_type is VoidType || d.return_type.is_real_non_null_struct_type ())) {
+ ccode.add_return (new CCodeIdentifier ("result"));
+ }
+
+ pop_function ();
+
+ // append to file
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return wrapper_name;
+ }
+
+ public override CCodeParameter generate_parameter (Parameter param, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression>? carg_map) {
+ if (!(param.variable_type is DelegateType || param.variable_type is MethodType)) {
+ return base.generate_parameter (param, decl_space, cparam_map, carg_map);
+ }
+
+ var param_type = param.variable_type;
+ if (param_type is DelegateType && ((DelegateType) param_type).delegate_symbol == param.parent_symbol) {
+ // recursive delegate
+ param_type = new DelegateType ((Delegate) context.root.scope.lookup ("GLib").scope.lookup ("Callback"));
+ }
+
+ generate_type_declaration (param_type, decl_space);
+
+ string ctypename = get_ccode_name (param_type);
+ string target_ctypename = get_ccode_name (delegate_target_type);
+ string target_destroy_notify_ctypename = get_ccode_name (delegate_target_destroy_type);
+
+ if (param.direction != ParameterDirection.IN) {
+ ctypename += "*";
+ target_ctypename += "*";
+ target_destroy_notify_ctypename += "*";
+ }
+
+ var main_cparam = new CCodeParameter (get_ccode_name (param), ctypename);
+
+ cparam_map.set (get_param_pos (get_ccode_pos (param)), main_cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_pos (param)), get_parameter_cexpression (param));
+ }
+
+ if (param_type is DelegateType) {
+ unowned DelegateType deleg_type = (DelegateType) param_type;
+ if (get_ccode_delegate_target (param) && deleg_type.delegate_symbol.has_target) {
+ var cparam = new CCodeParameter (get_ccode_delegate_target_name (param), target_ctypename);
+ cparam_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), get_cexpression (cparam.name));
+ }
+ if (deleg_type.is_disposable ()) {
+ cparam = new CCodeParameter (get_ccode_delegate_target_destroy_notify_name (param), target_destroy_notify_ctypename);
+ cparam_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), get_cexpression (cparam.name));
+ }
+ }
+ }
+ } else if (param_type is MethodType) {
+ var cparam = new CCodeParameter (get_ccode_delegate_target_name (param), target_ctypename);
+ cparam_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), get_cexpression (cparam.name));
+ }
+ }
+
+ return main_cparam;
+ }
+}
--- /dev/null
+/* valaccodememberaccessmodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+public abstract class Vala.CCodeMemberAccessModule : CCodeControlFlowModule {
+ public override void visit_member_access (MemberAccess expr) {
+ CCodeExpression pub_inst = null;
+
+ if (expr.inner != null) {
+ pub_inst = get_cvalue (expr.inner);
+ }
+
+ var array_type = expr.value_type as ArrayType;
+ var delegate_type = expr.value_type as DelegateType;
+
+ if (expr.symbol_reference is Method) {
+ var m = (Method) expr.symbol_reference;
+
+ if (!(m is DynamicMethod || m is ArrayMoveMethod || m is ArrayResizeMethod || m is ArrayCopyMethod)) {
+ generate_method_declaration (m, cfile);
+
+ if (!m.external && m.external_package) {
+ // internal VAPI methods
+ // only add them once per source file
+ if (add_generated_external_symbol (m)) {
+ visit_method (m);
+ }
+ }
+ }
+
+ if (expr.inner is BaseAccess) {
+ CCodeExpression? vcast = null;
+ if (m.base_method != null) {
+ unowned Class base_class = (Class) m.base_method.parent_symbol;
+ vcast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_class)));
+ ((CCodeFunctionCall) vcast).add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (current_class))));
+ } else if (m.base_interface_method != null) {
+ unowned Interface base_iface = (Interface) m.base_interface_method.parent_symbol;
+ vcast = get_this_interface_cexpression (base_iface);
+ }
+ if (vcast != null) {
+ set_cvalue (expr, new CCodeMemberAccess.pointer (vcast, get_ccode_vfunc_name (m)));
+ return;
+ }
+ }
+
+ if (m.base_method != null) {
+ if (get_ccode_no_wrapper (m.base_method)) {
+ unowned Class base_class = (Class) m.base_method.parent_symbol;
+ if (!base_class.is_compact) {
+ var vclass = get_this_class_cexpression (base_class, expr.inner.target_value);
+ set_cvalue (expr, new CCodeMemberAccess.pointer (vclass, get_ccode_vfunc_name (m)));
+ } else {
+ set_cvalue (expr, new CCodeMemberAccess.pointer (pub_inst, get_ccode_vfunc_name (m)));
+ }
+ } else {
+ set_cvalue (expr, new CCodeIdentifier (get_ccode_name (m.base_method)));
+ }
+ } else if (m.base_interface_method != null) {
+ if (get_ccode_no_wrapper (m.base_interface_method)) {
+ unowned Interface base_iface = (Interface) m.base_interface_method.parent_symbol;
+ var vclass = get_this_interface_cexpression (base_iface, expr.inner.target_value);
+ set_cvalue (expr, new CCodeMemberAccess.pointer (vclass, get_ccode_vfunc_name (m)));
+ } else {
+ set_cvalue (expr, new CCodeIdentifier (get_ccode_name (m.base_interface_method)));
+ }
+ } else if (m is CreationMethod) {
+ set_cvalue (expr, new CCodeIdentifier (get_ccode_real_name (m)));
+ } else {
+ set_cvalue (expr, new CCodeIdentifier (get_ccode_name (m)));
+ }
+
+ set_delegate_target_destroy_notify (expr, new CCodeConstant ("NULL"));
+ if (m.binding == MemberBinding.STATIC) {
+ set_delegate_target (expr, new CCodeConstant ("NULL"));
+ } else if (m.is_async_callback) {
+ if (current_method.closure) {
+ var block = ((Method) m.parent_symbol).body;
+ set_delegate_target (expr, new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), "_async_data_"));
+ } else {
+ set_delegate_target (expr, new CCodeIdentifier ("_data_"));
+ }
+ } else if (expr.inner != null && !expr.prototype_access) {
+ // expr.inner is null in the special case of referencing the method in a constant initializer
+ var delegate_target = (CCodeExpression) get_ccodenode (expr.inner);
+ delegate_type = expr.target_type as DelegateType;
+ if ((expr.value_type.value_owned || (delegate_type != null && delegate_type.is_called_once)) && expr.inner.value_type.type_symbol != null && is_reference_counting (expr.inner.value_type.type_symbol)) {
+ var ref_call = new CCodeFunctionCall (get_dup_func_expression (expr.inner.value_type, expr.source_reference));
+ ref_call.add_argument (delegate_target);
+ delegate_target = ref_call;
+ set_delegate_target_destroy_notify (expr, get_destroy_func_expression (expr.inner.value_type));
+ }
+ set_delegate_target (expr, delegate_target);
+ }
+ } else if (expr.symbol_reference is ArrayLengthField) {
+ set_cvalue (expr, get_array_length_cexpression (expr.inner, 1));
+ } else if (expr.symbol_reference is DelegateTargetField) {
+ CCodeExpression delegate_target_destroy_notify;
+ set_cvalue (expr, get_delegate_target_cexpression (expr.inner, out delegate_target_destroy_notify) ?? new CCodeConstant ("NULL"));
+ } else if (expr.symbol_reference is DelegateDestroyField) {
+ CCodeExpression delegate_target_destroy_notify;
+ get_delegate_target_cexpression (expr.inner, out delegate_target_destroy_notify);
+ set_cvalue (expr, delegate_target_destroy_notify ?? new CCodeConstant ("NULL"));
+ } else if (expr.symbol_reference is GenericDupField) {
+ set_cvalue (expr, get_dup_func_expression (expr.inner.value_type, expr.source_reference));
+ } else if (expr.symbol_reference is GenericDestroyField) {
+ set_cvalue (expr, get_destroy_func_expression (expr.inner.value_type));
+ } else if (expr.symbol_reference is Field) {
+ var field = (Field) expr.symbol_reference;
+ if (expr.lvalue) {
+ expr.target_value = get_field_cvalue (field, expr.inner != null ? expr.inner.target_value : null);
+ } else {
+ expr.target_value = load_field (field, expr.inner != null ? expr.inner.target_value : null, expr);
+ }
+ } else if (expr.symbol_reference is EnumValue) {
+ var ev = (EnumValue) expr.symbol_reference;
+
+ generate_enum_declaration ((Enum) ev.parent_symbol, cfile);
+
+ set_cvalue (expr, new CCodeConstant (get_ccode_name (ev)));
+ } else if (expr.symbol_reference is Constant) {
+ var c = (Constant) expr.symbol_reference;
+
+ generate_constant_declaration (c, cfile,
+ c.source_reference != null && expr.source_reference != null &&
+ c.source_reference.file == expr.source_reference.file);
+
+ string fn = c.get_full_name ();
+ if (fn == "GLib.Log.FILE") {
+ string s = Path.get_basename (expr.source_reference.file.filename);
+ set_cvalue (expr, new CCodeConstant ("\"%s\"".printf (s)));
+ } else if (fn == "GLib.Log.LINE") {
+ int i = expr.source_reference.begin.line;
+ set_cvalue (expr, new CCodeConstant ("%d".printf (i)));
+ } else if (fn == "GLib.Log.METHOD") {
+ string s = "";
+ if (current_method != null) {
+ s = current_method.get_full_name ();
+ }
+ set_cvalue (expr, new CCodeConstant ("\"%s\"".printf (s)));
+ } else if (c.type_reference.is_non_null_simple_type ()) {
+ set_cvalue (expr, new CCodeConstant (get_ccode_name (c)));
+ } else {
+ set_cvalue (expr, new CCodeConstantIdentifier (get_ccode_name (c)));
+ }
+
+ if (array_type != null) {
+ string sub = "";
+ for (int i = 0; i < array_type.rank; i++) {
+ CCodeFunctionCall ccall;
+ if (context.profile == Profile.POSIX) {
+ requires_array_n_elements = true;
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("VALA_N_ELEMENTS"));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("G_N_ELEMENTS"));
+ }
+ ccall.add_argument (new CCodeIdentifier (get_ccode_name (c) + sub));
+ append_array_length (expr, ccall);
+ sub += "[0]";
+ }
+ ((GLibValue) expr.target_value).non_null = true;
+ }
+ } else if (expr.symbol_reference is Property) {
+ var prop = (Property) expr.symbol_reference;
+
+ if (!(prop is DynamicProperty)) {
+ generate_property_accessor_declaration (prop.get_accessor, cfile);
+
+ if (!prop.external && prop.external_package) {
+ // internal VAPI properties
+ // only add them once per source file
+ if (add_generated_external_symbol (prop)) {
+ visit_property (prop);
+ }
+ }
+ }
+
+ if (pub_inst == null && prop.binding == MemberBinding.INSTANCE) {
+ // FIXME Report this with proper source-reference on the vala side!
+ Report.error (prop.source_reference, "Invalid access to instance member `%s'", prop.get_full_name ());
+ set_cvalue (expr, new CCodeInvalidExpression ());
+ return;
+ }
+
+ unowned Property base_prop = prop;
+ if (prop.base_property != null) {
+ base_prop = prop.base_property;
+ } else if (prop.base_interface_property != null) {
+ base_prop = prop.base_interface_property;
+ }
+ if (expr.inner is BaseAccess && (base_prop.is_abstract || base_prop.is_virtual)) {
+ CCodeExpression? vcast = null;
+ if (base_prop.parent_symbol is Class) {
+ unowned Class base_class = (Class) base_prop.parent_symbol;
+ vcast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_class)));
+ ((CCodeFunctionCall) vcast).add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (current_class))));
+ } else if (base_prop.parent_symbol is Interface) {
+ unowned Interface base_iface = (Interface) base_prop.parent_symbol;
+ vcast = get_this_interface_cexpression (base_iface);
+ }
+ if (vcast != null) {
+ var ccall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, "get_%s".printf (prop.name)));
+ ccall.add_argument (get_cvalue (expr.inner));
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ var temp_value = (GLibValue) create_temp_value (prop.get_accessor.value_type, false, expr);
+ expr.target_value = load_temp_value (temp_value);
+ var ctemp = get_cvalue_ (temp_value);
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ctemp));
+ ccode.add_expression (ccall);
+ } else {
+ set_cvalue (expr, ccall);
+ }
+ } else {
+ Report.error (expr.source_reference, "internal: Invalid access to `%s'", base_prop.get_full_name ());
+ }
+ } else if (prop.binding == MemberBinding.INSTANCE &&
+ prop.get_accessor.automatic_body &&
+ !prop.get_accessor.value_type.value_owned &&
+ current_type_symbol == prop.parent_symbol &&
+ current_type_symbol is Class &&
+ prop.base_property == null &&
+ prop.base_interface_property == null &&
+ !(prop.property_type is ArrayType || prop.property_type is DelegateType)) {
+ CCodeExpression inst = pub_inst;
+ if (!((Class) current_type_symbol).is_compact) {
+ inst = new CCodeMemberAccess.pointer (inst, "priv");
+ }
+ set_cvalue (expr, new CCodeMemberAccess.pointer (inst, get_ccode_name (prop.field)));
+ } else if (!get_ccode_no_accessor_method (prop) && !(prop is DynamicProperty)) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (prop.get_accessor)));
+
+ if (prop.binding == MemberBinding.INSTANCE) {
+ if (prop.parent_symbol is Struct && !((Struct) prop.parent_symbol).is_simple_type ()) {
+ // we need to pass struct instance by reference
+ var instance = expr.inner.target_value;
+ if (!get_lvalue (instance)) {
+ instance = store_temp_value (instance, expr);
+ }
+ pub_inst = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (instance));
+ }
+
+ ccall.add_argument (pub_inst);
+ }
+
+ bool prop_is_real_non_null_struct_type = prop.property_type.is_real_non_null_struct_type ();
+ bool requires_init = prop.property_type is DelegateType || prop_is_real_non_null_struct_type;
+ var temp_value = (GLibValue) create_temp_value (prop.get_accessor.value_type, requires_init, expr);
+ expr.target_value = load_temp_value (temp_value);
+ var ctemp = get_cvalue_ (temp_value);
+
+ // Property access to real struct types is handled differently
+ // The value is returned by out parameter
+ if (prop_is_real_non_null_struct_type) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ctemp));
+ ccode.add_expression (ccall);
+ } else {
+ array_type = prop.property_type as ArrayType;
+ if (array_type != null) {
+ if (get_ccode_array_null_terminated (prop)) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (ctemp);
+
+ ccode.add_assignment (ctemp, ccall);
+ ccode.add_assignment (temp_value.array_length_cvalues[0], len_call);
+ } else if (get_ccode_array_length (prop)) {
+ var temp_refs = new ArrayList<CCodeExpression> ();
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var length_ctype = get_ccode_array_length_type (prop);
+ var temp_var = get_temp_variable (new CType (length_ctype, "0"), true, null, true);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+ emit_temp_var (temp_var);
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+ temp_refs.add (temp_ref);
+ }
+
+ ccode.add_assignment (ctemp, ccall);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (temp_value.array_length_cvalues[dim - 1], temp_refs.get (dim - 1));
+ }
+ } else {
+ ccode.add_assignment (ctemp, ccall);
+ }
+ } else {
+ ccode.add_assignment (ctemp, ccall);
+
+ delegate_type = prop.property_type as DelegateType;
+ if (delegate_type != null && get_ccode_delegate_target (prop) && delegate_type.delegate_symbol.has_target) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_delegate_target_cvalue (temp_value)));
+ } else {
+ if (temp_value.delegate_target_cvalue != null) {
+ ccode.add_assignment (temp_value.delegate_target_cvalue, new CCodeConstant ("NULL"));
+ }
+ if (temp_value.delegate_target_destroy_notify_cvalue != null) {
+ ccode.add_assignment (temp_value.delegate_target_destroy_notify_cvalue, new CCodeConstant ("NULL"));
+ }
+ }
+ }
+ }
+ } else {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_get"));
+ ccall.add_argument (pub_inst);
+
+ // property name is second argument of g_object_get
+ ccall.add_argument (get_property_canonical_cconstant (prop));
+
+ // g_object_get always returns owned values
+ // therefore, property getters of properties
+ // without accessor methods need to be marked as owned
+ if (!(prop is DynamicProperty) && !prop.get_accessor.value_type.value_owned) {
+ // only report error for types where there actually
+ // is a difference between `owned' and `unowned'
+ var owned_value_type = prop.get_accessor.value_type.copy ();
+ owned_value_type.value_owned = true;
+ if (requires_copy (owned_value_type)) {
+ Report.error (prop.get_accessor.source_reference, "unowned return value for getter of property `%s' not supported without accessor", prop.get_full_name ());
+ }
+ }
+
+ if (expr.value_type.is_real_struct_type ()) {
+ // gobject allocates structs on heap
+ expr.value_type.nullable = true;
+ }
+
+ var temp_var = get_temp_variable (expr.value_type);
+ var ctemp = get_variable_cexpression (temp_var.name);
+ emit_temp_var (temp_var);
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ctemp));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (ccall);
+ set_cvalue (expr, ctemp);
+ }
+
+ if (prop.get_accessor.value_type is GenericType) {
+ expr.target_value.value_type = prop.get_accessor.value_type.copy ();
+ } else {
+ expr.target_value.value_type = expr.value_type.copy ();
+ }
+ expr.target_value = store_temp_value (expr.target_value, expr);
+ } else if (expr.symbol_reference is LocalVariable) {
+ var local = (LocalVariable) expr.symbol_reference;
+
+ if (expr.parent_node is ReturnStatement &&
+ current_return_type.value_owned &&
+ local.variable_type.value_owned &&
+ !local.captured &&
+ !variable_accessible_in_finally (local) &&
+ !(local.variable_type is ArrayType && ((ArrayType) local.variable_type).inline_allocated)) {
+ /* return expression is local variable taking ownership and
+ * current method is transferring ownership */
+
+ // don't ref expression
+ expr.value_type.value_owned = true;
+
+ // don't unref variable
+ local.active = false;
+
+ var glib_value = (GLibValue) get_local_cvalue (local);
+ expr.target_value = glib_value;
+ if (glib_value.delegate_target_cvalue == null) {
+ glib_value.delegate_target_cvalue = new CCodeConstant ("NULL");
+ }
+ if (glib_value.delegate_target_destroy_notify_cvalue == null) {
+ glib_value.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ }
+ } else {
+ if (expr.lvalue) {
+ expr.target_value = get_local_cvalue (local);
+ } else {
+ expr.target_value = load_local (local, expr);
+ }
+ }
+ } else if (expr.symbol_reference is Parameter) {
+ var param = (Parameter) expr.symbol_reference;
+ if (expr.lvalue) {
+ expr.target_value = get_parameter_cvalue (param);
+ } else {
+ expr.target_value = load_parameter (param, expr);
+ }
+ }
+
+ // Add cast for narrowed type access of variables if needed
+ if (expr.symbol_reference is Variable) {
+ unowned GLibValue cvalue = (GLibValue) expr.target_value;
+ if (!(cvalue.value_type is GenericType) && cvalue.value_type.type_symbol != null
+ && cvalue.value_type.type_symbol != expr.value_type.type_symbol) {
+ cvalue.cvalue = new CCodeCastExpression (cvalue.cvalue, get_ccode_name (expr.value_type));
+ }
+ }
+ }
+
+ /* Returns lvalue access to the given local variable */
+ public override TargetValue get_local_cvalue (LocalVariable local) {
+ var result = new GLibValue (local.variable_type.copy ());
+ result.lvalue = true;
+
+ var array_type = local.variable_type as ArrayType;
+ var delegate_type = local.variable_type as DelegateType;
+ if (local.is_result) {
+ // used in postconditions
+ // structs are returned as out parameter
+ if (local.variable_type != null && local.variable_type.is_real_non_null_struct_type ()) {
+ result.cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result"));
+ } else {
+ result.cvalue = new CCodeIdentifier ("result");
+ }
+ if (array_type != null && !array_type.fixed_length && ((current_method != null && get_ccode_array_length (current_method)) || current_property_accessor != null)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ result.append_array_length_cvalue (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, get_variable_cexpression (get_array_length_cname ("result", dim))));
+ }
+ }
+ } else if (local.captured) {
+ // captured variables are stored on the heap
+ var block = (Block) local.parent_symbol;
+ result.cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_local_cname (local));
+ if (array_type != null && !array_type.fixed_length) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ result.append_array_length_cvalue (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_array_length_cname (get_local_cname (local), dim)));
+ }
+ if (array_type.rank == 1) {
+ result.array_size_cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_array_size_cname (get_local_cname (local)));
+ }
+ } else if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ result.delegate_target_cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_delegate_target_cname (get_local_cname (local)));
+ if (delegate_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_delegate_target_destroy_notify_cname (get_local_cname (local)));
+ }
+ }
+ } else {
+ result.cvalue = get_local_cexpression (local);
+ if (array_type != null && !array_type.fixed_length) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ result.append_array_length_cvalue (get_variable_cexpression (get_array_length_cname (get_local_cname (local), dim)));
+ }
+ if (array_type.rank == 1) {
+ result.array_size_cvalue = get_variable_cexpression (get_array_size_cname (get_local_cname (local)));
+ }
+ } else if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ if (is_in_coroutine ()) {
+ result.delegate_target_cvalue = get_variable_cexpression (get_delegate_target_cname (get_local_cname (local)));
+ if (local.variable_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = get_variable_cexpression (get_delegate_target_destroy_notify_cname (get_local_cname (local)));
+ }
+ } else {
+ result.delegate_target_cvalue = new CCodeIdentifier (get_delegate_target_cname (get_local_cname (local)));
+ if (local.variable_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = new CCodeIdentifier (get_delegate_target_destroy_notify_cname (get_local_cname (local)));
+ }
+ }
+ }
+ }
+
+ return result;
+ }
+
+ /* Returns access values to the given parameter */
+ public override TargetValue get_parameter_cvalue (Parameter param) {
+ var result = new GLibValue (param.variable_type.copy ());
+ result.lvalue = true;
+ result.array_null_terminated = get_ccode_array_null_terminated (param);
+ if (get_ccode_array_length_expr (param) != null) {
+ result.array_length_cexpr = new CCodeConstant (get_ccode_array_length_expr (param));
+ }
+ result.ctype = get_ccode_type (param);
+
+ var array_type = result.value_type as ArrayType;
+ var delegate_type = result.value_type as DelegateType;
+
+ bool is_unowned_delegate = delegate_type != null && !param.variable_type.value_owned;
+ if ((param.captured || is_in_coroutine ()) && !is_unowned_delegate) {
+ result.value_type.value_owned = true;
+ }
+
+ if (param.name == "this") {
+ if (is_in_coroutine ()) {
+ // use closure
+ result.cvalue = get_this_cexpression ();
+ } else {
+ unowned Struct? st = result.value_type.type_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ result.cvalue = new CCodeIdentifier ("(*self)");
+ } else {
+ result.cvalue = new CCodeIdentifier ("self");
+ }
+ }
+ } else {
+ string name = get_ccode_name (param);
+
+ if (param.captured && !is_in_method_precondition) {
+ // captured variables are stored on the heap
+ var block = param.parent_symbol as Block;
+ if (block == null) {
+ block = ((Method) param.parent_symbol).body;
+ }
+ result.cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_ccode_name (param));
+ if (array_type != null && get_ccode_array_length (param)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ result.append_array_length_cvalue (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_variable_array_length_cname (param, dim)));
+ }
+ } else if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ result.delegate_target_cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_ccode_delegate_target_name (param));
+ if (result.value_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), get_ccode_delegate_target_destroy_notify_name (param));
+ }
+ }
+ } else if (is_in_coroutine ()) {
+ // use closure
+ result.cvalue = get_parameter_cexpression (param);
+ if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ result.delegate_target_cvalue = get_variable_cexpression (get_ccode_delegate_target_name (param));
+ if (delegate_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = get_variable_cexpression (get_ccode_delegate_target_destroy_notify_name (param));
+ }
+ }
+ } else {
+ unowned Struct? type_as_struct = result.value_type.type_symbol as Struct;
+
+ if (param.direction == ParameterDirection.OUT) {
+ name = "_vala_%s".printf (name);
+ }
+
+ if (param.direction == ParameterDirection.REF ||
+ (param.direction == ParameterDirection.IN && type_as_struct != null && !type_as_struct.is_simple_type () && !result.value_type.nullable)) {
+ result.cvalue = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier (name));
+ } else {
+ result.cvalue = get_variable_cexpression (name);
+ }
+ if (get_ccode_delegate_target (param) && delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ var target_cname = get_ccode_delegate_target_name (param);
+ var destroy_cname = get_ccode_delegate_target_destroy_notify_name (param);
+ if (param.direction == ParameterDirection.OUT) {
+ target_cname = "_vala_%s".printf (target_cname);
+ destroy_cname = "_vala_%s".printf (destroy_cname);
+ }
+ CCodeExpression target_expr = new CCodeIdentifier (target_cname);
+ CCodeExpression delegate_target_destroy_notify = new CCodeIdentifier (destroy_cname);
+ if (param.direction == ParameterDirection.REF) {
+ // accessing argument of ref param
+ target_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, target_expr);
+ delegate_target_destroy_notify = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, delegate_target_destroy_notify);
+ }
+ result.delegate_target_cvalue = target_expr;
+ if (result.value_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = delegate_target_destroy_notify;
+ }
+ }
+ }
+ if (!param.captured && array_type != null) {
+ if (get_ccode_array_length (param) && !get_ccode_array_null_terminated (param)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ CCodeExpression length_expr = get_cexpression (get_variable_array_length_cname (param, dim));
+ if (param.direction == ParameterDirection.OUT) {
+ length_expr = get_cexpression (get_array_length_cname (name, dim));
+ } else if (param.direction == ParameterDirection.REF) {
+ // accessing argument of ref param
+ length_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, length_expr);
+ }
+ result.append_array_length_cvalue (length_expr);
+ }
+ }
+ }
+ }
+
+ return result;
+ }
+
+ /* Returns lvalue access to the given field */
+ public override TargetValue get_field_cvalue (Field field, TargetValue? instance) {
+ var value_type = field.variable_type.copy ();
+
+ var result = new GLibValue (value_type);
+ if (instance != null) {
+ result.actual_value_type = field.variable_type.get_actual_type (instance.value_type, null, field);
+ }
+ result.lvalue = true;
+ result.array_null_terminated = get_ccode_array_null_terminated (field);
+ if (get_ccode_array_length_expr (field) != null) {
+ result.array_length_cexpr = new CCodeConstant (get_ccode_array_length_expr (field));
+ }
+ result.ctype = get_ccode_type (field);
+
+ var array_type = result.value_type as ArrayType;
+ if (field.binding == MemberBinding.INSTANCE) {
+ CCodeExpression pub_inst = null;
+
+ if (instance != null) {
+ pub_inst = get_cvalue_ (instance);
+ }
+
+ var instance_target_type = SemanticAnalyzer.get_data_type_for_symbol (field.parent_symbol);
+
+ unowned Class? cl = instance_target_type.type_symbol as Class;
+ bool is_gtypeinstance = ((instance_target_type.type_symbol == cl) && (cl == null || !cl.is_compact));
+
+ CCodeExpression inst;
+ if (is_gtypeinstance && field.access == SymbolAccessibility.PRIVATE) {
+ inst = new CCodeMemberAccess.pointer (pub_inst, "priv");
+ } else {
+ if (cl != null) {
+ generate_class_struct_declaration (cl, cfile);
+ }
+ inst = pub_inst;
+ }
+
+ if (inst == null) {
+ // FIXME Report this with proper source-reference on the vala side!
+ Report.error (field.source_reference, "Invalid access to instance member `%s'", field.get_full_name ());
+ result.cvalue = new CCodeInvalidExpression ();
+ return result;
+ }
+
+ if (instance_target_type.type_symbol.is_reference_type () || (instance != null && instance.value_type is PointerType)) {
+ result.cvalue = new CCodeMemberAccess.pointer (inst, get_ccode_name (field));
+ } else {
+ result.cvalue = new CCodeMemberAccess (inst, get_ccode_name (field));
+ }
+
+ if (array_type != null && get_ccode_array_length (field)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ CCodeExpression length_expr = null;
+ string length_cname = get_variable_array_length_cname (field, dim);
+
+ if (((TypeSymbol) field.parent_symbol).is_reference_type ()) {
+ length_expr = new CCodeMemberAccess.pointer (inst, length_cname);
+ } else {
+ length_expr = new CCodeMemberAccess (inst, length_cname);
+ }
+
+ result.append_array_length_cvalue (length_expr);
+ }
+ if (array_type.rank == 1 && field.is_internal_symbol ()) {
+ string size_cname = get_array_size_cname (get_ccode_name (field));
+
+ if (((TypeSymbol) field.parent_symbol).is_reference_type ()) {
+ set_array_size_cvalue (result, new CCodeMemberAccess.pointer (inst, size_cname));
+ } else {
+ set_array_size_cvalue (result, new CCodeMemberAccess (inst, size_cname));
+ }
+ }
+ } else if (get_ccode_delegate_target (field)) {
+ string target_cname = get_ccode_delegate_target_name (field);
+ string target_destroy_notify_cname = get_ccode_delegate_target_destroy_notify_name (field);
+
+ if (((TypeSymbol) field.parent_symbol).is_reference_type ()) {
+ result.delegate_target_cvalue = new CCodeMemberAccess.pointer (inst, target_cname);
+ if (result.value_type.is_disposable ()){
+ result.delegate_target_destroy_notify_cvalue = new CCodeMemberAccess.pointer (inst, target_destroy_notify_cname);
+ }
+ } else {
+ result.delegate_target_cvalue = new CCodeMemberAccess (inst, target_cname);
+ if (result.value_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = new CCodeMemberAccess (inst, target_destroy_notify_cname);
+ }
+ }
+ }
+ } else if (field.binding == MemberBinding.CLASS) {
+ unowned Class cl = (Class) field.parent_symbol;
+ var cast = get_this_class_cexpression (cl, instance);
+ if (field.access == SymbolAccessibility.PRIVATE) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_get_private_function (cl)));
+ ccall.add_argument (cast);
+ result.cvalue = new CCodeMemberAccess.pointer (ccall, get_ccode_name (field));
+ } else {
+ result.cvalue = new CCodeMemberAccess.pointer (cast, get_ccode_name (field));
+ }
+
+ } else {
+ generate_field_declaration (field, cfile);
+
+ result.cvalue = new CCodeIdentifier (get_ccode_name (field));
+
+ if (array_type != null && get_ccode_array_length (field)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (field, dim);
+ result.append_array_length_cvalue (new CCodeIdentifier (length_cname));
+ }
+ if (array_type.rank == 1 && field.is_internal_symbol ()) {
+ set_array_size_cvalue (result, new CCodeIdentifier (get_array_size_cname (get_ccode_name (field))));
+ }
+ } else if (get_ccode_delegate_target (field)) {
+ result.delegate_target_cvalue = new CCodeIdentifier (get_ccode_delegate_target_name (field));
+ if (result.value_type.is_disposable ()) {
+ result.delegate_target_destroy_notify_cvalue = new CCodeIdentifier (get_ccode_delegate_target_destroy_notify_name (field));
+ }
+ }
+ }
+
+ return result;
+ }
+
+ public override TargetValue load_variable (Variable variable, TargetValue value, Expression? expr = null) {
+ var result = (GLibValue) value;
+ var array_type = result.value_type as ArrayType;
+ var delegate_type = result.value_type as DelegateType;
+ if (array_type != null) {
+ if (array_type.fixed_length) {
+ result.array_length_cvalues = null;
+ result.append_array_length_cvalue (get_ccodenode (array_type.length));
+ result.lvalue = false;
+ } else if (get_ccode_array_null_terminated (variable)) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (result.cvalue);
+
+ result.array_length_cvalues = null;
+ result.append_array_length_cvalue (len_call);
+ result.lvalue = false;
+ } else if (get_ccode_array_length_expr (variable) != null) {
+ var length_expr = new CCodeConstant (get_ccode_array_length_expr (variable));
+
+ result.array_length_cvalues = null;
+ result.append_array_length_cvalue (length_expr);
+ result.lvalue = false;
+ } else if (!get_ccode_array_length (variable)) {
+ result.array_length_cvalues = null;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ result.append_array_length_cvalue (new CCodeConstant ("-1"));
+ }
+ result.lvalue = false;
+ } else if (get_ccode_array_length_type (variable.variable_type) != get_ccode_array_length_type (array_type)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ // cast if variable does not use int for array length
+ result.array_length_cvalues[dim - 1] = new CCodeCastExpression (result.array_length_cvalues[dim - 1], get_ccode_array_length_type (array_type));
+ }
+ result.lvalue = false;
+ }
+ result.array_size_cvalue = null;
+ result.non_null = array_type.inline_allocated;
+ } else if (delegate_type != null) {
+ if (!get_ccode_delegate_target (variable)) {
+ result.delegate_target_cvalue = new CCodeConstant ("NULL");
+ result.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ }
+
+ result.lvalue = false;
+ }
+ result.value_type.value_owned = false;
+
+ bool use_temp = true;
+ if (!is_lvalue_access_allowed (result.value_type)) {
+ // special handling for types such as va_list
+ use_temp = false;
+ }
+ if (variable is Parameter) {
+ var param = (Parameter) variable;
+ if (variable.name == "this") {
+ use_temp = false;
+ } else if ((param.direction != ParameterDirection.OUT)
+ && !(param.variable_type.is_real_non_null_struct_type ())) {
+ use_temp = false;
+ }
+ }
+ if (variable.single_assignment && !result.value_type.is_real_non_null_struct_type ()) {
+ // no need to copy values from variables that are assigned exactly once
+ // as there is no risk of modification
+ // except for structs that are always passed by reference
+ use_temp = false;
+ }
+ if (result.value_type.is_non_null_simple_type ()) {
+ // no need to an extra copy of variables that are stack allocated simple types
+ use_temp = false;
+ }
+ // our implementation of postfix-expressions require temporary variables
+ if (expr is MemberAccess && ((MemberAccess) expr).tainted_access) {
+ use_temp = true;
+ }
+
+ var local = variable as LocalVariable;
+ if (local != null && local.name[0] == '.') {
+ // already a temporary variable generated internally
+ // and safe to access without temporary variable
+ use_temp = false;
+ }
+
+ if (use_temp) {
+ result = (GLibValue) store_temp_value (result, variable);
+ }
+
+ return result;
+ }
+
+ /* Returns unowned access to the given local variable */
+ public override TargetValue load_local (LocalVariable local, Expression? expr = null) {
+ return load_variable (local, get_local_cvalue (local), expr);
+ }
+
+ /* Returns unowned access to the given parameter */
+ public override TargetValue load_parameter (Parameter param, Expression? expr = null) {
+ return load_variable (param, get_parameter_cvalue (param), expr);
+ }
+
+ /* Convenience method returning access to "this" */
+ public override TargetValue load_this_parameter (TypeSymbol sym) {
+ var param = new Parameter ("this", SemanticAnalyzer.get_data_type_for_symbol (sym));
+ return load_parameter (param);
+ }
+
+ /* Returns unowned access to the given field */
+ public override TargetValue load_field (Field field, TargetValue? instance, Expression? expr = null) {
+ return load_variable (field, get_field_cvalue (field, instance), expr);
+ }
+}
--- /dev/null
+/* valaccodemethodcallmodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+public class Vala.CCodeMethodCallModule : CCodeAssignmentModule {
+ public override void visit_method_call (MethodCall expr) {
+ // the bare function call
+ var ccall = new CCodeFunctionCall (get_cvalue (expr.call));
+
+ CCodeFunctionCall async_call = null;
+ CCodeFunctionCall finish_call = null;
+
+ Method m = null;
+ Delegate deleg = null;
+ List<Parameter> params;
+
+ var ma = expr.call as MemberAccess;
+
+ var itype = expr.call.value_type;
+ params = itype.get_parameters ();
+
+ if (itype is MethodType) {
+ assert (ma != null);
+ m = ((MethodType) itype).method_symbol;
+
+ if (!get_ccode_simple_generics (m)) {
+ context.analyzer.check_type_arguments (ma);
+ }
+
+ if (ma.inner != null && ma.inner.value_type is EnumValueType && ((EnumValueType) ma.inner.value_type).get_to_string_method() == m) {
+ // Enum.VALUE.to_string()
+ unowned Enum en = (Enum) ma.inner.value_type.type_symbol;
+ ccall.call = new CCodeIdentifier (generate_enum_to_string_function (en));
+ } else if (context.profile == Profile.POSIX && ma.inner != null && ma.inner.value_type != null && ma.inner.value_type.type_symbol == string_type.type_symbol && ma.member_name == "printf") {
+ ccall.call = new CCodeIdentifier (generate_string_printf_function ());
+ } else if (expr.is_constructv_chainup) {
+ ccall.call = new CCodeIdentifier (get_ccode_constructv_name ((CreationMethod) m));
+ }
+ } else if (itype is SignalType) {
+ var sig_type = (SignalType) itype;
+ if (ma != null && ma.inner is BaseAccess && sig_type.signal_symbol.is_virtual) {
+ m = sig_type.signal_symbol.default_handler;
+ } else {
+ ccall = (CCodeFunctionCall) get_cvalue (expr.call);
+ }
+ } else if (itype is ObjectType) {
+ // constructor
+ var cl = (Class) ((ObjectType) itype).type_symbol;
+ m = cl.default_construction_method;
+ generate_method_declaration (m, cfile);
+ var real_name = get_ccode_real_name (m);
+ if (expr.is_constructv_chainup) {
+ real_name = get_ccode_constructv_name ((CreationMethod) m);
+ }
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (real_name));
+ } else if (itype is StructValueType) {
+ // constructor
+ var st = (Struct) ((StructValueType) itype).type_symbol;
+ m = st.default_construction_method;
+ generate_method_declaration (m, cfile);
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (m)));
+ } else if (itype is DelegateType) {
+ deleg = ((DelegateType) itype).delegate_symbol;
+ }
+
+ var in_arg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ var out_arg_map = in_arg_map;
+
+ if (m != null && m.coroutine) {
+ // async call
+
+ async_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (m)));
+ finish_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_finish_name (m)));
+
+ if (ma.inner is BaseAccess) {
+ CCodeExpression? vcast = null;
+ if (m.base_method != null) {
+ unowned Class base_class = (Class) m.base_method.parent_symbol;
+ vcast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_class)));
+ ((CCodeFunctionCall) vcast).add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (current_class))));
+ } else if (m.base_interface_method != null) {
+ unowned Interface base_iface = (Interface) m.base_interface_method.parent_symbol;
+ vcast = get_this_interface_cexpression (base_iface);
+ }
+ if (vcast != null) {
+ async_call.call = new CCodeMemberAccess.pointer (vcast, get_ccode_vfunc_name (m));
+ finish_call.call = new CCodeMemberAccess.pointer (vcast, get_ccode_finish_vfunc_name (m));
+ }
+ } else if (m != null && get_ccode_no_wrapper (m) && m.binding == MemberBinding.INSTANCE && !(m is CreationMethod)) {
+ var instance_value = ma.inner.target_value;
+ if ((ma.member_name == "begin" || ma.member_name == "end") && ma.inner.symbol_reference == ma.symbol_reference) {
+ var inner_ma = (MemberAccess) ma.inner;
+ instance_value = inner_ma.inner.target_value;
+ }
+
+ CCodeExpression? vcast = null;
+ if (m.parent_symbol is Class) {
+ unowned Class base_class = (Class) m.parent_symbol;
+ vcast = get_this_class_cexpression (base_class, instance_value);
+ } else if (m.parent_symbol is Interface) {
+ unowned Interface base_iface = (Interface) m.parent_symbol;
+ vcast = get_this_interface_cexpression (base_iface, instance_value);
+ }
+ if (vcast != null) {
+ async_call.call = new CCodeMemberAccess.pointer (vcast, get_ccode_vfunc_name (m));
+ finish_call.call = new CCodeMemberAccess.pointer (vcast, get_ccode_finish_vfunc_name (m));
+ }
+ }
+
+ if (ma.member_name == "begin" && ma.inner.symbol_reference == ma.symbol_reference) {
+ // no finish call
+ ccall = async_call;
+ params = m.get_async_begin_parameters ();
+ } else if (ma.member_name == "end" && ma.inner.symbol_reference == ma.symbol_reference) {
+ // no async call
+ ccall = finish_call;
+ params = m.get_async_end_parameters ();
+ } else if (!expr.is_yield_expression) {
+ // same as .begin, backwards compatible to bindings without async methods
+ ccall = async_call;
+ params = m.get_async_begin_parameters ();
+ } else {
+ ccall = finish_call;
+ // output arguments used separately
+ out_arg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ // pass GAsyncResult stored in closure to finish function
+ out_arg_map.set (get_param_pos (get_ccode_async_result_pos (m)), get_variable_cexpression ("_res_"));
+ }
+ }
+
+ if (m is CreationMethod && m.parent_symbol is Class) {
+ if (context.profile == Profile.GOBJECT) {
+ if (!((Class) m.parent_symbol).is_compact) {
+ ccall.add_argument (get_variable_cexpression ("object_type"));
+ }
+ } else {
+ ccall.add_argument (get_this_cexpression ());
+ }
+
+ if (!current_class.is_compact) {
+ int type_param_index = 0;
+ if (current_class != m.parent_symbol) {
+ // chain up to base class
+ foreach (DataType base_type in current_class.get_base_types ()) {
+ if (base_type.type_symbol is Class) {
+ List<TypeParameter> type_parameters = null;
+ if (get_ccode_real_name (m) == "g_object_new") {
+ // gobject-style chainup
+ type_parameters = ((Class) base_type.type_symbol).get_type_parameters ();
+ type_param_index += type_parameters.size;
+ }
+ add_generic_type_arguments (m, in_arg_map, base_type.get_type_arguments (), expr, true, type_parameters);
+ break;
+ }
+ }
+ } else {
+ // chain up to other constructor in same class
+ var cl = (Class) m.parent_symbol;
+ foreach (TypeParameter type_param in cl.get_type_parameters ()) {
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.01), new CCodeIdentifier (get_ccode_type_id (type_param)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.02), new CCodeIdentifier (get_ccode_copy_function (type_param)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.03), new CCodeIdentifier (get_ccode_destroy_function (type_param)));
+ type_param_index++;
+ }
+ }
+ if (current_class.has_type_parameters () && get_ccode_real_name (m) == "g_object_new") {
+ // gobject-style construction
+ foreach (var type_param in current_class.get_type_parameters ()) {
+ var type_param_name = type_param.name.ascii_down ().replace ("_", "-");
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.01), new CCodeConstant ("\"%s-type\"".printf (type_param_name)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.02), new CCodeIdentifier (get_ccode_type_id (type_param)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.03), new CCodeConstant ("\"%s-dup-func\"".printf (type_param_name)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.04), new CCodeIdentifier (get_ccode_copy_function (type_param)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.05), new CCodeConstant ("\"%s-destroy-func\"".printf (type_param_name)));
+ in_arg_map.set (get_param_pos (0.1 * type_param_index + 0.06), new CCodeIdentifier (get_ccode_destroy_function (type_param)));
+ type_param_index++;
+ }
+ }
+ } else if (current_class.is_subtype_of (gsource_type)) {
+ // g_source_new
+
+ string class_prefix = get_ccode_lower_case_name (current_class);
+ string prepare_func = "NULL";
+ string check_func = "NULL";
+ foreach (Method impl in current_class.get_methods ()) {
+ if (!impl.overrides) {
+ continue;
+ }
+ switch (impl.name) {
+ case "prepare":
+ prepare_func = "%s_real_prepare".printf (class_prefix);
+ break;
+ case "check":
+ check_func = "%s_real_check".printf (class_prefix);
+ break;
+ default:
+ break;
+ }
+ }
+
+ var funcs = new CCodeDeclaration ("const GSourceFuncs");
+ funcs.modifiers = CCodeModifiers.STATIC;
+ funcs.add_declarator (new CCodeVariableDeclarator ("_source_funcs", new CCodeConstant ("{ %s, %s, %s_real_dispatch, %s_finalize}".printf (prepare_func, check_func, class_prefix, class_prefix))));
+ ccode.add_statement (funcs);
+
+ ccall.add_argument (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_source_funcs")), "GSourceFuncs *"));
+
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (current_class)));
+ ccall.add_argument (csizeof);
+ } else if (current_class.base_class != null && get_ccode_simple_generics (m)) {
+ if (current_class != m.parent_symbol) {
+ foreach (DataType base_type in current_class.get_base_types ()) {
+ if (base_type.type_symbol is Class) {
+ add_generic_type_arguments (m, in_arg_map, base_type.get_type_arguments (), expr);
+ break;
+ }
+ }
+ } else {
+ // TODO: simple generics are only supported in bindings.
+ }
+ }
+ } else if (m is CreationMethod && m.parent_symbol is Struct) {
+ ccall.add_argument (get_this_cexpression ());
+ } else if (m != null && m.has_type_parameters () && !get_ccode_has_generic_type_parameter (m) && !get_ccode_simple_generics (m) && (ccall != finish_call || expr.is_yield_expression)) {
+ // generic method
+ // don't add generic arguments for .end() calls
+ add_generic_type_arguments (m, in_arg_map, ma.get_type_arguments (), expr);
+ }
+
+ // the complete call expression, might include casts, comma expressions, and/or assignments
+ CCodeExpression ccall_expr = ccall;
+
+ if (m is ArrayResizeMethod && context.profile != Profile.POSIX) {
+ var array_type = (ArrayType) ma.inner.value_type;
+ in_arg_map.set (get_param_pos (0), new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ } else if (m is ArrayMoveMethod) {
+ requires_array_move = true;
+ } else if (m is ArrayCopyMethod) {
+ expr.target_value = copy_value (ma.inner.target_value, expr);
+ return;
+ }
+
+ CCodeExpression instance = null;
+ if (m != null && m.is_async_callback) {
+ if (current_method.closure) {
+ var block = ((Method) m.parent_symbol).body;
+ instance = new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (block))), "_async_data_");
+ } else {
+ instance = new CCodeIdentifier ("_data_");
+ }
+
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ } else if (m != null && m.binding == MemberBinding.INSTANCE && !(m is CreationMethod)) {
+ var instance_value = ma.inner.target_value;
+ if ((ma.member_name == "begin" || ma.member_name == "end") && ma.inner.symbol_reference == ma.symbol_reference) {
+ var inner_ma = (MemberAccess) ma.inner;
+ instance_value = inner_ma.inner.target_value;
+ }
+ instance = get_cvalue_ (instance_value);
+
+ var st = m.parent_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ // we need to pass struct instance by reference
+ if (!get_lvalue (instance_value)) {
+ instance_value = store_temp_value (instance_value, expr);
+ }
+ instance = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (instance_value));
+ }
+
+ if (!m.coroutine) {
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ } else if (expr.is_yield_expression) {
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ if (get_ccode_finish_instance (m)) {
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ }
+ } else if (ma.member_name != "end" || get_ccode_finish_instance (m)) {
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), instance);
+ }
+ } else if (m != null && m.binding == MemberBinding.CLASS) {
+ unowned Class cl = (Class) m.parent_symbol;
+ var cast = get_this_class_cexpression (cl, ma.inner != null ? ma.inner.target_value : null);
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), cast);
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (m)), cast);
+ }
+
+ if (m != null && get_ccode_has_generic_type_parameter (m)) {
+ // insert type argument for macros
+ if (m.has_type_parameters ()) {
+ // generic method
+ int type_param_index = 0;
+ foreach (var type_arg in ma.get_type_arguments ()) {
+ // real structs are passed by reference for simple generics
+ if (get_ccode_simple_generics (m) && type_arg.is_real_struct_type () && !type_arg.nullable && !(type_arg is PointerType)) {
+ type_arg = new PointerType (type_arg);
+ }
+ in_arg_map.set (get_param_pos (get_ccode_generic_type_pos (m) + 0.01 * type_param_index), new CCodeIdentifier (get_ccode_name (type_arg)));
+ type_param_index++;
+ }
+ } else {
+ // method in generic type
+ int type_param_index = 0;
+ foreach (var type_arg in ma.inner.value_type.get_type_arguments ()) {
+ in_arg_map.set (get_param_pos (get_ccode_generic_type_pos (m) + 0.01 * type_param_index), new CCodeIdentifier (get_ccode_name (type_arg)));
+ type_param_index++;
+ }
+ }
+ }
+
+ if (m is ArrayMoveMethod) {
+ var array_type = (ArrayType) ma.inner.value_type;
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ in_arg_map.set (get_param_pos (0.1), csizeof);
+ } else if (m is DynamicMethod) {
+ emit_context.push_symbol (m);
+ m.clear_parameters ();
+ int param_nr = 1;
+ foreach (Expression arg in expr.get_argument_list ()) {
+ var unary = arg as UnaryExpression;
+ if (unary != null && unary.operator == UnaryOperator.OUT) {
+ // out argument
+ var param = new Parameter ("param%d".printf (param_nr), unary.inner.value_type);
+ param.direction = ParameterDirection.OUT;
+ m.add_parameter (param);
+ } else if (unary != null && unary.operator == UnaryOperator.REF) {
+ // ref argument
+ var param = new Parameter ("param%d".printf (param_nr), unary.inner.value_type);
+ param.direction = ParameterDirection.REF;
+ m.add_parameter (param);
+ } else {
+ // in argument
+ m.add_parameter (new Parameter ("param%d".printf (param_nr), arg.value_type));
+ }
+ param_nr++;
+ }
+ foreach (Parameter param in m.get_parameters ()) {
+ param.accept (this);
+ }
+ generate_dynamic_method_wrapper ((DynamicMethod) m);
+ emit_context.pop_symbol ();
+ } else if (m is CreationMethod && context.profile == Profile.GOBJECT && m.parent_symbol is Class) {
+ ccode.add_assignment (get_this_cexpression (), new CCodeCastExpression (ccall, get_ccode_name (current_class) + "*"));
+
+ if (current_method.body.captured) {
+ // capture self after setting it
+ var ref_call = new CCodeFunctionCall (get_dup_func_expression (new ObjectType (current_class), expr.source_reference));
+ ref_call.add_argument (get_this_cexpression ());
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (get_variable_cexpression ("_data%d_".printf (get_block_id (current_method.body))), "self"), ref_call);
+ }
+
+ //FIXME Only needed for non-"g_object_new" calls, if there is no property clash
+ if (!current_class.is_compact && current_class.has_type_parameters ()) {
+ /* type, dup func, and destroy func fields for generic types */
+ var priv_access = new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv");
+ foreach (TypeParameter type_param in current_class.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, type), new CCodeIdentifier (type));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, dup_func), new CCodeIdentifier (dup_func));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, destroy_func), new CCodeIdentifier (destroy_func));
+ }
+ }
+ // object chainup can't be used as expression
+ ccall_expr = null;
+ }
+
+ bool ellipsis = false;
+
+ int i = 1;
+ int arg_pos;
+ Iterator<Parameter> params_it = params.iterator ();
+ foreach (Expression arg in expr.get_argument_list ()) {
+ CCodeExpression cexpr = get_cvalue (arg);
+
+ var carg_map = in_arg_map;
+
+ Parameter? param = null;
+ if (params_it.next ()) {
+ param = params_it.get ();
+ ellipsis = param.params_array || param.ellipsis;
+ }
+
+ if (param != null && !ellipsis) {
+ if (param.direction == ParameterDirection.OUT) {
+ carg_map = out_arg_map;
+ }
+
+ var unary = arg as UnaryExpression;
+ if (unary == null || unary.operator != UnaryOperator.OUT) {
+ if (get_ccode_array_length (param) && param.variable_type is ArrayType && !((ArrayType) param.variable_type).fixed_length) {
+ var array_type = (ArrayType) param.variable_type;
+ var length_ctype = get_ccode_array_length_type (param);
+ if (unary != null && unary.operator == UnaryOperator.REF) {
+ length_ctype = "%s*".printf (length_ctype);
+ }
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var array_length_expr = new CCodeCastExpression (get_array_length_cexpression (arg, dim), length_ctype);
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), array_length_expr);
+ }
+ } else if (get_ccode_delegate_target (param) && param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ CCodeExpression delegate_target_destroy_notify;
+ var delegate_target = get_delegate_target_cexpression (arg, out delegate_target_destroy_notify);
+ assert (delegate_target != null);
+ if (get_ccode_type (param) == "GClosure*") {
+ // one single GClosure parameter
+ var closure_new = new CCodeFunctionCall (new CCodeIdentifier ("g_cclosure_new"));
+ closure_new.add_argument (new CCodeCastExpression (cexpr, "GCallback"));
+ closure_new.add_argument (delegate_target);
+ closure_new.add_argument (new CCodeCastExpression (delegate_target_destroy_notify, "GClosureNotify"));
+ //TODO Use get_non_null (arg.target_value)
+ if (arg.is_non_null ()) {
+ cexpr = closure_new;
+ } else {
+ cexpr = new CCodeConditionalExpression (new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, cexpr, new CCodeConstant ("NULL")), new CCodeConstant ("NULL"), closure_new);
+ }
+ } else {
+ // Override previously given target/destroy only if it was NULL
+ // TODO https://gitlab.gnome.org/GNOME/vala/issues/59
+ var node = carg_map.get (get_param_pos (get_ccode_delegate_target_pos (param)));
+ if (node == null || (node is CCodeConstant && ((CCodeConstant) node).name == "NULL")) {
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), delegate_target);
+ if (deleg_type.is_disposable ()) {
+ assert (delegate_target_destroy_notify != null);
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), delegate_target_destroy_notify);
+ }
+ }
+ }
+ }
+ } else if (param.variable_type is MethodType) {
+ // callbacks in dynamic method calls
+ CCodeExpression delegate_target_destroy_notify;
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), get_delegate_target_cexpression (arg, out delegate_target_destroy_notify));
+ } else if (param.variable_type is GenericType) {
+ if (m != null && get_ccode_simple_generics (m)) {
+ var generic_type = (GenericType) param.variable_type;
+ int type_param_index = m.get_type_parameter_index (generic_type.type_parameter.name);
+ var type_arg = ma.get_type_arguments ().get (type_param_index);
+ if (param.variable_type.value_owned) {
+ if (requires_copy (type_arg)) {
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), get_destroy_func_expression (type_arg));
+ } else {
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), new CCodeConstant ("NULL"));
+ }
+ }
+ }
+ }
+
+ cexpr = handle_struct_argument (param, arg, cexpr);
+ } else {
+ arg.target_value = null;
+
+ var temp_var = get_temp_variable (param.variable_type, param.variable_type.value_owned, null, true);
+ emit_temp_var (temp_var);
+ set_cvalue (arg, get_variable_cexpression (temp_var.name));
+ arg.target_value.value_type = arg.target_type;
+
+ cexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (arg));
+
+ if (get_ccode_array_length (param) && param.variable_type is ArrayType && !((ArrayType) param.variable_type).fixed_length) {
+ var array_type = (ArrayType) param.variable_type;
+ var length_ctype = get_ccode_array_length_type (param);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var temp_array_length = get_temp_variable (new CType (length_ctype, "0"), true, null, true);
+ emit_temp_var (temp_array_length);
+ append_array_length (arg, get_variable_cexpression (temp_array_length.name));
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (param) + 0.01 * dim), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_array_lengths (arg).get (dim - 1)));
+ }
+ } else if (get_ccode_delegate_target (param) && param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ temp_var = get_temp_variable (delegate_target_type, true, null, true);
+ emit_temp_var (temp_var);
+ set_delegate_target (arg, get_variable_cexpression (temp_var.name));
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (param)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_delegate_target (arg)));
+ if (deleg_type.is_disposable ()) {
+ temp_var = get_temp_variable (delegate_target_destroy_type, true, null, true);
+ emit_temp_var (temp_var);
+ set_delegate_target_destroy_notify (arg, get_variable_cexpression (temp_var.name));
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (param)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_delegate_target_destroy_notify (arg)));
+ }
+ }
+ }
+ }
+
+ if (get_ccode_type (param) != null) {
+ cexpr = new CCodeCastExpression (cexpr, get_ccode_type (param));
+ }
+ } else {
+ // ellipsis arguments
+ var unary = arg as UnaryExpression;
+ if (ellipsis && unary != null && unary.operator == UnaryOperator.OUT) {
+ carg_map = out_arg_map;
+
+ arg.target_value = null;
+
+ // infer type and ownership from argument expression
+ var temp_var = get_temp_variable (arg.value_type, arg.value_type.value_owned, null, true);
+ emit_temp_var (temp_var);
+ set_cvalue (arg, get_variable_cexpression (temp_var.name));
+ arg.target_value.value_type = arg.value_type;
+
+ if (arg.value_type is DelegateType && ((DelegateType) arg.value_type).delegate_symbol.has_target) {
+ // Initialize target/destroy cvalues to allow assignment of delegates from varargs
+ unowned GLibValue arg_value = (GLibValue) arg.target_value;
+ if (arg_value.delegate_target_cvalue == null) {
+ arg_value.delegate_target_cvalue = new CCodeConstant ("NULL");
+ }
+ if (arg_value.delegate_target_destroy_notify_cvalue == null) {
+ arg_value.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ }
+ }
+
+ cexpr = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (arg));
+ } else {
+ cexpr = handle_struct_argument (null, arg, cexpr);
+ }
+ }
+
+ if (itype is SignalType && ((SignalType) itype).signal_symbol is DynamicSignal) {
+ arg_pos = get_param_pos (i, false);
+ } else {
+ arg_pos = get_param_pos (param != null && !ellipsis ? get_ccode_pos (param) : i, ellipsis);
+ }
+ carg_map.set (arg_pos, cexpr);
+
+ if (m is ArrayResizeMethod && context.profile == Profile.POSIX) {
+ var csizeof = new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (((ArrayType) ma.inner.value_type).element_type)));
+ carg_map.set (arg_pos, new CCodeBinaryExpression (CCodeBinaryOperator.MUL, csizeof, cexpr));
+ } else {
+ carg_map.set (arg_pos, cexpr);
+ }
+
+ if (arg is NamedArgument && ellipsis) {
+ var named_arg = (NamedArgument) arg;
+ string name = string.joinv ("-", named_arg.name.split ("_"));
+ carg_map.set (get_param_pos (i - 0.1, ellipsis), new CCodeConstant ("\"%s\"".printf (name)));
+ }
+
+ i++;
+ }
+ if (params_it.next ()) {
+ var param = params_it.get ();
+
+ /* if there are more parameters than arguments,
+ * the additional parameter is an ellipsis parameter
+ * otherwise there is a bug in the semantic analyzer
+ */
+ assert (param.params_array || param.ellipsis);
+ ellipsis = true;
+ }
+
+ /* add length argument for methods returning arrays */
+ if (m != null && m.return_type is ArrayType && async_call != ccall) {
+ var array_type = (ArrayType) m.return_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ if (get_ccode_array_null_terminated (m)) {
+ // handle calls to methods returning null-terminated arrays
+ var temp_var = get_temp_variable (itype.get_return_type (), true, null, false);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccall_expr = new CCodeAssignment (temp_ref, ccall_expr);
+
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (temp_ref);
+
+ append_array_length (expr, len_call);
+ } else if (get_ccode_array_length (m)) {
+ var length_ctype = get_ccode_array_length_type (m);
+ var temp_var = get_temp_variable (new CType (length_ctype, "0"), true, null, true);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_array_length_pos (m) + 0.01 * dim), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ append_array_length (expr, temp_ref);
+ } else if (get_ccode_array_length_expr (m) != null) {
+ append_array_length (expr, new CCodeConstant (get_ccode_array_length_expr (m)));
+ } else {
+ append_array_length (expr, new CCodeConstant ("-1"));
+ }
+ }
+ } else if (m != null && m.return_type is DelegateType && async_call != ccall) {
+ var deleg_type = (DelegateType) m.return_type;
+ if (get_ccode_delegate_target (m) && deleg_type.delegate_symbol.has_target) {
+ var temp_var = get_temp_variable (delegate_target_type, true, null, true);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_delegate_target_pos (m)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ set_delegate_target (expr, temp_ref);
+
+ if (deleg_type.is_disposable ()) {
+ temp_var = get_temp_variable (delegate_target_destroy_type, true, null, true);
+ temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_destroy_notify_pos (m)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ set_delegate_target_destroy_notify (expr, temp_ref);
+ } else {
+ set_delegate_target_destroy_notify (expr, new CCodeConstant ("NULL"));
+ }
+ } else {
+ set_delegate_target (expr, new CCodeConstant ("NULL"));
+ if (deleg_type.delegate_symbol.has_target) {
+ set_delegate_target_destroy_notify (expr, new CCodeConstant ("NULL"));
+ }
+ }
+ }
+
+ // add length argument for delegates returning arrays
+ // TODO: avoid code duplication with methods returning arrays, see above
+ if (deleg != null && deleg.return_type is ArrayType) {
+ var array_type = (ArrayType) deleg.return_type;
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ if (get_ccode_array_null_terminated (deleg)) {
+ // handle calls to methods returning null-terminated arrays
+ var temp_var = get_temp_variable (itype.get_return_type (), true, null, false);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccall_expr = new CCodeAssignment (temp_ref, ccall_expr);
+
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (temp_ref);
+
+ append_array_length (expr, len_call);
+ } else if (get_ccode_array_length (deleg)) {
+ var length_ctype = get_ccode_array_length_type (deleg);
+ var temp_var = get_temp_variable (new CType (length_ctype, "0"), true, null, true);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_array_length_pos (deleg) + 0.01 * dim), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ append_array_length (expr, temp_ref);
+ } else {
+ append_array_length (expr, new CCodeConstant ("-1"));
+ }
+ }
+ } else if (deleg != null && deleg.return_type is DelegateType && get_ccode_delegate_target (deleg)) {
+ var deleg_type = (DelegateType) deleg.return_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ var temp_var = get_temp_variable (delegate_target_type, true, null, true);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_delegate_target_pos (deleg)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ set_delegate_target (expr, temp_ref);
+
+ if (deleg_type.is_disposable ()) {
+ temp_var = get_temp_variable (delegate_target_destroy_type, true, null, true);
+ temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ out_arg_map.set (get_param_pos (get_ccode_destroy_notify_pos (deleg)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, temp_ref));
+
+ set_delegate_target_destroy_notify (expr, temp_ref);
+ }
+ }
+ }
+
+ if (m != null && m.coroutine) {
+ if (expr.is_yield_expression) {
+ // asynchronous call
+ in_arg_map.set (get_param_pos (-1), new CCodeIdentifier (generate_ready_function (current_method)));
+ in_arg_map.set (get_param_pos (-0.9), new CCodeIdentifier ("_data_"));
+ }
+ }
+
+ if (expr.tree_can_fail) {
+ // method can fail
+ current_method_inner_error = true;
+ // add &inner_error before the ellipsis arguments
+ out_arg_map.set (get_param_pos (get_ccode_error_pos ((Callable) m ?? deleg)), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+ } else if (m != null && m.has_error_type_parameter () && async_call != ccall) {
+ // inferred error argument from base method
+ out_arg_map.set (get_param_pos (get_ccode_error_pos (m)), new CCodeConstant ("NULL"));
+ }
+
+ if (ellipsis) {
+ /* ensure variable argument list ends with NULL
+ * except when using printf-style arguments */
+ if (itype is SignalType) {
+ // g_signal_emit*() does not require more
+ } else if (m == null) {
+ in_arg_map.set (get_param_pos (-1, true), new CCodeConstant ("NULL"));
+ } else if (!m.printf_format && !m.scanf_format && get_ccode_sentinel (m) != "" && !expr.is_constructv_chainup) {
+ in_arg_map.set (get_param_pos (-1, true), new CCodeConstant (get_ccode_sentinel (m)));
+ }
+ }
+
+ if (deleg != null && deleg.has_target) {
+ CCodeExpression delegate_target_destroy_notify;
+ in_arg_map.set (get_param_pos (get_ccode_instance_pos (deleg)), get_delegate_target_cexpression (expr.call, out delegate_target_destroy_notify));
+ out_arg_map.set (get_param_pos (get_ccode_instance_pos (deleg)), get_delegate_target_cexpression (expr.call, out delegate_target_destroy_notify));
+ }
+
+ // structs are returned via out parameter
+ bool return_result_via_out_param = itype.get_return_type ().is_real_non_null_struct_type ();
+
+ // pass address for the return value of non-void signals without emitter functions
+ if (itype is SignalType && !(itype.get_return_type () is VoidType)) {
+ var sig = ((SignalType) itype).signal_symbol;
+
+ if (ma != null && ma.inner is BaseAccess && sig.is_virtual) {
+ // normal return value for base access
+ } else if (!get_ccode_has_emitter (sig) || ma.source_reference.file == sig.source_reference.file) {
+ return_result_via_out_param = true;
+ }
+ }
+
+ if (async_call == ccall) {
+ // skip out parameter for .begin() calls
+ return_result_via_out_param = false;
+ }
+
+ CCodeExpression out_param_ref = null;
+
+ if (return_result_via_out_param) {
+ var out_param_var = get_temp_variable (itype.get_return_type (), true, null, true);
+ out_param_ref = get_variable_cexpression (out_param_var.name);
+ emit_temp_var (out_param_var);
+ out_arg_map.set (get_param_pos (-3), new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, out_param_ref));
+ }
+
+ // append C arguments in the right order
+
+ int last_pos;
+ int min_pos;
+
+ if (async_call != ccall) {
+ // don't append out arguments for .begin() calls
+ last_pos = -1;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in out_arg_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ ccall.add_argument (out_arg_map.get (min_pos));
+ last_pos = min_pos;
+ }
+ }
+
+ if (async_call != null) {
+ last_pos = -1;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in in_arg_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ async_call.add_argument (in_arg_map.get (min_pos));
+ last_pos = min_pos;
+ }
+ }
+
+ if (expr.is_yield_expression) {
+ // set state before calling async function to support immediate callbacks
+ int state = emit_context.next_coroutine_state++;
+
+ ccode.add_assignment (get_variable_cexpression ("_state_"), new CCodeConstant (state.to_string ()));
+ ccode.add_expression (async_call);
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ ccode.add_label ("_state_%d".printf (state));
+ }
+
+ if (expr.is_assert) {
+ string message = ((string) expr.source_reference.begin.pos).substring (0, (int) (expr.source_reference.end.pos - expr.source_reference.begin.pos));
+ ccall.call = new CCodeIdentifier ("_vala_assert");
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (message.replace ("\n", " ").escape (""))));
+ requires_assert = true;
+
+ }
+
+ // Transform and add free function argument to GLib.[List,Queue,SList].remove[_all] calls
+ unowned DataType? collection_type = null;
+ if (ma != null && ma.inner != null) {
+ collection_type = ma.inner.value_type;
+ }
+ if (collection_type != null
+ && (collection_type.type_symbol == glist_type || collection_type.type_symbol == gslist_type || collection_type.type_symbol == gqueue_type)
+ && (ma.member_name == "remove" || ma.member_name == "remove_all")
+ //FIXME Perform stricter type argument check earlier
+ && collection_type.check_type_arguments (context)) {
+ var remove_method = (Method) collection_type.type_symbol.scope.lookup (ma.member_name + "_full");
+ var type_arg = collection_type.get_type_arguments ()[0];
+ if (remove_method != null && requires_destroy (type_arg)) {
+ // only add them once per source file
+ if (add_generated_external_symbol (remove_method)) {
+ visit_method (remove_method);
+ }
+ ccall.call = new CCodeIdentifier (get_ccode_name (remove_method));
+ ccall.add_argument (get_destroy0_func_expression (type_arg));
+ }
+ }
+
+ if (return_result_via_out_param) {
+ ccode.add_expression (ccall_expr);
+ ccall_expr = out_param_ref;
+ }
+
+ if (m != null && m.binding == MemberBinding.INSTANCE && m.returns_modified_pointer) {
+ if (ma != null && ma.inner.symbol_reference is Property && ma.inner is MemberAccess) {
+ var prop = (Property) ma.inner.symbol_reference;
+ store_property (prop, ((MemberAccess) ma.inner).inner, new GLibValue (expr.value_type, ccall_expr));
+ ccall_expr = null;
+ } else {
+ ccall_expr = new CCodeAssignment (instance, ccall_expr);
+ }
+ }
+
+ // real structs are passed by reference for simple generics
+ if (m != null && get_ccode_simple_generics (m) && m.return_type is GenericType
+ && expr.value_type.is_real_struct_type () && !expr.value_type.nullable && !(expr.value_type is PointerType)) {
+ ccall_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeParenthesizedExpression (ccall_expr));
+ }
+
+ if (m != null && get_ccode_type (m) != null && get_ccode_type (m) != get_ccode_name (m.return_type)) {
+ // Bug 699956: Implement cast for method return type if [CCode type=] annotation is specified
+ ccall_expr = new CCodeCastExpression (ccall_expr, get_ccode_name (m.return_type));
+ }
+
+ if (m is ArrayResizeMethod) {
+ // FIXME: size expression must not be evaluated twice at runtime (potential side effects)
+ Iterator<Expression> arg_it = expr.get_argument_list ().iterator ();
+ arg_it.next ();
+ var new_size = get_cvalue (arg_it.get ());
+
+ var array_type = (ArrayType) ma.inner.value_type;
+ var temp_decl = get_temp_variable (array_type.length_type);
+ var temp_ref = get_variable_cexpression (temp_decl.name);
+
+ emit_temp_var (temp_decl);
+
+ /* memset needs string.h */
+ cfile.add_include ("string.h");
+
+ var clen = get_array_length_cexpression (ma.inner, 1);
+ var celems = get_cvalue (ma.inner);
+ var csizeof = new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (array_type.element_type)));
+ var cdelta = new CCodeBinaryExpression (CCodeBinaryOperator.MINUS, temp_ref, clen);
+ var ccheck = new CCodeBinaryExpression (CCodeBinaryOperator.GREATER_THAN, temp_ref, clen);
+
+ var czero = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ czero.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, celems, clen));
+ czero.add_argument (new CCodeConstant ("0"));
+ czero.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.MUL, csizeof, cdelta));
+
+ ccode.add_assignment (temp_ref, new_size);
+ ccode.add_expression (ccall_expr);
+ ccode.add_expression (new CCodeConditionalExpression (ccheck, czero, new CCodeConstant ("NULL")));
+ ccode.add_assignment (get_array_length_cexpression (ma.inner, 1), temp_ref);
+
+ var array_var = ma.inner.symbol_reference;
+ if (array_var != null && array_var.is_internal_symbol ()
+ && (array_var is LocalVariable || array_var is Field)) {
+ ccode.add_assignment (get_array_size_cvalue (ma.inner.target_value), temp_ref);
+ }
+
+ return;
+ }
+
+ if (expr.parent_node is ExpressionStatement && !expr.value_type.is_disposable ()) {
+ if (ccall_expr != null && !return_result_via_out_param) {
+ ccode.add_expression (ccall_expr);
+ }
+ } else {
+ var result_type = itype.get_return_type ();
+
+ if (expr.formal_value_type is GenericType && !(expr.value_type is GenericType)) {
+ var type_parameter = ((GenericType) expr.formal_value_type).type_parameter;
+ var st = type_parameter.parent_symbol.parent_symbol as Struct;
+ if (type_parameter.parent_symbol == garray_type ||
+ (st != null && get_ccode_name (st) == "va_list")) {
+ // GArray and va_list don't use pointer-based generics
+ // above logic copied from visit_expression ()
+ // TODO avoid code duplication
+ result_type = expr.value_type;
+ }
+ if (st != null && get_ccode_name (st) == "va_list" && ma.member_name == "arg") {
+ if (result_type is DelegateType && ((DelegateType) result_type).delegate_symbol.has_target) {
+ set_cvalue (expr, null);
+ // Initialize target/destroy cvalues to allow assignment of delegates from varargs
+ unowned GLibValue arg_value = (GLibValue) expr.target_value;
+ if (arg_value.delegate_target_cvalue == null) {
+ arg_value.delegate_target_cvalue = new CCodeConstant ("NULL");
+ }
+ if (arg_value.delegate_target_destroy_notify_cvalue == null) {
+ arg_value.delegate_target_destroy_notify_cvalue = new CCodeConstant ("NULL");
+ }
+ }
+ }
+ }
+
+ if (m != null && m.get_format_arg_index () >= 0) {
+ set_cvalue (expr, ccall_expr);
+ } else if (m != null && m.get_attribute_bool ("CCode", "use_inplace", false)) {
+ set_cvalue (expr, ccall_expr);
+ } else if (!return_result_via_out_param
+ && !has_ref_out_argument (expr)
+ && (result_type is ValueType && !result_type.is_disposable ())) {
+ set_cvalue (expr, ccall_expr);
+ } else if (!return_result_via_out_param) {
+ var temp_var = get_temp_variable (result_type, result_type.value_owned, null, false);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccode.add_assignment (temp_ref, ccall_expr);
+ set_cvalue (expr, temp_ref);
+ ((GLibValue) expr.target_value).lvalue = true;
+ } else {
+ set_cvalue (expr, ccall_expr);
+ ((GLibValue) expr.target_value).lvalue = true;
+ }
+ }
+
+ params_it = params.iterator ();
+ foreach (Expression arg in expr.get_argument_list ()) {
+ Parameter param = null;
+
+ if (params_it.next ()) {
+ param = params_it.get ();
+ }
+
+ var unary = arg as UnaryExpression;
+
+ // update possible stale _*_size_ variable
+ if (unary != null && unary.operator == UnaryOperator.REF) {
+ if (param != null && get_ccode_array_length (param) && param.variable_type is ArrayType
+ && !((ArrayType) param.variable_type).fixed_length && ((ArrayType) param.variable_type).rank == 1) {
+ unowned Variable? array_var = unary.inner.symbol_reference as Variable;
+ if ((array_var is LocalVariable || array_var is Field) && array_var.is_internal_symbol ()
+ && array_var.variable_type is ArrayType && !((ArrayType) array_var.variable_type).fixed_length) {
+ ccode.add_assignment (get_array_size_cvalue (unary.inner.target_value), get_array_length_cvalue (unary.inner.target_value, 1));
+ }
+ }
+ }
+
+ if (unary == null || unary.operator != UnaryOperator.OUT) {
+ continue;
+ }
+
+ if (requires_destroy (unary.inner.value_type)) {
+ // unref old value
+ ccode.add_expression (destroy_value (unary.inner.target_value));
+ }
+
+ // infer type of out-parameter from argument
+ if (ma.symbol_reference is DynamicMethod && unary.target_value.value_type == null) {
+ unary.target_value.value_type = unary.inner.value_type.copy ();
+ }
+
+ // assign new value
+ store_value (unary.inner.target_value, transform_value (unary.target_value, unary.inner.value_type, arg), expr.source_reference);
+
+ // handle out null terminated arrays
+ if (param != null && get_ccode_array_null_terminated (param)) {
+ requires_array_length = true;
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_array_length"));
+ len_call.add_argument (get_cvalue_ (unary.inner.target_value));
+
+ ccode.add_assignment (get_array_length_cvalue (unary.inner.target_value, 1), len_call);
+ }
+ }
+
+ if (m is CreationMethod && m.parent_symbol is Class && ((current_class.is_compact && current_class.base_class != null) || current_class.is_subtype_of (gsource_type))) {
+ var cinitcall = new CCodeFunctionCall (new CCodeIdentifier ("%s_instance_init".printf (get_ccode_lower_case_name (current_class, null))));
+ cinitcall.add_argument (get_this_cexpression ());
+ if (!current_class.is_compact) {
+ cinitcall.add_argument (new CCodeConstant ("NULL"));
+ }
+ ccode.add_expression (cinitcall);
+ }
+ }
+
+ private string generate_enum_to_string_function (Enum en) {
+ var to_string_func = "_%s_to_string".printf (get_ccode_lower_case_name (en));
+
+ if (!add_wrapper (to_string_func)) {
+ // wrapper already defined
+ return to_string_func;
+ }
+ // declaration
+
+ var function = new CCodeFunction (to_string_func, "const char*");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("value", get_ccode_name (en)));
+
+ // definition
+ push_context (new EmitContext ());
+ push_function (function);
+
+ ccode.open_switch (new CCodeConstant ("value"));
+ foreach (var enum_value in en.get_values ()) {
+ ccode.add_case (new CCodeIdentifier (get_ccode_name (enum_value)));
+ ccode.add_return (new CCodeConstant ("\""+get_ccode_name (enum_value)+"\""));
+ }
+ ccode.close ();
+ ccode.add_return (new CCodeConstant ("NULL"));
+
+ // append to file
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ pop_context ();
+
+ return to_string_func;
+ }
+
+ bool has_ref_out_argument (MethodCall c) {
+ foreach (var arg in c.get_argument_list ()) {
+ unowned UnaryExpression? unary = arg as UnaryExpression;
+ if (unary != null && (unary.operator == UnaryOperator.OUT || unary.operator == UnaryOperator.REF)) {
+ return true;
+ }
+ }
+ return false;
+ }
+
+ string generate_string_printf_function () {
+ if (!add_wrapper ("string_printf")) {
+ // wrapper already defined
+ return "string_printf";
+ }
+
+ // declaration
+ var function = new CCodeFunction ("string_printf", "char*");
+ function.add_parameter (new CCodeParameter ("format", "const char*"));
+ function.add_parameter (new CCodeParameter.with_ellipsis ());
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.PRINTF;
+
+ // definition
+ push_context (new EmitContext ());
+ push_function (function);
+
+ ccode.add_declaration ("int", new CCodeVariableDeclarator ("length"));
+ ccode.add_declaration ("va_list", new CCodeVariableDeclarator ("ap"));
+ ccode.add_declaration ("char*", new CCodeVariableDeclarator ("result"));
+
+ var vastart = new CCodeFunctionCall (new CCodeIdentifier ("va_start"));
+ vastart.add_argument (new CCodeIdentifier ("ap"));
+ vastart.add_argument (new CCodeIdentifier ("format"));
+
+ ccode.add_expression (vastart);
+
+ if (context.profile == Profile.POSIX) {
+ cfile.add_include ("stdio.h");
+ }
+
+ var vsnprintf = new CCodeFunctionCall (new CCodeIdentifier ("vsnprintf"));
+ vsnprintf.add_argument (new CCodeConstant ("NULL"));
+ vsnprintf.add_argument (new CCodeConstant ("0"));
+ vsnprintf.add_argument (new CCodeIdentifier ("format"));
+ vsnprintf.add_argument (new CCodeIdentifier ("ap"));
+
+ ccode.add_assignment (new CCodeIdentifier ("length"), new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, vsnprintf, new CCodeConstant ("1")));
+
+ var va_end = new CCodeFunctionCall (new CCodeIdentifier ("va_end"));
+ va_end.add_argument (new CCodeIdentifier ("ap"));
+
+ ccode.add_expression (va_end);
+
+ var malloc = new CCodeFunctionCall (new CCodeIdentifier ("malloc"));
+ malloc.add_argument (new CCodeIdentifier ("length"));
+
+ ccode.add_assignment (new CCodeIdentifier ("result"), malloc);
+
+ vastart = new CCodeFunctionCall (new CCodeIdentifier ("va_start"));
+ vastart.add_argument (new CCodeIdentifier ("ap"));
+ vastart.add_argument (new CCodeIdentifier ("format"));
+
+ ccode.add_expression (vastart);
+
+ vsnprintf = new CCodeFunctionCall (new CCodeIdentifier ("vsnprintf"));
+ vsnprintf.add_argument (new CCodeIdentifier ("result"));
+ vsnprintf.add_argument (new CCodeIdentifier ("length"));
+ vsnprintf.add_argument (new CCodeIdentifier ("format"));
+ vsnprintf.add_argument (new CCodeIdentifier ("ap"));
+
+ ccode.add_expression (vsnprintf);
+
+ va_end = new CCodeFunctionCall (new CCodeIdentifier ("va_end"));
+ va_end.add_argument (new CCodeIdentifier ("ap"));
+
+ ccode.add_expression (va_end);
+
+ ccode.add_return (new CCodeIdentifier ("result"));
+
+ // append to file
+ cfile.add_include ("stdarg.h");
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ pop_context ();
+
+ return "string_printf";
+ }
+}
+
--- /dev/null
+/* valaccodemethodmodule.vala
+ *
+ * Copyright (C) 2007-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+/**
+ * The link between a method and generated code.
+ */
+public abstract class Vala.CCodeMethodModule : CCodeStructModule {
+
+ private bool ellipses_to_valist = false;
+
+ string get_creturn_type (Method m, string default_value) {
+ string type = get_ccode_type (m);
+ if (type == null) {
+ return default_value;
+ }
+ return type;
+ }
+
+ bool is_gtypeinstance_creation_method (Method m) {
+ bool result = false;
+
+ var cl = m.parent_symbol as Class;
+ if (m is CreationMethod && cl != null && !cl.is_compact) {
+ result = true;
+ }
+
+ return result;
+ }
+
+ public virtual void generate_method_result_declaration (Method m, CCodeFile decl_space, CCodeFunction cfunc, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression>? carg_map) {
+ var creturn_type = get_callable_creturn_type (m);
+ cfunc.return_type = get_creturn_type (m, get_ccode_name (creturn_type));
+
+ generate_type_declaration (m.return_type, decl_space);
+
+ if (m.return_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ var cparam = new CCodeParameter ("result", get_ccode_name (m.return_type) + "*");
+ cparam_map.set (get_param_pos (-3), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (-3), get_cexpression ("result"));
+ }
+ } else if (get_ccode_array_length (m) && m.return_type is ArrayType) {
+ // return array length if appropriate
+ var array_type = (ArrayType) m.return_type;
+ var length_ctype = get_ccode_array_length_type (m) + "*";
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ var cparam = new CCodeParameter (get_array_length_cname ("result", dim), length_ctype);
+ cparam_map.set (get_param_pos (get_ccode_array_length_pos (m) + 0.01 * dim), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_array_length_pos (m) + 0.01 * dim), get_cexpression (cparam.name));
+ }
+ }
+ } else if (get_ccode_delegate_target (m) && m.return_type is DelegateType) {
+ // return delegate target if appropriate
+ var deleg_type = (DelegateType) m.return_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ var cparam = new CCodeParameter (get_delegate_target_cname ("result"), get_ccode_name (delegate_target_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_delegate_target_pos (m)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_delegate_target_pos (m)), get_cexpression (cparam.name));
+ }
+ if (deleg_type.is_disposable ()) {
+ cparam = new CCodeParameter (get_delegate_target_destroy_notify_cname ("result"), get_ccode_name (delegate_target_destroy_type) + "*");
+ cparam_map.set (get_param_pos (get_ccode_destroy_notify_pos (m)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_destroy_notify_pos (m)), get_cexpression (cparam.name));
+ }
+ }
+ }
+ }
+
+ if (m.has_error_type_parameter ()) {
+ var error_types = new ArrayList<DataType> ();
+ m.get_error_types (error_types);
+ foreach (DataType error_type in error_types) {
+ generate_type_declaration (error_type, decl_space);
+ }
+
+ var cparam = new CCodeParameter ("error", "GError**");
+ cparam_map.set (get_param_pos (get_ccode_error_pos (m)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_error_pos (m)), new CCodeIdentifier (cparam.name));
+ }
+ }
+ }
+
+ public void complete_async () {
+ var data_var = new CCodeIdentifier ("_data_");
+ var async_result_expr = new CCodeMemberAccess.pointer (data_var, "_async_result");
+
+ var finish_call = new CCodeFunctionCall (new CCodeIdentifier ("g_task_return_pointer"));
+ finish_call.add_argument (async_result_expr);
+ finish_call.add_argument (data_var);
+ finish_call.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (finish_call);
+
+ // Preserve the "complete now" behavior if state != 0, do so by
+ // iterating the GTask's main context till the task is complete.
+ var state = new CCodeMemberAccess.pointer (data_var, "_state_");
+ var zero = new CCodeConstant ("0");
+ var state_is_not_zero = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, state, zero);
+ ccode.open_if (state_is_not_zero);
+
+ CCodeExpression task_is_complete;
+
+ var task_complete = new CCodeFunctionCall (new CCodeIdentifier ("g_task_get_completed"));
+ task_complete.add_argument (async_result_expr);
+ task_is_complete = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, task_complete);
+
+ ccode.open_while (task_is_complete);
+ var task_context = new CCodeFunctionCall (new CCodeIdentifier ("g_task_get_context"));
+ task_context.add_argument (async_result_expr);
+ var iterate_context = new CCodeFunctionCall (new CCodeIdentifier ("g_main_context_iteration"));
+ iterate_context.add_argument (task_context);
+ iterate_context.add_argument (new CCodeConstant ("TRUE"));
+ ccode.add_expression (iterate_context);
+ ccode.close ();
+
+ ccode.close ();
+
+ var unref = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref.add_argument (async_result_expr);
+ ccode.add_expression (unref);
+
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ }
+
+ public override bool generate_method_declaration (Method m, CCodeFile decl_space) {
+ if (m.is_async_callback) {
+ return false;
+ }
+ if ((m.is_abstract || m.is_virtual) && get_ccode_no_wrapper (m)) {
+ return false;
+ }
+ if (add_symbol_declaration (decl_space, m, get_ccode_name (m))) {
+ return false;
+ }
+
+ generate_type_declaration (new MethodType (m), decl_space);
+
+ var function = new CCodeFunction (get_ccode_name (m));
+
+ if (m.is_private_symbol () && !m.external) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ if (m.is_inline) {
+ function.modifiers |= CCodeModifiers.INLINE;
+ }
+ } else if (context.hide_internal && m.is_internal_symbol () && !m.external) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ } else if (!m.entry_point && !m.external) {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ if (m.entry_point) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ }
+
+ if (m.version.deprecated) {
+ if (context.profile == Profile.GOBJECT) {
+ decl_space.add_include ("glib.h");
+ }
+ function.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ var cl = m.parent_symbol as Class;
+
+ // do not generate _new functions for creation methods of abstract classes
+ if (!(m is CreationMethod && cl != null && cl.is_abstract && !cl.is_compact)) {
+ bool etv_tmp = ellipses_to_valist;
+ ellipses_to_valist = false;
+ generate_cparameters (m, decl_space, cparam_map, function, null, carg_map, new CCodeFunctionCall (new CCodeIdentifier ("fake")));
+ ellipses_to_valist = etv_tmp;
+
+ decl_space.add_function_declaration (function);
+ }
+
+ if (is_gtypeinstance_creation_method (m)) {
+ // _construct function
+ function = new CCodeFunction (get_ccode_real_name (m));
+
+ if (m.is_private_symbol ()) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ bool etv_tmp = ellipses_to_valist;
+ ellipses_to_valist = false;
+ generate_cparameters (m, decl_space, cparam_map, function);
+ ellipses_to_valist = etv_tmp;
+
+ decl_space.add_function_declaration (function);
+
+ if (m.is_variadic ()) {
+ // _constructv function
+ function = new CCodeFunction (get_ccode_constructv_name ((CreationMethod) m));
+
+ if (!m.is_private_symbol ()) {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ generate_cparameters (m, decl_space, cparam_map, function);
+
+ decl_space.add_function_declaration (function);
+ }
+ }
+
+ return true;
+ }
+
+ void register_plugin_types (Symbol sym, Set<Symbol> registered_types) {
+ var ns = sym as Namespace;
+ var cl = sym as Class;
+ var iface = sym as Interface;
+ if (ns != null) {
+ foreach (var ns_ns in ns.get_namespaces ()) {
+ register_plugin_types (ns_ns, registered_types);
+ }
+ foreach (var ns_cl in ns.get_classes ()) {
+ register_plugin_types (ns_cl, registered_types);
+ }
+ foreach (var ns_iface in ns.get_interfaces ()) {
+ register_plugin_types (ns_iface, registered_types);
+ }
+ } else if (cl != null) {
+ register_plugin_type (cl, registered_types);
+ foreach (var cl_cl in cl.get_classes ()) {
+ register_plugin_types (cl_cl, registered_types);
+ }
+ } else if (iface != null) {
+ register_plugin_type (iface, registered_types);
+ foreach (var iface_cl in iface.get_classes ()) {
+ register_plugin_types (iface_cl, registered_types);
+ }
+ }
+ }
+
+ void register_plugin_type (ObjectTypeSymbol type_symbol, Set<Symbol> registered_types) {
+ if (type_symbol.external_package) {
+ return;
+ }
+
+ if (!registered_types.add (type_symbol)) {
+ // already registered
+ return;
+ }
+
+ var cl = type_symbol as Class;
+ if (cl != null) {
+ if (cl.is_compact) {
+ return;
+ }
+
+ // register base types first
+ foreach (var base_type in cl.get_base_types ()) {
+ register_plugin_type ((ObjectTypeSymbol) base_type.type_symbol, registered_types);
+ }
+ }
+
+ // Add function prototypes for required register-type-calls which are likely external
+ if (type_symbol.source_reference.file != cfile.file) {
+ // TODO Duplicated source with TypeRegisterFunction.init_from_type()
+ var register_func = new CCodeFunction ("%s_register_type".printf (get_ccode_lower_case_name (type_symbol, null)), "GType");
+ register_func.add_parameter (new CCodeParameter ("module", "GTypeModule *"));
+ register_func.is_declaration = true;
+ cfile.add_function_declaration (register_func);
+ }
+
+ var register_call = new CCodeFunctionCall (new CCodeIdentifier ("%s_register_type".printf (get_ccode_lower_case_name (type_symbol, null))));
+ register_call.add_argument (new CCodeIdentifier (module_init_param_name));
+ ccode.add_expression (register_call);
+
+ var iface = type_symbol as Interface;
+ if (iface != null) {
+ string? dbus_name = GDBusModule.get_dbus_name(type_symbol);
+
+ if (dbus_name != null) {
+ string proxy_cname = get_ccode_lower_case_prefix (type_symbol) + "proxy";
+ var register_proxy = new CCodeFunctionCall (new CCodeIdentifier ("%s_register_dynamic_type".printf (proxy_cname)));
+ register_proxy.add_argument (new CCodeIdentifier (module_init_param_name));
+ ccode.add_expression (register_proxy);
+ }
+ }
+ }
+
+ /**
+ * This function generates the code the given method. If the method is
+ * a constructor, _construct is generated, unless it's variadic, in which
+ * case _constructv is generated (and _construct is generated together
+ * with _new in visit_creation_method).
+ */
+ public override void visit_method (Method m) {
+ push_context (new EmitContext (m));
+ push_line (m.source_reference);
+
+ bool in_gobject_creation_method = false;
+ bool in_fundamental_creation_method = false;
+
+ bool profile = m.get_attribute ("Profile") != null;
+
+ string real_name = get_ccode_real_name (m);
+
+ if (m is CreationMethod) {
+ unowned Class? cl = m.parent_symbol as Class;
+ if (cl != null && !cl.is_compact) {
+ if (cl.base_class == null) {
+ in_fundamental_creation_method = true;
+ } else if (gobject_type != null && cl.is_subtype_of (gobject_type)) {
+ in_gobject_creation_method = true;
+ }
+ }
+ if (cl != null && !cl.is_compact && m.is_variadic ()) {
+ real_name = get_ccode_constructv_name ((CreationMethod) m);
+ }
+ }
+
+ var creturn_type = get_callable_creturn_type (m);
+
+ foreach (Parameter param in m.get_parameters ()) {
+ param.accept (this);
+ }
+
+ // do not declare overriding methods and interface implementations
+ if ((m.is_abstract || m.is_virtual
+ || (m.base_method == null && m.base_interface_method == null))
+ && m.signal_reference == null) {
+ generate_method_declaration (m, cfile);
+
+ if (!m.is_internal_symbol ()) {
+ generate_method_declaration (m, header_file);
+ }
+ if (!m.is_private_symbol ()) {
+ generate_method_declaration (m, internal_header_file);
+ }
+ }
+
+ if (profile) {
+ string prefix = "_vala_prof_%s".printf (real_name);
+
+ cfile.add_include ("stdio.h");
+
+ var counter = new CCodeIdentifier (prefix + "_counter");
+ var counter_decl = new CCodeDeclaration (get_ccode_name (int_type));
+ counter_decl.add_declarator (new CCodeVariableDeclarator (counter.name));
+ counter_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (counter_decl);
+
+ // nesting level for recursive functions
+ var level = new CCodeIdentifier (prefix + "_level");
+ var level_decl = new CCodeDeclaration (get_ccode_name (int_type));
+ level_decl.add_declarator (new CCodeVariableDeclarator (level.name));
+ level_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (level_decl);
+
+ var timer = new CCodeIdentifier (prefix + "_timer");
+ var timer_decl = new CCodeDeclaration ("GTimer *");
+ timer_decl.add_declarator (new CCodeVariableDeclarator (timer.name));
+ timer_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (timer_decl);
+
+ var constructor = new CCodeFunction (prefix + "_init");
+ constructor.modifiers = CCodeModifiers.STATIC | CCodeModifiers.CONSTRUCTOR;
+ cfile.add_function_declaration (constructor);
+ push_function (constructor);
+
+ ccode.add_assignment (timer, new CCodeFunctionCall (new CCodeIdentifier ("g_timer_new")));
+
+ var stop_call = new CCodeFunctionCall (new CCodeIdentifier ("g_timer_stop"));
+ stop_call.add_argument (timer);
+ ccode.add_expression (stop_call);
+
+ pop_function ();
+ cfile.add_function (constructor);
+
+
+ var destructor = new CCodeFunction (prefix + "_exit");
+ destructor.modifiers = CCodeModifiers.STATIC | CCodeModifiers.DESTRUCTOR;
+ cfile.add_function_declaration (destructor);
+ push_function (destructor);
+
+ var elapsed_call = new CCodeFunctionCall (new CCodeIdentifier ("g_timer_elapsed"));
+ elapsed_call.add_argument (timer);
+ elapsed_call.add_argument (new CCodeConstant ("NULL"));
+
+ var print_call = new CCodeFunctionCall (new CCodeIdentifier ("fprintf"));
+ print_call.add_argument (new CCodeIdentifier ("stderr"));
+ print_call.add_argument (new CCodeConstant ("\"%s: %%gs (%%d calls)\\n\"".printf (m.get_full_name ())));
+ print_call.add_argument (elapsed_call);
+ print_call.add_argument (counter);
+ ccode.add_expression (print_call);
+
+ pop_function ();
+ cfile.add_function (destructor);
+ }
+
+ CCodeFunction function;
+ function = new CCodeFunction (real_name);
+
+ if (m.is_inline) {
+ function.modifiers |= CCodeModifiers.INLINE;
+ }
+
+ if (m.entry_point) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ }
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (m, cfile, cparam_map, function);
+
+ // generate *_real_* functions for virtual methods
+ // also generate them for abstract methods of classes to prevent faulty subclassing
+ if (!m.is_abstract || (m.is_abstract && current_type_symbol is Class)) {
+ if (!m.coroutine) {
+ if (m.base_method != null || m.base_interface_method != null) {
+ // declare *_real_* function
+ function.modifiers |= CCodeModifiers.STATIC;
+ cfile.add_function_declaration (function);
+ } else if (m.is_private_symbol ()) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ }
+ } else {
+ if (m.body != null) {
+ function = new CCodeFunction (real_name + "_co", get_ccode_name (bool_type));
+
+ // data struct to hold parameters, local variables, and the return value
+ function.add_parameter (new CCodeParameter ("_data_", Symbol.lower_case_to_camel_case (get_ccode_const_name (m)) + "Data*"));
+ function.modifiers |= CCodeModifiers.STATIC;
+ cfile.add_function_declaration (function);
+ }
+ }
+ }
+
+ if (m.comment != null) {
+ cfile.add_type_member_definition (new CCodeComment (m.comment.content));
+ }
+
+ push_function (function);
+
+ unowned CCodeBlock? co_switch_block = null;
+
+ // generate *_real_* functions for virtual methods
+ // also generate them for abstract methods of classes to prevent faulty subclassing
+ if (!m.is_abstract || (m.is_abstract && current_type_symbol is Class)) {
+ if (m.body != null) {
+ if (m.coroutine) {
+ ccode.open_switch (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_state_"));
+
+ // initial coroutine state
+ ccode.add_case (new CCodeConstant ("0"));
+ ccode.add_goto ("_state_0");
+
+ co_switch_block = ccode.current_block;
+
+ ccode.close ();
+
+ // coroutine body
+ ccode.add_label ("_state_0");
+ }
+
+ if (m.closure) {
+ // add variables for parent closure blocks
+ // as closures only have one parameter for the innermost closure block
+ var closure_block = current_closure_block;
+ int block_id = get_block_id (closure_block);
+ while (true) {
+ var parent_closure_block = next_closure_block (closure_block.parent_symbol);
+ if (parent_closure_block == null) {
+ break;
+ }
+ int parent_block_id = get_block_id (parent_closure_block);
+
+ var parent_data = new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "_data%d_".printf (parent_block_id));
+ ccode.add_declaration ("Block%dData*".printf (parent_block_id), new CCodeVariableDeclarator ("_data%d_".printf (parent_block_id)));
+ ccode.add_assignment (new CCodeIdentifier ("_data%d_".printf (parent_block_id)), parent_data);
+
+ closure_block = parent_closure_block;
+ block_id = parent_block_id;
+ }
+
+ // add self variable for closures
+ // as closures have block data parameter
+ if (m.binding == MemberBinding.INSTANCE) {
+ var cself = new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data%d_".printf (block_id)), "self");
+ ccode.add_declaration (get_ccode_name (SemanticAnalyzer.get_data_type_for_symbol (current_type_symbol)), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), cself);
+ }
+
+ // allow capturing generic type parameters
+ var data_var = get_variable_cexpression ("_data%d_".printf (block_id));
+ foreach (var type_param in m.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_declaration ("GType", new CCodeVariableDeclarator (type));
+ ccode.add_declaration ("GBoxedCopyFunc", new CCodeVariableDeclarator (dup_func));
+ ccode.add_declaration ("GDestroyNotify", new CCodeVariableDeclarator (destroy_func));
+ ccode.add_assignment (new CCodeIdentifier (type), new CCodeMemberAccess.pointer (data_var, type));
+ ccode.add_assignment (new CCodeIdentifier (dup_func), new CCodeMemberAccess.pointer (data_var, dup_func));
+ ccode.add_assignment (new CCodeIdentifier (destroy_func), new CCodeMemberAccess.pointer (data_var, destroy_func));
+ }
+ } else if (m.parent_symbol is Class && !m.coroutine) {
+ var cl = (Class) m.parent_symbol;
+ if (m.overrides || (m.base_interface_method != null && !m.is_abstract && !m.is_virtual)) {
+ Method base_method;
+ ReferenceType base_expression_type;
+ if (m.overrides && m.base_method != null) {
+ base_method = m.base_method;
+ base_expression_type = new ObjectType ((Class) base_method.parent_symbol);
+ } else {
+ base_method = m.base_interface_method;
+ base_expression_type = new ObjectType ((Interface) base_method.parent_symbol);
+ }
+ var self_target_type = new ObjectType (cl);
+ CCodeExpression cself = get_cvalue_ (transform_value (new GLibValue (base_expression_type, new CCodeIdentifier ("base"), true), self_target_type, m));
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), cself);
+ } else if (m.binding == MemberBinding.INSTANCE
+ && !(m is CreationMethod)
+ && m.base_method == null && m.base_interface_method == null) {
+ create_method_type_check_statement (m, creturn_type, cl, true, "self");
+ }
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.ellipsis || param.params_array) {
+ if (param.params_array) {
+ append_params_array (m);
+ }
+ break;
+ }
+
+ if (param.direction != ParameterDirection.OUT) {
+ unowned TypeSymbol? t = param.variable_type.type_symbol;
+ if (t != null && (t.is_reference_type () || param.variable_type.is_real_struct_type ())) {
+ var cname = get_ccode_name (param);
+ if (param.direction == ParameterDirection.REF && !param.variable_type.is_real_struct_type ()) {
+ cname = "*"+cname;
+ }
+ create_method_type_check_statement (m, creturn_type, t, !param.variable_type.nullable, cname);
+ }
+ } else if (!m.coroutine) {
+ // declare local variable for out parameter to allow assignment even when caller passes NULL
+ var vardecl = new CCodeVariableDeclarator.zero ("_vala_%s".printf (get_ccode_name (param)), default_value_for_type (param.variable_type, true), get_ccode_declarator_suffix (param.variable_type));
+ ccode.add_declaration (get_ccode_name (param.variable_type), vardecl);
+
+ if (param.variable_type is ArrayType) {
+ // create variables to store array dimensions
+ var array_type = (ArrayType) param.variable_type;
+
+ if (!array_type.fixed_length) {
+ var length_ctype = get_ccode_array_length_type (param);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ vardecl = new CCodeVariableDeclarator.zero (get_array_length_cname ("_vala_%s".printf (get_ccode_name (param)), dim), new CCodeConstant ("0"));
+ ccode.add_declaration (length_ctype, vardecl);
+ }
+ }
+ } else if (param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ // create variable to store delegate target
+ vardecl = new CCodeVariableDeclarator.zero ("_vala_%s".printf (get_ccode_delegate_target_name (param)), new CCodeConstant ("NULL"));
+ ccode.add_declaration (get_ccode_name (delegate_target_type), vardecl);
+
+ if (deleg_type.is_disposable ()) {
+ vardecl = new CCodeVariableDeclarator.zero ("_vala_%s".printf (get_ccode_delegate_target_destroy_notify_name (param)), new CCodeConstant ("NULL"));
+ ccode.add_declaration (get_ccode_name (delegate_target_destroy_type), vardecl);
+ }
+ }
+ }
+ }
+ }
+
+ if (m is CreationMethod) {
+ if (in_gobject_creation_method) {
+ if (!m.coroutine) {
+ ccode.add_declaration ("%s *".printf (get_ccode_name (current_type_symbol)), new CCodeVariableDeclarator.zero ("self", new CCodeConstant ("NULL")));
+ }
+ } else if (is_gtypeinstance_creation_method (m)) {
+ var cl = (Class) m.parent_symbol;
+ ccode.add_declaration (get_ccode_name (cl) + "*", new CCodeVariableDeclarator.zero ("self", new CCodeConstant ("NULL")));
+
+ if (cl.is_fundamental () && !((CreationMethod) m).chain_up) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_create_instance"));
+ ccall.add_argument (get_variable_cexpression ("object_type"));
+ ccode.add_assignment (get_this_cexpression (), new CCodeCastExpression (ccall, get_ccode_name (cl) + "*"));
+
+ /* type, dup func, and destroy func fields for generic types */
+ var priv_access = new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv");
+ foreach (TypeParameter type_param in current_class.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, type), new CCodeIdentifier (type));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, dup_func), new CCodeIdentifier (dup_func));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (priv_access, destroy_func), new CCodeIdentifier (destroy_func));
+ }
+ }
+ } else if (current_type_symbol is Class) {
+ var cl = (Class) m.parent_symbol;
+ if (!m.coroutine) {
+ ccode.add_declaration (get_ccode_name (cl) + "*", new CCodeVariableDeclarator ("self"));
+ }
+
+ if (!((CreationMethod) m).chain_up) {
+ // TODO implicitly chain up to base class as in add_object_creation
+ // g_slice_new0 needs glib.h
+ cfile.add_include ("glib.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_new0"));
+ ccall.add_argument (new CCodeIdentifier (get_ccode_name (cl)));
+ ccode.add_assignment (get_this_cexpression (), ccall);
+ }
+
+ if (cl.base_class == null && !(((CreationMethod) m).chain_up && cl.is_compact)) {
+ var cinitcall = new CCodeFunctionCall (new CCodeIdentifier ("%s_instance_init".printf (get_ccode_lower_case_name (cl, null))));
+ cinitcall.add_argument (get_this_cexpression ());
+ if (!cl.is_compact) {
+ cinitcall.add_argument (new CCodeConstant ("NULL"));
+ }
+ ccode.add_expression (cinitcall);
+ }
+ } else if (m.parent_symbol is Struct) {
+ unowned Struct st = (Struct) m.parent_symbol;
+ if (st.is_simple_type ()) {
+ var vardecl = new CCodeVariableDeclarator ("self", default_value_for_type (creturn_type, true));
+ vardecl.init0 = true;
+ ccode.add_declaration (get_ccode_name (creturn_type), vardecl);
+ } else if (!((CreationMethod) m).chain_up) {
+ // memset needs string.h
+ cfile.add_include ("string.h");
+ var czero = new CCodeFunctionCall (new CCodeIdentifier ("memset"));
+ czero.add_argument (new CCodeIdentifier ("self"));
+ czero.add_argument (new CCodeConstant ("0"));
+ czero.add_argument (new CCodeIdentifier ("sizeof (%s)".printf (get_ccode_name (st))));
+ ccode.add_expression (czero);
+ }
+ } else {
+ Report.error (m.source_reference, "internal: creation method not supported in `%s'", m.parent_symbol.get_full_name ());
+ }
+ }
+
+ if (context.module_init_method == m && in_plugin) {
+ // GTypeModule-based plug-in, register types
+ register_plugin_types (context.root, new HashSet<Symbol> ());
+ }
+
+ foreach (Expression precondition in m.get_preconditions ()) {
+ create_precondition_statement (m, creturn_type, precondition);
+ }
+ }
+ }
+
+ if (profile) {
+ string prefix = "_vala_prof_%s".printf (real_name);
+
+ var level = new CCodeIdentifier (prefix + "_level");
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, level)));
+
+ var counter = new CCodeIdentifier (prefix + "_counter");
+ ccode.add_expression (new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, counter));
+
+ var timer = new CCodeIdentifier (prefix + "_timer");
+ var cont_call = new CCodeFunctionCall (new CCodeIdentifier ("g_timer_continue"));
+ cont_call.add_argument (timer);
+ ccode.add_expression (cont_call);
+
+ ccode.close ();
+ }
+
+ if (m.body != null) {
+ m.body.emit (this);
+
+ if (co_switch_block != null) {
+ // after counting the number of yields for coroutines, append the case statements to the switch
+ var old_block = ccode.current_block;
+ ccode.current_block = co_switch_block;
+
+ for (int state = 1; state < emit_context.next_coroutine_state; state++) {
+ ccode.add_case (new CCodeConstant (state.to_string ()));
+ ccode.add_goto ("_state_%d".printf (state));
+ }
+
+ // let gcc know that this can't happen
+ ccode.add_default ();
+ ccode.add_expression (new CCodeFunctionCall (new CCodeIdentifier ("g_assert_not_reached")));
+
+ ccode.current_block = old_block;
+ co_switch_block = null;
+ }
+ }
+
+ // we generate the same code if we see a return statement, this handles the case without returns
+ if (profile && m.return_type is VoidType) {
+ string prefix = "_vala_prof_%s".printf (real_name);
+
+ var level = new CCodeIdentifier (prefix + "_level");
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeUnaryExpression (CCodeUnaryOperator.PREFIX_DECREMENT, level)));
+
+ var timer = new CCodeIdentifier (prefix + "_timer");
+
+ var stop_call = new CCodeFunctionCall (new CCodeIdentifier ("g_timer_stop"));
+ stop_call.add_argument (timer);
+ ccode.add_expression (stop_call);
+
+ ccode.close ();
+ }
+
+ // generate *_real_* functions for virtual methods
+ // also generate them for abstract methods of classes to prevent faulty subclassing
+ if (!m.is_abstract || (m.is_abstract && current_type_symbol is Class)) {
+ /* Methods imported from a plain C file don't
+ * have a body, e.g. Vala.Parser.parse_file () */
+ if (m.body != null) {
+ if (current_method_inner_error) {
+ cfile.add_include ("glib.h");
+ /* always separate error parameter and inner_error local variable
+ * as error may be set to NULL but we're always interested in inner errors
+ */
+ if (m.coroutine) {
+ // no initialization necessary, closure struct is zeroed
+ closure_struct.add_field ("GError*", "_inner_error%d_".printf (current_inner_error_id));
+ } else {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+ }
+
+ // For non-void return-types GAsyncModule.visit_return_statement () will take care of this
+ if (m.return_type is VoidType && m.coroutine) {
+ // epilogue
+ complete_async ();
+ }
+
+ if (m is CreationMethod) {
+ if (current_type_symbol is Class && !m.coroutine) {
+ CCodeExpression cresult = new CCodeIdentifier ("self");
+ if (get_ccode_type (m) != null) {
+ cresult = new CCodeCastExpression (cresult, get_ccode_type (m));
+ }
+
+ ccode.add_return (cresult);
+ } else if (current_type_symbol is Struct && ((Struct) current_type_symbol).is_simple_type ()) {
+ // constructors return simple type structs by value
+ ccode.add_return (new CCodeIdentifier ("self"));
+ }
+ }
+
+ cfile.add_function (ccode);
+ }
+ }
+
+ if (m.is_abstract && current_type_symbol is Class) {
+ // generate helpful error message if a sublcass does not implement an abstract method.
+ // This is only meaningful for subclasses implemented in C since the vala compiler would
+ // complain during compile time of such en error.
+
+ // add critical warning that this method should not have been called
+ var cerrorcall = new CCodeFunctionCall (new CCodeIdentifier ("g_critical"));
+ if (!((Class) current_type_symbol).is_compact) {
+ var type_from_instance_call = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_FROM_INSTANCE"));
+ type_from_instance_call.add_argument (new CCodeIdentifier ("self"));
+
+ var type_name_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_name"));
+ type_name_call.add_argument (type_from_instance_call);
+
+ cerrorcall.add_argument (new CCodeConstant ("\"Type `%%s' does not implement abstract method `%s'\"".printf (get_ccode_name (m))));
+ cerrorcall.add_argument (type_name_call);
+ } else {
+ cerrorcall.add_argument (new CCodeConstant ("\"Abstract method `%s' is not implemented\"".printf (get_ccode_name (m))));
+ }
+
+ ccode.add_expression (cerrorcall);
+
+ // add return statement
+ return_default_value (creturn_type);
+
+ cfile.add_function (ccode);
+ }
+
+ if (current_method_return && !(m.return_type is VoidType) && !m.return_type.is_real_non_null_struct_type () && !m.coroutine) {
+ CCodeVariableDeclarator vardecl;
+ if (m.is_abstract) {
+ vardecl = new CCodeVariableDeclarator ("result", default_value_for_type (m.return_type, true));
+ vardecl.init0 = true;
+ } else {
+ vardecl = new CCodeVariableDeclarator ("result");
+ }
+ ccode.add_declaration (get_ccode_name (m.return_type), vardecl);
+ }
+
+ pop_context ();
+
+ if ((m.is_abstract || m.is_virtual) && !m.coroutine
+ && !get_ccode_no_wrapper (m)
+ // If the method is a signal handler, the declaration is not needed.
+ // the name should be reserved for the emitter!
+ && m.signal_reference == null) {
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ generate_vfunc (m, creturn_type, cparam_map, carg_map);
+ }
+
+ if (m.entry_point) {
+ // m is possible entry point, add appropriate startup code
+
+ if (m.coroutine) {
+ // add callback for async main
+ var asyncmain_callback = new CCodeFunction (real_name + "_callback");
+ asyncmain_callback.add_parameter (new CCodeParameter ("source_object", "GObject*"));
+ asyncmain_callback.add_parameter (new CCodeParameter ("res", "GAsyncResult*"));
+ asyncmain_callback.add_parameter (new CCodeParameter ("user_data", "gpointer"));
+ asyncmain_callback.modifiers |= CCodeModifiers.STATIC;
+
+ push_function (asyncmain_callback);
+ ccode.add_declaration ("GMainLoop*", new CCodeVariableDeclarator.zero ("loop", new CCodeIdentifier ("user_data")));
+
+ // get the return value
+ var finish_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_finish_real_name (m)));
+ finish_call.add_argument (new CCodeIdentifier ("res"));
+ if (m.return_type is VoidType) {
+ ccode.add_expression (finish_call);
+ } else {
+ // save the return value
+ var asyncmain_result = new CCodeIdentifier (real_name + "_result");
+ var asyncmain_result_decl = new CCodeDeclaration (get_ccode_name (int_type));
+ asyncmain_result_decl.add_declarator (new CCodeVariableDeclarator (asyncmain_result.name));
+ asyncmain_result_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (asyncmain_result_decl);
+ ccode.add_assignment (asyncmain_result, finish_call);
+ }
+
+ // quit the main loop
+ var loop_quit_call = new CCodeFunctionCall (new CCodeIdentifier ("g_main_loop_quit"));
+ loop_quit_call.add_argument (new CCodeIdentifier ("loop"));
+ ccode.add_expression (loop_quit_call);
+
+ pop_function ();
+ cfile.add_function (asyncmain_callback);
+ }
+
+ var cmain = new CCodeFunction ("main", "int");
+ cmain.line = function.line;
+ cmain.add_parameter (new CCodeParameter ("argc", "int"));
+ cmain.add_parameter (new CCodeParameter ("argv", "char **"));
+ push_function (cmain);
+
+ if (context.profile == Profile.GOBJECT) {
+ if (context.mem_profiler) {
+ var mem_profiler_init_call = new CCodeFunctionCall (new CCodeIdentifier ("g_mem_set_vtable"));
+ mem_profiler_init_call.line = cmain.line;
+ mem_profiler_init_call.add_argument (new CCodeConstant ("glib_mem_profiler_table"));
+ ccode.add_expression (mem_profiler_init_call);
+ }
+ }
+
+ var main_call = new CCodeFunctionCall (new CCodeIdentifier (m.coroutine ? real_name : function.name));
+ if (m.get_parameters ().size == 1) {
+ main_call.add_argument (new CCodeIdentifier ("argv"));
+ main_call.add_argument (new CCodeIdentifier ("argc"));
+ }
+
+ if (m.coroutine) {
+ // main method is asynchronous, so we have to setup GMainLoop and run it
+ var main_loop_new_call = new CCodeFunctionCall (new CCodeIdentifier ("g_main_loop_new"));
+ main_loop_new_call.add_argument (new CCodeConstantIdentifier ("NULL"));
+ main_loop_new_call.add_argument (new CCodeConstantIdentifier ("FALSE"));
+ ccode.add_declaration ("GMainLoop*", new CCodeVariableDeclarator.zero ("loop", main_loop_new_call));
+
+ // add some more arguments to main_call
+ main_call.add_argument (new CCodeIdentifier (real_name + "_callback"));
+ main_call.add_argument (new CCodeIdentifier ("loop"));
+ ccode.add_expression (main_call);
+
+ var main_loop_run_call = new CCodeFunctionCall (new CCodeIdentifier ("g_main_loop_run"));
+ main_loop_run_call.add_argument (new CCodeIdentifier ("loop"));
+ ccode.add_expression (main_loop_run_call);
+
+ var main_loop_unref_call = new CCodeFunctionCall (new CCodeIdentifier ("g_main_loop_unref"));
+ main_loop_unref_call.add_argument (new CCodeIdentifier ("loop"));
+ ccode.add_expression (main_loop_unref_call);
+
+ if (m.return_type is VoidType) {
+ // method returns void, always use 0 as exit code
+ ccode.add_return (new CCodeConstant ("0"));
+ } else {
+ // get the saved return value
+ ccode.add_return (new CCodeIdentifier (real_name + "_result"));
+ }
+ } else {
+ if (m.return_type is VoidType) {
+ // method returns void, always use 0 as exit code
+ ccode.add_expression (main_call);
+ ccode.add_return (new CCodeConstant ("0"));
+ } else {
+ ccode.add_return (main_call);
+ }
+ }
+ pop_function ();
+ cfile.add_function (cmain);
+ }
+
+ pop_line ();
+ }
+
+ public virtual CCodeParameter generate_parameter (Parameter param, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression>? carg_map) {
+ CCodeParameter cparam;
+ if (!param.ellipsis && !param.params_array) {
+ generate_type_declaration (param.variable_type, decl_space);
+
+ string? ctypename = get_ccode_type (param);
+ if (ctypename == null) {
+ ctypename = get_ccode_name (param.variable_type);
+
+ // pass non-simple structs always by reference
+ unowned Struct? st = param.variable_type.type_symbol as Struct;
+ if (st != null) {
+ if (!st.is_simple_type () && param.direction == ParameterDirection.IN) {
+ if (st.is_immutable && !param.variable_type.value_owned) {
+ ctypename = "const " + ctypename;
+ }
+
+ if (!param.variable_type.nullable) {
+ ctypename += "*";
+ }
+ }
+ }
+
+ if (param.direction != ParameterDirection.IN) {
+ ctypename += "*";
+ }
+ }
+
+ cparam = new CCodeParameter (get_ccode_name (param), ctypename);
+ if (param.format_arg) {
+ cparam.modifiers = CCodeModifiers.FORMAT_ARG;
+ }
+ } else {
+ var va_list_name = "_vala_va_list";
+
+ // Add _first_* parameter for the params array parameter
+ if (param.params_array) {
+ var param_type = ((ArrayType) param.variable_type).element_type;
+ string ctypename = get_ccode_name (param_type);
+
+ generate_type_declaration (param_type, decl_space);
+
+ // pass non-simple structs always by reference
+ if (param_type.type_symbol is Struct) {
+ var st = (Struct) param_type.type_symbol;
+ if (!st.is_simple_type () && param.direction == ParameterDirection.IN) {
+ if (st.is_immutable && !param.variable_type.value_owned) {
+ ctypename = "const " + ctypename;
+ }
+
+ if (!param_type.nullable) {
+ ctypename += "*";
+ }
+ }
+ }
+
+ cparam = new CCodeParameter ("_first_%s".printf (get_ccode_name (param)), ctypename);
+ cparam_map.set (get_param_pos (get_ccode_pos (param) - 0.1, true), cparam);
+
+ va_list_name = "_va_list_%s".printf (get_ccode_name (param));
+ }
+
+ if (ellipses_to_valist) {
+ cparam = new CCodeParameter (va_list_name, "va_list");
+ } else {
+ cparam = new CCodeParameter.with_ellipsis ();
+ }
+ }
+
+ cparam_map.set (get_param_pos (get_ccode_pos (param), param.ellipsis || param.params_array), cparam);
+ if (carg_map != null && !param.ellipsis && !param.params_array) {
+ carg_map.set (get_param_pos (get_ccode_pos (param), param.ellipsis || param.params_array), get_parameter_cexpression (param));
+ }
+
+ return cparam;
+ }
+
+ public override void generate_cparameters (Method m, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, CCodeFunction func, CCodeFunctionDeclarator? vdeclarator = null, Map<int,CCodeExpression>? carg_map = null, CCodeFunctionCall? vcall = null, int direction = 3) {
+ if (m.closure) {
+ var closure_block = current_closure_block;
+ int block_id = get_block_id (closure_block);
+ var instance_param = new CCodeParameter ("_data%d_".printf (block_id), "Block%dData*".printf (block_id));
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (m)), instance_param);
+ } else if (m.parent_symbol is Class && m is CreationMethod) {
+ var cl = (Class) m.parent_symbol;
+ if (!cl.is_compact && vcall == null && (direction & 1) == 1) {
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (m)), new CCodeParameter ("object_type", "GType"));
+ }
+ } else if (m.binding == MemberBinding.INSTANCE && (direction != 2 || get_ccode_finish_instance (m))) {
+ var this_type = SemanticAnalyzer.get_this_type (m);
+
+ generate_type_declaration (this_type, decl_space);
+
+ CCodeParameter instance_param = null;
+ if (m.base_interface_method != null && !m.is_abstract && !m.is_virtual) {
+ var base_type = new ObjectType ((Interface) m.base_interface_method.parent_symbol);
+ instance_param = new CCodeParameter ("base", get_ccode_name (base_type));
+ } else if (m.overrides) {
+ var base_type = new ObjectType ((Class) m.base_method.parent_symbol);
+ instance_param = new CCodeParameter ("base", get_ccode_name (base_type));
+ } else {
+ unowned Struct? st = m.parent_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ instance_param = new CCodeParameter ("*self", get_ccode_name (this_type));
+ } else if (st != null && st.is_simple_type () && m is CreationMethod) {
+ // constructors return simple type structs by value
+ } else {
+ instance_param = new CCodeParameter ("self", get_ccode_name (this_type));
+ }
+ }
+ if (instance_param != null) {
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (m)), instance_param);
+ }
+ } else if (m.binding == MemberBinding.CLASS) {
+ var this_type = SemanticAnalyzer.get_this_type (m);
+ var class_param = new CCodeParameter ("klass", get_ccode_name (this_type));
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (m)), class_param);
+ }
+
+ // memory management for generic types
+ List<TypeParameter>? type_parameters = null;
+ if (is_gtypeinstance_creation_method (m) && (direction & 1) == 1) {
+ type_parameters = ((Class) m.parent_symbol).get_type_parameters ();
+ } else if (!m.closure && (direction & 1) == 1) {
+ type_parameters = m.get_type_parameters ();
+ }
+ if (type_parameters != null) {
+ int type_param_index = 0;
+ foreach (var type_param in type_parameters) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ cparam_map.set (get_param_pos (0.1 * type_param_index + 0.01), new CCodeParameter (type, "GType"));
+ cparam_map.set (get_param_pos (0.1 * type_param_index + 0.02), new CCodeParameter (dup_func, "GBoxedCopyFunc"));
+ cparam_map.set (get_param_pos (0.1 * type_param_index + 0.03), new CCodeParameter (destroy_func, "GDestroyNotify"));
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (0.1 * type_param_index + 0.01), new CCodeIdentifier (type));
+ carg_map.set (get_param_pos (0.1 * type_param_index + 0.02), new CCodeIdentifier (dup_func));
+ carg_map.set (get_param_pos (0.1 * type_param_index + 0.03), new CCodeIdentifier (destroy_func));
+ }
+ type_param_index++;
+ }
+ }
+
+ var needs_format_arg = m.get_format_arg_index () < 0 && (m.printf_format || m.scanf_format);
+
+ CCodeParameter? prev_cparam = null;
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction != ParameterDirection.OUT) {
+ if ((direction & 1) == 0) {
+ // no in parameters
+ continue;
+ }
+ } else {
+ if ((direction & 2) == 0) {
+ // no out parameters
+ continue;
+ }
+ }
+
+ var cparam = generate_parameter (param, decl_space, cparam_map, carg_map);
+
+ // if there is no explicit FormatArg annotation while this method throws an error
+ // it is required to mark the parameter located right before ellipsis as format-arg
+ // to account for the parameter shifting caused by the inserted GError parameter
+ if (needs_format_arg) {
+ if (prev_cparam != null && cparam.ellipsis) {
+ prev_cparam.modifiers |= CCodeModifiers.FORMAT_ARG;
+ }
+ prev_cparam = cparam;
+ }
+ }
+
+ if ((direction & 2) != 0) {
+ generate_method_result_declaration (m, decl_space, func, cparam_map, carg_map);
+ }
+
+ // append C parameters in the right order
+ int last_pos = -1;
+ int min_pos;
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in cparam_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ func.add_parameter (cparam_map.get (min_pos));
+ if (vdeclarator != null) {
+ vdeclarator.add_parameter (cparam_map.get (min_pos));
+ }
+ if (vcall != null) {
+ var arg = carg_map.get (min_pos);
+ if (arg != null) {
+ vcall.add_argument (arg);
+ }
+ }
+ last_pos = min_pos;
+ }
+
+ if (m.printf_format) {
+ func.modifiers |= CCodeModifiers.PRINTF;
+ } else if (m.scanf_format) {
+ func.modifiers |= CCodeModifiers.SCANF;
+ }
+
+ if (m.version.deprecated) {
+ func.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+ }
+
+ public void generate_vfunc (Method m, DataType return_type, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression> carg_map, string suffix = "", int direction = 3) {
+ push_context (new EmitContext ());
+
+ CCodeFunction vfunc;
+ if (suffix == "_finish") {
+ vfunc = new CCodeFunction (get_ccode_finish_name (m));
+ } else {
+ vfunc = new CCodeFunction (get_ccode_name (m));
+ }
+
+ CCodeExpression vcast;
+ if (m.parent_symbol is Interface) {
+ vcast = new CCodeIdentifier ("_iface_");
+ } else {
+ var cl = (Class) m.parent_symbol;
+ if (!cl.is_compact) {
+ vcast = new CCodeIdentifier ("_klass_");
+ } else {
+ vcast = new CCodeIdentifier ("self");
+ }
+ }
+
+ CCodeFunctionCall vcall;
+ if (suffix == "_finish") {
+ vcall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, get_ccode_finish_vfunc_name (m)));
+ } else {
+ vcall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (vcast, get_ccode_vfunc_name (m)));
+ }
+
+ carg_map.set (get_param_pos (get_ccode_instance_pos (m)), new CCodeIdentifier ("self"));
+
+ generate_cparameters (m, cfile, cparam_map, vfunc, null, carg_map, vcall, direction);
+
+ push_function (vfunc);
+
+ if (m.return_type.is_non_null_simple_type () && default_value_for_type (m.return_type, false) == null) {
+ // the type check will use the result variable
+ CCodeVariableDeclarator vardecl;
+ if (m.is_abstract) {
+ vardecl = new CCodeVariableDeclarator ("result", default_value_for_type (m.return_type, true));
+ vardecl.init0 = true;
+ } else {
+ vardecl = new CCodeVariableDeclarator ("result");
+ }
+ ccode.add_declaration (get_ccode_name (m.return_type), vardecl);
+ }
+
+ // add a typecheck statement for "self"
+ create_method_type_check_statement (m, return_type, (TypeSymbol) m.parent_symbol, true, "self");
+
+ foreach (Expression precondition in m.get_preconditions ()) {
+ create_precondition_statement (m, return_type, precondition);
+ }
+
+ if (m.parent_symbol is Interface) {
+ var iface = (Interface) m.parent_symbol;
+
+ var vcastcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (iface)));
+ ((CCodeFunctionCall) vcastcall).add_argument (new CCodeIdentifier ("self"));
+ ccode.add_declaration ("%s*".printf (get_ccode_type_name (iface)), new CCodeVariableDeclarator ("_iface_"));
+ ccode.add_assignment (vcast, vcastcall);
+ } else {
+ var cl = (Class) m.parent_symbol;
+ if (!cl.is_compact) {
+ var vcastcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ ((CCodeFunctionCall) vcastcall).add_argument (new CCodeIdentifier ("self"));
+ ccode.add_declaration ("%s*".printf (get_ccode_type_name (cl)), new CCodeVariableDeclarator ("_klass_"));
+ ccode.add_assignment (vcast, vcastcall);
+ }
+ }
+
+ // check if vfunc pointer is properly set
+ ccode.open_if (vcall.call);
+
+ if (return_type is VoidType || return_type.is_real_non_null_struct_type ()) {
+ ccode.add_expression (vcall);
+ } else if (m.get_postconditions ().size == 0) {
+ /* pass method return value */
+ ccode.add_return (vcall);
+ } else {
+ /* store method return value for postconditions */
+ ccode.add_declaration (get_creturn_type (m, get_ccode_name (return_type)), new CCodeVariableDeclarator ("result"));
+ ccode.add_assignment (new CCodeIdentifier ("result"), vcall);
+ }
+
+ if (m.get_postconditions ().size > 0) {
+ foreach (Expression postcondition in m.get_postconditions ()) {
+ create_postcondition_statement (postcondition);
+ }
+
+ if (!(return_type is VoidType)) {
+ ccode.add_return (new CCodeIdentifier ("result"));
+ }
+ }
+
+ ccode.close ();
+
+ if (m.return_type.is_non_null_simple_type () && default_value_for_type (m.return_type, false) == null) {
+ ccode.add_return (new CCodeIdentifier ("result"));
+ } else if (!(return_type is VoidType)) {
+ ccode.add_return (default_value_for_type (return_type, false, true));
+ }
+
+ if (m.printf_format) {
+ vfunc.modifiers |= CCodeModifiers.PRINTF;
+ } else if (m.scanf_format) {
+ vfunc.modifiers |= CCodeModifiers.SCANF;
+ }
+
+ if (m.version.deprecated) {
+ vfunc.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ cfile.add_function (vfunc);
+
+ pop_context ();
+ }
+
+ private void create_method_type_check_statement (Method m, DataType return_type, TypeSymbol t, bool non_null, string var_name) {
+ if (!m.coroutine) {
+ create_type_check_statement (m, return_type, t, non_null, var_name);
+ }
+ }
+
+ private void create_precondition_statement (Method m, DataType ret_type, Expression precondition) {
+ is_in_method_precondition = true;
+
+ var ccheck = new CCodeFunctionCall ();
+
+ precondition.emit (this);
+
+ ccheck.add_argument (get_cvalue (precondition));
+
+ string message = ((string) precondition.source_reference.begin.pos).substring (0, (int) (precondition.source_reference.end.pos - precondition.source_reference.begin.pos));
+ ccheck.add_argument (new CCodeConstant ("\"%s\"".printf (message.replace ("\n", " ").escape (""))));
+ requires_assert = true;
+
+ if (m is CreationMethod) {
+ if (m.parent_symbol is Class) {
+ ccheck.call = new CCodeIdentifier ("_vala_return_val_if_fail");
+ ccheck.add_argument (new CCodeConstant ("NULL"));
+ } else {
+ // creation method of struct
+ ccheck.call = new CCodeIdentifier ("_vala_return_if_fail");
+ }
+ } else if (m.coroutine) {
+ // _co function
+ ccheck.call = new CCodeIdentifier ("_vala_return_val_if_fail");
+ ccheck.add_argument (new CCodeConstant ("FALSE"));
+ } else if (ret_type is VoidType) {
+ /* void function */
+ ccheck.call = new CCodeIdentifier ("_vala_return_if_fail");
+ } else {
+ ccheck.call = new CCodeIdentifier ("_vala_return_val_if_fail");
+
+ var cdefault = default_value_for_type (ret_type, false);
+ if (cdefault != null) {
+ ccheck.add_argument (cdefault);
+ } else {
+ return;
+ }
+ }
+
+ ccode.add_expression (ccheck);
+
+ current_method_return = true;
+ is_in_method_precondition = false;
+ }
+
+ public override void visit_creation_method (CreationMethod m) {
+ push_line (m.source_reference);
+
+ unowned Class? cl = m.parent_symbol as Class;
+ if (cl != null && !cl.is_compact) {
+ ellipses_to_valist = true;
+ } else {
+ ellipses_to_valist = false;
+ }
+ visit_method (m);
+ ellipses_to_valist = false;
+
+ if ((!m.external && m.external_package) || m.source_type == SourceFileType.FAST) {
+ pop_line ();
+ return;
+ }
+
+ // do not generate _new functions for creation methods of abstract classes
+ if (current_type_symbol is Class && !current_class.is_compact && !current_class.is_abstract) {
+ // _new function
+ create_aux_constructor (m, get_ccode_name (m), false);
+
+ // _construct function (if visit_method generated _constructv)
+ if (m.is_variadic ()) {
+ create_aux_constructor (m, get_ccode_real_name (m), true);
+ }
+ }
+
+ pop_line ();
+ }
+
+ private void create_aux_constructor (CreationMethod m, string func_name, bool self_as_first_parameter) {
+ var vfunc = new CCodeFunction (func_name);
+ if (m.is_private_symbol ()) {
+ vfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ vfunc.modifiers |= CCodeModifiers.INTERNAL;
+ }
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ push_function (vfunc);
+
+ string constructor = (m.is_variadic ()) ? get_ccode_constructv_name (m) : get_ccode_real_name (m);
+ var vcall = new CCodeFunctionCall (new CCodeIdentifier (constructor));
+
+ if (self_as_first_parameter) {
+ cparam_map.set (get_param_pos (get_ccode_instance_pos (m)), new CCodeParameter ("object_type", "GType"));
+ vcall.add_argument (get_variable_cexpression ("object_type"));
+ } else {
+ vcall.add_argument (new CCodeIdentifier (get_ccode_type_id (current_class)));
+ }
+
+
+ generate_cparameters (m, cfile, cparam_map, vfunc, null, carg_map, vcall);
+
+ if (m.is_variadic ()) {
+ int last_pos = -1;
+ int second_last_pos = -1;
+ foreach (int pos in cparam_map.get_keys ()) {
+ if (pos > last_pos) {
+ second_last_pos = last_pos;
+ last_pos = pos;
+ } else if (pos > second_last_pos) {
+ second_last_pos = pos;
+ }
+ }
+
+ var carg = carg_map.get (second_last_pos);
+ if (carg == null) {
+ // params arrays have an implicit first argument, refer to the cparameter name
+ carg = new CCodeIdentifier (cparam_map.get (second_last_pos).name);
+ vcall.add_argument (carg);
+ }
+
+ var vastart = new CCodeFunctionCall (new CCodeIdentifier ("va_start"));
+ vastart.add_argument (new CCodeIdentifier ("_vala_va_list_obj"));
+ vastart.add_argument (carg);
+
+ ccode.add_declaration ("va_list", new CCodeVariableDeclarator ("_vala_va_list_obj"));
+ ccode.add_expression (vastart);
+
+ vcall.add_argument (new CCodeIdentifier("_vala_va_list_obj"));
+ }
+
+ ccode.add_return (vcall);
+
+ pop_function ();
+
+ cfile.add_function (vfunc);
+ }
+}
+
+// vim:sw=8 noet
--- /dev/null
+/* valaccodestructmodule.vala
+ *
+ * Copyright (C) 2006-2009 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+public abstract class Vala.CCodeStructModule : CCodeBaseModule {
+ public override void generate_struct_declaration (Struct st, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, st, get_ccode_name (st))) {
+ return;
+ }
+
+ if (st.base_struct != null) {
+ generate_struct_declaration (st.base_struct, decl_space);
+ } else if (!st.external_package) {
+ // custom simple type structs cannot have a type id which depends on head-allocation
+ if (st.get_attribute ("SimpleType") != null && !st.has_attribute_argument ("CCode", "type_id")) {
+ st.set_attribute_bool ("CCode", "has_type_id", false);
+ }
+ }
+
+ if (st.is_boolean_type () || st.is_integer_type () || st.is_floating_type ()) {
+ string typename;
+ // See GTypeModule.visit_struct()
+ if (st.base_struct != null) {
+ typename = get_ccode_name (st.base_struct);
+ } else if (st.is_boolean_type ()) {
+ // typedef for boolean types
+ decl_space.add_include ("stdbool.h");
+ typename = "bool";
+ } else if (st.is_integer_type ()) {
+ // typedef for integral types
+ decl_space.add_include ("stdint.h");
+ typename = "%sint%d_t".printf (st.signed ? "" : "u", st.width);
+ } else if (st.is_floating_type ()) {
+ // typedef for floating types
+ typename = (st.width == 64 ? "double" : "float");
+ } else {
+ assert_not_reached ();
+ }
+ decl_space.add_type_declaration (new CCodeTypeDefinition (typename, new CCodeVariableDeclarator (get_ccode_name (st))));
+ return;
+ }
+
+ if (context.profile == Profile.GOBJECT) {
+ if (get_ccode_has_type_id (st)) {
+ decl_space.add_include ("glib-object.h");
+ decl_space.add_type_declaration (new CCodeNewline ());
+ var macro = "(%s_get_type ())".printf (get_ccode_lower_case_name (st, null));
+ decl_space.add_type_declaration (new CCodeMacroReplacement (get_ccode_type_id (st), macro));
+
+ var type_fun = new StructRegisterFunction (st);
+ type_fun.init_from_type (context, false, true);
+ decl_space.add_type_member_declaration (type_fun.get_declaration ());
+
+ requires_vala_extern = true;
+ }
+ }
+
+ if (st.base_struct == null) {
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct _%s".printf (get_ccode_name (st)), new CCodeVariableDeclarator (get_ccode_name (st))));
+ } else {
+ decl_space.add_type_declaration (new CCodeTypeDefinition (get_ccode_name (st.base_struct), new CCodeVariableDeclarator (get_ccode_name (st))));
+ }
+
+ var instance_struct = new CCodeStruct ("_%s".printf (get_ccode_name (st)));
+
+ if (st.version.deprecated) {
+ if (context.profile == Profile.GOBJECT) {
+ decl_space.add_include ("glib.h");
+ }
+ instance_struct.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding == MemberBinding.INSTANCE) {
+ append_field (instance_struct, f, decl_space);
+ }
+ }
+
+ if (st.base_struct == null) {
+ decl_space.add_type_definition (instance_struct);
+ }
+
+ if (st.is_simple_type ()) {
+ return;
+ }
+
+ var function = new CCodeFunction (get_ccode_dup_function (st), get_ccode_name (st) + "*");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ function.add_parameter (new CCodeParameter ("self", "const " + get_ccode_name (st) + "*"));
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_free_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (st) + "*"));
+ decl_space.add_function_declaration (function);
+
+ if (st.is_disposable ()) {
+ function = new CCodeFunction (get_ccode_copy_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ function.add_parameter (new CCodeParameter ("self", "const " + get_ccode_name (st) + "*"));
+ function.add_parameter (new CCodeParameter ("dest", get_ccode_name (st) + "*"));
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_destroy_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (st) + "*"));
+ decl_space.add_function_declaration (function);
+ }
+ }
+
+ public override void visit_struct (Struct st) {
+ push_context (new EmitContext (st));
+ push_line (st.source_reference);
+
+ var old_instance_finalize_context = instance_finalize_context;
+ instance_finalize_context = new EmitContext ();
+
+ generate_struct_declaration (st, cfile);
+
+ if (!st.is_internal_symbol ()) {
+ generate_struct_declaration (st, header_file);
+ }
+ if (!st.is_private_symbol ()) {
+ generate_struct_declaration (st, internal_header_file);
+ }
+
+ if (!st.is_boolean_type () && !st.is_integer_type () && !st.is_floating_type ()) {
+ if (st.is_disposable ()) {
+ begin_struct_destroy_function (st);
+ }
+ }
+
+ st.accept_children (this);
+
+ if (!st.is_boolean_type () && !st.is_integer_type () && !st.is_floating_type ()) {
+ if (st.is_disposable ()) {
+ add_struct_copy_function (st);
+ add_struct_destroy_function (st);
+ }
+
+ if (!st.is_simple_type ()) {
+ add_struct_dup_function (st);
+ add_struct_free_function (st);
+ }
+ }
+
+ instance_finalize_context = old_instance_finalize_context;
+
+ pop_line ();
+ pop_context ();
+ }
+
+ void add_struct_dup_function (Struct st) {
+ var function = new CCodeFunction (get_ccode_dup_function (st), get_ccode_name (st) + "*");
+ if (st.access == SymbolAccessibility.PRIVATE) {
+ function.modifiers = CCodeModifiers.STATIC;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", "const " + get_ccode_name (st) + "*"));
+
+ push_function (function);
+
+ ccode.add_declaration (get_ccode_name (st) + "*", new CCodeVariableDeclarator ("dup"));
+
+ if (context.profile == Profile.GOBJECT) {
+ // g_new0 needs glib.h
+ cfile.add_include ("glib.h");
+ var creation_call = new CCodeFunctionCall (new CCodeIdentifier ("g_new0"));
+ creation_call.add_argument (new CCodeConstant (get_ccode_name (st)));
+ creation_call.add_argument (new CCodeConstant ("1"));
+ ccode.add_assignment (new CCodeIdentifier ("dup"), creation_call);
+ } else if (context.profile == Profile.POSIX) {
+ // calloc needs stdlib.h
+ cfile.add_include ("stdlib.h");
+
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeConstant (get_ccode_name (st)));
+
+ var creation_call = new CCodeFunctionCall (new CCodeIdentifier ("calloc"));
+ creation_call.add_argument (new CCodeConstant ("1"));
+ creation_call.add_argument (sizeof_call);
+ ccode.add_assignment (new CCodeIdentifier ("dup"), creation_call);
+ }
+
+ if (st.is_disposable ()) {
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_copy_function (st)));
+ copy_call.add_argument (new CCodeIdentifier ("self"));
+ copy_call.add_argument (new CCodeIdentifier ("dup"));
+ ccode.add_expression (copy_call);
+ } else {
+ cfile.add_include ("string.h");
+
+ var sizeof_call = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ sizeof_call.add_argument (new CCodeConstant (get_ccode_name (st)));
+
+ var copy_call = new CCodeFunctionCall (new CCodeIdentifier ("memcpy"));
+ copy_call.add_argument (new CCodeIdentifier ("dup"));
+ copy_call.add_argument (new CCodeIdentifier ("self"));
+ copy_call.add_argument (sizeof_call);
+ ccode.add_expression (copy_call);
+ }
+
+ ccode.add_return (new CCodeIdentifier ("dup"));
+
+ pop_function ();
+
+ cfile.add_function (function);
+ }
+
+ void add_struct_free_function (Struct st) {
+ var function = new CCodeFunction (get_ccode_free_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (st) + "*"));
+
+ push_function (function);
+
+ if (st.is_disposable ()) {
+ var destroy_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_destroy_function (st)));
+ destroy_call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (destroy_call);
+ }
+
+ if (context.profile == Profile.GOBJECT) {
+ // g_free needs glib.h
+ cfile.add_include ("glib.h");
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ free_call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (free_call);
+ } else if (context.profile == Profile.POSIX) {
+ // free needs stdlib.h
+ cfile.add_include ("stdlib.h");
+ var free_call = new CCodeFunctionCall (new CCodeIdentifier ("free"));
+ free_call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (free_call);
+ }
+
+ pop_function ();
+
+ cfile.add_function (function);
+ }
+
+ void add_struct_copy_function (Struct st) {
+ var function = new CCodeFunction (get_ccode_copy_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", "const " + get_ccode_name (st) + "*"));
+ function.add_parameter (new CCodeParameter ("dest", get_ccode_name (st) + "*"));
+
+ push_function (function);
+
+ var dest_struct = new GLibValue (SemanticAnalyzer.get_data_type_for_symbol (st), new CCodeIdentifier ("(*dest)"), true);
+ unowned Struct sym = st;
+ while (sym.base_struct != null) {
+ sym = sym.base_struct;
+ }
+ foreach (var f in sym.get_fields ()) {
+ if (f.binding == MemberBinding.INSTANCE) {
+ var value = load_field (f, load_this_parameter ((TypeSymbol) st));
+ if ((!(f.variable_type is DelegateType) || get_ccode_delegate_target (f)) && requires_copy (f.variable_type)) {
+ value = copy_value (value, f);
+ if (value == null) {
+ // error case, continue to avoid critical
+ continue;
+ }
+ }
+ store_field (f, dest_struct, value);
+ }
+ }
+
+ pop_function ();
+
+ cfile.add_function (function);
+ }
+
+ void begin_struct_destroy_function (Struct st) {
+ push_context (instance_finalize_context);
+
+ var function = new CCodeFunction (get_ccode_destroy_function (st), "void");
+ if (st.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && st.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (st) + "*"));
+
+ push_function (function);
+
+ pop_context ();
+ }
+
+ void add_struct_destroy_function (Struct st) {
+ unowned Struct sym = st;
+ while (sym.base_struct != null) {
+ sym = sym.base_struct;
+ }
+ if (st != sym) {
+ push_context (instance_finalize_context);
+
+ var destroy_func = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_destroy_function (sym)));
+ destroy_func.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (destroy_func);
+
+ pop_context ();
+ }
+
+ cfile.add_function (instance_finalize_context.ccode);
+ }
+}
+
--- /dev/null
+/* valaclassregisterfunction.vala
+ *
+ * Copyright (C) 2006-2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * C function to register a class at runtime.
+ */
+public class Vala.ClassRegisterFunction : TypeRegisterFunction {
+ /**
+ * Specifies the class to be registered.
+ */
+ public weak Class class_reference { get; set; }
+
+ /**
+ * Creates a new C function to register the specified class at runtime.
+ *
+ * @param cl a class
+ * @return newly created class register function
+ */
+ public ClassRegisterFunction (Class cl) {
+ class_reference = cl;
+ }
+
+ public override TypeSymbol get_type_declaration () {
+ return class_reference;
+ }
+
+ public override string get_type_struct_name () {
+ return get_ccode_type_name (class_reference);
+ }
+
+ public override string get_base_init_func_name () {
+ if (class_reference.class_constructor != null) {
+ return "%s_base_init".printf (get_ccode_lower_case_name (class_reference, null));
+ } else {
+ return "NULL";
+ }
+ }
+
+ public override string get_class_finalize_func_name () {
+ if (class_reference.static_destructor != null) {
+ return "%s_class_finalize".printf (get_ccode_lower_case_name (class_reference, null));
+ } else {
+ return "NULL";
+ }
+ }
+
+ public override string get_base_finalize_func_name () {
+ if (class_reference.class_destructor != null) {
+ return "%s_base_finalize".printf (get_ccode_lower_case_name (class_reference, null));
+ } else {
+ return "NULL";
+ }
+ }
+
+ public override string get_class_init_func_name () {
+ return "%s_class_init".printf (get_ccode_lower_case_name (class_reference, null));
+ }
+
+ public override string get_instance_struct_size () {
+ return "sizeof (%s)".printf (get_ccode_name (class_reference));
+ }
+
+ public override string get_instance_init_func_name () {
+ return "%s_instance_init".printf (get_ccode_lower_case_name (class_reference, null));
+ }
+
+ public override string get_parent_type_name () {
+ return get_ccode_type_id (class_reference.base_class);
+ }
+
+ public override string get_type_flags () {
+ if (class_reference.is_abstract) {
+ return "G_TYPE_FLAG_ABSTRACT";
+ } else if (CodeContext.get ().require_glib_version (2, 70) && class_reference.is_sealed) {
+ return "G_TYPE_FLAG_FINAL";
+ } else {
+ return "0";
+ }
+ }
+
+ public override SymbolAccessibility get_accessibility () {
+ return class_reference.access;
+ }
+
+ public override string? get_gtype_value_table_init_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_init".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override string? get_gtype_value_table_free_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_free_value".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override string? get_gtype_value_table_copy_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_copy_value".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override string? get_gtype_value_table_peek_pointer_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_peek_pointer".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override string? get_gtype_value_table_collect_value_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_collect_value".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override string? get_gtype_value_table_lcopy_value_function_name () {
+ bool is_fundamental = !class_reference.is_compact && class_reference.base_class == null;
+ if ( is_fundamental )
+ return "%s_lcopy_value".printf (get_ccode_lower_case_name (class_reference, "value_"));
+
+ return null;
+ }
+
+ public override CCodeFragment get_type_interface_init_declaration () {
+ var frag = new CCodeFragment ();
+
+ foreach (DataType base_type in class_reference.get_base_types ()) {
+ if (!(base_type.type_symbol is Interface)) {
+ continue;
+ }
+
+ unowned Interface iface = (Interface) base_type.type_symbol;
+
+ var iface_info_name = "%s_info".printf (get_ccode_lower_case_name (iface, null));
+
+ var ctypedecl = new CCodeDeclaration ("const GInterfaceInfo");
+ ctypedecl.modifiers = CCodeModifiers.STATIC;
+ ctypedecl.add_declarator (new CCodeVariableDeclarator (iface_info_name, new CCodeConstant ("{ (GInterfaceInitFunc) %s_%s_interface_init, (GInterfaceFinalizeFunc) NULL, NULL}".printf (get_ccode_lower_case_name (class_reference), get_ccode_lower_case_name (iface)))));
+ frag.append (ctypedecl);
+ }
+
+ return frag;
+ }
+
+ public override void get_type_interface_init_statements (CodeContext context, CCodeBlock block, bool plugin) {
+ foreach (DataType base_type in class_reference.get_base_types ()) {
+ if (!(base_type.type_symbol is Interface)) {
+ continue;
+ }
+
+ unowned Interface iface = (Interface) base_type.type_symbol;
+
+ var iface_info_name = "%s_info".printf (get_ccode_lower_case_name (iface, null));
+ if (!plugin) {
+ var reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_add_interface_static"));
+ reg_call.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (class_reference, null))));
+ reg_call.add_argument (new CCodeIdentifier (get_ccode_type_id (iface)));
+ reg_call.add_argument (new CCodeIdentifier ("&%s".printf (iface_info_name)));
+ block.add_statement (new CCodeExpressionStatement (reg_call));
+ } else {
+ var reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_module_add_interface"));
+ reg_call.add_argument (new CCodeIdentifier ("module"));
+ reg_call.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (class_reference, null))));
+ reg_call.add_argument (new CCodeIdentifier (get_ccode_type_id (iface)));
+ reg_call.add_argument (new CCodeIdentifier ("&%s".printf (iface_info_name)));
+ block.add_statement (new CCodeExpressionStatement (reg_call));
+ }
+ }
+
+ ((CCodeBaseModule) context.codegen).register_dbus_info (block, class_reference);
+ }
+}
--- /dev/null
+/* valactype.vala
+ *
+ * Copyright (C) 2009 Mark Lee
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Mark Lee <marklee@src.gnome.org>
+ */
+
+/**
+ * A C type, used only for code generation purposes.
+ */
+public class Vala.CType : DataType {
+ /**
+ * The name of the C type.
+ */
+ public string ctype_name { get; set; }
+
+ /**
+ * The default value of the C type.
+ */
+ public string cdefault_value { get; set; }
+
+ public CType (string ctype_name, string cdefault_value) {
+ this.ctype_name = ctype_name;
+ this.cdefault_value = cdefault_value;
+ }
+
+ public override DataType copy () {
+ return new CType (ctype_name, cdefault_value);
+ }
+}
--- /dev/null
+/* valaenumregisterfunction.vala
+ *
+ * Copyright (C) 2008 Jürg Billeter
+ * Copyright (C) 2010 Marc-Andre Lureau
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * C function to register an enum at runtime.
+ */
+public class Vala.EnumRegisterFunction : TypeRegisterFunction {
+ /**
+ * Specifies the enum to be registered.
+ */
+ public weak Enum enum_reference { get; set; }
+
+ /**
+ * Creates a new C function to register the specified enum at runtime.
+ *
+ * @param en an enum
+ * @return newly created enum register function
+ */
+ public EnumRegisterFunction (Enum en) {
+ enum_reference = en;
+ }
+
+ public override TypeSymbol get_type_declaration () {
+ return enum_reference;
+ }
+
+ public override SymbolAccessibility get_accessibility () {
+ return enum_reference.access;
+ }
+}
--- /dev/null
+/* valagasyncmodule.vala
+ *
+ * Copyright (C) 2008-2012 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+public class Vala.GAsyncModule : GtkModule {
+ CCodeStruct generate_data_struct (Method m) {
+ string dataname = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "Data";
+ var data = new CCodeStruct ("_" + dataname);
+
+ data.add_field ("int", "_state_");
+ data.add_field ("GObject*", "_source_object_");
+ data.add_field ("GAsyncResult*", "_res_");
+ data.add_field ("GTask*", "_async_result");
+
+ if (m is CreationMethod) {
+ data.add_field ("GType", "object_type");
+ }
+
+ if (m.binding == MemberBinding.INSTANCE) {
+ var type_sym = (TypeSymbol) m.parent_symbol;
+ if (type_sym is ObjectTypeSymbol) {
+ data.add_field (get_ccode_name (type_sym) + "*", "self");
+ } else {
+ data.add_field (get_ccode_name (type_sym), "self");
+ }
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ var param_type = param.variable_type.copy ();
+ param_type.value_owned = true;
+ data.add_field (get_ccode_name (param_type), get_ccode_name (param), 0, get_ccode_declarator_suffix (param_type));
+
+ if (param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ if (get_ccode_array_length (param) && !((ArrayType) array_type).fixed_length) {
+ var length_ctype = get_ccode_array_length_type (param);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ data.add_field (length_ctype, get_variable_array_length_cname (param, dim));
+ }
+ }
+ } else if (param.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) param.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ data.add_field (get_ccode_name (delegate_target_type), get_ccode_delegate_target_name (param));
+ if (deleg_type.is_disposable ()) {
+ data.add_field (get_ccode_name (delegate_target_destroy_type), get_ccode_delegate_target_destroy_notify_name (param));
+ }
+ }
+ }
+ }
+
+ foreach (var type_param in m.get_type_parameters ()) {
+ data.add_field ("GType", get_ccode_type_id (type_param));
+ data.add_field ("GBoxedCopyFunc", get_ccode_copy_function (type_param));
+ data.add_field ("GDestroyNotify", get_ccode_destroy_function (type_param));
+ }
+
+ if (!(m.return_type is VoidType)) {
+ data.add_field (get_ccode_name (m.return_type), "result");
+ if (m.return_type is ArrayType) {
+ var array_type = (ArrayType) m.return_type;
+ if (get_ccode_array_length (m)) {
+ var length_ctype = get_ccode_array_length_type (m);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ data.add_field (length_ctype, get_array_length_cname ("result", dim));
+ }
+ }
+ } else if (m.return_type is DelegateType) {
+ var deleg_type = (DelegateType) m.return_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ data.add_field (get_ccode_name (delegate_target_type), get_delegate_target_cname ("result"));
+ data.add_field (get_ccode_name (delegate_target_destroy_type), get_delegate_target_destroy_notify_cname ("result"));
+ }
+ }
+ }
+
+ return data;
+ }
+
+ CCodeFunction generate_free_function (Method m) {
+ var dataname = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "Data";
+
+ var freefunc = new CCodeFunction (get_ccode_real_name (m) + "_data_free", "void");
+ freefunc.modifiers = CCodeModifiers.STATIC;
+ freefunc.add_parameter (new CCodeParameter ("_data", "gpointer"));
+
+ push_context (new EmitContext (m));
+ push_function (freefunc);
+
+ ccode.add_declaration (dataname + "*", new CCodeVariableDeclarator ("_data_", new CCodeIdentifier ("_data")));
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (!param.captured && param.direction != ParameterDirection.OUT) {
+ var param_type = param.variable_type.copy ();
+ if (!param_type.value_owned) {
+ param_type.value_owned = !no_implicit_copy (param_type);
+ }
+
+ if (requires_destroy (param_type)) {
+ ccode.add_expression (destroy_parameter (param));
+ }
+ }
+ }
+
+ if (requires_destroy (m.return_type)) {
+ if (get_ccode_array_length (m) || !(m.return_type is ArrayType)) {
+ /* this is very evil. */
+ var v = new LocalVariable (m.return_type, ".result");
+ ccode.add_expression (destroy_local (v));
+ } else {
+ var v = new GLibValue (m.return_type, new CCodeIdentifier ("_data_->result"), true);
+ v.array_null_terminated = get_ccode_array_null_terminated (m);
+ ccode.add_expression (destroy_value (v));
+ }
+ }
+
+ if (m.binding == MemberBinding.INSTANCE) {
+ var this_type = m.this_parameter.variable_type.copy ();
+ this_type.value_owned = true;
+
+ if (requires_destroy (this_type)) {
+ ccode.add_expression (destroy_parameter (m.this_parameter));
+ }
+ }
+
+ var freecall = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_free"));
+ freecall.add_argument (new CCodeIdentifier (dataname));
+ freecall.add_argument (new CCodeIdentifier ("_data_"));
+ ccode.add_expression (freecall);
+
+ pop_context ();
+
+ cfile.add_function_declaration (freefunc);
+ cfile.add_function (freefunc);
+
+ return freefunc;
+ }
+
+ void generate_async_function (Method m) {
+ push_context (new EmitContext ());
+
+ var dataname = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "Data";
+ var asyncfunc = new CCodeFunction (get_ccode_real_name (m), "void");
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ cparam_map.set (get_param_pos (-1), new CCodeParameter ("_callback_", "GAsyncReadyCallback"));
+ cparam_map.set (get_param_pos (-0.9), new CCodeParameter ("_user_data_", "gpointer"));
+
+ generate_cparameters (m, cfile, cparam_map, asyncfunc, null, null, null, 1);
+
+ if (m.base_method != null || m.base_interface_method != null) {
+ // declare *_real_* function
+ asyncfunc.modifiers |= CCodeModifiers.STATIC;
+ cfile.add_function_declaration (asyncfunc);
+ } else if (m.is_private_symbol ()) {
+ asyncfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ asyncfunc.modifiers |= CCodeModifiers.INTERNAL;
+ }
+
+ push_function (asyncfunc);
+
+ // FIXME partial code duplication with CCodeMethodModule.visit_method
+ unowned Class? cl = m.parent_symbol as Class;
+ if (cl != null) {
+ if (m.binding == MemberBinding.INSTANCE && !(m is CreationMethod)
+ && m.base_method == null && m.base_interface_method == null) {
+ create_type_check_statement (m, new VoidType (), cl, true, "self");
+ }
+ }
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.ellipsis || param.params_array) {
+ break;
+ }
+
+ if (param.direction == ParameterDirection.IN) {
+ unowned TypeSymbol? t = param.variable_type.type_symbol;
+ if (t != null && (t.is_reference_type () || param.variable_type.is_real_struct_type ())) {
+ create_type_check_statement (m, new VoidType (), t, !param.variable_type.nullable, get_ccode_name (param));
+ }
+ }
+ }
+
+ // logic copied from valaccodemethodmodule
+ if (m.overrides || (m.base_interface_method != null && !m.is_abstract && !m.is_virtual)) {
+ Method base_method;
+
+ if (m.overrides && m.base_method != null) {
+ base_method = m.base_method;
+ } else {
+ base_method = m.base_interface_method;
+ }
+
+ var base_expression_type = new ObjectType ((ObjectTypeSymbol) base_method.parent_symbol);
+ var type_symbol = m.parent_symbol as ObjectTypeSymbol;
+
+ var self_target_type = new ObjectType (type_symbol);
+ var cself = get_cvalue_ (transform_value (new GLibValue (base_expression_type, new CCodeIdentifier ("base"), true), self_target_type, m));
+ ccode.add_declaration ("%s *".printf (get_ccode_name (type_symbol)), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), cself);
+ }
+
+ var dataalloc = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_new0"));
+ dataalloc.add_argument (new CCodeIdentifier (dataname));
+
+ var data_var = new CCodeIdentifier ("_data_");
+
+ ccode.add_declaration (dataname + "*", new CCodeVariableDeclarator ("_data_"));
+ ccode.add_assignment (data_var, dataalloc);
+
+ var create_result = new CCodeFunctionCall (new CCodeIdentifier ("g_task_new"));
+
+ var t = m.parent_symbol as TypeSymbol;
+ if (!(m is CreationMethod) && m.binding == MemberBinding.INSTANCE &&
+ t != null && t.is_subtype_of (gobject_type)) {
+ var gobject_cast = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT"));
+ gobject_cast.add_argument (new CCodeIdentifier ("self"));
+
+ create_result.add_argument (gobject_cast);
+ } else {
+ create_result.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ Parameter cancellable_param = null;
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ cancellable_param = param;
+ break;
+ }
+ }
+
+ if (cancellable_param == null) {
+ create_result.add_argument (new CCodeConstant ("NULL"));
+ } else {
+ create_result.add_argument (new CCodeIdentifier (get_ccode_name (cancellable_param)));
+ }
+
+ create_result.add_argument (new CCodeIdentifier ("_callback_"));
+ create_result.add_argument (new CCodeIdentifier ("_user_data_"));
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "_async_result"), create_result);
+
+ var attach_data_call = new CCodeFunctionCall (new CCodeIdentifier ("g_task_set_task_data"));
+
+ attach_data_call.add_argument (new CCodeMemberAccess.pointer (data_var, "_async_result"));
+ attach_data_call.add_argument (data_var);
+ attach_data_call.add_argument (new CCodeIdentifier (get_ccode_real_name (m) + "_data_free"));
+ ccode.add_expression (attach_data_call);
+
+ if (m is CreationMethod) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "object_type"), new CCodeIdentifier ("object_type"));
+ } else if (m.binding == MemberBinding.INSTANCE) {
+ var this_type = m.this_parameter.variable_type.copy ();
+ this_type.value_owned = true;
+
+ // create copy if necessary as variables in async methods may need to be kept alive
+ CCodeExpression cself = new CCodeIdentifier ("self");
+ if (this_type.is_real_non_null_struct_type ()) {
+ cself = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, cself);
+ }
+ if (requires_copy (this_type)) {
+ cself = get_cvalue_ (copy_value (new GLibValue (m.this_parameter.variable_type, cself, true), m.this_parameter));
+ }
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "self"), cself);
+ }
+
+ emit_context.push_symbol (m);
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction != ParameterDirection.OUT) {
+ // create copy if necessary as variables in async methods may need to be kept alive
+ var old_captured = param.captured;
+ param.captured = false;
+ current_method.coroutine = false;
+
+ TargetValue value;
+ if (param.variable_type.value_owned) {
+ // do not use load_parameter for reference/ownership transfer
+ // otherwise delegate destroy notify will not be moved
+ value = get_parameter_cvalue (param);
+ } else {
+ value = load_parameter (param);
+ }
+
+ current_method.coroutine = true;
+
+ store_parameter (param, value);
+
+ param.captured = old_captured;
+ }
+ }
+ emit_context.pop_symbol ();
+
+ foreach (var type_param in m.get_type_parameters ()) {
+ var type = get_ccode_type_id (type_param);
+ var dup_func = get_ccode_copy_function (type_param);
+ var destroy_func = get_ccode_destroy_function (type_param);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, type), new CCodeIdentifier (type));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, dup_func), new CCodeIdentifier (dup_func));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, destroy_func), new CCodeIdentifier (destroy_func));
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (m) + "_co"));
+ ccall.add_argument (data_var);
+ ccode.add_expression (ccall);
+
+ cfile.add_function (asyncfunc);
+
+ pop_context ();
+ }
+
+ public void append_struct (CCodeStruct structure) {
+ var typename = new CCodeVariableDeclarator (structure.name.substring (1));
+ var typedef = new CCodeTypeDefinition ("struct " + structure.name, typename);
+ cfile.add_type_declaration (typedef);
+ cfile.add_type_definition (structure);
+ }
+
+ public override bool generate_method_declaration (Method m, CCodeFile decl_space) {
+ if (m.coroutine) {
+ if ((m.is_abstract || m.is_virtual) && get_ccode_no_wrapper (m)) {
+ return false;
+ }
+ if (add_symbol_declaration (decl_space, m, get_ccode_name (m))) {
+ return false;
+ }
+
+ generate_type_declaration (new MethodType (m), decl_space);
+
+ var cl = m.parent_symbol as Class;
+
+ var asyncfunc = new CCodeFunction (get_ccode_name (m), "void");
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ if (m.is_private_symbol () || m.entry_point) {
+ asyncfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ asyncfunc.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ asyncfunc.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ // do not generate _new functions for creation methods of abstract classes
+ if (!(m is CreationMethod && cl != null && cl.is_abstract)) {
+ generate_cparameters (m, decl_space, cparam_map, asyncfunc, null, carg_map, new CCodeFunctionCall (new CCodeIdentifier ("fake")), 1);
+
+ decl_space.add_function_declaration (asyncfunc);
+ }
+
+ var finishfunc = new CCodeFunction (get_ccode_finish_name (m));
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ if (m.is_private_symbol () || m.entry_point) {
+ finishfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ finishfunc.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ finishfunc.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ // do not generate _new functions for creation methods of abstract classes
+ if (!(m is CreationMethod && cl != null && cl.is_abstract)) {
+ generate_cparameters (m, decl_space, cparam_map, finishfunc, null, carg_map, new CCodeFunctionCall (new CCodeIdentifier ("fake")), 2);
+
+ decl_space.add_function_declaration (finishfunc);
+ }
+
+ if (m is CreationMethod && cl != null) {
+ // _construct function
+ var function = new CCodeFunction (get_ccode_real_name (m));
+
+ if (m.is_private_symbol ()) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ generate_cparameters (m, decl_space, cparam_map, function, null, null, null, 1);
+
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_finish_real_name (m));
+
+ if (m.is_private_symbol ()) {
+ function.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ function.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ generate_cparameters (m, decl_space, cparam_map, function, null, null, null, 2);
+
+ decl_space.add_function_declaration (function);
+ }
+
+ return true;
+ } else {
+ return base.generate_method_declaration (m, decl_space);
+ }
+ }
+
+ public override void visit_method (Method m) {
+ if (m.coroutine) {
+ cfile.add_include ("gio/gio.h");
+ if (!m.is_internal_symbol ()) {
+ header_file.add_include ("gio/gio.h");
+ }
+
+ if (!m.is_abstract && m.body != null) {
+ var data = generate_data_struct (m);
+
+ closure_struct = data;
+
+ generate_free_function (m);
+ generate_async_function (m);
+ generate_finish_function (m);
+
+ // append the _co function
+ base.visit_method (m);
+ closure_struct = null;
+
+ // only append data struct here to make sure all struct member
+ // types are declared before the struct definition
+ append_struct (data);
+ } else {
+ generate_method_declaration (m, cfile);
+
+ if (!m.is_internal_symbol ()) {
+ generate_method_declaration (m, header_file);
+ }
+ if (!m.is_private_symbol ()) {
+ generate_method_declaration (m, internal_header_file);
+ }
+ }
+
+ if ((m.is_abstract || m.is_virtual) && !get_ccode_no_wrapper (m)) {
+ // generate virtual function wrappers
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ generate_vfunc (m, new VoidType (), cparam_map, carg_map, "", 1);
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+ generate_vfunc (m, m.return_type, cparam_map, carg_map, "_finish", 2);
+ }
+ } else {
+ base.visit_method (m);
+ }
+ }
+
+ public override void visit_creation_method (CreationMethod m) {
+ if (!m.coroutine) {
+ base.visit_creation_method (m);
+ } else {
+ push_line (m.source_reference);
+
+ bool visible = !m.is_private_symbol ();
+
+ visit_method (m);
+
+ if (m.source_type == SourceFileType.FAST) {
+ return;
+ }
+
+ // do not generate _new functions for creation methods of abstract classes
+ if (current_type_symbol is Class && !current_class.is_compact && !current_class.is_abstract) {
+ var vfunc = new CCodeFunction (get_ccode_name (m));
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ var carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ push_function (vfunc);
+
+ var vcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (m)));
+ vcall.add_argument (new CCodeIdentifier (get_ccode_type_id (current_class)));
+
+ generate_cparameters (m, cfile, cparam_map, vfunc, null, carg_map, vcall, 1);
+ ccode.add_expression (vcall);
+
+ if (!visible) {
+ vfunc.modifiers |= CCodeModifiers.STATIC;
+ }
+
+ pop_function ();
+
+ cfile.add_function (vfunc);
+
+
+ vfunc = new CCodeFunction (get_ccode_finish_name (m));
+
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+ carg_map = new HashMap<int,CCodeExpression> (direct_hash, direct_equal);
+
+ push_function (vfunc);
+
+ vcall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_finish_real_name (m)));
+
+ generate_cparameters (m, cfile, cparam_map, vfunc, null, carg_map, vcall, 2);
+ ccode.add_return (vcall);
+
+ if (!visible) {
+ vfunc.modifiers |= CCodeModifiers.STATIC;
+ }
+
+ pop_function ();
+
+ cfile.add_function (vfunc);
+ }
+
+ pop_line ();
+ }
+ }
+
+ void generate_finish_function (Method m) {
+ push_context (new EmitContext ());
+
+ string dataname = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "Data";
+
+ var finishfunc = new CCodeFunction (get_ccode_finish_real_name (m));
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ cparam_map.set (get_param_pos (get_ccode_async_result_pos (m)), new CCodeParameter ("_res_", "GAsyncResult*"));
+
+ generate_cparameters (m, cfile, cparam_map, finishfunc, null, null, null, 2);
+
+ if (m.is_private_symbol () || m.base_method != null || m.base_interface_method != null) {
+ finishfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && m.is_internal_symbol ()) {
+ finishfunc.modifiers |= CCodeModifiers.INTERNAL;
+ }
+
+ push_function (finishfunc);
+
+ var return_type = m.return_type;
+ if (m is CreationMethod) {
+ var type_sym = (TypeSymbol) m.parent_symbol;
+ if (type_sym is ObjectTypeSymbol) {
+ ccode.add_declaration (get_ccode_name (type_sym) + "*", new CCodeVariableDeclarator ("result"));
+ return_type = SemanticAnalyzer.get_this_type (m, type_sym);
+ }
+ } else if (!(return_type is VoidType) && !return_type.is_real_non_null_struct_type ()) {
+ ccode.add_declaration (get_ccode_name (m.return_type), new CCodeVariableDeclarator ("result"));
+ }
+
+ var data_var = new CCodeIdentifier ("_data_");
+
+ ccode.add_declaration (dataname + "*", new CCodeVariableDeclarator ("_data_"));
+
+ var async_result_cast = new CCodeFunctionCall (new CCodeIdentifier ("G_TASK"));
+ async_result_cast.add_argument (new CCodeIdentifier ("_res_"));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_task_propagate_pointer"));
+ ccall.add_argument (async_result_cast);
+
+ if (m.tree_can_fail) {
+ ccall.add_argument (new CCodeIdentifier ("error"));
+ } else {
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ ccode.add_assignment (data_var, ccall);
+
+ bool has_cancellable = false;
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ has_cancellable = true;
+ break;
+ }
+ }
+
+ // If a task is cancelled, g_task_propagate_pointer returns NULL
+ if (m.tree_can_fail || has_cancellable) {
+ var is_null = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeConstant ("NULL"), data_var);
+
+ ccode.open_if (is_null);
+ return_default_value (return_type);
+ ccode.close ();
+ }
+
+ emit_context.push_symbol (m);
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction != ParameterDirection.IN) {
+ return_out_parameter (param);
+ if (!(param.variable_type is ValueType) || param.variable_type.nullable) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, get_ccode_name (param)), new CCodeConstant ("NULL"));
+ }
+ }
+ }
+ emit_context.pop_symbol ();
+
+ if (m is CreationMethod) {
+ ccode.add_assignment (new CCodeIdentifier ("result"), new CCodeMemberAccess.pointer (data_var, "self"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "self"), new CCodeConstant ("NULL"));
+ ccode.add_return (new CCodeIdentifier ("result"));
+ } else if (return_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ CCodeExpression cexpr = new CCodeMemberAccess.pointer (data_var, "result");
+ if (requires_copy (return_type)) {
+ cexpr = get_cvalue_ (copy_value (new GLibValue (return_type, cexpr, true), return_type));
+ }
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result")), cexpr);
+ } else if (!(return_type is VoidType)) {
+ ccode.add_assignment (new CCodeIdentifier ("result"), new CCodeMemberAccess.pointer (data_var, "result"));
+ if (return_type is ArrayType) {
+ var array_type = (ArrayType) return_type;
+ if (get_ccode_array_length (m)) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier (get_array_length_cname ("result", dim))), new CCodeMemberAccess.pointer (data_var, get_array_length_cname ("result", dim)));
+ }
+ }
+ } else if (return_type is DelegateType && ((DelegateType) return_type).delegate_symbol.has_target) {
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier (get_delegate_target_cname ("result"))), new CCodeMemberAccess.pointer (data_var, get_delegate_target_cname ("result")));
+ }
+ if (!(return_type is ValueType) || return_type.nullable) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "result"), new CCodeConstant ("NULL"));
+ }
+ ccode.add_return (new CCodeIdentifier ("result"));
+ }
+
+ pop_function ();
+
+ cfile.add_function (finishfunc);
+
+ pop_context ();
+ }
+
+ public override string generate_ready_function (Method m) {
+ // generate ready callback handler
+
+ var dataname = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "Data";
+
+ var readyfunc = new CCodeFunction (get_ccode_name (m) + "_ready", "void");
+
+ if (!add_wrapper (readyfunc.name)) {
+ // wrapper already defined
+ return readyfunc.name;
+ }
+
+ readyfunc.add_parameter (new CCodeParameter ("source_object", "GObject*"));
+ readyfunc.add_parameter (new CCodeParameter ("_res_", "GAsyncResult*"));
+ readyfunc.add_parameter (new CCodeParameter ("_user_data_", "gpointer"));
+
+ push_function (readyfunc);
+
+ var data_var = new CCodeIdentifier ("_data_");
+
+ ccode.add_declaration (dataname + "*", new CCodeVariableDeclarator ("_data_"));
+ ccode.add_assignment (data_var, new CCodeIdentifier ("_user_data_"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "_source_object_"), new CCodeIdentifier ("source_object"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (data_var, "_res_"), new CCodeIdentifier ("_res_"));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_real_name (m) + "_co"));
+ ccall.add_argument (data_var);
+ ccode.add_expression (ccall);
+
+ readyfunc.modifiers |= CCodeModifiers.STATIC;
+
+ pop_function ();
+
+ cfile.add_function_declaration (readyfunc);
+ cfile.add_function (readyfunc);
+
+ return readyfunc.name;
+ }
+
+ public override void generate_virtual_method_declaration (Method m, CCodeFile decl_space, CCodeStruct type_struct) {
+ if (!m.coroutine) {
+ base.generate_virtual_method_declaration (m, decl_space, type_struct);
+ return;
+ }
+
+ if (!m.is_abstract && !m.is_virtual) {
+ return;
+ }
+
+ var creturn_type = get_callable_creturn_type (m);
+
+ // add vfunc field to the type struct
+ var vdeclarator = new CCodeFunctionDeclarator (get_ccode_vfunc_name (m));
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (m, decl_space, cparam_map, new CCodeFunction ("fake"), vdeclarator, null, null, 1);
+
+ var vdecl = new CCodeDeclaration ("void");
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+
+ // add vfunc field to the type struct
+ vdeclarator = new CCodeFunctionDeclarator (get_ccode_finish_vfunc_name (m));
+ cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (m, decl_space, cparam_map, new CCodeFunction ("fake"), vdeclarator, null, null, 2);
+
+ vdecl = new CCodeDeclaration (get_ccode_name (creturn_type));
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+ }
+
+ public override void visit_yield_statement (YieldStatement stmt) {
+ if (!is_in_coroutine ()) {
+ return;
+ }
+
+ int state = emit_context.next_coroutine_state++;
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_state_"), new CCodeConstant (state.to_string ()));
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ ccode.add_label ("_state_%d".printf (state));
+ ccode.add_statement (new CCodeEmptyStatement ());
+ }
+
+ public override void return_with_exception (CCodeExpression error_expr)
+ {
+ if (!is_in_coroutine ()) {
+ base.return_with_exception (error_expr);
+ return;
+ }
+
+ var async_result_expr = new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_async_result");
+ CCodeFunctionCall set_error = null;
+
+ set_error = new CCodeFunctionCall (new CCodeIdentifier ("g_task_return_error"));
+ set_error.add_argument (async_result_expr);
+ set_error.add_argument (error_expr);
+ ccode.add_expression (set_error);
+
+ // free local variables
+ append_local_free (current_symbol);
+
+ // free possibly already assigned out-parameter
+ append_out_param_free (current_method);
+
+ // We already returned the error above, we must not return anything else here.
+ var unref = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref.add_argument (async_result_expr);
+ ccode.add_expression (unref);
+
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ }
+
+ public override void visit_return_statement (ReturnStatement stmt) {
+ base.visit_return_statement (stmt);
+
+ if (!is_in_coroutine ()) {
+ return;
+ }
+
+ complete_async ();
+ }
+
+ public override void generate_cparameters (Method m, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, CCodeFunction func, CCodeFunctionDeclarator? vdeclarator = null, Map<int,CCodeExpression>? carg_map = null, CCodeFunctionCall? vcall = null, int direction = 3) {
+ if (m.coroutine) {
+ decl_space.add_include ("gio/gio.h");
+
+ if (direction == 1) {
+ cparam_map.set (get_param_pos (-1), new CCodeParameter ("_callback_", "GAsyncReadyCallback"));
+ cparam_map.set (get_param_pos (-0.9), new CCodeParameter ("_user_data_", "gpointer"));
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (-1), new CCodeIdentifier ("_callback_"));
+ carg_map.set (get_param_pos (-0.9), new CCodeIdentifier ("_user_data_"));
+ }
+ } else if (direction == 2) {
+ cparam_map.set (get_param_pos (get_ccode_async_result_pos (m)), new CCodeParameter ("_res_", "GAsyncResult*"));
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_async_result_pos (m)), new CCodeIdentifier ("_res_"));
+ }
+ }
+ }
+ base.generate_cparameters (m, decl_space, cparam_map, func, vdeclarator, carg_map, vcall, direction);
+ }
+
+ public string generate_async_callback_wrapper () {
+ string async_callback_wrapper_func = "_vala_g_async_ready_callback";
+
+ if (!add_wrapper (async_callback_wrapper_func)) {
+ return async_callback_wrapper_func;
+ }
+
+ var function = new CCodeFunction (async_callback_wrapper_func, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("*source_object", "GObject"));
+ function.add_parameter (new CCodeParameter ("*res", "GAsyncResult"));
+ function.add_parameter (new CCodeParameter ("*user_data", "void"));
+
+ push_function (function);
+
+ var res_ref = new CCodeFunctionCall (new CCodeIdentifier ("g_object_ref"));
+ res_ref.add_argument (new CCodeIdentifier ("res"));
+
+ CCodeFunctionCall ccall = null;
+
+ // store reference to async result of inner async function in out async result
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_task_return_pointer"));
+ ccall.add_argument (new CCodeIdentifier ("user_data"));
+ ccall.add_argument (res_ref);
+ ccall.add_argument (new CCodeIdentifier ("g_object_unref"));
+ ccode.add_expression (ccall);
+
+ // free async result
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ ccall.add_argument (new CCodeIdentifier ("user_data"));
+ ccode.add_expression (ccall);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return async_callback_wrapper_func;
+ }
+}
--- /dev/null
+/* valagdbusclientmodule.vala
+ *
+ * Copyright (C) 2010-2011 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Philip Van Hoof <pvanhoof@gnome.org>
+ */
+
+public class Vala.GDBusClientModule : GDBusModule {
+ enum CallType {
+ SYNC,
+ ASYNC,
+ FINISH,
+ NO_REPLY
+ }
+
+ public CCodeConstant get_dbus_timeout (Symbol symbol) {
+ int timeout = -1;
+
+ var dbus = symbol.get_attribute ("DBus");
+ if (dbus != null && dbus.has_argument ("timeout")) {
+ timeout = dbus.get_integer ("timeout");
+ } else if (symbol.parent_symbol != null) {
+ return get_dbus_timeout (symbol.parent_symbol);
+ }
+
+ return new CCodeConstant (timeout.to_string ());
+ }
+
+ public override void generate_dynamic_method_wrapper (DynamicMethod method) {
+ var func = new CCodeFunction (get_ccode_name (method));
+ func.modifiers = CCodeModifiers.STATIC;
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (method, cfile, cparam_map, func);
+
+ push_function (func);
+
+ if (method.dynamic_type.type_symbol == dbus_proxy_type) {
+ generate_marshalling (method, CallType.SYNC, null, method.name, -1);
+ } else {
+ Report.error (method.source_reference, "dynamic methods are not supported for `%s'", method.dynamic_type.to_string ());
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (func);
+ cfile.add_function (func);
+ }
+
+ void generate_proxy_interface_init (Interface main_iface, Interface iface) {
+ // also generate proxy for prerequisites
+ foreach (var prereq in iface.get_prerequisites ()) {
+ if (prereq.type_symbol is Interface) {
+ generate_proxy_interface_init (main_iface, (Interface) prereq.type_symbol);
+ }
+ }
+
+ string lower_cname = get_ccode_lower_case_prefix (main_iface) + "proxy";
+
+ var proxy_iface_init = new CCodeFunction (lower_cname + "_" + get_ccode_lower_case_prefix (iface) + "interface_init", "void");
+ proxy_iface_init.add_parameter (new CCodeParameter ("iface", get_ccode_name (iface) + "Iface*"));
+
+ push_function (proxy_iface_init);
+
+ foreach (Method m in iface.get_methods ()) {
+ if (!m.is_abstract) {
+ continue;
+ }
+
+ var vfunc_entry = new CCodeMemberAccess.pointer (new CCodeIdentifier ("iface"), get_ccode_vfunc_name (m));
+ if (!m.coroutine) {
+ ccode.add_assignment (vfunc_entry, new CCodeIdentifier (generate_dbus_proxy_method (main_iface, iface, m)));
+ } else {
+ ccode.add_assignment (vfunc_entry, new CCodeIdentifier (generate_async_dbus_proxy_method (main_iface, iface, m)));
+ vfunc_entry = new CCodeMemberAccess.pointer (new CCodeIdentifier ("iface"), get_ccode_finish_vfunc_name (m));
+ ccode.add_assignment (vfunc_entry, new CCodeIdentifier (generate_finish_dbus_proxy_method (main_iface, iface, m)));
+ }
+ }
+
+ foreach (Property prop in iface.get_properties ()) {
+ if (!prop.is_abstract) {
+ continue;
+ }
+
+ if (prop.get_accessor != null) {
+ var vfunc_entry = new CCodeMemberAccess.pointer (new CCodeIdentifier ("iface"), "get_" + prop.name);
+ ccode.add_assignment (vfunc_entry, new CCodeIdentifier (generate_dbus_proxy_property_get (main_iface, iface, prop)));
+ }
+ if (prop.set_accessor != null) {
+ var vfunc_entry = new CCodeMemberAccess.pointer (new CCodeIdentifier ("iface"), "set_" + prop.name);
+ ccode.add_assignment (vfunc_entry, new CCodeIdentifier (generate_dbus_proxy_property_set (main_iface, iface, prop)));
+ }
+ }
+
+ proxy_iface_init.modifiers = CCodeModifiers.STATIC;
+ pop_function ();
+ cfile.add_function_declaration (proxy_iface_init);
+ cfile.add_function (proxy_iface_init);
+ }
+
+ string implement_interface (CCodeFunctionCall define_type, Interface main_iface, Interface iface) {
+ string result = "";
+
+ // also implement prerequisites
+ foreach (var prereq in iface.get_prerequisites ()) {
+ if (prereq.type_symbol is Interface) {
+ result += implement_interface (define_type, main_iface, (Interface) prereq.type_symbol);
+ }
+ }
+
+ string interface_macro;
+
+ if (in_plugin) {
+ interface_macro = "G_IMPLEMENT_INTERFACE_DYNAMIC";
+ } else {
+ interface_macro = "G_IMPLEMENT_INTERFACE";
+ }
+
+ result += "%s (%s, %sproxy_%sinterface_init) ".printf (
+ interface_macro,
+ get_ccode_upper_case_name (iface, "TYPE_"),
+ get_ccode_lower_case_prefix (main_iface),
+ get_ccode_lower_case_prefix (iface));
+ return result;
+ }
+
+ public override void generate_interface_declaration (Interface iface, CCodeFile decl_space) {
+ base.generate_interface_declaration (iface, decl_space);
+
+ string dbus_iface_name = get_dbus_name (iface);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ string get_type_name = "%sproxy_get_type".printf (get_ccode_lower_case_prefix (iface));
+
+ if (add_symbol_declaration (decl_space, iface, get_type_name)) {
+ return;
+ }
+
+ decl_space.add_type_declaration (new CCodeNewline ());
+ var macro = "(%s ())".printf (get_type_name);
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s_PROXY".printf (get_ccode_type_id (iface)), macro));
+
+ // declare proxy_get_type function
+ var proxy_get_type = new CCodeFunction (get_type_name, "GType");
+ proxy_get_type.modifiers = CCodeModifiers.CONST | CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+
+ decl_space.add_function_declaration (proxy_get_type);
+
+ if (in_plugin) {
+ var proxy_register_type = new CCodeFunction ("%sproxy_register_dynamic_type".printf (get_ccode_lower_case_prefix (iface)));
+ proxy_register_type.add_parameter (new CCodeParameter ("module", "GTypeModule*"));
+ proxy_register_type.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+
+ decl_space.add_function_declaration (proxy_register_type);
+ }
+ }
+
+ public override void visit_interface (Interface iface) {
+ base.visit_interface (iface);
+
+ string dbus_iface_name = get_dbus_name (iface);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ cfile.add_include ("gio/gio.h");
+
+ // create proxy class
+ string cname = get_ccode_name (iface) + "Proxy";
+ string lower_cname = get_ccode_lower_case_prefix (iface) + "proxy";
+
+ cfile.add_type_declaration (new CCodeTypeDefinition ("GDBusProxy", new CCodeVariableDeclarator (cname)));
+ cfile.add_type_declaration (new CCodeTypeDefinition ("GDBusProxyClass", new CCodeVariableDeclarator (cname + "Class")));
+
+ string type_macro;
+
+ if (in_plugin) {
+ type_macro = "G_DEFINE_DYNAMIC_TYPE_EXTENDED";
+ } else {
+ type_macro = "G_DEFINE_TYPE_EXTENDED";
+ }
+
+ var define_type = new CCodeFunctionCall (new CCodeIdentifier (type_macro));
+ define_type.add_argument (new CCodeIdentifier (cname));
+ define_type.add_argument (new CCodeIdentifier (lower_cname));
+ define_type.add_argument (new CCodeIdentifier ("G_TYPE_DBUS_PROXY"));
+ define_type.add_argument (new CCodeConstant ("0"));
+ define_type.add_argument (new CCodeIdentifier (implement_interface (define_type, iface, iface)));
+
+ cfile.add_type_member_definition (define_type);
+
+ var proxy_class_init = new CCodeFunction (lower_cname + "_class_init", "void");
+ proxy_class_init.add_parameter (new CCodeParameter ("klass", cname + "Class*"));
+ proxy_class_init.modifiers = CCodeModifiers.STATIC;
+ push_function (proxy_class_init);
+ var proxy_class = new CCodeFunctionCall (new CCodeIdentifier ("G_DBUS_PROXY_CLASS"));
+ proxy_class.add_argument (new CCodeIdentifier ("klass"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (proxy_class, "g_signal"), new CCodeIdentifier (lower_cname + "_g_signal"));
+ pop_function ();
+ cfile.add_function (proxy_class_init);
+
+ generate_signal_handler_function (iface);
+
+ if (in_plugin) {
+ var proxy_class_finalize = new CCodeFunction (lower_cname + "_class_finalize", "void");
+ proxy_class_finalize.add_parameter (new CCodeParameter ("klass", cname + "Class*"));
+ proxy_class_finalize.modifiers = CCodeModifiers.STATIC;
+ cfile.add_function (proxy_class_finalize);
+
+ var proxy_type_init = new CCodeFunction (lower_cname + "_register_dynamic_type", "void");
+ proxy_type_init.add_parameter (new CCodeParameter ("module", "GTypeModule*"));
+ push_function (proxy_type_init);
+ var call_register_type = new CCodeFunctionCall (new CCodeIdentifier (lower_cname + "_register_type"));
+ call_register_type.add_argument (new CCodeIdentifier ("module"));
+ ccode.add_expression (call_register_type);
+ pop_function ();
+ cfile.add_function(proxy_type_init);
+ }
+
+ var proxy_instance_init = new CCodeFunction (lower_cname + "_init", "void");
+ proxy_instance_init.add_parameter (new CCodeParameter ("self", cname + "*"));
+ proxy_instance_init.modifiers = CCodeModifiers.STATIC;
+ push_function (proxy_instance_init);
+
+ // TODO Replaces setting of "vala-dbus-interface-info"
+ var dbus_proxy_cast = new CCodeFunctionCall (new CCodeIdentifier ("G_DBUS_PROXY"));
+ dbus_proxy_cast.add_argument (new CCodeIdentifier ("self"));
+ var set_interface_info = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_set_interface_info"));
+ set_interface_info.add_argument (dbus_proxy_cast);
+ set_interface_info.add_argument (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_interface_info (iface)), "GDBusInterfaceInfo *"));
+ ccode.add_expression (set_interface_info);
+
+ pop_function ();
+ cfile.add_function (proxy_instance_init);
+
+ generate_proxy_interface_init (iface, iface);
+ }
+
+ public override void visit_method_call (MethodCall expr) {
+ var mtype = expr.call.value_type as MethodType;
+ bool bus_get_proxy_async = (mtype != null && get_ccode_name (mtype.method_symbol) == "g_bus_get_proxy");
+ bool bus_get_proxy_sync = (mtype != null && get_ccode_name (mtype.method_symbol) == "g_bus_get_proxy_sync");
+ bool conn_get_proxy_async = (mtype != null && get_ccode_name (mtype.method_symbol) == "g_dbus_connection_get_proxy");
+ bool conn_get_proxy_sync = (mtype != null && get_ccode_name (mtype.method_symbol) == "g_dbus_connection_get_proxy_sync");
+ if (!bus_get_proxy_async && !bus_get_proxy_sync && !conn_get_proxy_async && !conn_get_proxy_sync) {
+ base.visit_method_call (expr);
+ return;
+ }
+
+ var ma = (MemberAccess) expr.call;
+ var type_arg = ma.get_type_arguments ().get (0);
+
+ CCodeExpression proxy_type;
+ CCodeExpression dbus_iface_name;
+
+ var object_type = type_arg as ObjectType;
+ if (object_type != null) {
+ var iface = (Interface) object_type.type_symbol;
+
+ if (get_dbus_name (iface) == null) {
+ Report.error (expr.source_reference, "`%s' is not a D-Bus interface", iface.get_full_name ());
+ return;
+ }
+
+ proxy_type = new CCodeIdentifier ("%s_PROXY".printf (get_ccode_type_id (iface)));
+ dbus_iface_name = new CCodeConstant ("\"%s\"".printf (get_dbus_name (iface)));
+ } else {
+ // use runtime type information for generic methods
+
+ var quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-proxy-type\""));
+
+ var get_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_get_qdata"));
+ get_qdata.add_argument (get_type_id_expression (type_arg));
+ get_qdata.add_argument (quark);
+
+ proxy_type = new CCodeFunctionCall (new CCodeCastExpression (get_qdata, "GType (*) (void)"));
+
+ quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-interface-name\""));
+
+ get_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_get_qdata"));
+ get_qdata.add_argument (get_type_id_expression (type_arg));
+ get_qdata.add_argument (quark);
+
+ dbus_iface_name = get_qdata;
+ }
+
+ if (bus_get_proxy_async || conn_get_proxy_async) {
+ if (ma.member_name == "end" && ma.inner.symbol_reference == ma.symbol_reference) {
+ // method can fail
+ current_method_inner_error = true;
+
+ var args = expr.get_argument_list ();
+ Expression res = args.get (0);
+
+ var source_var = get_temp_variable (expr.value_type, expr.value_type.value_owned);
+ var source_ref = get_variable_cexpression (source_var.name);
+ emit_temp_var (source_var);
+ var source = new CCodeFunctionCall (new CCodeIdentifier ("g_async_result_get_source_object"));
+ source.add_argument (get_cvalue (res));
+ ccode.add_assignment (source_ref, source);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_async_initable_new_finish"));
+ ccall.add_argument (new CCodeCastExpression (source_ref, "GAsyncInitable *"));
+ ccall.add_argument (get_cvalue (res));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+
+ var temp_var = get_temp_variable (expr.value_type, expr.value_type.value_owned);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+ emit_temp_var (temp_var);
+ ccode.add_assignment (temp_ref, new CCodeCastExpression (ccall, get_ccode_name (expr.value_type)));
+
+ // g_async_result_get_source_object transfers ownership, unref after use
+ var unref_proxy = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_proxy.add_argument (source_ref);
+ ccode.add_expression (unref_proxy);
+
+ set_cvalue (expr, temp_ref);
+
+ return;
+ }
+ }
+
+ var base_arg_index = 0;
+ if (bus_get_proxy_async || bus_get_proxy_sync)
+ base_arg_index = 1;
+
+ var args = expr.get_argument_list ();
+ Expression name = args.get (base_arg_index + 0);
+ Expression object_path = args.get (base_arg_index + 1);
+ Expression flags = args.get (base_arg_index + 2);
+ Expression cancellable = args.get (base_arg_index + 3);
+
+ // method can fail
+ current_method_inner_error = true;
+
+ CCodeFunctionCall ccall;
+ if (bus_get_proxy_async || conn_get_proxy_async) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_async_initable_new_async"));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_initable_new"));
+ }
+ ccall.add_argument (proxy_type);
+ if (bus_get_proxy_async || conn_get_proxy_async) {
+ // I/O priority
+ ccall.add_argument (new CCodeConstant ("0"));
+ }
+ ccall.add_argument (get_cvalue (cancellable));
+ if (bus_get_proxy_async || conn_get_proxy_async) {
+ if (expr.is_yield_expression) {
+ // asynchronous call
+ ccall.add_argument (new CCodeIdentifier (generate_ready_function (current_method)));
+ ccall.add_argument (new CCodeIdentifier ("_data_"));
+ } else {
+ // begin
+ Expression callback = args.get (base_arg_index + 4);
+ ccall.add_argument (get_cvalue (callback));
+ ccall.add_argument (get_delegate_target (callback));
+ }
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+ }
+ ccall.add_argument (new CCodeConstant ("\"g-flags\""));
+ ccall.add_argument (get_cvalue (flags));
+ ccall.add_argument (new CCodeConstant ("\"g-name\""));
+ ccall.add_argument (get_cvalue (name));
+ if (bus_get_proxy_async || bus_get_proxy_sync) {
+ Expression bus_type = args.get (0);
+ ccall.add_argument (new CCodeConstant ("\"g-bus-type\""));
+ ccall.add_argument (get_cvalue (bus_type));
+ } else {
+ Expression connection = ma.inner;
+ if (ma.member_name == "begin" && ma.inner.symbol_reference == ma.symbol_reference) {
+ var inner_ma = (MemberAccess) ma.inner;
+ connection = inner_ma.inner;
+ }
+ ccall.add_argument (new CCodeConstant ("\"g-connection\""));
+ ccall.add_argument (get_cvalue (connection));
+ }
+ ccall.add_argument (new CCodeConstant ("\"g-object-path\""));
+ ccall.add_argument (get_cvalue (object_path));
+ ccall.add_argument (new CCodeConstant ("\"g-interface-name\""));
+ ccall.add_argument (dbus_iface_name);
+ ccall.add_argument (new CCodeConstant ("NULL"));
+
+ if (bus_get_proxy_async || conn_get_proxy_async) {
+ if (expr.is_yield_expression) {
+ int state = emit_context.next_coroutine_state++;
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_state_"), new CCodeConstant (state.to_string ()));
+ ccode.add_expression (ccall);
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ ccode.add_label ("_state_%d".printf (state));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_async_initable_new_finish"));
+ ccall.add_argument (new CCodeCastExpression (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_source_object_"), "GAsyncInitable *"));
+ // pass GAsyncResult stored in closure to finish function
+ ccall.add_argument (new CCodeMemberAccess.pointer (new CCodeIdentifier ("_data_"), "_res_"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+ } else {
+ // begin
+ ccode.add_expression (ccall);
+ return;
+ }
+ }
+
+ var temp_var = get_temp_variable (expr.value_type, expr.value_type.value_owned);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccode.add_assignment (temp_ref, new CCodeCastExpression (ccall, get_ccode_name (expr.value_type)));
+ set_cvalue (expr, temp_ref);
+ }
+
+ string generate_dbus_signal_handler (Signal sig, ObjectTypeSymbol sym) {
+ string wrapper_name = "_dbus_handle_%s_%s".printf (get_ccode_lower_case_name (sym), get_ccode_lower_case_name (sig));
+
+ var function = new CCodeFunction (wrapper_name);
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (sym) + "*"));
+ function.add_parameter (new CCodeParameter ("parameters", "GVariant*"));
+
+ push_function (function);
+
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator ("_arguments_iter"));
+
+ var iter_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_iter")));
+ iter_init.add_argument (new CCodeIdentifier ("parameters"));
+ ccode.add_expression (iter_init);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_emit_by_name"));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ ccall.add_argument (get_signal_canonical_constant (sig));
+
+ foreach (Parameter param in sig.get_parameters ()) {
+ var param_name = get_variable_cname (param.name);
+ var owned_type = param.variable_type.copy ();
+ owned_type.value_owned = true;
+
+ ccode.add_declaration (get_ccode_name (owned_type), new CCodeVariableDeclarator.zero (param_name, default_value_for_type (param.variable_type, true)));
+
+ unowned Struct? st = param.variable_type.type_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (param_name)));
+ } else {
+ ccall.add_argument (new CCodeIdentifier (param_name));
+ }
+
+ if (param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ var length_ctype = get_ccode_array_length_type (array_type);
+
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator (length_cname, new CCodeConstant ("0")));
+ ccall.add_argument (new CCodeIdentifier (length_cname));
+ }
+ }
+
+ read_expression (param.variable_type, new CCodeIdentifier ("_arguments_iter"), new CCodeIdentifier (param_name), param);
+ }
+
+ ccode.add_expression (ccall);
+
+ foreach (Parameter param in sig.get_parameters ()) {
+ var owned_type = param.variable_type.copy ();
+ owned_type.value_owned = true;
+
+ if (requires_destroy (owned_type)) {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (owned_type, param.name);
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return wrapper_name;
+ }
+
+ void generate_signal_handler_function (ObjectTypeSymbol sym) {
+ var cfunc = new CCodeFunction (get_ccode_lower_case_prefix (sym) + "proxy_g_signal", "void");
+ cfunc.add_parameter (new CCodeParameter ("proxy", "GDBusProxy*"));
+ cfunc.add_parameter (new CCodeParameter ("sender_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("signal_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("parameters", "GVariant*"));
+
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+
+ cfile.add_function_declaration (cfunc);
+
+ push_function (cfunc);
+
+ bool firstif = true;
+
+ foreach (Signal sig in sym.get_signals ()) {
+ if (sig.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+
+ cfile.add_include ("string.h");
+
+ var ccheck = new CCodeFunctionCall (new CCodeIdentifier ("strcmp"));
+ ccheck.add_argument (new CCodeIdentifier ("signal_name"));
+ ccheck.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (sig))));
+
+ var cond = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccheck, new CCodeConstant ("0"));
+ if (firstif) {
+ ccode.open_if (cond);
+ firstif = false;
+ } else {
+ ccode.else_if (cond);
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_dbus_signal_handler (sig, sym)));
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier ("proxy"), get_ccode_name (sym) + "*"));
+ ccall.add_argument (new CCodeIdentifier ("parameters"));
+
+ ccode.add_expression (ccall);
+ }
+ if (!firstif) {
+ ccode.close ();
+ }
+
+ pop_function ();
+
+ cfile.add_function (cfunc);
+ }
+
+ void generate_marshalling (Method m, CallType call_type, string? iface_name, string? method_name, int method_timeout) {
+ var gdbusproxy = new CCodeCastExpression (new CCodeIdentifier ("self"), "GDBusProxy *");
+
+ var connection = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_connection"));
+ connection.add_argument (gdbusproxy);
+
+ bool uses_fd = dbus_method_uses_file_descriptor (m);
+ if (uses_fd) {
+ cfile.add_include ("gio/gunixfdlist.h");
+ ccode.add_declaration ("GUnixFDList*", new CCodeVariableDeclarator ("_fd_list"));
+ }
+
+ bool has_error_argument = m.tree_can_fail;
+ CCodeExpression error_argument;
+ if (has_error_argument) {
+ error_argument = new CCodeIdentifier ("error");
+ } else {
+ error_argument = new CCodeConstant ("NULL");
+ }
+
+ if (call_type != CallType.FINISH) {
+ var destination = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_name"));
+ destination.add_argument (gdbusproxy);
+
+ var interface_name = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_interface_name"));
+ interface_name.add_argument (gdbusproxy);
+
+ var object_path = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_object_path"));
+ object_path.add_argument (gdbusproxy);
+
+ CCodeExpression timeout;
+ if (method_timeout <= 0) {
+ timeout = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_default_timeout"));
+ ((CCodeFunctionCall) timeout).add_argument (gdbusproxy);
+ } else {
+ timeout = new CCodeConstant ("%d".printf (method_timeout));
+ }
+
+ // register errors
+ var error_types = new ArrayList<DataType> ();
+ m.get_error_types (error_types);
+ foreach (var error_type in error_types) {
+ var errtype = (ErrorType) error_type;
+ if (errtype.error_domain != null) {
+ ccode.add_expression (new CCodeIdentifier (get_ccode_upper_case_name (errtype.error_domain)));
+ }
+ }
+
+ // build D-Bus message
+
+ ccode.add_declaration ("GDBusMessage", new CCodeVariableDeclarator ("*_message"));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_new_method_call"));
+ ccall.add_argument (destination);
+ ccall.add_argument (object_path);
+ if (iface_name != null) {
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (iface_name)));
+ } else {
+ ccall.add_argument (interface_name);
+ }
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (method_name)));
+ ccode.add_assignment (new CCodeIdentifier ("_message"), ccall);
+
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_arguments"));
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator ("_arguments_builder"));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ builder_init.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (builder_init);
+
+ if (uses_fd) {
+ ccode.add_assignment (new CCodeIdentifier ("_fd_list"), new CCodeFunctionCall (new CCodeIdentifier ("g_unix_fd_list_new")));
+ }
+
+ CCodeExpression cancellable = new CCodeConstant ("NULL");
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction == ParameterDirection.IN) {
+ CCodeExpression expr = new CCodeIdentifier (get_variable_cname (param.name));
+ if (param.variable_type.is_real_struct_type ()) {
+ expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, expr);
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ cancellable = expr;
+ continue;
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.BusName") {
+ // ignore BusName sender parameters
+ continue;
+ }
+
+ send_dbus_value (param.variable_type, new CCodeIdentifier ("_arguments_builder"), expr, param);
+ }
+ }
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ ccode.add_assignment (new CCodeIdentifier ("_arguments"), builder_end);
+
+ var set_body = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_body"));
+ set_body.add_argument (new CCodeIdentifier ("_message"));
+ set_body.add_argument (new CCodeIdentifier ("_arguments"));
+ ccode.add_expression (set_body);
+
+ if (uses_fd) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_unix_fd_list"));
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccall.add_argument (new CCodeIdentifier ("_fd_list"));
+ ccode.add_expression (ccall);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ ccall.add_argument (new CCodeIdentifier ("_fd_list"));
+ ccode.add_expression (ccall);
+ }
+
+ // send D-Bus message
+
+ if (call_type == CallType.SYNC) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message_with_reply_sync"));
+ ccall.add_argument (connection);
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_SEND_MESSAGE_FLAGS_NONE"));
+ ccall.add_argument (timeout);
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (cancellable);
+ ccall.add_argument (error_argument);
+ ccode.add_assignment (new CCodeIdentifier ("_reply_message"), ccall);
+ } else if (call_type == CallType.NO_REPLY) {
+ var set_flags = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_flags"));
+ set_flags.add_argument (new CCodeIdentifier ("_message"));
+ set_flags.add_argument (new CCodeConstant ("G_DBUS_MESSAGE_FLAGS_NO_REPLY_EXPECTED"));
+ ccode.add_expression (set_flags);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message"));
+ ccall.add_argument (connection);
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_SEND_MESSAGE_FLAGS_NONE"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (error_argument);
+ ccode.add_expression (ccall);
+ } else if (call_type == CallType.ASYNC) {
+ var callback_specified = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("_callback_"), new CCodeConstant ("NULL"));
+ ccode.open_if (callback_specified);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message_with_reply"));
+ ccall.add_argument (connection);
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_SEND_MESSAGE_FLAGS_NONE"));
+ ccall.add_argument (timeout);
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (cancellable);
+
+ CCodeFunctionCall res_wrapper = null;
+
+ // use wrapper as source_object wouldn't be correct otherwise
+ ccall.add_argument (new CCodeIdentifier (generate_async_callback_wrapper ()));
+ res_wrapper = new CCodeFunctionCall (new CCodeIdentifier ("g_task_new"));
+ res_wrapper.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GObject *"));
+ res_wrapper.add_argument (new CCodeConstant ("NULL"));
+ res_wrapper.add_argument (new CCodeIdentifier ("_callback_"));
+ res_wrapper.add_argument (new CCodeIdentifier ("_user_data_"));
+ ccall.add_argument (res_wrapper);
+
+ ccode.add_expression (ccall);
+
+ ccode.add_else ();
+
+ var set_flags = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_flags"));
+ set_flags.add_argument (new CCodeIdentifier ("_message"));
+ set_flags.add_argument (new CCodeConstant ("G_DBUS_MESSAGE_FLAGS_NO_REPLY_EXPECTED"));
+ ccode.add_expression (set_flags);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message"));
+ ccall.add_argument (connection);
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_SEND_MESSAGE_FLAGS_NONE"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (ccall);
+
+ ccode.close ();
+ }
+
+ // free D-Bus message
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ ccall.add_argument (new CCodeIdentifier ("_message"));
+ ccode.add_expression (ccall);
+ } else {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message_with_reply_finish"));
+ ccall.add_argument (connection);
+
+ // unwrap async result
+ ccode.add_declaration ("GAsyncResult", new CCodeVariableDeclarator ("*_inner_res"));
+
+ var inner_res = new CCodeFunctionCall (new CCodeIdentifier ("g_task_propagate_pointer"));
+ inner_res.add_argument (new CCodeCastExpression (new CCodeIdentifier ("_res_"), "GTask *"));
+ inner_res.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_assignment (new CCodeIdentifier ("_inner_res"), inner_res);
+
+ ccall.add_argument (new CCodeIdentifier ("_inner_res"));
+ ccall.add_argument (error_argument);
+ ccode.add_assignment (new CCodeIdentifier ("_reply_message"), ccall);
+
+ // _inner_res is guaranteed to be non-NULL, so just unref it
+ var unref_inner_res = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_inner_res.add_argument (new CCodeIdentifier ("_inner_res"));
+ ccode.add_expression (unref_inner_res);
+ }
+
+ if (call_type == CallType.SYNC || call_type == CallType.FINISH) {
+ ccode.add_declaration ("GDBusMessage", new CCodeVariableDeclarator ("*_reply_message"));
+
+ var unref_reply = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_reply.add_argument (new CCodeIdentifier ("_reply_message"));
+
+ // return on io error
+ var reply_is_null = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("_reply_message"));
+ ccode.open_if (reply_is_null);
+ return_default_value (m.return_type);
+ ccode.close ();
+
+ // return on remote error
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_to_gerror"));
+ ccall.add_argument (new CCodeIdentifier ("_reply_message"));
+ ccall.add_argument (error_argument);
+ ccode.open_if (ccall);
+ ccode.add_expression (unref_reply);
+ return_default_value (m.return_type);
+ ccode.close ();
+
+ bool has_result = !(m.return_type is VoidType);
+
+ if (uses_fd) {
+ ccode.add_declaration ("gint", new CCodeVariableDeclarator.zero ("_fd_index", new CCodeConstant ("0")));
+ ccode.add_declaration ("gint", new CCodeVariableDeclarator ("_fd"));
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction == ParameterDirection.OUT) {
+ has_result = true;
+ }
+ }
+
+ if (has_result) {
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_reply"));
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator ("_reply_iter"));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_get_body"));
+ ccall.add_argument (new CCodeIdentifier ("_reply_message"));
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), ccall);
+
+ var iter_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_reply_iter")));
+ iter_init.add_argument (new CCodeIdentifier ("_reply"));
+ ccode.add_expression (iter_init);
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction == ParameterDirection.OUT) {
+ ccode.add_declaration (get_ccode_name (param.variable_type), new CCodeVariableDeclarator.zero ("_vala_%s".printf (param.name), default_value_for_type (param.variable_type, true)));
+
+ var array_type = param.variable_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator ("_vala_%s_length%d".printf (param.name, dim), new CCodeConstant ("0")));
+ }
+ }
+
+ var target = new CCodeIdentifier ("_vala_%s".printf (param.name));
+ bool may_fail;
+
+ receive_dbus_value (param.variable_type, new CCodeIdentifier ("_reply_message"), new CCodeIdentifier ("_reply_iter"), target, param, error_argument, out may_fail);
+
+ // TODO check that parameter is not NULL (out parameters are optional)
+ // free value if parameter is NULL
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier (get_variable_cname (param.name))), target);
+
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ // TODO check that parameter is not NULL (out parameters are optional)
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("%s_length%d".printf (param.name, dim))), new CCodeIdentifier ("_vala_%s_length%d".printf (param.name, dim)));
+ }
+ }
+
+ if (may_fail && has_error_argument) {
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, new CCodeIdentifier ("error"), new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("error"))));
+ ccode.add_expression (unref_reply);
+ return_default_value (m.return_type);
+ ccode.close ();
+ }
+ }
+ }
+
+ if (!(m.return_type is VoidType)) {
+ if (m.return_type.is_real_non_null_struct_type ()) {
+ var target = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result"));
+ receive_dbus_value (m.return_type, new CCodeIdentifier ("_reply_message"), new CCodeIdentifier ("_reply_iter"), target, m);
+ } else {
+ ccode.add_declaration (get_ccode_name (m.return_type), new CCodeVariableDeclarator.zero ("_result", default_value_for_type (m.return_type, true)));
+
+ var array_type = m.return_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator ("_result_length%d".printf (dim), new CCodeConstant ("0")));
+ }
+ }
+
+ bool may_fail;
+ receive_dbus_value (m.return_type, new CCodeIdentifier ("_reply_message"), new CCodeIdentifier ("_reply_iter"), new CCodeIdentifier ("_result"), m, new CCodeIdentifier ("error"), out may_fail);
+
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ // TODO check that parameter is not NULL (out parameters are optional)
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result_length%d".printf (dim))), new CCodeIdentifier ("_result_length%d".printf (dim)));
+ }
+ }
+
+ if (may_fail) {
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, new CCodeIdentifier ("error"), new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("error"))));
+ ccode.add_expression (unref_reply);
+ return_default_value (m.return_type);
+ ccode.close ();
+ }
+ }
+ }
+ }
+
+ ccode.add_expression (unref_reply);
+
+ if (!(m.return_type is VoidType || m.return_type.is_real_non_null_struct_type ())) {
+ ccode.add_return (new CCodeIdentifier ("_result"));
+ }
+ }
+ }
+
+ string generate_dbus_proxy_method (Interface main_iface, Interface iface, Method m) {
+ string proxy_name = "%sproxy_%s".printf (get_ccode_lower_case_prefix (main_iface), m.name);
+
+ string dbus_iface_name = get_dbus_name (iface);
+
+ bool no_reply = is_dbus_no_reply (m);
+
+ var function = new CCodeFunction (proxy_name);
+ function.modifiers = CCodeModifiers.STATIC;
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (m, cfile, cparam_map, function);
+
+ push_function (function);
+
+ generate_marshalling (m, no_reply ? CallType.NO_REPLY : CallType.SYNC, dbus_iface_name, get_dbus_name_for_member (m), get_dbus_timeout_for_member (m));
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return proxy_name;
+ }
+
+ string generate_async_dbus_proxy_method (Interface main_iface, Interface iface, Method m) {
+ string proxy_name = "%sproxy_%s_async".printf (get_ccode_lower_case_prefix (main_iface), m.name);
+
+ string dbus_iface_name = get_dbus_name (iface);
+
+ var function = new CCodeFunction (proxy_name, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ cparam_map.set (get_param_pos (-1), new CCodeParameter ("_callback_", "GAsyncReadyCallback"));
+ cparam_map.set (get_param_pos (-0.9), new CCodeParameter ("_user_data_", "gpointer"));
+
+ generate_cparameters (m, cfile, cparam_map, function, null, null, null, 1);
+
+ push_function (function);
+
+ generate_marshalling (m, CallType.ASYNC, dbus_iface_name, get_dbus_name_for_member (m), get_dbus_timeout_for_member (m));
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return proxy_name;
+ }
+
+ string generate_finish_dbus_proxy_method (Interface main_iface, Interface iface, Method m) {
+ string proxy_name = "%sproxy_%s_finish".printf (get_ccode_lower_case_prefix (main_iface), m.name);
+
+ var function = new CCodeFunction (proxy_name);
+ function.modifiers = CCodeModifiers.STATIC;
+
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ cparam_map.set (get_param_pos (get_ccode_async_result_pos (m)), new CCodeParameter ("_res_", "GAsyncResult*"));
+
+ generate_cparameters (m, cfile, cparam_map, function, null, null, null, 2);
+
+ push_function (function);
+
+ generate_marshalling (m, CallType.FINISH, null, null, -1);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return proxy_name;
+ }
+
+ string generate_dbus_proxy_property_get (Interface main_iface, Interface iface, Property prop) {
+ string proxy_name = "%sdbus_proxy_get_%s".printf (get_ccode_lower_case_prefix (main_iface), prop.name);
+
+ string dbus_iface_name = get_dbus_name (iface);
+
+ var owned_type = prop.get_accessor.value_type.copy ();
+ owned_type.value_owned = true;
+ if (owned_type.is_disposable () && !prop.get_accessor.value_type.value_owned) {
+ Report.error (prop.get_accessor.value_type.source_reference, "Properties used in D-Bus clients require owned get accessor");
+ }
+
+ var array_type = prop.get_accessor.value_type as ArrayType;
+
+ var function = new CCodeFunction (proxy_name);
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("self", "%s*".printf (get_ccode_name (iface))));
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ function.add_parameter (new CCodeParameter ("result", "%s*".printf (get_ccode_name (prop.get_accessor.value_type))));
+ } else {
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type) + "*";
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter ("result_length%d".printf (dim), length_ctype));
+ }
+ }
+
+ function.return_type = get_ccode_name (prop.get_accessor.value_type);
+ }
+
+ push_function (function);
+
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_inner_reply"));
+
+ // first try cached value
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_get_cached_property"));
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GDBusProxy *"));
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))));
+ ccode.add_assignment (new CCodeIdentifier ("_inner_reply"), ccall);
+
+ // if not successful, retrieve value via D-Bus
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("_inner_reply")));
+
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_arguments"));
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_reply"));
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator ("_arguments_builder"));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ builder_init.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (builder_init);
+
+ // interface name
+ write_expression (string_type, new CCodeIdentifier ("_arguments_builder"), new CCodeConstant ("\"%s\"".printf (dbus_iface_name)), null);
+ // property name
+ write_expression (string_type, new CCodeIdentifier ("_arguments_builder"), new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))), null);
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ ccode.add_assignment (new CCodeIdentifier ("_arguments"), builder_end);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_call_sync"));
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GDBusProxy *"));
+ ccall.add_argument (new CCodeConstant ("\"org.freedesktop.DBus.Properties.Get\""));
+ ccall.add_argument (new CCodeIdentifier ("_arguments"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_CALL_FLAGS_NONE"));
+ ccall.add_argument (get_dbus_timeout (prop));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), ccall);
+
+ // return on error
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("_reply")));
+ return_default_value (prop.property_type);
+ ccode.close ();
+
+ var get_variant = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_get"));
+ get_variant.add_argument (new CCodeIdentifier ("_reply"));
+ get_variant.add_argument (new CCodeConstant ("\"(v)\""));
+ get_variant.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_inner_reply")));
+ ccode.add_expression (get_variant);
+
+ var unref_reply = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_unref"));
+ unref_reply.add_argument (new CCodeIdentifier ("_reply"));
+ ccode.add_expression (unref_reply);
+
+ ccode.close ();
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ var target = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result"));
+ var result = deserialize_expression (prop.get_accessor.value_type, new CCodeIdentifier ("_inner_reply"), target);
+ ccode.add_assignment (target, result);
+ } else {
+ ccode.add_declaration (get_ccode_name (prop.get_accessor.value_type), new CCodeVariableDeclarator ("_result"));
+
+ if (get_dbus_signature (prop) != null) {
+ // raw GVariant
+ ccode.add_assignment (new CCodeIdentifier ("_result"), new CCodeIdentifier("_inner_reply"));
+ } else {
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator ("_result_length%d".printf (dim), new CCodeConstant ("0")));
+ }
+ }
+
+ var result = deserialize_expression (prop.get_accessor.value_type, new CCodeIdentifier ("_inner_reply"), new CCodeIdentifier ("_result"));
+ ccode.add_assignment (new CCodeIdentifier ("_result"), result);
+
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ // TODO check that parameter is not NULL (out parameters are optional)
+ ccode.add_assignment (new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("result_length%d".printf (dim))), new CCodeIdentifier ("_result_length%d".printf (dim)));
+ }
+ }
+ }
+ }
+
+ if (prop.property_type.is_real_non_null_struct_type () || get_dbus_signature (prop) == null) {
+ unref_reply = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_unref"));
+ unref_reply.add_argument (new CCodeIdentifier ("_inner_reply"));
+ ccode.add_expression (unref_reply);
+ }
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ ccode.add_return ();
+ } else {
+ ccode.add_return (new CCodeIdentifier ("_result"));
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return proxy_name;
+ }
+
+ string generate_dbus_proxy_property_set (Interface main_iface, Interface iface, Property prop) {
+ string proxy_name = "%sdbus_proxy_set_%s".printf (get_ccode_lower_case_prefix (main_iface), prop.name);
+
+ string dbus_iface_name = get_dbus_name (iface);
+
+ var array_type = prop.set_accessor.value_type as ArrayType;
+
+ var function = new CCodeFunction (proxy_name);
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("self", "%s*".printf (get_ccode_name (iface))));
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ function.add_parameter (new CCodeParameter ("value", "%s*".printf (get_ccode_name (prop.set_accessor.value_type))));
+ } else {
+ function.add_parameter (new CCodeParameter ("value", get_ccode_name (prop.set_accessor.value_type)));
+
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter ("value_length%d".printf (dim), length_ctype));
+ }
+ }
+ }
+
+ push_function (function);
+
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_arguments"));
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_reply"));
+
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator ("_arguments_builder"));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ builder_init.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (builder_init);
+
+ // interface name
+ write_expression (string_type, new CCodeIdentifier ("_arguments_builder"), new CCodeConstant ("\"%s\"".printf (dbus_iface_name)), null);
+ // property name
+ write_expression (string_type, new CCodeIdentifier ("_arguments_builder"), new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))), null);
+
+ // property value (as variant)
+ var builder_open = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_open"));
+ builder_open.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ builder_open.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_VARIANT"));
+ ccode.add_expression (builder_open);
+
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ write_expression (prop.set_accessor.value_type, new CCodeIdentifier ("_arguments_builder"), new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, new CCodeIdentifier ("value")), prop);
+ } else {
+ write_expression (prop.set_accessor.value_type, new CCodeIdentifier ("_arguments_builder"), new CCodeIdentifier ("value"), prop);
+ }
+
+ var builder_close = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_close"));
+ builder_close.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ ccode.add_expression (builder_close);
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ ccode.add_assignment (new CCodeIdentifier ("_arguments"), builder_end);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_proxy_call_sync"));
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GDBusProxy *"));
+ ccall.add_argument (new CCodeConstant ("\"org.freedesktop.DBus.Properties.Set\""));
+ ccall.add_argument (new CCodeIdentifier ("_arguments"));
+ ccall.add_argument (new CCodeConstant ("G_DBUS_CALL_FLAGS_NONE"));
+ ccall.add_argument (get_dbus_timeout (prop));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), ccall);
+
+ // return on error
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("_reply")));
+ ccode.add_return ();
+ ccode.close ();
+
+ var unref_reply = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_unref"));
+ unref_reply.add_argument (new CCodeIdentifier ("_reply"));
+ ccode.add_expression (unref_reply);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return proxy_name;
+ }
+
+ public override void register_dbus_info (CCodeBlock block, ObjectTypeSymbol sym) {
+ if (!(sym is Interface)) {
+ return;
+ }
+
+ string dbus_iface_name = get_dbus_name (sym);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ var quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-proxy-type\""));
+
+ var proxy_type = new CCodeIdentifier (get_ccode_lower_case_prefix (sym) + "proxy_get_type");
+
+ var set_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_set_qdata"));
+ set_qdata.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (sym, null))));
+ set_qdata.add_argument (quark);
+ set_qdata.add_argument (new CCodeCastExpression (proxy_type, "void*"));
+
+ block.add_statement (new CCodeExpressionStatement (set_qdata));
+
+ quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-interface-name\""));
+
+ set_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_set_qdata"));
+ set_qdata.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (sym, null))));
+ set_qdata.add_argument (quark);
+ set_qdata.add_argument (new CCodeConstant ("\"%s\"".printf (dbus_iface_name)));
+
+ block.add_statement (new CCodeExpressionStatement (set_qdata));
+
+ // TODO Replaced by g_dbus_proxy_set_interface_info() call in *_init
+ quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-interface-info\""));
+
+ set_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_set_qdata"));
+ set_qdata.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (sym, null))));
+ set_qdata.add_argument (quark);
+ set_qdata.add_argument (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_interface_info (sym)), "void*"));
+
+ block.add_statement (new CCodeExpressionStatement (set_qdata));
+ }
+}
--- /dev/null
+/* valagdbusmodule.vala
+ *
+ * Copyright (C) 2010-2012 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+public class Vala.GDBusModule : GVariantModule {
+ public static string? get_dbus_name (TypeSymbol symbol) {
+ return symbol.get_attribute_string ("DBus", "name");
+ }
+
+ public static string get_dbus_name_for_member (Symbol symbol) {
+ var dbus_name = symbol.get_attribute_string ("DBus", "name");
+ if (dbus_name != null) {
+ return dbus_name;
+ }
+
+ return Symbol.lower_case_to_camel_case (symbol.name);
+ }
+
+ public static int get_dbus_timeout_for_member (Symbol symbol) {
+ return symbol.get_attribute_integer ("DBus", "timeout", -1);
+ }
+
+ public static bool is_dbus_visible (CodeNode node) {
+ var dbus_attribute = node.get_attribute ("DBus");
+ if (dbus_attribute != null
+ && dbus_attribute.has_argument ("visible")
+ && !dbus_attribute.get_bool ("visible")) {
+ return false;
+ }
+
+ return true;
+ }
+
+ public static bool is_dbus_no_reply (Method m) {
+ return m.get_attribute_bool ("DBus", "no_reply");
+ }
+
+ public static string dbus_result_name (Method m) {
+ var dbus_name = m.get_attribute_string ("DBus", "result");
+ if (dbus_name != null && dbus_name != "") {
+ return dbus_name;
+ }
+
+ return "result";
+ }
+
+ public override void visit_error_domain (ErrorDomain edomain) {
+ var edomain_dbus_name = get_dbus_name (edomain);
+ if (edomain_dbus_name == null) {
+ base.visit_error_domain (edomain);
+ return;
+ }
+
+ cfile.add_include ("gio/gio.h");
+
+ generate_error_domain_declaration (edomain, cfile);
+
+ if (!edomain.is_internal_symbol ()) {
+ generate_error_domain_declaration (edomain, header_file);
+ }
+ if (!edomain.is_private_symbol ()) {
+ generate_error_domain_declaration (edomain, internal_header_file);
+ }
+
+ var error_entries = new CCodeInitializerList ();
+ foreach (ErrorCode ecode in edomain.get_codes ()) {
+ var ecode_dbus_name = get_dbus_name (ecode);
+ if (ecode_dbus_name == null) {
+ ecode_dbus_name = Symbol.lower_case_to_camel_case (ecode.name.ascii_down ());
+ }
+
+ var error_entry = new CCodeInitializerList ();
+ error_entry.append (new CCodeIdentifier (get_ccode_name (ecode)));
+ error_entry.append (new CCodeConstant ("\"%s.%s\"".printf (edomain_dbus_name, ecode_dbus_name)));
+ error_entries.append (error_entry);
+ }
+
+ var cdecl = new CCodeDeclaration ("const GDBusErrorEntry");
+ cdecl.add_declarator (new CCodeVariableDeclarator (get_ccode_lower_case_name (edomain) + "_entries[]", error_entries));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ string quark_fun_name = get_ccode_lower_case_prefix (edomain) + "quark";
+
+ var cquark_fun = new CCodeFunction (quark_fun_name, get_ccode_name (gquark_type.type_symbol));
+ push_function (cquark_fun);
+
+ string quark_name = "%squark_volatile".printf (get_ccode_lower_case_prefix (edomain));
+
+ ccode.add_declaration ("gsize", new CCodeVariableDeclarator (quark_name, new CCodeConstant ("0")), CCodeModifiers.STATIC | CCodeModifiers.VOLATILE);
+
+ var register_call = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_error_register_error_domain"));
+ register_call.add_argument (new CCodeConstant ("\"" + get_ccode_quark_name (edomain) + "\""));
+ register_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (quark_name)));
+ register_call.add_argument (new CCodeIdentifier (get_ccode_lower_case_name (edomain) + "_entries"));
+ var nentries = new CCodeFunctionCall (new CCodeIdentifier ("G_N_ELEMENTS"));
+ nentries.add_argument (new CCodeIdentifier (get_ccode_lower_case_name (edomain) + "_entries"));
+ register_call.add_argument (nentries);
+ ccode.add_expression (register_call);
+
+ ccode.add_return (new CCodeCastExpression (new CCodeIdentifier (quark_name), "GQuark"));
+
+ pop_function ();
+ cfile.add_function (cquark_fun);
+ }
+
+ bool is_file_descriptor (DataType type) {
+ if (type is ObjectType) {
+ if (type.type_symbol.get_full_name () == "GLib.UnixInputStream" ||
+ type.type_symbol.get_full_name () == "GLib.UnixOutputStream" ||
+ type.type_symbol.get_full_name () == "GLib.Socket" ||
+ type.type_symbol.get_full_name () == "GLib.FileDescriptorBased") {
+ return true;
+ }
+ }
+
+ return false;
+ }
+
+ public bool dbus_method_uses_file_descriptor (Method method) {
+ foreach (Parameter param in method.get_parameters ()) {
+ if (is_file_descriptor (param.variable_type)) {
+ return true;
+ }
+ }
+
+ if (is_file_descriptor (method.return_type)) {
+ return true;
+ }
+
+ return false;
+ }
+
+ CCodeExpression? get_file_descriptor (DataType type, CCodeExpression expr) {
+ if (type is ObjectType) {
+ if (type.type_symbol.get_full_name () == "GLib.UnixInputStream") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_input_stream_get_fd"));
+ result.add_argument (expr);
+ return result;
+ } else if (type.type_symbol.get_full_name () == "GLib.UnixOutputStream") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_output_stream_get_fd"));
+ result.add_argument (expr);
+ return result;
+ } else if (type.type_symbol.get_full_name () == "GLib.Socket") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_socket_get_fd"));
+ result.add_argument (expr);
+ return result;
+ } else if (type.type_symbol.get_full_name () == "GLib.FileDescriptorBased") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_file_descriptor_based_get_fd"));
+ result.add_argument (expr);
+ return result;
+ }
+ }
+
+ return null;
+ }
+
+ public void send_dbus_value (DataType type, CCodeExpression builder_expr, CCodeExpression expr, Symbol? sym) {
+ var fd = get_file_descriptor (type, expr);
+ if (fd != null) {
+ // add file descriptor to the file descriptor list
+ var fd_append = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_fd_list_append"));
+ fd_append.add_argument (new CCodeIdentifier ("_fd_list"));
+ fd_append.add_argument (fd);
+ fd_append.add_argument (new CCodeConstant ("NULL"));
+
+ // add index to file descriptor to gvariant
+ var builder_add = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_add"));
+ builder_add.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, builder_expr));
+ builder_add.add_argument (new CCodeConstant ("\"h\""));
+ builder_add.add_argument (fd_append);
+ ccode.add_expression (builder_add);
+ } else {
+ write_expression (type, builder_expr, expr, sym);
+ }
+ }
+
+ CCodeExpression? create_from_file_descriptor (DataType type, CCodeExpression expr) {
+ if (type is ObjectType) {
+ if (type.type_symbol.get_full_name () == "GLib.UnixInputStream") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_input_stream_new"));
+ result.add_argument (expr);
+ result.add_argument (new CCodeConstant ("TRUE"));
+ return new CCodeCastExpression (result, "GUnixInputStream *");
+ } else if (type.type_symbol.get_full_name () == "GLib.UnixOutputStream") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_output_stream_new"));
+ result.add_argument (expr);
+ result.add_argument (new CCodeConstant ("TRUE"));
+ return new CCodeCastExpression (result, "GUnixOutputStream *");
+ } else if (type.type_symbol.get_full_name () == "GLib.Socket") {
+ var result = new CCodeFunctionCall (new CCodeIdentifier ("g_socket_new_from_fd"));
+ result.add_argument (expr);
+ result.add_argument (new CCodeConstant ("NULL"));
+ return result;
+ }
+ }
+
+ return null;
+ }
+
+ public void receive_dbus_value (DataType type, CCodeExpression message_expr, CCodeExpression iter_expr, CCodeExpression target_expr, Symbol? sym, CCodeExpression? error_expr = null, out bool may_fail = null) {
+ var fd_list = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_get_unix_fd_list"));
+ fd_list.add_argument (message_expr);
+
+ var fd_var = new CCodeIdentifier ("_fd");
+
+ var stream = create_from_file_descriptor (type, fd_var);
+ if (stream != null) {
+ var fd_list_var = new CCodeIdentifier ("_fd_list");
+
+ var fd = new CCodeFunctionCall (new CCodeIdentifier ("g_unix_fd_list_get"));
+ fd.add_argument (fd_list_var);
+ fd.add_argument (new CCodeIdentifier ("_fd_index"));
+ fd.add_argument (error_expr);
+
+ ccode.add_assignment (fd_list_var, fd_list);
+ ccode.open_if (fd_list_var);
+
+ var get_fd = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_next"));
+ get_fd.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, iter_expr));
+ get_fd.add_argument (new CCodeConstant ("\"h\""));
+ get_fd.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_fd_index")));
+ ccode.add_expression (get_fd);
+
+ ccode.add_assignment (fd_var, fd);
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.GREATER_THAN_OR_EQUAL, fd_var, new CCodeConstant ("0")));
+
+ ccode.add_assignment (target_expr, stream);
+ may_fail = true;
+
+ ccode.close ();
+
+ ccode.add_else ();
+ var set_error = new CCodeFunctionCall (new CCodeIdentifier ("g_set_error_literal"));
+ set_error.add_argument (error_expr);
+ set_error.add_argument (new CCodeIdentifier ("G_IO_ERROR"));
+ set_error.add_argument (new CCodeIdentifier ("G_IO_ERROR_FAILED"));
+ set_error.add_argument (new CCodeConstant ("\"FD List is NULL\""));
+ ccode.add_expression (set_error);
+ ccode.close ();
+ } else {
+ read_expression (type, iter_expr, target_expr, sym, error_expr, out may_fail);
+ }
+ }
+ CCodeExpression get_method_info (ObjectTypeSymbol sym) {
+ var infos = new CCodeInitializerList ();
+
+ foreach (Method m in sym.get_methods ()) {
+ if (m is CreationMethod || m.binding != MemberBinding.INSTANCE
+ || m.overrides || m.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (m)) {
+ continue;
+ }
+
+ var in_args_info = new CCodeInitializerList ();
+ var out_args_info = new CCodeInitializerList ();
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ continue;
+ }
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.BusName") {
+ continue;
+ }
+
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (param.name)));
+ info.append (new CCodeConstant ("\"%s\"".printf (param.variable_type.get_type_signature (param))));
+ info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusArgInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_" + param.name, info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ if (param.direction == ParameterDirection.IN) {
+ in_args_info.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_" + param.name)));
+ } else {
+ out_args_info.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_" + param.name)));
+ }
+ }
+
+ if (!(m.return_type is VoidType)) {
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (dbus_result_name (m))));
+ info.append (new CCodeConstant ("\"%s\"".printf (m.return_type.get_type_signature (m))));
+ info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusArgInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_result", info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ out_args_info.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_result")));
+ }
+
+ in_args_info.append (new CCodeConstant ("NULL"));
+ out_args_info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusArgInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_in[]", in_args_info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ cdecl = new CCodeDeclaration ("const GDBusArgInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_out[]", out_args_info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (m))));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_in")), "GDBusArgInfo **"));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + m.name + "_out")), "GDBusArgInfo **"));
+ info.append (new CCodeConstant ("NULL"));
+
+ cdecl = new CCodeDeclaration ("const GDBusMethodInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_method_info_" + m.name, info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ infos.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_method_info_" + m.name)));
+ }
+
+ infos.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusMethodInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_method_info[]", infos));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ return new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_method_info");
+ }
+
+ CCodeExpression get_signal_info (ObjectTypeSymbol sym) {
+ var infos = new CCodeInitializerList ();
+
+ foreach (Signal sig in sym.get_signals ()) {
+ if (sig.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (sig)) {
+ continue;
+ }
+
+ var args_info = new CCodeInitializerList ();
+
+ foreach (Parameter param in sig.get_parameters ()) {
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (param.name)));
+ info.append (new CCodeConstant ("\"%s\"".printf (param.variable_type.get_type_signature (param))));
+ info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusArgInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + get_ccode_lower_case_name (sig) + "_" + param.name, info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ args_info.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + get_ccode_lower_case_name (sig) + "_" + param.name)));
+ }
+
+ args_info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusArgInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + get_ccode_lower_case_name (sig) + "[]", args_info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (sig))));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_arg_info_" + get_ccode_lower_case_name (sig))), "GDBusArgInfo **"));
+ info.append (new CCodeConstant ("NULL"));
+
+ cdecl = new CCodeDeclaration ("const GDBusSignalInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_signal_info_" + get_ccode_lower_case_name (sig), info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ infos.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_signal_info_" + get_ccode_lower_case_name (sig))));
+ }
+
+ infos.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusSignalInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_signal_info[]", infos));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ return new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_signal_info");
+ }
+
+ CCodeExpression get_property_info (ObjectTypeSymbol sym) {
+ var infos = new CCodeInitializerList ();
+
+ foreach (Property prop in sym.get_properties ()) {
+ if (prop.binding != MemberBinding.INSTANCE
+ || prop.overrides || prop.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (prop)) {
+ continue;
+ }
+
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))));
+ info.append (new CCodeConstant ("\"%s\"".printf (prop.property_type.get_type_signature (prop))));
+ if (prop.get_accessor != null && prop.set_accessor != null) {
+ info.append (new CCodeConstant ("G_DBUS_PROPERTY_INFO_FLAGS_READABLE | G_DBUS_PROPERTY_INFO_FLAGS_WRITABLE"));
+ } else if (prop.get_accessor != null) {
+ info.append (new CCodeConstant ("G_DBUS_PROPERTY_INFO_FLAGS_READABLE"));
+ } else if (prop.set_accessor != null) {
+ info.append (new CCodeConstant ("G_DBUS_PROPERTY_INFO_FLAGS_WRITABLE"));
+ } else {
+ info.append (new CCodeConstant ("G_DBUS_PROPERTY_INFO_FLAGS_NONE"));
+ }
+ info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusPropertyInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_property_info_" + prop.name, info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ infos.append (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_property_info_" + prop.name)));
+ }
+
+ infos.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusPropertyInfo * const");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_property_info[]", infos));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ return new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_property_info");
+ }
+
+ void declare_interface_info (ObjectTypeSymbol sym) {
+ var info = new CCodeInitializerList ();
+ info.append (new CCodeConstant ("-1"));
+ info.append (new CCodeConstant ("\"%s\"".printf (get_dbus_name (sym))));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_method_info (sym)), "GDBusMethodInfo **"));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_signal_info (sym)), "GDBusSignalInfo **"));
+ info.append (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_property_info (sym)), "GDBusPropertyInfo **"));
+ info.append (new CCodeConstant ("NULL"));
+
+ var cdecl = new CCodeDeclaration ("const GDBusInterfaceInfo");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_interface_info", info));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+ }
+
+ protected CCodeExpression get_interface_info (ObjectTypeSymbol sym) {
+ return new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_interface_info");
+ }
+
+ public override void visit_class (Class cl) {
+ base.visit_class (cl);
+
+ visit_object_type_symbol (cl);
+ }
+
+ public override void visit_interface (Interface iface) {
+ base.visit_interface (iface);
+
+ visit_object_type_symbol (iface);
+ }
+
+ void visit_object_type_symbol (ObjectTypeSymbol sym) {
+ if (get_dbus_name (sym) == null) {
+ return;
+ }
+
+ declare_interface_info(sym);
+ }
+}
--- /dev/null
+/* valagdbusservermodule.vala
+ *
+ * Copyright (C) 2010-2011 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+public class Vala.GDBusServerModule : GDBusClientModule {
+ string generate_dbus_wrapper (Method m, ObjectTypeSymbol sym, bool ready = false) {
+ string wrapper_name = "_dbus_%s".printf (get_ccode_name (m));
+ bool need_goto_label = ready;
+
+ if (m.base_method != null) {
+ m = m.base_method;
+ } else if (m.base_interface_method != null) {
+ m = m.base_interface_method;
+ }
+
+ if (ready) {
+ // async ready function
+ wrapper_name += "_ready";
+ }
+
+ var function = new CCodeFunction (wrapper_name);
+ function.modifiers = CCodeModifiers.STATIC;
+
+ if (!ready) {
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (sym) + "*"));
+ function.add_parameter (new CCodeParameter ("_parameters_", "GVariant*"));
+ function.add_parameter (new CCodeParameter ("invocation", "GDBusMethodInvocation*"));
+ } else {
+ function.add_parameter (new CCodeParameter ("source_object", "GObject *"));
+ function.add_parameter (new CCodeParameter ("_res_", "GAsyncResult *"));
+ function.add_parameter (new CCodeParameter ("_user_data_", "gpointer"));
+ }
+
+ push_function (function);
+
+ CCodeIdentifier ready_data_expr = m.coroutine ? new CCodeIdentifier ("_ready_data") : null;
+ string ready_data_struct_name = Symbol.lower_case_to_camel_case (get_ccode_name (m)) + "ReadyData";
+
+ if (ready) {
+ ccode.add_declaration (ready_data_struct_name + "*", new CCodeVariableDeclarator ("_ready_data", new CCodeIdentifier ("_user_data_")));
+ ccode.add_declaration ("GDBusMethodInvocation*", new CCodeVariableDeclarator ("invocation", new CCodeMemberAccess.pointer (ready_data_expr, "_invocation_")));
+ }
+
+ var connection = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_get_connection"));
+ connection.add_argument (new CCodeIdentifier ("invocation"));
+
+ bool no_reply = is_dbus_no_reply (m);
+ bool uses_fd = dbus_method_uses_file_descriptor (m);
+ if (uses_fd) {
+ cfile.add_include ("gio/gunixfdlist.h");
+ ccode.add_declaration ("GUnixFDList*", new CCodeVariableDeclarator ("_fd_list"));
+ }
+
+ bool uses_error = false;
+
+ if (!m.coroutine || ready) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("error", new CCodeConstant ("NULL")));
+ uses_error = true;
+ }
+
+ if (!ready) {
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator ("_arguments_iter"));
+
+ var iter_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_iter")));
+ iter_init.add_argument (new CCodeIdentifier ("_parameters_"));
+ ccode.add_expression (iter_init);
+ }
+
+ CCodeFunctionCall ccall;
+ if (!ready) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (m)));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ } else {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_finish_name (m)));
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier ("source_object"), get_ccode_name (sym) + "*"));
+ ccall.add_argument (new CCodeIdentifier ("_res_"));
+ }
+
+ if (!ready) {
+ if (uses_fd) {
+ ccode.add_declaration ("gint", new CCodeVariableDeclarator.zero ("_fd_index", new CCodeConstant ("0")));
+ ccode.add_declaration ("gint", new CCodeVariableDeclarator ("_fd"));
+ }
+
+ CCodeStruct? ready_data_struct = null;
+
+ if (m.coroutine) {
+ ready_data_struct = new CCodeStruct ("_" + ready_data_struct_name);
+ ready_data_struct.add_field ("GDBusMethodInvocation*", "_invocation_");
+ append_struct (ready_data_struct);
+
+ var ready_data_alloc = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_new0"));
+ ready_data_alloc.add_argument (new CCodeIdentifier (ready_data_struct_name));
+
+ ccode.add_declaration (ready_data_struct_name + "*", new CCodeVariableDeclarator ("_ready_data"));
+ ccode.add_assignment (ready_data_expr, ready_data_alloc);
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ready_data_expr, "_invocation_"), new CCodeIdentifier ("invocation"));
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ string param_name = get_variable_cname (param.name);
+ if (param.direction != ParameterDirection.IN) {
+ continue;
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ continue;
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.BusName") {
+ // ignore BusName sender parameters
+ continue;
+ }
+
+ CCodeExpression param_expr;
+ if (ready_data_expr != null) {
+ param_expr = new CCodeMemberAccess.pointer (ready_data_expr, param_name);
+ } else {
+ param_expr = new CCodeIdentifier (param_name);
+ }
+
+ var owned_type = param.variable_type.copy ();
+ owned_type.value_owned = true;
+
+ if (ready_data_struct != null) {
+ ready_data_struct.add_field (get_ccode_name (owned_type), param_name);
+ } else {
+ ccode.add_declaration (get_ccode_name (owned_type), new CCodeVariableDeclarator.zero (param_name, default_value_for_type (param.variable_type, true)));
+ }
+
+ var array_type = param.variable_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+
+ if (ready_data_struct != null) {
+ ready_data_struct.add_field (length_ctype, length_cname);
+ } else {
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator.zero (length_cname, new CCodeConstant ("0")));
+ }
+ }
+ }
+
+ var message_expr = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_get_message"));
+ message_expr.add_argument (new CCodeIdentifier ("invocation"));
+
+ bool may_fail;
+ receive_dbus_value (param.variable_type, message_expr, new CCodeIdentifier ("_arguments_iter"), param_expr, param, new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("error")), out may_fail);
+
+ if (may_fail) {
+ if (!uses_error) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("error", new CCodeConstant ("NULL")));
+ uses_error = true;
+ }
+
+ ccode.open_if (new CCodeIdentifier ("error"));
+
+ var return_error = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_take_error"));
+ return_error.add_argument (new CCodeIdentifier ("invocation"));
+ return_error.add_argument (new CCodeIdentifier ("error"));
+ ccode.add_expression (return_error);
+
+ if (need_goto_label || requires_destroy (owned_type)) {
+ ccode.add_goto ("_error");
+ need_goto_label = true;
+ } else {
+ ccode.add_return ();
+ }
+
+ ccode.close ();
+ } else if (!need_goto_label && m.tree_can_fail && requires_destroy (owned_type)) {
+ need_goto_label = true;
+ }
+ }
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ string param_name = get_variable_cname (param.name);
+
+ CCodeExpression param_expr;
+ if (ready_data_expr != null && param.direction == ParameterDirection.IN) {
+ param_expr = new CCodeMemberAccess.pointer (ready_data_expr, param_name);
+ } else {
+ param_expr = new CCodeIdentifier (param_name);
+ }
+
+ if (param.direction == ParameterDirection.IN && !ready) {
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ continue;
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.BusName") {
+ // ignore BusName sender parameters
+ var sender = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_get_sender"));
+ sender.add_argument (new CCodeIdentifier ("invocation"));
+ ccall.add_argument (sender);
+ continue;
+ }
+
+ unowned Struct? st = param.variable_type.type_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, param_expr));
+ } else {
+ ccall.add_argument (param_expr);
+ }
+ } else if (param.direction == ParameterDirection.OUT && (!m.coroutine || ready)) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, param_expr));
+ }
+
+ var array_type = param.variable_type as ArrayType;
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+
+ CCodeExpression length_expr;
+ if (ready_data_expr != null && param.direction == ParameterDirection.IN)
+ length_expr = new CCodeMemberAccess.pointer (ready_data_expr, length_cname);
+ else
+ length_expr = new CCodeIdentifier (length_cname);
+
+ if (param.direction == ParameterDirection.IN && !ready) {
+ ccall.add_argument (length_expr);
+ } else if (param.direction == ParameterDirection.OUT && !no_reply && (!m.coroutine || ready)) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, length_expr));
+ }
+ }
+ }
+ }
+
+ if (!m.coroutine || ready) {
+ if (!(m.return_type is VoidType)) {
+ if (m.return_type.is_real_non_null_struct_type ()) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("result")));
+ } else {
+ var array_type = m.return_type as ArrayType;
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_array_length_cname ("result", dim);
+
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (length_cname)));
+ }
+ }
+ }
+ }
+ }
+
+ if (m.coroutine && !ready) {
+ ccall.add_argument (new CCodeCastExpression (new CCodeIdentifier (wrapper_name + "_ready"), "GAsyncReadyCallback"));
+ ccall.add_argument (ready_data_expr);
+ }
+
+ if (!m.coroutine || ready) {
+ if (m.tree_can_fail) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("error")));
+ }
+ }
+
+ if (!no_reply && (!m.coroutine || ready)) {
+ if (m.return_type is VoidType || m.return_type.is_real_non_null_struct_type ()) {
+ ccode.add_expression (ccall);
+ } else {
+ ccode.add_assignment (new CCodeIdentifier ("result"), ccall);
+ }
+
+ if (m.tree_can_fail) {
+ ccode.open_if (new CCodeIdentifier ("error"));
+
+ var return_error = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_take_error"));
+ return_error.add_argument (new CCodeIdentifier ("invocation"));
+ return_error.add_argument (new CCodeIdentifier ("error"));
+ ccode.add_expression (return_error);
+
+ if (need_goto_label) {
+ ccode.add_goto ("_error");
+ } else {
+ ccode.add_return ();
+ }
+
+ ccode.close ();
+ }
+
+ ccode.add_declaration ("GDBusMessage*", new CCodeVariableDeclarator.zero ("_reply_message", new CCodeConstant ("NULL")));
+
+ var message_expr = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_method_invocation_get_message"));
+ message_expr.add_argument (new CCodeIdentifier ("invocation"));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_new_method_reply"));
+ ccall.add_argument (message_expr);
+ ccode.add_assignment (new CCodeIdentifier ("_reply_message"), ccall);
+
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator ("_reply"));
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator ("_reply_builder"));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_reply_builder")));
+ builder_init.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (builder_init);
+
+ if (uses_fd) {
+ ccode.add_assignment (new CCodeIdentifier ("_fd_list"), new CCodeFunctionCall (new CCodeIdentifier ("g_unix_fd_list_new")));
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if (param.direction != ParameterDirection.OUT) {
+ continue;
+ }
+
+ string param_name = get_variable_cname (param.name);
+ var owned_type = param.variable_type.copy ();
+ owned_type.value_owned = true;
+
+ ccode.add_declaration (get_ccode_name (owned_type), new CCodeVariableDeclarator.zero (param_name, default_value_for_type (param.variable_type, true)));
+
+ var array_type = param.variable_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator.zero (length_cname, new CCodeConstant ("0")));
+ }
+ }
+
+ send_dbus_value (param.variable_type, new CCodeIdentifier ("_reply_builder"), new CCodeIdentifier (param_name), param);
+ }
+
+ if (!(m.return_type is VoidType)) {
+ if (m.return_type.is_real_non_null_struct_type ()) {
+ ccode.add_declaration (get_ccode_name (m.return_type), new CCodeVariableDeclarator.zero ("result", default_value_for_type (m.return_type, true)));
+
+ send_dbus_value (m.return_type, new CCodeIdentifier ("_reply_builder"), new CCodeIdentifier ("result"), m);
+
+ if (requires_destroy (m.return_type)) {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (m.return_type, ".result");
+ ccode.add_expression (destroy_local (local));
+ }
+ } else {
+ ccode.add_declaration (get_ccode_name (m.return_type), new CCodeVariableDeclarator ("result"));
+
+ var array_type = m.return_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_array_length_cname ("result", dim);
+
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator.zero (length_cname, new CCodeConstant ("0")));
+ }
+ }
+
+ send_dbus_value (m.return_type, new CCodeIdentifier ("_reply_builder"), new CCodeIdentifier ("result"), m);
+
+ if (requires_destroy (m.return_type)) {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (m.return_type, ".result");
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+ }
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_reply_builder")));
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), builder_end);
+
+ var set_body = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_body"));
+ set_body.add_argument (new CCodeIdentifier ("_reply_message"));
+ set_body.add_argument (new CCodeIdentifier ("_reply"));
+ ccode.add_expression (set_body);
+
+ if (uses_fd) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_message_set_unix_fd_list"));
+ ccall.add_argument (new CCodeIdentifier ("_reply_message"));
+ ccall.add_argument (new CCodeIdentifier ("_fd_list"));
+ ccode.add_expression (ccall);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ ccall.add_argument (new CCodeIdentifier ("_fd_list"));
+ ccode.add_expression (ccall);
+ }
+ } else {
+ ccode.add_expression (ccall);
+ }
+
+ if (!no_reply && (!m.coroutine || ready)) {
+ var return_value = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_send_message"));
+ return_value.add_argument (connection);
+ return_value.add_argument (new CCodeIdentifier ("_reply_message"));
+ return_value.add_argument (new CCodeConstant ("G_DBUS_SEND_MESSAGE_FLAGS_NONE"));
+ return_value.add_argument (new CCodeConstant ("NULL"));
+ return_value.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (return_value);
+
+ // free invocation like g_dbus_method_invocation_return_*
+ var unref_call = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_call.add_argument (new CCodeIdentifier ("invocation"));
+ ccode.add_expression (unref_call);
+
+ unref_call = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_call.add_argument (new CCodeIdentifier ("_reply_message"));
+ ccode.add_expression (unref_call);
+ }
+
+ if (need_goto_label) {
+ ccode.add_label ("_error");
+ }
+
+ foreach (Parameter param in m.get_parameters ()) {
+ if ((param.direction == ParameterDirection.IN && (ready_data_expr == null || ready)) ||
+ (param.direction == ParameterDirection.OUT && !no_reply && (!m.coroutine || ready))) {
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.Cancellable") {
+ continue;
+ }
+
+ if (param.variable_type is ObjectType && param.variable_type.type_symbol.get_full_name () == "GLib.BusName") {
+ // ignore BusName sender parameters
+ continue;
+ }
+
+ var owned_type = param.variable_type.copy ();
+ owned_type.value_owned = true;
+
+ if (requires_destroy (owned_type)) {
+ if (ready_data_expr != null && param.direction == ParameterDirection.IN) {
+ var target = new GLibValue (owned_type, new CCodeMemberAccess.pointer (ready_data_expr, param.name), true);
+
+ var array_type = owned_type as ArrayType;
+ if (array_type != null) {
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_variable_array_length_cname (param, dim);
+
+ target.append_array_length_cvalue (new CCodeMemberAccess.pointer (ready_data_expr, length_cname));
+ }
+ }
+
+ ccode.add_expression (destroy_value (target));
+ } else {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (owned_type, get_variable_cname (param.name));
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+ }
+ }
+
+ if (ready) {
+ var freecall = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_free"));
+ freecall.add_argument (new CCodeIdentifier (ready_data_struct_name));
+ freecall.add_argument (ready_data_expr);
+ ccode.add_expression (freecall);
+ } else if (need_goto_label) {
+ ccode.add_statement (new CCodeEmptyStatement ());
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ if (m.coroutine && !ready) {
+ // generate ready function
+ generate_dbus_wrapper (m, sym, true);
+ }
+
+ return wrapper_name;
+ }
+
+ string generate_dbus_signal_wrapper (Signal sig, ObjectTypeSymbol sym, string dbus_iface_name) {
+ string wrapper_name = "_dbus_%s_%s".printf (get_ccode_lower_case_name (sym), get_ccode_lower_case_name (sig));
+
+ var function = new CCodeFunction (wrapper_name, "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("_sender", "GObject*"));
+
+ foreach (var param in sig.get_parameters ()) {
+ // ensure ccodenode of parameter is set
+ var cparam = generate_parameter (param, cfile, new HashMap<int,CCodeParameter> (), null);
+
+ function.add_parameter (cparam);
+ if (param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ function.add_parameter (new CCodeParameter (get_variable_array_length_cname (param, dim), length_ctype));
+ }
+ }
+ }
+
+ function.add_parameter (new CCodeParameter ("_data", "gpointer*"));
+
+ push_function (function);
+
+ ccode.add_declaration ("GDBusConnection *", new CCodeVariableDeclarator ("_connection", new CCodeElementAccess (new CCodeIdentifier ("_data"), new CCodeConstant ("1"))));
+ ccode.add_declaration ("const gchar *", new CCodeVariableDeclarator ("_path", new CCodeElementAccess (new CCodeIdentifier ("_data"), new CCodeConstant ("2"))));
+ ccode.add_declaration ("GVariant", new CCodeVariableDeclarator ("*_arguments"));
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator ("_arguments_builder"));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ builder_init.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (builder_init);
+
+ foreach (Parameter param in sig.get_parameters ()) {
+ string param_name = get_variable_cname (param.name);
+ CCodeExpression expr = new CCodeIdentifier (param_name);
+ if (param.variable_type.is_real_struct_type ()) {
+ expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, expr);
+ }
+ write_expression (param.variable_type, new CCodeIdentifier ("_arguments_builder"), expr, param);
+ }
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("_arguments_builder")));
+ ccode.add_assignment (new CCodeIdentifier ("_arguments"), builder_end);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_emit_signal"));
+ ccall.add_argument (new CCodeIdentifier ("_connection"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccall.add_argument (new CCodeIdentifier ("_path"));
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (dbus_iface_name)));
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (sig))));
+ ccall.add_argument (new CCodeIdentifier ("_arguments"));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (ccall);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return wrapper_name;
+ }
+
+ string generate_dbus_property_get_wrapper (Property prop, ObjectTypeSymbol sym) {
+ string wrapper_name = "_dbus_%s".printf (get_ccode_name (prop.get_accessor));
+
+ var function = new CCodeFunction (wrapper_name, "GVariant*");
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (sym) + "*"));
+
+ push_function (function);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (prop.get_accessor)));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+
+ if (prop.get_accessor.value_type.is_real_non_null_struct_type ()) {
+ ccode.add_declaration (get_ccode_name (prop.get_accessor.value_type), new CCodeVariableDeclarator.zero ("result", default_value_for_type (prop.get_accessor.value_type, true)));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("result")));
+
+ ccode.add_expression (ccall);
+ } else {
+ ccode.add_declaration (get_ccode_name (prop.get_accessor.value_type), new CCodeVariableDeclarator ("result"));
+ ccode.add_assignment (new CCodeIdentifier ("result"), ccall);
+
+ var array_type = prop.get_accessor.value_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ string length_cname = get_array_length_cname ("result", dim);
+
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator.zero (length_cname, new CCodeConstant ("0")));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (length_cname)));
+ }
+ }
+ }
+
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator ("_reply"));
+
+ if (get_dbus_signature (prop) != null) {
+ // raw GVariant
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), new CCodeIdentifier("result"));
+ } else {
+ var reply_expr = serialize_expression (prop.get_accessor.value_type, new CCodeIdentifier ("result"));
+
+ ccode.add_assignment (new CCodeIdentifier ("_reply"), reply_expr);
+
+ if (requires_destroy (prop.get_accessor.value_type)) {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (prop.get_accessor.value_type, ".result");
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ ccode.add_return (new CCodeIdentifier ("_reply"));
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return wrapper_name;
+ }
+
+ string generate_dbus_property_set_wrapper (Property prop, ObjectTypeSymbol sym) {
+ string wrapper_name = "_dbus_%s".printf (get_ccode_name (prop.set_accessor));
+
+ var function = new CCodeFunction (wrapper_name);
+ function.modifiers = CCodeModifiers.STATIC;
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (sym) + "*"));
+ function.add_parameter (new CCodeParameter ("_value", "GVariant*"));
+
+ push_function (function);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_name (prop.set_accessor)));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+
+ var owned_type = prop.property_type.copy ();
+ owned_type.value_owned = true;
+
+ ccode.add_declaration (get_ccode_name (owned_type), new CCodeVariableDeclarator.zero ("value", default_value_for_type (prop.property_type, true)));
+
+ unowned Struct? st = prop.property_type.type_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("value")));
+ } else {
+ ccall.add_argument (new CCodeIdentifier ("value"));
+
+ var array_type = prop.property_type as ArrayType;
+ if (array_type != null) {
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator (get_array_length_cname ("value", dim)));
+ ccall.add_argument (new CCodeIdentifier (get_array_length_cname ("value", dim)));
+ }
+ }
+ }
+
+ var target = new CCodeIdentifier ("value");
+
+ if (get_dbus_signature (prop) != null) {
+ ccode.add_assignment (target, new CCodeIdentifier("_value"));
+ ccode.add_expression (ccall);
+ } else {
+ var expr = deserialize_expression (prop.property_type, new CCodeIdentifier ("_value"), target);
+ ccode.add_assignment (target, expr);
+ ccode.add_expression (ccall);
+
+ if (requires_destroy (owned_type)) {
+ // keep local alive (symbol_reference is weak)
+ var local = new LocalVariable (owned_type, "value");
+ ccode.add_expression (destroy_local (local));
+ }
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return wrapper_name;
+ }
+
+ void handle_signals (ObjectTypeSymbol sym, bool connect) {
+ string dbus_iface_name = get_dbus_name (sym);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ foreach (Signal sig in sym.get_signals ()) {
+ if (sig.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (sig)) {
+ continue;
+ }
+
+ if (connect) {
+ var connect_call = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_connect"));
+ connect_call.add_argument (new CCodeIdentifier ("object"));
+ connect_call.add_argument (get_signal_canonical_constant (sig));
+ connect_call.add_argument (new CCodeCastExpression (new CCodeIdentifier (generate_dbus_signal_wrapper (sig, sym, dbus_iface_name)), "GCallback"));
+ connect_call.add_argument (new CCodeIdentifier ("data"));
+ ccode.add_expression (connect_call);
+ } else {
+ // disconnect the signals
+ var disconnect_call = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_handlers_disconnect_by_func"));
+ disconnect_call.add_argument (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0")));
+ disconnect_call.add_argument (new CCodeIdentifier ("_dbus_%s_%s".printf (get_ccode_lower_case_name (sym), get_ccode_lower_case_name (sig))));
+ disconnect_call.add_argument (new CCodeIdentifier ("data"));
+ ccode.add_expression (disconnect_call);
+ }
+ }
+ }
+
+ void generate_interface_method_call_function (ObjectTypeSymbol sym) {
+ var cfunc = new CCodeFunction (get_ccode_lower_case_prefix (sym) + "dbus_interface_method_call", "void");
+ cfunc.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ cfunc.add_parameter (new CCodeParameter ("sender", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("object_path", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("interface_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("method_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("parameters", "GVariant*"));
+ cfunc.add_parameter (new CCodeParameter ("invocation", "GDBusMethodInvocation*"));
+ cfunc.add_parameter (new CCodeParameter ("user_data", "gpointer"));
+
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+
+ push_function (cfunc);
+
+ ccode.add_declaration ("gpointer*", new CCodeVariableDeclarator ("data", new CCodeIdentifier ("user_data")));
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("object", new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0"))));
+
+ bool first = true;
+
+ foreach (Method m in sym.get_methods ()) {
+ if (m is CreationMethod || m.binding != MemberBinding.INSTANCE
+ || m.overrides || m.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (m)) {
+ continue;
+ }
+
+ cfile.add_include ("string.h");
+
+ var ccheck = new CCodeFunctionCall (new CCodeIdentifier ("strcmp"));
+ ccheck.add_argument (new CCodeIdentifier ("method_name"));
+ ccheck.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (m))));
+
+ if (first) {
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccheck, new CCodeConstant ("0")));
+ first = false;
+ } else {
+ ccode.else_if (new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccheck, new CCodeConstant ("0")));
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_dbus_wrapper (m, sym)));
+ ccall.add_argument (new CCodeIdentifier ("object"));
+ ccall.add_argument (new CCodeIdentifier ("parameters"));
+ ccall.add_argument (new CCodeIdentifier ("invocation"));
+ ccode.add_expression (ccall);
+ }
+
+ if (!first) {
+ ccode.add_else ();
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ ccall.add_argument (new CCodeIdentifier ("invocation"));
+ ccode.add_expression (ccall);
+
+ if (!first) {
+ ccode.close ();
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (cfunc);
+ cfile.add_function (cfunc);
+ }
+
+ void generate_interface_get_property_function (ObjectTypeSymbol sym) {
+ var cfunc = new CCodeFunction (get_ccode_lower_case_prefix (sym) + "dbus_interface_get_property", "GVariant*");
+ cfunc.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ cfunc.add_parameter (new CCodeParameter ("sender", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("object_path", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("interface_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("property_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("error", "GError**"));
+ cfunc.add_parameter (new CCodeParameter ("user_data", "gpointer"));
+
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+
+ cfile.add_function_declaration (cfunc);
+
+ push_function (cfunc);
+
+ ccode.add_declaration ("gpointer*", new CCodeVariableDeclarator ("data", new CCodeIdentifier ("user_data")));
+
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("object", new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0"))));
+
+ bool firstif = true;
+
+ foreach (Property prop in sym.get_properties ()) {
+ if (prop.binding != MemberBinding.INSTANCE
+ || prop.overrides || prop.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (prop)) {
+ continue;
+ }
+ if (prop.get_accessor == null) {
+ continue;
+ }
+
+ cfile.add_include ("string.h");
+
+ var ccheck = new CCodeFunctionCall (new CCodeIdentifier ("strcmp"));
+ ccheck.add_argument (new CCodeIdentifier ("property_name"));
+ ccheck.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))));
+
+ var cond = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccheck, new CCodeConstant ("0"));
+ if (firstif) {
+ ccode.open_if (cond);
+ firstif = false;
+ } else {
+ ccode.else_if (cond);
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_dbus_property_get_wrapper (prop, sym)));
+ ccall.add_argument (new CCodeIdentifier ("object"));
+
+ ccode.add_return (ccall);
+ }
+ if (!firstif) {
+ ccode.close ();
+ }
+
+ ccode.add_return (new CCodeConstant ("NULL"));
+
+ pop_function ();
+ cfile.add_function (cfunc);
+ }
+
+ void generate_interface_set_property_function (ObjectTypeSymbol sym) {
+ var cfunc = new CCodeFunction (get_ccode_lower_case_prefix (sym) + "dbus_interface_set_property", "gboolean");
+ cfunc.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ cfunc.add_parameter (new CCodeParameter ("sender", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("object_path", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("interface_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("property_name", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("value", "GVariant*"));
+ cfunc.add_parameter (new CCodeParameter ("error", "GError**"));
+ cfunc.add_parameter (new CCodeParameter ("user_data", "gpointer"));
+
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+
+ cfile.add_function_declaration (cfunc);
+
+ push_function (cfunc);
+
+ ccode.add_declaration ("gpointer*", new CCodeVariableDeclarator ("data", new CCodeIdentifier ("user_data")));
+
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("object", new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0"))));
+
+ bool firstif = true;
+
+ foreach (Property prop in sym.get_properties ()) {
+ if (prop.binding != MemberBinding.INSTANCE
+ || prop.overrides || prop.access != SymbolAccessibility.PUBLIC) {
+ continue;
+ }
+ if (!is_dbus_visible (prop)) {
+ continue;
+ }
+ if (prop.set_accessor == null) {
+ continue;
+ }
+
+ cfile.add_include ("string.h");
+
+ var ccheck = new CCodeFunctionCall (new CCodeIdentifier ("strcmp"));
+ ccheck.add_argument (new CCodeIdentifier ("property_name"));
+ ccheck.add_argument (new CCodeConstant ("\"%s\"".printf (get_dbus_name_for_member (prop))));
+
+ var cond = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, ccheck, new CCodeConstant ("0"));
+ if (firstif) {
+ ccode.open_if (cond);
+ firstif = false;
+ } else {
+ ccode.else_if (cond);
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (generate_dbus_property_set_wrapper (prop, sym)));
+ ccall.add_argument (new CCodeIdentifier ("object"));
+ ccall.add_argument (new CCodeIdentifier ("value"));
+
+ ccode.add_expression (ccall);
+ ccode.add_return (new CCodeConstant ("TRUE"));
+ }
+ if (!firstif) {
+ ccode.close ();
+ }
+ ccode.add_return (new CCodeConstant ("FALSE"));
+
+ pop_function ();
+ cfile.add_function (cfunc);
+ }
+
+ CCodeExpression get_interface_vtable (ObjectTypeSymbol sym) {
+ var vtable = new CCodeInitializerList ();
+ vtable.append (new CCodeIdentifier (get_ccode_lower_case_prefix (sym) + "dbus_interface_method_call"));
+ vtable.append (new CCodeIdentifier (get_ccode_lower_case_prefix (sym) + "dbus_interface_get_property"));
+ vtable.append (new CCodeIdentifier (get_ccode_lower_case_prefix (sym) + "dbus_interface_set_property"));
+
+ generate_interface_method_call_function (sym);
+ generate_interface_get_property_function (sym);
+ generate_interface_set_property_function (sym);
+
+ var cdecl = new CCodeDeclaration ("const GDBusInterfaceVTable");
+ cdecl.add_declarator (new CCodeVariableDeclarator ("_" + get_ccode_lower_case_prefix (sym) + "dbus_interface_vtable", vtable));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_constant_declaration (cdecl);
+
+ return new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "dbus_interface_vtable");
+ }
+
+ string generate_register_object_function () {
+ string register_object_func = "_vala_g_dbus_connection_register_object";
+
+ if (!add_wrapper (register_object_func)) {
+ return register_object_func;
+ }
+
+ cfile.add_include ("gio/gio.h");
+
+ var function = new CCodeFunction (register_object_func, "guint");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("type", "GType"));
+ function.add_parameter (new CCodeParameter ("object", "void*"));
+ function.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ function.add_parameter (new CCodeParameter ("path", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("error", "GError**"));
+
+ push_function (function);
+
+ var quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-register-object\""));
+
+ var get_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_get_qdata"));
+ get_qdata.add_argument (new CCodeIdentifier ("type"));
+ get_qdata.add_argument (quark);
+
+ ccode.add_declaration ("void", new CCodeVariableDeclarator ("*func"));
+ ccode.add_assignment (new CCodeIdentifier ("func"), get_qdata);
+
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("func")));
+ // no D-Bus interface
+ // return error
+
+ var set_error = new CCodeFunctionCall (new CCodeIdentifier ("g_set_error_literal"));
+ set_error.add_argument (new CCodeIdentifier ("error"));
+ set_error.add_argument (new CCodeIdentifier ("G_IO_ERROR"));
+ set_error.add_argument (new CCodeIdentifier ("G_IO_ERROR_FAILED"));
+ set_error.add_argument (new CCodeConstant ("\"The specified type does not support D-Bus registration\""));
+ ccode.add_expression (set_error);
+
+ ccode.add_return (new CCodeConstant ("0"));
+
+ ccode.close ();
+
+ var register_object = new CCodeCastExpression (new CCodeIdentifier ("func"), "guint (*) (void *, GDBusConnection *, const gchar *, GError **)");
+
+ var ccall = new CCodeFunctionCall (register_object);
+ ccall.add_argument (new CCodeIdentifier ("object"));
+ ccall.add_argument (new CCodeIdentifier ("connection"));
+ ccall.add_argument (new CCodeIdentifier ("path"));
+ ccall.add_argument (new CCodeIdentifier ("error"));
+
+ ccode.add_return (ccall);
+
+ pop_function ();
+
+ cfile.add_function_declaration (function);
+ cfile.add_function (function);
+
+ return register_object_func;
+ }
+
+ public override void visit_method_call (MethodCall expr) {
+ var mtype = expr.call.value_type as MethodType;
+ if (mtype == null || get_ccode_name (mtype.method_symbol) != "g_dbus_connection_register_object") {
+ base.visit_method_call (expr);
+ return;
+ }
+
+ var ma = (MemberAccess) expr.call;
+ var type_arg = ma.get_type_arguments ().get (0);
+
+ CCodeFunctionCall cregister;
+
+ var object_type = type_arg as ObjectType;
+ if (object_type != null) {
+ if (get_dbus_name (object_type.type_symbol) == null) {
+ Report.error (expr.source_reference, "DBusConnection.register_object requires type argument with [DBus (name = ...)] attribute");
+ return;
+ }
+
+ cregister = new CCodeFunctionCall (new CCodeIdentifier ("%sregister_object".printf (get_ccode_lower_case_prefix (object_type.type_symbol))));
+ } else {
+ // use runtime type information for generic methods
+ cregister = new CCodeFunctionCall (new CCodeIdentifier (generate_register_object_function ()));
+ cregister.add_argument (get_type_id_expression (type_arg));
+ }
+
+ var args = expr.get_argument_list ();
+ var path_arg = args[0];
+ var obj_arg = args[1];
+
+ // method can fail
+ current_method_inner_error = true;
+
+ cregister.add_argument (get_cvalue (obj_arg));
+ cregister.add_argument (get_cvalue (ma.inner));
+ cregister.add_argument (get_cvalue (path_arg));
+ cregister.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+
+ if (expr.parent_node is ExpressionStatement) {
+ ccode.add_expression (cregister);
+ } else {
+ var temp_var = get_temp_variable (expr.value_type, expr.value_type.value_owned);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccode.add_assignment (temp_ref, cregister);
+ set_cvalue (expr, temp_ref);
+ }
+ }
+
+ public override void generate_class_declaration (Class cl, CCodeFile decl_space) {
+ base.generate_class_declaration (cl, decl_space);
+
+ generate_object_type_symbol_declaration (cl, decl_space);
+ }
+
+ public override void generate_interface_declaration (Interface iface, CCodeFile decl_space) {
+ base.generate_interface_declaration (iface, decl_space);
+
+ generate_object_type_symbol_declaration (iface, decl_space);
+ }
+
+ public override void visit_class (Class cl) {
+ base.visit_class (cl);
+
+ visit_object_type_symbol (cl);
+ }
+
+ public override void visit_interface (Interface iface) {
+ base.visit_interface (iface);
+
+ visit_object_type_symbol (iface);
+ }
+
+ void generate_object_type_symbol_declaration (ObjectTypeSymbol sym, CCodeFile decl_space) {
+ string dbus_iface_name = get_dbus_name (sym);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ string register_object_name = "%sregister_object".printf (get_ccode_lower_case_prefix (sym));
+
+ if (add_symbol_declaration (decl_space, sym, register_object_name)) {
+ return;
+ }
+
+ decl_space.add_include ("gio/gio.h");
+
+ // declare register_object function
+ var cfunc = new CCodeFunction (register_object_name, "guint");
+ cfunc.add_parameter (new CCodeParameter ("object", "void*"));
+ cfunc.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ cfunc.add_parameter (new CCodeParameter ("path", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("error", "GError**"));
+ if (sym.is_private_symbol ()) {
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && sym.is_internal_symbol ()) {
+ cfunc.modifiers |= CCodeModifiers.INTERNAL;
+ } else {
+ cfunc.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+ decl_space.add_function_declaration (cfunc);
+ }
+
+ void visit_object_type_symbol (ObjectTypeSymbol sym) {
+ // only support registering a single D-Bus interface at a time (unlike old D-Bus support)
+ // however, register_object can be invoked multiple times for the same object path with different interfaces
+ string dbus_iface_name = get_dbus_name (sym);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ cfile.add_include ("gio/gio.h");
+
+ var cfunc = new CCodeFunction (get_ccode_lower_case_prefix (sym) + "register_object", "guint");
+ cfunc.add_parameter (new CCodeParameter ("object", "gpointer"));
+ cfunc.add_parameter (new CCodeParameter ("connection", "GDBusConnection*"));
+ cfunc.add_parameter (new CCodeParameter ("path", "const gchar*"));
+ cfunc.add_parameter (new CCodeParameter ("error", "GError**"));
+ if (sym.is_private_symbol ()) {
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+ } else if (context.hide_internal && sym.is_internal_symbol ()) {
+ cfunc.modifiers |= CCodeModifiers.INTERNAL;
+ }
+
+ push_function (cfunc);
+
+ ccode.add_declaration ("guint", new CCodeVariableDeclarator ("result"));
+
+
+ // data consists of 3 pointers: object, connection, path
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("*data"));
+
+ var alloc_data = new CCodeFunctionCall (new CCodeIdentifier ("g_new"));
+ alloc_data.add_argument (new CCodeIdentifier ("gpointer"));
+ alloc_data.add_argument (new CCodeConstant ("3"));
+ ccode.add_assignment (new CCodeIdentifier ("data"), alloc_data);
+
+ var ref_function = get_ccode_ref_function (sym);
+ if (sym is Interface && ref_function == null) {
+ Report.error (sym.source_reference, "missing class prerequisite for interface `%s', add GLib.Object to interface declaration if unsure", sym.get_full_name ());
+ return;
+ }
+
+ var ref_object = new CCodeFunctionCall (new CCodeIdentifier (ref_function));
+ ref_object.add_argument (new CCodeIdentifier ("object"));
+ ccode.add_assignment (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0")), ref_object);
+
+ ref_object = new CCodeFunctionCall (new CCodeIdentifier ("g_object_ref"));
+ ref_object.add_argument (new CCodeIdentifier ("connection"));
+ ccode.add_assignment (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("1")), ref_object);
+
+ var dup_path = new CCodeFunctionCall (new CCodeIdentifier ("g_strdup"));
+ dup_path.add_argument (new CCodeIdentifier ("path"));
+ ccode.add_assignment (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("2")), dup_path);
+
+
+ var cregister = new CCodeFunctionCall (new CCodeIdentifier ("g_dbus_connection_register_object"));
+ cregister.add_argument (new CCodeIdentifier ("connection"));
+ cregister.add_argument (new CCodeIdentifier ("path"));
+
+ cregister.add_argument (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_interface_info (sym)), "GDBusInterfaceInfo *"));
+ cregister.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_interface_vtable (sym)));
+
+ cregister.add_argument (new CCodeIdentifier ("data"));
+ cregister.add_argument (new CCodeIdentifier ("_" + get_ccode_lower_case_prefix (sym) + "unregister_object"));
+ cregister.add_argument (new CCodeIdentifier ("error"));
+
+ ccode.add_assignment (new CCodeIdentifier ("result"), cregister);
+
+ ccode.open_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("result")));
+ ccode.add_return (new CCodeConstant ("0"));
+ ccode.close ();
+
+ handle_signals (sym, true);
+
+ ccode.add_return (new CCodeIdentifier ("result"));
+
+ pop_function ();
+ cfile.add_function (cfunc);
+
+
+ cfunc = new CCodeFunction ("_" + get_ccode_lower_case_prefix (sym) + "unregister_object");
+ cfunc.add_parameter (new CCodeParameter ("user_data", "gpointer"));
+ cfunc.modifiers |= CCodeModifiers.STATIC;
+
+ push_function (cfunc);
+
+ ccode.add_declaration ("gpointer*", new CCodeVariableDeclarator ("data", new CCodeIdentifier ("user_data")));
+
+ handle_signals (sym, false);
+
+ var unref_object = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_unref_function (sym)));
+ unref_object.add_argument (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("0")));
+ ccode.add_expression (unref_object);
+
+ unref_object = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref_object.add_argument (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("1")));
+ ccode.add_expression (unref_object);
+
+ var free_path = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ free_path.add_argument (new CCodeElementAccess (new CCodeIdentifier ("data"), new CCodeConstant ("2")));
+ ccode.add_expression (free_path);
+
+ var free_data = new CCodeFunctionCall (new CCodeIdentifier ("g_free"));
+ free_data.add_argument (new CCodeIdentifier ("data"));
+ ccode.add_expression (free_data);
+
+ pop_function ();
+ cfile.add_function_declaration (cfunc);
+ cfile.add_function (cfunc);
+ }
+
+ public override void register_dbus_info (CCodeBlock block, ObjectTypeSymbol sym) {
+ string dbus_iface_name = get_dbus_name (sym);
+ if (dbus_iface_name == null) {
+ return;
+ }
+
+ base.register_dbus_info (block, sym);
+
+ var quark = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ quark.add_argument (new CCodeConstant ("\"vala-dbus-register-object\""));
+
+ var set_qdata = new CCodeFunctionCall (new CCodeIdentifier ("g_type_set_qdata"));
+ set_qdata.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (sym, null))));
+ set_qdata.add_argument (quark);
+ set_qdata.add_argument (new CCodeCastExpression (new CCodeIdentifier (get_ccode_lower_case_prefix (sym) + "register_object"), "void*"));
+
+ block.add_statement (new CCodeExpressionStatement (set_qdata));
+ }
+}
--- /dev/null
+/* valagerrormodule.vala
+ *
+ * Copyright (C) 2008-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Thijs Vermeir <thijsvermeir@gmail.com>
+ */
+
+using GLib;
+
+public class Vala.GErrorModule : CCodeDelegateModule {
+ private bool is_in_catch = false;
+
+ public override void generate_error_domain_declaration (ErrorDomain edomain, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, edomain, get_ccode_name (edomain))) {
+ return;
+ }
+
+ generate_type_declaration (gquark_type, decl_space);
+
+ var cenum = new CCodeEnum (get_ccode_name (edomain));
+
+ foreach (ErrorCode ecode in edomain.get_codes ()) {
+ if (ecode.value == null) {
+ cenum.add_value (new CCodeEnumValue (get_ccode_name (ecode)));
+ } else {
+ ecode.value.emit (this);
+ cenum.add_value (new CCodeEnumValue (get_ccode_name (ecode), get_cvalue (ecode.value)));
+ }
+ }
+
+ decl_space.add_type_definition (cenum);
+
+ string quark_fun_name = get_ccode_lower_case_prefix (edomain) + "quark";
+
+ var error_domain_define = new CCodeMacroReplacement (get_ccode_upper_case_name (edomain), quark_fun_name + " ()");
+ decl_space.add_type_definition (error_domain_define);
+
+ var cquark_fun = new CCodeFunction (quark_fun_name, get_ccode_name (gquark_type.type_symbol));
+ cquark_fun.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+
+ decl_space.add_function_declaration (cquark_fun);
+ }
+
+ public override void visit_error_domain (ErrorDomain edomain) {
+ if (edomain.comment != null) {
+ cfile.add_type_definition (new CCodeComment (edomain.comment.content));
+ }
+
+ generate_error_domain_declaration (edomain, cfile);
+
+ if (!edomain.is_internal_symbol ()) {
+ generate_error_domain_declaration (edomain, header_file);
+ }
+ if (!edomain.is_private_symbol ()) {
+ generate_error_domain_declaration (edomain, internal_header_file);
+ }
+
+ edomain.accept_children (this);
+
+ string quark_fun_name = get_ccode_lower_case_prefix (edomain) + "quark";
+
+ var cquark_fun = new CCodeFunction (quark_fun_name, get_ccode_name (gquark_type.type_symbol));
+ push_function (cquark_fun);
+
+ var cquark_call = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ cquark_call.add_argument (new CCodeConstant ("\"" + get_ccode_quark_name (edomain) + "\""));
+
+ ccode.add_return (cquark_call);
+
+ pop_function ();
+ cfile.add_function (cquark_fun);
+ }
+
+ public override void visit_throw_statement (ThrowStatement stmt) {
+ // method will fail
+ current_method_inner_error = true;
+ ccode.add_assignment (get_inner_error_cexpression (), get_cvalue (stmt.error_expression));
+
+ add_simple_check (stmt, true);
+ }
+
+ public virtual void return_with_exception (CCodeExpression error_expr) {
+ var cpropagate = new CCodeFunctionCall (new CCodeIdentifier ("g_propagate_error"));
+ cpropagate.add_argument (new CCodeIdentifier ("error"));
+ cpropagate.add_argument (error_expr);
+
+ ccode.add_expression (cpropagate);
+
+ // free local variables
+ append_local_free (current_symbol);
+
+ // free possibly already assigned out-parameter
+ append_out_param_free (current_method);
+
+ if (current_method is CreationMethod && current_method.parent_symbol is Class) {
+ var cl = (Class) current_method.parent_symbol;
+ ccode.add_expression (destroy_value (new GLibValue (new ObjectType (cl), new CCodeIdentifier ("self"), true)));
+ ccode.add_return (new CCodeConstant ("NULL"));
+ } else if (is_in_coroutine ()) {
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ } else {
+ return_default_value (current_return_type, true);
+ }
+ }
+
+ void uncaught_error_statement (CCodeExpression inner_error, bool unexpected = false, CodeNode? start_at = null) {
+ // free local variables
+ if (start_at is TryStatement) {
+ append_local_free (start_at.parent_node as Block);
+ } else {
+ append_local_free (current_symbol);
+ }
+
+ // free possibly already assigned out-parameter
+ append_out_param_free (current_method);
+
+ cfile.add_include ("glib.h");
+
+ var ccritical = new CCodeFunctionCall (new CCodeIdentifier ("g_critical"));
+ ccritical.add_argument (new CCodeConstant (unexpected ? "\"file %s: line %d: unexpected error: %s (%s, %d)\"" : "\"file %s: line %d: uncaught error: %s (%s, %d)\""));
+ ccritical.add_argument (new CCodeConstant ("__FILE__"));
+ ccritical.add_argument (new CCodeConstant ("__LINE__"));
+ ccritical.add_argument (new CCodeMemberAccess.pointer (inner_error, "message"));
+ var domain_name = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_to_string"));
+ domain_name.add_argument (new CCodeMemberAccess.pointer (inner_error, "domain"));
+ ccritical.add_argument (domain_name);
+ ccritical.add_argument (new CCodeMemberAccess.pointer (inner_error, "code"));
+
+ var cclear = new CCodeFunctionCall (new CCodeIdentifier ("g_clear_error"));
+ cclear.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, inner_error));
+
+ // print critical message
+ ccode.add_expression (ccritical);
+ ccode.add_expression (cclear);
+
+ if (is_in_constructor () || is_in_destructor ()) {
+ // just print critical, do not return prematurely
+ } else if (current_method is CreationMethod) {
+ if (current_method.parent_symbol is Struct) {
+ ccode.add_return ();
+ } else {
+ ccode.add_return (new CCodeConstant ("NULL"));
+ }
+ } else if (is_in_coroutine ()) {
+ var unref = new CCodeFunctionCall (new CCodeIdentifier ("g_object_unref"));
+ unref.add_argument (get_variable_cexpression ("_async_result"));
+ ccode.add_expression (unref);
+ ccode.add_return (new CCodeConstant ("FALSE"));
+ } else if (current_return_type != null) {
+ return_default_value (current_return_type, true);
+ }
+ }
+
+ bool in_finally_block (CodeNode node) {
+ var current_node = node;
+ while (current_node != null) {
+ var try_stmt = current_node.parent_node as TryStatement;
+ if (try_stmt != null && try_stmt.finally_body == current_node) {
+ return true;
+ }
+ current_node = current_node.parent_node;
+ }
+ return false;
+ }
+
+ public override void add_simple_check (CodeNode node, bool always_fails = false) {
+ current_method_inner_error = true;
+
+ if (always_fails) {
+ // inner_error is always set, avoid unnecessary if statement
+ // eliminates C warnings
+ } else {
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, get_inner_error_cexpression (), new CCodeConstant ("NULL"));
+ var unlikely = new CCodeFunctionCall (new CCodeIdentifier ("G_UNLIKELY"));
+ unlikely.add_argument (ccond);
+ ccode.open_if (unlikely);
+ }
+
+ if (current_try != null) {
+ // surrounding try found
+
+ // free local variables
+ if (is_in_catch) {
+ append_local_free (current_symbol, null, current_catch);
+ } else {
+ append_local_free (current_symbol, null, current_try);
+ }
+
+ var error_types = new ArrayList<DataType> ();
+ node.get_error_types (error_types);
+
+ bool has_general_catch_clause = false;
+
+ if (!is_in_catch) {
+ var handled_error_types = new ArrayList<DataType> ();
+ foreach (CatchClause clause in current_try.get_catch_clauses ()) {
+ // keep track of unhandled error types
+ foreach (DataType node_error_type in error_types) {
+ if (clause.error_type == null || node_error_type.compatible (clause.error_type)) {
+ handled_error_types.add (node_error_type);
+ }
+ }
+ foreach (DataType handled_error_type in handled_error_types) {
+ error_types.remove (handled_error_type);
+ }
+ handled_error_types.clear ();
+
+ if (clause.error_type.equals (gerror_type)) {
+ // general catch clause, this should be the last one
+ has_general_catch_clause = true;
+ ccode.add_goto (clause.get_attribute_string ("CCode", "cname"));
+ break;
+ } else {
+ unowned ErrorType catch_type = (ErrorType) clause.error_type;
+
+ if (catch_type.error_code != null) {
+ /* catch clause specifies a specific error code */
+ var error_match = new CCodeFunctionCall (new CCodeIdentifier ("g_error_matches"));
+ error_match.add_argument (get_inner_error_cexpression ());
+ error_match.add_argument (new CCodeIdentifier (get_ccode_upper_case_name (catch_type.error_domain)));
+ error_match.add_argument (new CCodeIdentifier (get_ccode_name (catch_type.error_code)));
+
+ ccode.open_if (error_match);
+ } else {
+ /* catch clause specifies a full error domain */
+ var ccond = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY,
+ new CCodeMemberAccess.pointer (get_inner_error_cexpression (), "domain"), new CCodeIdentifier
+ (get_ccode_upper_case_name (catch_type.error_domain)));
+
+ ccode.open_if (ccond);
+ }
+
+ // go to catch clause if error domain matches
+ ccode.add_goto (clause.get_attribute_string ("CCode", "cname"));
+ ccode.close ();
+ }
+ }
+ }
+
+ if (has_general_catch_clause) {
+ // every possible error is already caught
+ // as there is a general catch clause
+ // no need to do anything else
+ } else if (error_types.size > 0) {
+ // go to finally clause if no catch clause matches
+ // and there are still unhandled error types
+ ccode.add_goto ("__finally%d".printf (current_try_id));
+ } else if (in_finally_block (node)) {
+ // do not check unexpected errors happening within finally blocks
+ // as jump out of finally block is not supported
+ } else {
+ // should never happen with correct bindings
+ uncaught_error_statement (get_inner_error_cexpression (), true, current_try);
+ }
+ } else if (current_method != null && current_method.tree_can_fail) {
+ // current method can fail, propagate error
+ CCodeBinaryExpression ccond = null;
+
+ var error_types = new ArrayList<DataType> ();
+ current_method.get_error_types (error_types);
+ foreach (DataType error_type in error_types) {
+ // If GLib.Error is allowed we propagate everything
+ if (error_type.equals (gerror_type)) {
+ ccond = null;
+ break;
+ }
+
+ // Check the allowed error domains to propagate
+ var domain_check = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeMemberAccess.pointer
+ (get_inner_error_cexpression (), "domain"), new CCodeIdentifier (get_ccode_upper_case_name (((ErrorType) error_type).error_domain)));
+ if (ccond == null) {
+ ccond = domain_check;
+ } else {
+ ccond = new CCodeBinaryExpression (CCodeBinaryOperator.OR, ccond, domain_check);
+ }
+ }
+
+ if (ccond != null) {
+ ccode.open_if (ccond);
+ return_with_exception (get_inner_error_cexpression ());
+
+ ccode.add_else ();
+ uncaught_error_statement (get_inner_error_cexpression ());
+ ccode.close ();
+ } else {
+ return_with_exception (get_inner_error_cexpression ());
+ }
+ } else {
+ uncaught_error_statement (get_inner_error_cexpression ());
+ }
+
+ if (!always_fails) {
+ ccode.close ();
+ }
+ }
+
+ public override void visit_try_statement (TryStatement stmt) {
+ int this_try_id = next_try_id++;
+
+ var old_try = current_try;
+ var old_try_id = current_try_id;
+ var old_is_in_catch = is_in_catch;
+ var old_catch = current_catch;
+ current_try = stmt;
+ current_try_id = this_try_id;
+ is_in_catch = true;
+
+ foreach (CatchClause clause in stmt.get_catch_clauses ()) {
+ clause.set_attribute_string ("CCode", "cname", "__catch%d_%s".printf (this_try_id, get_ccode_lower_case_name (clause.error_type)));
+ }
+
+ is_in_catch = false;
+ stmt.body.emit (this);
+ is_in_catch = true;
+
+ foreach (CatchClause clause in stmt.get_catch_clauses ()) {
+ current_catch = clause;
+ ccode.add_goto ("__finally%d".printf (this_try_id));
+ clause.emit (this);
+ }
+
+ current_try = old_try;
+ current_try_id = old_try_id;
+ is_in_catch = old_is_in_catch;
+ current_catch = old_catch;
+
+ ccode.add_label ("__finally%d".printf (this_try_id));
+ if (stmt.finally_body != null) {
+ // use a dedicated inner_error variable, if there
+ // is some error handling happening in finally-block
+ current_inner_error_id++;
+ stmt.finally_body.emit (this);
+ current_inner_error_id--;
+ }
+
+ // check for errors not handled by this try statement
+ // may be handled by outer try statements or propagated
+ add_simple_check (stmt, !stmt.after_try_block_reachable);
+ }
+
+ public override void visit_catch_clause (CatchClause clause) {
+ current_method_inner_error = true;
+
+ var error_type = (ErrorType) clause.error_type;
+ if (error_type.error_domain != null) {
+ generate_error_domain_declaration (error_type.error_domain, cfile);
+ }
+
+ ccode.add_label (clause.get_attribute_string ("CCode", "cname"));
+
+ ccode.open_block ();
+
+ if (clause.error_variable != null && clause.error_variable.used) {
+ visit_local_variable (clause.error_variable);
+ ccode.add_assignment (get_variable_cexpression (get_local_cname (clause.error_variable)), get_inner_error_cexpression ());
+ ccode.add_assignment (get_inner_error_cexpression (), new CCodeConstant ("NULL"));
+ } else {
+ if (clause.error_variable != null) {
+ clause.error_variable.unreachable = true;
+ }
+ // error object is not used within catch statement, clear it
+ cfile.add_include ("glib.h");
+ var cclear = new CCodeFunctionCall (new CCodeIdentifier ("g_clear_error"));
+ cclear.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_inner_error_cexpression ()));
+ ccode.add_expression (cclear);
+ }
+
+ clause.body.emit (this);
+
+ ccode.close ();
+ }
+
+ protected override void append_scope_free (Symbol sym, CodeNode? stop_at = null) {
+ base.append_scope_free (sym, stop_at);
+
+ if (!(stop_at is TryStatement || stop_at is CatchClause)) {
+ var finally_block = (Block) null;
+ if (sym.parent_node is TryStatement) {
+ finally_block = ((TryStatement) sym.parent_node).finally_body;
+ } else if (sym.parent_node is CatchClause) {
+ finally_block = ((TryStatement) sym.parent_node.parent_node).finally_body;
+ }
+
+ if (finally_block != null && finally_block != sym) {
+ finally_block.emit (this);
+ }
+ }
+ }
+}
+
+// vim:sw=8 noet
--- /dev/null
+/* valagirwriter.vala
+ *
+ * Copyright (C) 2008-2012 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * Code visitor generating .gir file for the public interface.
+ */
+public class Vala.GIRWriter : CodeVisitor {
+ private CodeContext context;
+ private string directory;
+ private string gir_namespace;
+ private string gir_version;
+ private string gir_shared_library;
+
+ protected virtual string? get_interface_comment (Interface iface) {
+ return null;
+ }
+
+ protected virtual string? get_struct_comment (Struct st) {
+ return null;
+ }
+
+ protected virtual string? get_enum_comment (Enum en) {
+ return null;
+ }
+
+ protected virtual string? get_class_comment (Class c) {
+ return null;
+ }
+
+ protected virtual string? get_error_code_comment (ErrorCode ecode) {
+ return null;
+ }
+
+ protected virtual string? get_enum_value_comment (EnumValue ev) {
+ return null;
+ }
+
+ protected virtual string? get_constant_comment (Constant c) {
+ return null;
+ }
+
+ protected virtual string? get_error_domain_comment (ErrorDomain edomain) {
+ return null;
+ }
+
+ protected virtual string? get_field_comment (Field f) {
+ return null;
+ }
+
+ protected virtual string? get_delegate_comment (Delegate cb) {
+ return null;
+ }
+
+ protected virtual string? get_method_comment (Method m) {
+ return null;
+ }
+
+ protected virtual string? get_property_comment (Property prop) {
+ return null;
+ }
+
+ protected virtual string? get_delegate_return_comment (Delegate cb) {
+ return null;
+ }
+
+ protected virtual string? get_signal_return_comment (Signal sig) {
+ return null;
+ }
+
+ protected virtual string? get_method_return_comment (Method m) {
+ return null;
+ }
+
+ protected virtual string? get_signal_comment (Signal sig) {
+ return null;
+ }
+
+ protected virtual string? get_parameter_comment (Parameter param) {
+ return null;
+ }
+
+ StringBuilder buffer = new StringBuilder();
+ FileStream stream;
+ Vala.HashSet<Namespace> unannotated_namespaces = new Vala.HashSet<Namespace>();
+ Vala.HashSet<Namespace> our_namespaces = new Vala.HashSet<Namespace>();
+ Vala.ArrayList<Vala.Symbol> hierarchy = new Vala.ArrayList<Vala.Symbol>();
+ Vala.ArrayList<Vala.CodeNode> deferred = new Vala.ArrayList<Vala.CodeNode>();
+
+ int indent;
+
+ private TypeSymbol gobject_type;
+ private TypeSymbol ginitiallyunowned_type;
+ private TypeSymbol gtypeinterface_type;
+ private TypeSymbol gtypeinstance_type;
+ private TypeSymbol gtype_type;
+
+ private struct GIRNamespace {
+ public GIRNamespace (string ns, string version) {
+ this.ns = ns; this.version = version;
+ }
+ public string ns;
+ public string version;
+ public bool equal (GIRNamespace g) {
+ return ((ns == g.ns) && (version == g.version));
+ }
+
+ public static GIRNamespace for_symbol (Symbol sym) {
+ while (sym.parent_symbol != null && sym.parent_symbol.name != null) {
+ sym = sym.parent_symbol;
+ }
+ assert (sym is Namespace);
+ string gir_namespace = sym.get_attribute_string ("CCode", "gir_namespace");
+ string gir_version = sym.get_attribute_string ("CCode", "gir_version");
+ return GIRNamespace (gir_namespace, gir_version);
+ }
+ }
+
+ private ArrayList<GIRNamespace?> externals = new ArrayList<GIRNamespace?> ((EqualFunc<GIRNamespace>) GIRNamespace.equal);
+
+ public void write_includes() {
+ foreach (var i in externals) {
+ if (i.ns != this.gir_namespace) {
+ write_indent_stream ();
+ stream.printf ("<include name=\"%s\" version=\"%s\"/>\n", i.ns, i.version);
+ }
+ }
+ }
+
+
+ /**
+ * Writes the public interface of the specified code context into the
+ * specified file.
+ *
+ * @param context a code context
+ * @param gir_filename a relative or absolute filename
+ */
+ public void write_file (CodeContext context, string directory, string gir_filename, string gir_namespace, string gir_version, string package, string? gir_shared_library = null) {
+ this.context = context;
+ this.directory = directory;
+ this.gir_namespace = gir_namespace;
+ this.gir_version = gir_version;
+ this.gir_shared_library = gir_shared_library;
+
+ var root_symbol = context.root;
+ var glib_ns = root_symbol.scope.lookup ("GLib");
+ gobject_type = (TypeSymbol) glib_ns.scope.lookup ("Object");
+ ginitiallyunowned_type = (TypeSymbol) glib_ns.scope.lookup ("InitiallyUnowned");
+ gtypeinterface_type = (TypeSymbol) glib_ns.scope.lookup ("TypeInterface");
+ gtypeinstance_type = (TypeSymbol) glib_ns.scope.lookup ("TypeInstance");
+ gtype_type = (TypeSymbol) glib_ns.scope.lookup ("Type");
+
+ write_package (package);
+
+ // Make sure to initialize external files with their gir_namespace/version
+ foreach (var file in context.get_source_files ()) {
+ file.accept (this);
+ }
+
+ context.accept (this);
+
+ indent--;
+ buffer.append_printf ("</repository>\n");
+
+ string filename = "%s%c%s".printf (directory, Path.DIR_SEPARATOR, gir_filename);
+ var file_exists = FileUtils.test (filename, FileTest.EXISTS);
+ var temp_filename = "%s.valatmp".printf (filename);
+
+ if (file_exists) {
+ stream = FileStream.open (temp_filename, "w");
+ } else {
+ stream = FileStream.open (filename, "w");
+ }
+
+ if (stream == null) {
+ Report.error (null, "unable to open `%s' for writing", filename);
+ this.context = null;
+ return;
+ }
+
+ stream.printf ("<?xml version=\"1.0\"?>\n");
+
+ var header = context.version_header ?
+ "<!-- %s generated by %s %s, do not modify. -->".printf (Path.get_basename (filename), Environment.get_prgname (), Vala.BUILD_VERSION) :
+ "<!-- %s generated by %s, do not modify. -->".printf (Path.get_basename (filename), Environment.get_prgname ());
+ stream.printf ("%s\n", header);
+
+ stream.printf ("<repository version=\"1.2\"");
+ stream.printf (" xmlns=\"http://www.gtk.org/introspection/core/1.0\"");
+ stream.printf (" xmlns:c=\"http://www.gtk.org/introspection/c/1.0\"");
+ stream.printf (" xmlns:glib=\"http://www.gtk.org/introspection/glib/1.0\"");
+ stream.printf (">\n");
+ indent++;
+
+ write_includes();
+ indent--;
+
+ stream.puts (buffer.str);
+ stream = null;
+
+ if (file_exists) {
+ var changed = true;
+
+ try {
+ var old_file = new MappedFile (filename, false);
+ var new_file = new MappedFile (temp_filename, false);
+ var len = old_file.get_length ();
+ if (len == new_file.get_length ()) {
+ if (Memory.cmp (old_file.get_contents (), new_file.get_contents (), len) == 0) {
+ changed = false;
+ }
+ }
+ old_file = null;
+ new_file = null;
+ } catch (FileError e) {
+ // assume changed if mmap comparison doesn't work
+ }
+
+ if (changed) {
+ FileUtils.rename (temp_filename, filename);
+ } else {
+ FileUtils.unlink (temp_filename);
+ }
+ }
+
+ foreach (var ns in unannotated_namespaces) {
+ if (!our_namespaces.contains(ns)) {
+ Report.warning (ns.source_reference, "Namespace `%s' does not have a GIR namespace and version annotation", ns.name);
+ }
+ }
+ foreach (var ns in our_namespaces) {
+ ns.source_reference.file.gir_namespace = gir_namespace;
+ ns.source_reference.file.gir_version = gir_version;
+ }
+
+ if (our_namespaces.size == 0) {
+ Report.error (null, "No suitable namespace found to export for GIR");
+ }
+
+ this.context = null;
+ }
+
+ private void write_doc (string? comment) {
+ if (comment != null) {
+ write_indent ();
+ buffer.append ("<doc xml:whitespace=\"preserve\">");
+ buffer.append (comment);
+ buffer.append ("</doc>\n");
+ }
+ }
+
+ private void write_package (string package) {
+ write_indent ();
+ buffer.append_printf ("<package name=\"%s\"/>\n", package);
+ }
+
+ private void write_c_includes (Namespace ns) {
+ // Collect C header filenames
+ Set<string> header_filenames = new HashSet<string> (str_hash, str_equal);
+ foreach (unowned string c_header_filename in get_ccode_header_filenames (ns).split (",")) {
+ header_filenames.add (c_header_filename);
+ }
+ foreach (Symbol symbol in ns.scope.get_symbol_table ().get_values ()) {
+ if (symbol.external_package) {
+ continue;
+ }
+ foreach (unowned string c_header_filename in get_ccode_header_filenames (symbol).split (",")) {
+ header_filenames.add (c_header_filename);
+ }
+ }
+
+ // Generate c:include tags
+ foreach (string c_header_filename in header_filenames) {
+ write_c_include (c_header_filename);
+ }
+ }
+
+ private void write_c_include (string name) {
+ write_indent ();
+ buffer.append_printf ("<c:include name=\"%s\"/>\n", name);
+ }
+
+ public override void visit_source_file (SourceFile source_file) {
+ if (source_file.file_type != SourceFileType.PACKAGE) {
+ return;
+ }
+
+ // Populate gir_namespace/version of source-file like in Namespace.check()
+ foreach (var node in source_file.get_nodes ()) {
+ if (node is Namespace && ((Namespace) node).parent_symbol == context.root) {
+ var a = node.get_attribute ("CCode");
+ if (a != null && a.has_argument ("gir_namespace")) {
+ var new_gir = a.get_string ("gir_namespace");
+ var old_gir = source_file.gir_namespace;
+ if (old_gir != null && old_gir != new_gir) {
+ source_file.gir_ambiguous = true;
+ }
+ source_file.gir_namespace = new_gir;
+ }
+ if (a != null && a.has_argument ("gir_version")) {
+ source_file.gir_version = a.get_string ("gir_version");
+ }
+ break;
+ }
+ }
+ }
+
+ public override void visit_namespace (Namespace ns) {
+ if (ns.external_package) {
+ return;
+ }
+
+ if (!is_visibility (ns)) {
+ return;
+ }
+
+ if (ns.name == null) {
+ // global namespace
+ hierarchy.insert (0, ns);
+ ns.accept_children (this);
+ hierarchy.remove_at (0);
+ return;
+ }
+
+ if (ns.parent_symbol.name != null) {
+ ns.accept_children (this);
+ return;
+ }
+
+ if (our_namespaces.size > 0) {
+ Report.error (ns.source_reference, "Secondary top-level namespace `%s' is not supported by GIR format", ns.name);
+ return;
+ }
+
+ // Use given gir_namespace and gir_version for our top-level namespace
+ var old_gir_namespace = ns.get_attribute_string ("CCode", "gir_namespace");
+ var old_gir_version = ns.get_attribute_string ("CCode", "gir_version");
+ if ((old_gir_namespace != null && old_gir_namespace != gir_namespace)
+ || (old_gir_version != null && old_gir_version != gir_version)) {
+ Report.warning (ns.source_reference, "Replace conflicting CCode.gir_* attributes for namespace `%s'".printf (ns.name));
+ }
+ ns.set_attribute_string ("CCode", "gir_namespace", gir_namespace);
+ ns.set_attribute_string ("CCode", "gir_version", gir_version);
+
+ write_c_includes (ns);
+
+ write_indent ();
+ buffer.append_printf ("<namespace name=\"%s\" version=\"%s\"", gir_namespace, gir_version);
+ string? cprefix = get_ccode_prefix (ns);
+ if (gir_shared_library != null) {
+ buffer.append_printf(" shared-library=\"%s\"", gir_shared_library);
+ }
+ if (cprefix != null) {
+ buffer.append_printf (" c:prefix=\"%s\"", cprefix);
+ buffer.append_printf (" c:identifier-prefixes=\"%s\"", cprefix);
+ }
+ string? csymbol_prefix = get_ccode_lower_case_suffix (ns);
+ if (csymbol_prefix != null) {
+ buffer.append_printf (" c:symbol-prefixes=\"%s\"", csymbol_prefix);
+ }
+ buffer.append_printf (">\n");
+ indent++;
+
+ hierarchy.insert (0, ns);
+ ns.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</namespace>\n");
+ our_namespaces.add(ns);
+
+ visit_deferred ();
+ }
+
+ private void write_symbol_attributes (Symbol symbol) {
+ if (!is_introspectable (symbol)) {
+ buffer.append_printf (" introspectable=\"0\"");
+ }
+ if (symbol.version.deprecated) {
+ buffer.append_printf (" deprecated=\"1\"");
+ if (symbol.version.deprecated_since != null) {
+ buffer.append_printf (" deprecated-version=\"%s\"", symbol.version.deprecated_since);
+ }
+ }
+ if (symbol.version.since != null) {
+ buffer.append_printf (" version=\"%s\"", symbol.version.since);
+ }
+ }
+
+ public override void visit_class (Class cl) {
+ if (cl.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (cl)) {
+ return;
+ }
+
+ if (!has_namespace (cl)) {
+ return;
+ }
+
+ if (!(hierarchy[0] is Namespace)) {
+ deferred.add (cl);
+ return;
+ }
+
+ if (!cl.is_compact) {
+ string gtype_struct_name = get_gir_name (cl) + "Class";
+
+ write_indent ();
+ buffer.append_printf ("<class name=\"%s\"", get_gir_name (cl));
+ write_gtype_attributes (cl, true);
+ buffer.append_printf (" glib:type-struct=\"%s\"", gtype_struct_name);
+ if (cl.base_class == null) {
+ buffer.append_printf (" glib:fundamental=\"1\"");
+ buffer.append_printf (" glib:ref-func=\"%s\"", get_ccode_ref_function (cl));
+ buffer.append_printf (" glib:unref-func=\"%s\"", get_ccode_unref_function (cl));
+ buffer.append_printf (" glib:set-value-func=\"%s\"", get_ccode_set_value_function (cl));
+ buffer.append_printf (" glib:get-value-func=\"%s\"", get_ccode_get_value_function (cl));
+ } else {
+ buffer.append_printf (" parent=\"%s\"", gi_type_name (cl.base_class));
+ }
+ if (cl.is_abstract) {
+ buffer.append_printf (" abstract=\"1\"");
+ }
+ if (cl.is_sealed) {
+ buffer.append_printf (" final=\"1\"");
+ }
+ write_symbol_attributes (cl);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_class_comment (cl));
+
+ // write implemented interfaces
+ foreach (DataType base_type in cl.get_base_types ()) {
+ var object_type = (ObjectType) base_type;
+ if (object_type.type_symbol is Interface) {
+ write_indent ();
+ buffer.append_printf ("<implements name=\"%s\"/>\n", gi_type_name (object_type.type_symbol));
+ }
+ }
+
+ write_indent ();
+ buffer.append_printf ("<field name=\"parent_instance\" readable=\"0\" private=\"1\">\n");
+ indent++;
+ write_indent ();
+ if (cl.base_class == null) {
+ buffer.append_printf ("<type name=\"%s\" c:type=\"%s\"/>\n", gi_type_name (gtypeinstance_type), get_ccode_name (gtypeinstance_type));
+ } else {
+ buffer.append_printf ("<type name=\"%s\" c:type=\"%s\"/>\n", gi_type_name (cl.base_class), get_ccode_name (cl.base_class));
+ }
+ indent--;
+ write_indent ();
+ buffer.append_printf("</field>\n");
+
+ if (cl.base_class == null) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"ref_count\">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"gint\" c:type=\"volatile int\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf("</field>\n");
+ }
+
+ if (!context.abi_stability) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"priv\" readable=\"0\" private=\"1\">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"%sPrivate\" c:type=\"%sPrivate*\"/>\n", get_gir_name (cl), get_ccode_name (cl));
+ indent--;
+ write_indent ();
+ buffer.append_printf("</field>\n");
+ }
+
+ if (cl.base_class != null && cl.base_class.is_subtype_of (gobject_type)) {
+ foreach (var p in cl.get_type_parameters ()) {
+ write_type_parameter (p, "property");
+ }
+ }
+
+ hierarchy.insert (0, cl);
+ cl.accept_children (this);
+ hierarchy.remove_at (0);
+
+ if (context.abi_stability) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"priv\" readable=\"0\" private=\"1\">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"%sPrivate\" c:type=\"%sPrivate*\"/>\n", get_gir_name (cl), get_ccode_name (cl));
+ indent--;
+ write_indent ();
+ buffer.append_printf("</field>\n");
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</class>\n");
+
+ write_indent ();
+ buffer.append_printf ("<record name=\"%s\"", gtype_struct_name);
+ write_ctype_attributes (cl, "Class");
+ buffer.append_printf (" glib:is-gtype-struct-for=\"%s\"", get_gir_name (cl));
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_indent ();
+ buffer.append_printf ("<field name=\"parent_class\" readable=\"0\" private=\"1\">\n");
+ indent++;
+ write_indent ();
+ if (cl.base_class == null) {
+ //FIXME GObject.TypeClass vs GType
+ buffer.append_printf ("<type name=\"%sClass\" c:type=\"%sClass\"/>\n", "GObject.Type", get_ccode_name (gtype_type));
+ } else {
+ buffer.append_printf ("<type name=\"%sClass\" c:type=\"%sClass\"/>\n", gi_type_name (cl.base_class), get_ccode_name (cl.base_class));
+ }
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+
+ foreach (Method m in cl.get_methods ()) {
+ if (m.is_abstract || m.is_virtual) {
+ if (m.coroutine) {
+ string finish_name = m.name;
+ if (finish_name.has_suffix ("_async")) {
+ finish_name = finish_name.substring (0, finish_name.length - "_async".length);
+ }
+ finish_name += "_finish";
+
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_async_begin_parameters (), new VoidType (), false, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", finish_name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, finish_name, get_ccode_finish_name (m), m.get_async_end_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ } else {
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+ }
+
+ foreach (Signal sig in cl.get_signals ()) {
+ if (sig.default_handler != null) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"%s\"", get_ccode_lower_case_name (sig));
+ write_symbol_attributes (sig);
+ buffer.append_printf (">\n");
+ indent++;
+ write_signature (sig.default_handler, "callback", false, true, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</record>\n");
+
+ write_indent ();
+ buffer.append_printf ("<record name=\"%sPrivate\" c:type=\"%sPrivate\" disguised=\"1\"/>\n", get_gir_name (cl), get_ccode_name (cl));
+ } else {
+ write_indent ();
+ buffer.append_printf ("<record name=\"%s\"", get_gir_name (cl));
+ write_ctype_attributes (cl);
+ write_symbol_attributes (cl);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_class_comment (cl));
+
+ hierarchy.insert (0, cl);
+ cl.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</record>\n");
+ }
+
+ visit_deferred ();
+ }
+
+ public override void visit_struct (Struct st) {
+ if (st.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (st)) {
+ return;
+ }
+
+ if (!has_namespace (st)) {
+ return;
+ }
+
+ if (!(hierarchy[0] is Namespace)) {
+ deferred.add (st);
+ return;
+ }
+
+ write_indent ();
+ buffer.append_printf ("<record name=\"%s\"", get_gir_name (st));
+ if (get_ccode_has_type_id (st)) {
+ write_gtype_attributes (st, true);
+ } else {
+ write_ctype_attributes (st, "", true);
+ }
+ write_symbol_attributes (st);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_struct_comment (st));
+
+ hierarchy.insert (0, st);
+ st.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</record>\n");
+
+ visit_deferred ();
+ }
+
+ public override void visit_interface (Interface iface) {
+ if (iface.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (iface)) {
+ return;
+ }
+
+ if (!has_namespace (iface)) {
+ return;
+ }
+
+ if (!(hierarchy[0] is Namespace)) {
+ deferred.add (iface);
+ return;
+ }
+
+ string gtype_struct_name = get_gir_name (iface) + "Iface";
+
+ write_indent ();
+ buffer.append_printf ("<interface name=\"%s\"", get_gir_name (iface));
+ write_gtype_attributes (iface, true);
+ buffer.append_printf (" glib:type-struct=\"%s\"", gtype_struct_name);
+ write_symbol_attributes (iface);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_interface_comment (iface));
+
+ // write prerequisites
+ if (iface.get_prerequisites ().size > 0) {
+ foreach (DataType base_type in iface.get_prerequisites ()) {
+ write_indent ();
+ buffer.append_printf ("<prerequisite name=\"%s\"/>\n", gi_type_name (((ObjectType) base_type).type_symbol));
+ }
+ }
+
+ hierarchy.insert (0, iface);
+ iface.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</interface>\n");
+
+ write_indent ();
+ buffer.append_printf ("<record name=\"%s\"", gtype_struct_name);
+ write_ctype_attributes (iface, "Iface");
+ buffer.append_printf (" glib:is-gtype-struct-for=\"%s\"", get_gir_name (iface));
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_indent ();
+ buffer.append_printf ("<field name=\"parent_iface\" readable=\"0\" private=\"1\">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"%s\" c:type=\"%s\"/>\n", gi_type_name (gtypeinterface_type), get_ccode_name (gtypeinterface_type));
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+
+ foreach (Method m in iface.get_methods ()) {
+ if (m.is_abstract || m.is_virtual) {
+ if (m.coroutine) {
+ string finish_name = m.name;
+ if (finish_name.has_suffix ("_async")) {
+ finish_name = finish_name.substring (0, finish_name.length - "_async".length);
+ }
+ finish_name += "_finish";
+
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_async_begin_parameters (), new VoidType (), false, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", finish_name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, finish_name, get_ccode_finish_name (m), m.get_async_end_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ } else {
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+ }
+
+ foreach (var prop in iface.get_properties ()) {
+ if (prop.is_abstract || prop.is_virtual) {
+ if (prop.get_accessor != null) {
+ var m = prop.get_accessor.get_method ();
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+
+ if (prop.set_accessor != null && prop.set_accessor.writable) {
+ var m = prop.set_accessor.get_method ();
+ write_indent ();
+ buffer.append_printf("<field name=\"%s\"", m.name);
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+ do_write_signature (m, "callback", true, m.name, get_ccode_name (m), m.get_parameters (), m.return_type, m.tree_can_fail, false, false);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</record>\n");
+
+ visit_deferred ();
+ }
+
+ private void visit_deferred () {
+ var nodes = this.deferred;
+ this.deferred = new Vala.ArrayList<Vala.CodeNode>();
+
+ foreach (var node in nodes) {
+ node.accept (this);
+ }
+ }
+
+ private string? get_gir_name (Symbol symbol) {
+ string? gir_name = null;
+ var h0 = hierarchy[0];
+
+ for (Symbol? cur_sym = symbol ; cur_sym != null ; cur_sym = cur_sym.parent_symbol) {
+ if (cur_sym == h0) {
+ break;
+ }
+
+ var cur_name = cur_sym.get_attribute_string ("GIR", "name");
+ if (cur_name == null) {
+ cur_name = cur_sym.name;
+ }
+ gir_name = cur_name.concat (gir_name);
+ }
+
+ return gir_name;
+ }
+
+ public override void visit_enum (Enum en) {
+ if (en.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (en)) {
+ return;
+ }
+
+ if (!has_namespace (en)) {
+ return;
+ }
+
+ if (!(hierarchy[0] is Namespace)) {
+ deferred.add (en);
+ return;
+ }
+
+ string element_name = (en.is_flags) ? "bitfield" : "enumeration";
+
+ write_indent ();
+ buffer.append_printf ("<%s name=\"%s\"", element_name, get_gir_name (en));
+ if (get_ccode_has_type_id (en)) {
+ write_gtype_attributes (en);
+ } else {
+ write_ctype_attributes (en);
+ }
+ write_symbol_attributes (en);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_enum_comment (en));
+
+ enum_value = 0;
+ hierarchy.insert (0, en);
+ en.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", element_name);
+
+ visit_deferred ();
+ }
+
+ private int enum_value;
+
+ public override void visit_enum_value (EnumValue ev) {
+ write_indent ();
+ var en = (Enum) hierarchy[0];
+ buffer.append_printf ("<member name=\"%s\" c:identifier=\"%s\"", ev.name.ascii_down (), get_ccode_name (ev));
+ if (ev.value != null) {
+ string value = literal_expression_to_value_string (ev.value);
+ buffer.append_printf (" value=\"%s\"", value);
+ } else {
+ if (en.is_flags) {
+ buffer.append_printf (" value=\"%d\"", 1 << enum_value++);
+ } else {
+ buffer.append_printf (" value=\"%d\"", enum_value++);
+ }
+ }
+ write_symbol_attributes (ev);
+
+ string? comment = get_enum_value_comment (ev);
+ if (comment == null) {
+ buffer.append_printf ("/>\n");
+ } else {
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (comment);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</member>\n");
+ }
+ }
+
+ public override void visit_error_domain (ErrorDomain edomain) {
+ if (edomain.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (edomain)) {
+ return;
+ }
+
+ if (!has_namespace (edomain)) {
+ return;
+ }
+
+ write_indent ();
+ buffer.append_printf ("<enumeration name=\"%s\"", get_gir_name (edomain));
+ write_ctype_attributes (edomain);
+ buffer.append_printf (" glib:error-domain=\"%s\"", get_ccode_quark_name (edomain));
+ write_symbol_attributes (edomain);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_error_domain_comment (edomain));
+
+ enum_value = 0;
+ hierarchy.insert (0, edomain);
+ edomain.accept_children (this);
+ hierarchy.remove_at (0);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</enumeration>\n");
+
+ visit_deferred ();
+ }
+
+ public override void visit_error_code (ErrorCode ecode) {
+ write_indent ();
+ buffer.append_printf ("<member name=\"%s\" c:identifier=\"%s\"", ecode.name.ascii_down (), get_ccode_name (ecode));
+ if (ecode.value != null) {
+ string value = literal_expression_to_value_string (ecode.value);
+ buffer.append_printf (" value=\"%s\"", value);
+ } else {
+ buffer.append_printf (" value=\"%d\"", enum_value++);
+ }
+ write_symbol_attributes (ecode);
+
+ string? comment = get_error_code_comment (ecode);
+ if (comment == null) {
+ buffer.append_printf ("/>\n");
+ } else {
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (comment);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</member>\n");
+ }
+ }
+
+ public override void visit_constant (Constant c) {
+ if (c.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (c)) {
+ return;
+ }
+
+ if (!has_namespace (c)) {
+ return;
+ }
+
+ //TODO Add better constant evaluation
+ var initializer = c.value;
+ string value = literal_expression_to_value_string (initializer);
+
+ write_indent ();
+ buffer.append_printf ("<constant name=\"%s\" c:identifier=\"%s\"", get_gir_name (c), get_ccode_name (c));
+ buffer.append_printf (" value=\"%s\"", value);
+ write_symbol_attributes (c);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_constant_comment (c));
+
+ write_type (initializer.value_type);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</constant>\n");
+ }
+
+ public override void visit_field (Field f) {
+ if (f.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (f)) {
+ return;
+ }
+
+ if (!has_namespace (f)) {
+ return;
+ }
+
+ write_indent ();
+ buffer.append_printf ("<field name=\"%s\" writable=\"1\"", get_ccode_name (f));
+ if (f.variable_type.nullable) {
+ buffer.append_printf (" nullable=\"1\"");
+ }
+ write_symbol_attributes (f);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_field_comment (f));
+
+ write_type (f.variable_type);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+
+ if (f.variable_type is ArrayType && get_ccode_array_length (f)) {
+ var array_type = (ArrayType) f.variable_type;
+ if (!array_type.fixed_length) {
+ for (var i = 0; i < array_type.rank; i++) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"%s_length%i\"", get_ccode_name (f), i + 1);
+ write_symbol_attributes (f);
+ buffer.append_printf (">\n");
+ indent++;
+ write_type (array_type.length_type);
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+ } else if (f.variable_type is DelegateType) {
+ var deleg_type = (DelegateType) f.variable_type;
+ if (deleg_type.delegate_symbol.has_target) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"%s\"", get_ccode_delegate_target_name (f));
+ write_symbol_attributes (f);
+ buffer.append_printf (">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"gpointer\" c:type=\"gpointer\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ if (deleg_type.is_disposable ()) {
+ write_indent ();
+ buffer.append_printf ("<field name=\"%s\"", get_ccode_delegate_target_destroy_notify_name (f));
+ write_symbol_attributes (f);
+ buffer.append_printf (">\n");
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"GLib.DestroyNotify\" c:type=\"GDestroyNotify\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</field>\n");
+ }
+ }
+ }
+ }
+
+ private void write_implicit_params (DataType? type, ref int index, bool has_array_length, string? name, ParameterDirection direction) {
+ if (type is ArrayType && has_array_length) {
+ for (var i = 0; i < ((ArrayType) type).rank; i++) {
+ write_param_or_return (((ArrayType) type).length_type, "parameter", ref index, has_array_length, "%s_length%i".printf (name, i + 1), null, direction);
+ }
+ } else if (type is DelegateType) {
+ var deleg_type = (DelegateType) type;
+ if (deleg_type.delegate_symbol.has_target) {
+ var data_type = new PointerType (new VoidType ());
+ write_param_or_return (data_type, "parameter", ref index, false, "%s_target".printf (name), null, direction);
+ if (deleg_type.is_disposable ()) {
+ var notify_type = new DelegateType (context.root.scope.lookup ("GLib").scope.lookup ("DestroyNotify") as Delegate);
+ write_param_or_return (notify_type, "parameter", ref index, false, "%s_target_destroy_notify".printf (name), null, direction);
+ }
+ }
+ }
+ }
+
+ void skip_implicit_params (DataType? type, ref int index, bool has_array_length) {
+ if (type is ArrayType && has_array_length) {
+ index += ((ArrayType) type).rank;
+ } else if (type is DelegateType) {
+ index++;
+ var deleg_type = (DelegateType) type;
+ if (deleg_type.is_disposable ()) {
+ index++;
+ }
+ }
+ }
+
+ private void write_type_parameter (TypeParameter type_parameter, string tag_type) {
+ write_indent ();
+ if (tag_type == "property") {
+ buffer.append_printf ("<%s name=\"%s\" writable=\"1\" construct-only=\"1\">\n", tag_type, get_ccode_type_id (type_parameter).replace ("_", "-"));
+ } else {
+ buffer.append_printf ("<%s name=\"%s\" transfer-ownership=\"none\">\n", tag_type, get_ccode_type_id (type_parameter));
+ }
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"GType\" c:type=\"GType\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag_type);
+ write_indent ();
+ if (tag_type == "property") {
+ buffer.append_printf ("<%s name=\"%s\" writable=\"1\" construct-only=\"1\">\n", tag_type, get_ccode_copy_function (type_parameter).replace ("_", "-"));
+ } else {
+ buffer.append_printf ("<%s name=\"%s\" transfer-ownership=\"none\">\n", tag_type, get_ccode_copy_function (type_parameter));
+ }
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"GObject.BoxedCopyFunc\" c:type=\"GBoxedCopyFunc\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag_type);
+ write_indent ();
+ if (tag_type == "property") {
+ buffer.append_printf ("<%s name=\"%s\" writable=\"1\" construct-only=\"1\">\n", tag_type, get_ccode_destroy_function (type_parameter).replace ("_", "-"));
+ } else {
+ buffer.append_printf ("<%s name=\"%s\" transfer-ownership=\"none\">\n", tag_type, get_ccode_destroy_function (type_parameter));
+ }
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"GLib.DestroyNotify\" c:type=\"GDestroyNotify\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag_type);
+ }
+
+ private void write_params_and_return (string tag_name, List<Parameter> params, List<TypeParameter>? type_params, DataType? return_type, bool return_array_length, string? return_comment = null, bool constructor = false, Parameter? instance_param = null, bool user_data = false) {
+ int last_index = 0;
+ bool ret_is_struct = return_type != null && return_type.is_real_non_null_struct_type ();
+
+ if (params.size != 0 || (return_type is ArrayType && return_array_length) || (return_type is DelegateType) || ret_is_struct) {
+ int index = 0;
+
+ foreach (Parameter param in params) {
+ index++;
+
+ skip_implicit_params (param.variable_type, ref index, get_ccode_array_length (param));
+ }
+
+ if (ret_is_struct) {
+ index++;
+ } else {
+ skip_implicit_params (return_type, ref index, return_array_length);
+ if (return_type is ArrayType && return_array_length) {
+ index -= ((ArrayType) return_type).rank - 1;
+ }
+ }
+
+ last_index = index - 1;
+ }
+
+ if (return_type != null && !ret_is_struct) {
+ write_param_or_return (return_type, "return-value", ref last_index, return_array_length, null, return_comment, ParameterDirection.IN, constructor);
+ } else if (ret_is_struct) {
+ write_param_or_return (new VoidType (), "return-value", ref last_index, false, null, return_comment, ParameterDirection.IN);
+ }
+
+ if (params.size != 0 || (type_params != null && type_params.size > 0) || instance_param != null || (return_type is ArrayType && return_array_length) || (return_type is DelegateType) || ret_is_struct) {
+ write_indent ();
+ buffer.append_printf ("<parameters>\n");
+ indent++;
+ int index = 0;
+
+ if (instance_param != null) {
+ var type = instance_param.variable_type.copy ();
+ unowned Struct? st = type.type_symbol as Struct;
+ if (st != null && !st.is_simple_type ()) {
+ type.nullable = true;
+ }
+ int skip = 0;
+ if (tag_name == "callback") {
+ write_param_or_return (type, "parameter", ref skip, false, "self");
+ index++;
+ } else {
+ write_param_or_return (type, "instance-parameter", ref skip, false, "self");
+ }
+ }
+
+ if (constructor && ret_is_struct) {
+ // struct constructor has a caller-allocates / out-parameter as instance
+ write_param_or_return (return_type, "instance-parameter", ref index, false, "self", return_comment, ParameterDirection.OUT, constructor, true);
+ }
+
+ if (type_params != null) {
+ foreach (var p in type_params) {
+ write_type_parameter (p, "parameter");
+ index += 3;
+ }
+ }
+
+ foreach (Parameter param in params) {
+ write_param_or_return (param.variable_type, "parameter", ref index, get_ccode_array_length (param), get_ccode_name (param), get_parameter_comment (param), param.direction, false, false, param.ellipsis || param.params_array);
+
+ write_implicit_params (param.variable_type, ref index, get_ccode_array_length (param), get_ccode_name (param), param.direction);
+ }
+
+ if (!constructor && ret_is_struct) {
+ // struct returns are converted to parameters
+ write_param_or_return (return_type, "parameter", ref index, false, "result", return_comment, ParameterDirection.OUT, constructor, true);
+ } else if (!constructor) {
+ write_implicit_params (return_type, ref index, return_array_length, "result", ParameterDirection.OUT);
+ }
+
+ if (user_data) {
+ write_indent ();
+ buffer.append_printf ("<parameter name=\"user_data\" transfer-ownership=\"none\" closure=\"%d\">\n", index);
+ indent++;
+ write_indent ();
+ buffer.append_printf ("<type name=\"gpointer\" c:type=\"void*\"/>\n");
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</parameter>\n");
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</parameters>\n");
+ }
+ }
+
+ public override void visit_delegate (Delegate cb) {
+ if (cb.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (cb)) {
+ return;
+ }
+
+ if (!has_namespace (cb)) {
+ return;
+ }
+
+ write_indent ();
+ buffer.append_printf ("<callback name=\"%s\"", get_gir_name (cb));
+ buffer.append_printf (" c:type=\"%s\"", get_ccode_name (cb));
+ if (cb.tree_can_fail) {
+ buffer.append_printf (" throws=\"1\"");
+ }
+ write_symbol_attributes (cb);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_delegate_comment (cb));
+
+ write_params_and_return ("callback", cb.get_parameters (), cb.get_type_parameters (), cb.return_type, get_ccode_array_length (cb), get_delegate_return_comment (cb), false, null, cb.has_target);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</callback>\n");
+ }
+
+ public override void visit_method (Method m) {
+ if (m.external_package) {
+ return;
+ }
+
+ // don't write interface implementation unless it's an abstract or virtual method
+ if (!check_accessibility (m) || m.overrides || (m.base_interface_method != null && !m.is_abstract && !m.is_virtual)) {
+ return;
+ }
+
+ if (!has_namespace (m)) {
+ return;
+ }
+
+ string tag_name = "method";
+ var parent = this.hierarchy.get (0);
+ if (parent is Enum) {
+ deferred.add (m);
+ return;
+ }
+
+ if (parent is Namespace || m.binding == MemberBinding.STATIC || parent != m.parent_symbol) {
+ tag_name = "function";
+ }
+
+ if (!get_ccode_no_wrapper (m) && m.signal_reference == null) {
+ write_signature (m, tag_name, true);
+ }
+
+ if (m.is_abstract || m.is_virtual) {
+ write_signature (m, "virtual-method", true, false);
+ }
+ }
+
+ bool is_type_introspectable (DataType type) {
+ // gobject-introspection does not currently support va_list parameters
+ if (get_ccode_name (type) == "va_list") {
+ return false;
+ }
+
+ return true;
+ }
+
+ bool is_method_introspectable (Method m) {
+ if (!is_type_introspectable (m.return_type)) {
+ return false;
+ }
+ foreach (var param in m.get_parameters ()) {
+ if (param.ellipsis || param.params_array || !is_type_introspectable (param.variable_type)) {
+ return false;
+ }
+ }
+ return true;
+ }
+
+ bool is_introspectable (Symbol sym) {
+ if (sym is Method && !is_method_introspectable ((Method) sym)) {
+ return false;
+ }
+
+ return is_visibility (sym);
+ }
+
+ private void write_signature (Method m, string tag_name, bool write_doc, bool instance = false, bool write_attributes = true) {
+ var parent = this.hierarchy.get (0);
+ string name;
+ if (m.parent_symbol != parent) {
+ instance = false;
+ name = get_ccode_name (m);
+ var parent_prefix = get_ccode_lower_case_prefix (parent);
+ if (name.has_prefix (parent_prefix)) {
+ name = name.substring (parent_prefix.length);
+ }
+ } else {
+ name = m.name;
+ }
+
+ if (m.coroutine) {
+ string finish_name = name;
+ if (finish_name.has_suffix ("_async")) {
+ finish_name = finish_name.substring (0, finish_name.length - "_async".length);
+ }
+ finish_name += "_finish";
+ do_write_signature (m, tag_name, instance, name, get_ccode_name (m), m.get_async_begin_parameters (), new VoidType (), false, true, write_attributes);
+ do_write_signature (m, tag_name, instance, finish_name, get_ccode_finish_name (m), m.get_async_end_parameters (), m.return_type, m.tree_can_fail, false, write_attributes);
+ } else {
+ do_write_signature (m, tag_name, instance, name, get_ccode_name (m), m.get_parameters (), m.return_type, m.tree_can_fail, true, write_attributes);
+ }
+ }
+
+ private void do_write_signature (Method m, string tag_name, bool instance, string name, string cname, List<Vala.Parameter> params, DataType return_type, bool can_fail, bool write_comment, bool write_attributes = true) {
+ write_indent ();
+ buffer.append_printf ("<%s name=\"%s\"", tag_name, name);
+ if (tag_name == "virtual-method") {
+ if (!get_ccode_no_wrapper (m)) {
+ buffer.append_printf (" invoker=\"%s\"", name);
+ }
+ } else if (tag_name == "callback") {
+ /* this is only used for vfuncs */
+ buffer.append_printf (" c:type=\"%s\"", name);
+ } else {
+ buffer.append_printf (" c:identifier=\"%s\"", cname);
+ }
+ if (can_fail) {
+ buffer.append_printf (" throws=\"1\"");
+ }
+ if (write_attributes) {
+ write_symbol_attributes (m);
+ }
+ buffer.append_printf (">\n");
+ indent++;
+
+ string? return_comment = null;
+ if (write_comment) {
+ return_comment = get_method_return_comment (m);
+ write_doc (get_method_comment (m));
+ }
+
+ write_params_and_return (tag_name, params, m.get_type_parameters (), return_type, get_ccode_array_length (m), return_comment, false, m.this_parameter);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag_name);
+ }
+
+ public override void visit_creation_method (CreationMethod m) {
+ if (m.external_package) {
+ return;
+ }
+
+ if (!check_accessibility (m)) {
+ return;
+ }
+
+ if (m.parent_symbol is Class && ((Class) m.parent_symbol).is_abstract) {
+ return;
+ }
+
+ write_indent ();
+
+ bool is_struct = m.parent_symbol is Struct;
+ // GI doesn't like constructors that return void type
+ string tag_name = is_struct ? "method" : "constructor";
+
+ if (m.parent_symbol is Class && m == ((Class)m.parent_symbol).default_construction_method ||
+ m.parent_symbol is Struct && m == ((Struct)m.parent_symbol).default_construction_method) {
+ string m_name = is_struct ? "init" : "new";
+ buffer.append_printf ("<%s name=\"%s\" c:identifier=\"%s\"", tag_name, m_name, get_ccode_name (m));
+ } else if (is_struct) {
+ buffer.append_printf ("<%s name=\"init_%s\" c:identifier=\"%s\"", tag_name, m.name, get_ccode_name (m));
+ } else {
+ buffer.append_printf ("<%s name=\"%s\" c:identifier=\"%s\"", tag_name, m.name, get_ccode_name (m));
+ }
+
+ if (m.tree_can_fail) {
+ buffer.append_printf (" throws=\"1\"");
+ }
+ write_symbol_attributes (m);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_method_comment (m));
+
+ var datatype = SemanticAnalyzer.get_data_type_for_symbol (m.parent_symbol);
+ List<TypeParameter>? type_params = null;
+ if (m.parent_symbol is Class) {
+ type_params = ((Class) m.parent_symbol).get_type_parameters ();
+ }
+ write_params_and_return (tag_name, m.get_parameters (), type_params, datatype, false, get_method_return_comment (m), true);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag_name);
+ }
+
+ public override void visit_property (Property prop) {
+ if (!check_accessibility (prop) || prop.overrides || (prop.base_interface_property != null && !prop.is_abstract && !prop.is_virtual)) {
+ return;
+ }
+
+ if (context.analyzer.is_gobject_property (prop)) {
+ write_indent ();
+ buffer.append_printf ("<property name=\"%s\"", get_ccode_name (prop));
+ if (prop.get_accessor == null) {
+ buffer.append_printf (" readable=\"0\"");
+ }
+ if (prop.set_accessor != null) {
+ buffer.append_printf (" writable=\"1\"");
+ if (prop.set_accessor.construction) {
+ if (!prop.set_accessor.writable) {
+ buffer.append_printf (" construct-only=\"1\"");
+ } else {
+ buffer.append_printf (" construct=\"1\"");
+ }
+ }
+ }
+ write_symbol_attributes (prop);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_property_comment (prop));
+
+ write_type (prop.property_type);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</property>\n");
+ }
+
+ if (prop.get_accessor != null) {
+ var m = prop.get_accessor.get_method ();
+ if (m != null) {
+ visit_method (m);
+ }
+ }
+
+ if (prop.set_accessor != null) {
+ var m = prop.set_accessor.get_method ();
+ if (m != null) {
+ visit_method (m);
+ }
+ }
+ }
+
+ public override void visit_signal (Signal sig) {
+ if (!check_accessibility (sig)) {
+ return;
+ }
+
+ if (sig.emitter != null) {
+ sig.emitter.accept (this);
+ }
+
+ if (sig.default_handler != null) {
+ sig.default_handler.accept (this);
+ }
+
+ write_indent ();
+ buffer.append_printf ("<glib:signal name=\"%s\"", get_ccode_name (sig));
+ write_symbol_attributes (sig);
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (get_signal_comment (sig));
+
+ write_params_and_return ("glib:signal", sig.get_parameters (), null, sig.return_type, false, get_signal_return_comment (sig));
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</glib:signal>\n");
+ }
+
+ private void write_indent () {
+ int i;
+
+ for (i = 0; i < indent; i++) {
+ buffer.append_c ('\t');
+ }
+ }
+
+ private void write_indent_stream () {
+ int i;
+
+ for (i = 0; i < indent; i++) {
+ stream.putc ('\t');
+ }
+ }
+
+
+ private void write_param_or_return (DataType? type, string tag, ref int index, bool has_array_length, string? name = null, string? comment = null, ParameterDirection direction = ParameterDirection.IN, bool constructor = false, bool caller_allocates = false, bool ellipsis = false) {
+ write_indent ();
+ buffer.append_printf ("<%s", tag);
+ if (ellipsis) {
+ name = "...";
+ }
+ if (name != null) {
+ buffer.append_printf (" name=\"%s\"", name);
+ }
+ if (direction == ParameterDirection.REF) {
+ buffer.append_printf (" direction=\"inout\"");
+ } else if (direction == ParameterDirection.OUT) {
+ buffer.append_printf (" direction=\"out\"");
+ }
+
+ unowned DelegateType? delegate_type = type as DelegateType;
+ unowned ArrayType? array_type = type as ArrayType;
+
+ if (type != null && ((type.value_owned && delegate_type == null) || (constructor
+ && !(type.type_symbol is Struct || type.type_symbol.is_subtype_of (ginitiallyunowned_type))))) {
+ var any_owned = false;
+ foreach (var generic_arg in type.get_type_arguments ()) {
+ any_owned |= generic_arg.value_owned;
+ }
+ if (type.has_type_arguments () && !any_owned) {
+ buffer.append_printf (" transfer-ownership=\"container\"");
+ } else if (array_type != null && !array_type.element_type.value_owned) {
+ buffer.append_printf (" transfer-ownership=\"container\"");
+ } else {
+ buffer.append_printf (" transfer-ownership=\"full\"");
+ }
+ } else {
+ buffer.append_printf (" transfer-ownership=\"none\"");
+ }
+ if (caller_allocates) {
+ buffer.append_printf (" caller-allocates=\"1\"");
+ }
+ if (type != null && type.nullable) {
+ if (tag == "parameter"
+ && (direction == ParameterDirection.OUT || direction == ParameterDirection.REF)) {
+ buffer.append_printf (" optional=\"1\"");
+ } else {
+ buffer.append_printf (" nullable=\"1\"");
+ }
+ }
+
+ if (delegate_type != null && delegate_type.delegate_symbol.has_target) {
+ int closure_index = tag == "parameter" ?
+ index + 1 : (type.value_owned ? index - 1 : index);
+ buffer.append_printf (" closure=\"%i\"", closure_index);
+ if (delegate_type.is_called_once) {
+ buffer.append (" scope=\"async\"");
+ } else if (type.value_owned) {
+ buffer.append_printf (" scope=\"notified\" destroy=\"%i\"", closure_index + 1);
+ } else {
+ buffer.append (" scope=\"call\"");
+ }
+ } else if (delegate_type != null) {
+ buffer.append (" scope=\"call\"");
+ }
+
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_doc (comment);
+
+ if (ellipsis) {
+ write_indent ();
+ buffer.append ("<varargs/>\n");
+ } else if (type != null) {
+ int length_param_index = -1;
+ if (has_array_length) {
+ length_param_index = tag == "parameter" ? index + 1 : index;
+ }
+ write_type (type, length_param_index, direction);
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", tag);
+ index++;
+ }
+
+ private void write_ctype_attributes (TypeSymbol symbol, string suffix = "", bool symbol_prefix = false) {
+ buffer.append_printf (" c:type=\"%s%s\"", get_ccode_name (symbol), suffix);
+ if (symbol_prefix) {
+ buffer.append_printf (" c:symbol-prefix=\"%s\"", get_ccode_lower_case_suffix (symbol));
+ }
+ }
+
+ private void write_gtype_attributes (TypeSymbol symbol, bool symbol_prefix = false) {
+ write_ctype_attributes(symbol, "", symbol_prefix);
+ buffer.append_printf (" glib:type-name=\"%s\"", get_ccode_name (symbol));
+ buffer.append_printf (" glib:get-type=\"%sget_type\"", get_ccode_lower_case_prefix (symbol));
+ }
+
+ private void write_type (DataType type, int index = -1, ParameterDirection direction = ParameterDirection.IN) {
+ if (type is ArrayType) {
+ var array_type = (ArrayType) type;
+
+ write_indent ();
+ buffer.append_printf ("<array");
+ if (array_type.fixed_length && array_type.length is IntegerLiteral) {
+ var lit = (IntegerLiteral) array_type.length;
+ buffer.append_printf (" fixed-size=\"%i\"", int.parse (lit.value));
+ } else if (index != -1) {
+ buffer.append_printf (" length=\"%i\"", index);
+ }
+ buffer.append_printf (" c:type=\"%s%s\"", get_ccode_name (array_type.element_type), direction == ParameterDirection.IN ? "*" : "**");
+ buffer.append_printf (">\n");
+ indent++;
+
+ write_type (array_type.element_type);
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</array>\n");
+ } else if (type is VoidType) {
+ write_indent ();
+ buffer.append_printf ("<type name=\"none\" c:type=\"void\"/>\n");
+ } else if (type is PointerType) {
+ write_indent ();
+ buffer.append_printf ("<type name=\"gpointer\" c:type=\"%s%s\"/>\n", get_ccode_name (type), direction == ParameterDirection.IN ? "" : "*");
+ } else if (type is GenericType) {
+ // generic type parameters not supported in GIR
+ write_indent ();
+ buffer.append ("<type name=\"gpointer\" c:type=\"gpointer\"/>\n");
+ } else if (type is DelegateType) {
+ var deleg_type = (DelegateType) type;
+ write_indent ();
+ buffer.append_printf ("<type name=\"%s\" c:type=\"%s%s\"/>\n", gi_type_name (deleg_type.delegate_symbol), get_ccode_name (type), direction == ParameterDirection.IN ? "" : "*");
+ } else if (type.type_symbol != null) {
+ write_indent ();
+ string type_name = gi_type_name (type.type_symbol);
+ bool is_array = false;
+ if ((type_name == "GLib.Array") || (type_name == "GLib.PtrArray")) {
+ is_array = true;
+ }
+ buffer.append_printf ("<%s name=\"%s\" c:type=\"%s%s\"", is_array ? "array" : "type", gi_type_name (type.type_symbol), get_ccode_name (type), direction == ParameterDirection.IN ? "" : "*");
+
+ List<DataType> type_arguments = type.get_type_arguments ();
+ if (type_arguments.size == 0) {
+ buffer.append_printf ("/>\n");
+ } else {
+ buffer.append_printf (">\n");
+ indent++;
+
+ foreach (DataType type_argument in type_arguments) {
+ write_type (type_argument);
+ }
+
+ indent--;
+ write_indent ();
+ buffer.append_printf ("</%s>\n", is_array ? "array" : "type");
+ }
+ } else {
+ write_indent ();
+ buffer.append_printf ("<type name=\"%s\"/>\n", type.to_string ());
+ }
+ }
+
+ private string? get_full_gir_name (Symbol sym) {
+ string? gir_fullname = sym.get_attribute_string ("GIR", "fullname");
+ if (gir_fullname != null) {
+ return gir_fullname;
+ }
+
+ string? gir_name = sym.get_attribute_string ("GIR", "name");
+
+ if (gir_name == null && sym is Namespace) {
+ gir_name = sym.get_attribute_string ("CCode", "gir_namespace");
+ }
+ if (gir_name == null) {
+ gir_name = sym.name;
+ }
+
+ if (sym.parent_symbol == null) {
+ return gir_name;
+ }
+
+ if (sym.name == null) {
+ return get_full_gir_name (sym.parent_symbol);
+ }
+
+ string parent_gir_name = get_full_gir_name (sym.parent_symbol);
+ if (parent_gir_name == null) {
+ return gir_name;
+ }
+
+ string self_gir_name = gir_name.has_prefix (".") ? gir_name.substring (1) : gir_name;
+ if ("." in parent_gir_name) {
+ return "%s%s".printf (parent_gir_name, self_gir_name);
+ } else {
+ return "%s.%s".printf (parent_gir_name, self_gir_name);
+ }
+ }
+
+ private string gi_type_name (TypeSymbol type_symbol) {
+ Symbol parent = type_symbol.parent_symbol;
+ if (parent is Namespace) {
+ Namespace ns = parent as Namespace;
+ var ns_gir_name = ns.get_attribute_string ("GIR", "name") ?? ns.name;
+ if (ns_gir_name != null) {
+ unowned SourceFile source_file = type_symbol.source_reference.file;
+ if (source_file.gir_namespace != null) {
+ GIRNamespace external;
+ if (source_file.gir_ambiguous) {
+ external = GIRNamespace.for_symbol (type_symbol);
+ } else {
+ external = GIRNamespace (source_file.gir_namespace, source_file.gir_version);
+ }
+ if (!externals.contains (external)) {
+ externals.add (external);
+ }
+ string? gir_fullname = type_symbol.get_attribute_string ("GIR", "fullname");
+ if (gir_fullname != null) {
+ return gir_fullname;
+ }
+ var type_name = type_symbol.get_attribute_string ("GIR", "name") ?? type_symbol.name;
+ return "%s.%s".printf (external.ns, type_name);
+ } else {
+ unannotated_namespaces.add(ns);
+ }
+ }
+ }
+
+ return get_full_gir_name (type_symbol);
+ }
+
+ private string? literal_expression_to_value_string (Expression literal) {
+ if (literal is StringLiteral) {
+ var lit = literal as StringLiteral;
+ if (lit != null) {
+ return Markup.escape_text (lit.eval ());
+ }
+ } else if (literal is CharacterLiteral) {
+ return "%c".printf ((char) ((CharacterLiteral) literal).get_char ());
+ } else if (literal is BooleanLiteral) {
+ return ((BooleanLiteral) literal).value ? "true" : "false";
+ } else if (literal is RealLiteral) {
+ return ((RealLiteral) literal).value;
+ } else if (literal is IntegerLiteral) {
+ return ((IntegerLiteral) literal).value;
+ } else if (literal is UnaryExpression) {
+ var unary = (UnaryExpression) literal;
+ if (unary.operator == UnaryOperator.MINUS) {
+ if (unary.inner is RealLiteral) {
+ return "-" + ((RealLiteral) unary.inner).value;
+ } else if (unary.inner is IntegerLiteral) {
+ return "-" + ((IntegerLiteral) unary.inner).value;
+ }
+ }
+ }
+ return null;
+ }
+
+ private bool check_accessibility (Symbol sym) {
+ if (sym.access == SymbolAccessibility.PUBLIC ||
+ sym.access == SymbolAccessibility.PROTECTED) {
+ return true;
+ }
+
+ // internal fields and function pointers in classes/interfaces are public API
+ if (sym.access == SymbolAccessibility.INTERNAL) {
+ unowned Symbol? parent = sym.parent_symbol;
+ if (parent != null
+ && (parent is Class || parent is Interface)
+ && ((sym is Field && ((Field) sym).binding == MemberBinding.INSTANCE)
+ || (sym is Method && ((Method) sym).binding == MemberBinding.INSTANCE && (((Method) sym).is_abstract || ((Method) sym).is_virtual)))) {
+ return true;
+ }
+ }
+
+ return false;
+ }
+
+ private bool is_visibility (Symbol sym) {
+ return sym.get_attribute_bool ("GIR", "visible", true);
+ }
+
+ bool has_namespace (Symbol sym) {
+ if (!(sym.parent_symbol is Namespace) || sym.parent_symbol.name != null) {
+ return true;
+ }
+
+ Report.warning (sym.source_reference, "`%s' must be part of namespace to be included in GIR", sym.name);
+ return false;
+ }
+}
--- /dev/null
+/* valaglibvalue.vala
+ *
+ * Copyright (C) 2010 Jürg Billeter
+ * Copyright (C) 2011 Luca Bruno
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Luca Bruno <lucabru@src.gnome.org>
+ */
+
+public class Vala.GLibValue : TargetValue {
+ public CCodeExpression cvalue;
+ public bool lvalue;
+ public bool non_null;
+ public string? ctype;
+
+ public List<CCodeExpression> array_length_cvalues;
+ public CCodeExpression? array_size_cvalue;
+ public bool array_null_terminated;
+ public CCodeExpression? array_length_cexpr;
+
+ public CCodeExpression? delegate_target_cvalue;
+ public CCodeExpression? delegate_target_destroy_notify_cvalue;
+
+ public GLibValue (DataType? value_type = null, CCodeExpression? cvalue = null, bool lvalue = false) {
+ base (value_type);
+ this.cvalue = cvalue;
+ this.lvalue = lvalue;
+ }
+
+ public void append_array_length_cvalue (CCodeExpression length_cvalue) {
+ if (array_length_cvalues == null) {
+ array_length_cvalues = new ArrayList<CCodeExpression> ();
+ }
+ array_length_cvalues.add (length_cvalue);
+ }
+
+ public GLibValue copy () {
+ var result = new GLibValue (value_type.copy (), cvalue, lvalue);
+ result.actual_value_type = actual_value_type;
+ result.non_null = non_null;
+ result.ctype = ctype;
+
+ if (array_length_cvalues != null) {
+ foreach (var cexpr in array_length_cvalues) {
+ result.append_array_length_cvalue (cexpr);
+ }
+ }
+ result.array_size_cvalue = array_size_cvalue;
+ result.array_null_terminated = array_null_terminated;
+ result.array_length_cexpr = array_length_cexpr;
+
+ result.delegate_target_cvalue = delegate_target_cvalue;
+ result.delegate_target_destroy_notify_cvalue = delegate_target_destroy_notify_cvalue;
+
+ return result;
+ }
+}
+
+namespace Vala {
+ public static unowned CCodeExpression? get_cvalue (Expression expr) {
+ if (expr.target_value == null) {
+ return null;
+ }
+ return ((GLibValue) expr.target_value).cvalue;
+ }
+
+ public static unowned CCodeExpression? get_cvalue_ (TargetValue value) {
+ return ((GLibValue) value).cvalue;
+ }
+
+ public static void set_cvalue (Expression expr, CCodeExpression? cvalue) {
+ unowned GLibValue glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ expr.target_value = new GLibValue (expr.value_type);
+ glib_value = (GLibValue) expr.target_value;
+ }
+ glib_value.cvalue = cvalue;
+ }
+
+ public static unowned CCodeExpression? get_array_size_cvalue (TargetValue value) {
+ return ((GLibValue) value).array_size_cvalue;
+ }
+
+ public static void set_array_size_cvalue (TargetValue value, CCodeExpression? cvalue) {
+ ((GLibValue) value).array_size_cvalue = cvalue;
+ }
+
+ public static unowned CCodeExpression? get_delegate_target (Expression expr) {
+ if (expr.target_value == null) {
+ return null;
+ }
+ return ((GLibValue) expr.target_value).delegate_target_cvalue;
+ }
+
+ public static void set_delegate_target (Expression expr, CCodeExpression? delegate_target) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ expr.target_value = new GLibValue (expr.value_type);
+ glib_value = (GLibValue) expr.target_value;
+ }
+ glib_value.delegate_target_cvalue = delegate_target;
+ }
+
+ public static unowned CCodeExpression? get_delegate_target_destroy_notify (Expression expr) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ return null;
+ }
+ return glib_value.delegate_target_destroy_notify_cvalue;
+ }
+
+ public static void set_delegate_target_destroy_notify (Expression expr, CCodeExpression? destroy_notify) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ expr.target_value = new GLibValue (expr.value_type);
+ glib_value = (GLibValue) expr.target_value;
+ }
+ glib_value.delegate_target_destroy_notify_cvalue = destroy_notify;
+ }
+
+ public static void append_array_length (Expression expr, CCodeExpression size) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ expr.target_value = new GLibValue (expr.value_type);
+ glib_value = (GLibValue) expr.target_value;
+ }
+ glib_value.append_array_length_cvalue (size);
+ }
+
+ public static void set_array_length (Expression expr, CCodeExpression size) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ expr.target_value = new GLibValue (expr.value_type);
+ glib_value = (GLibValue) expr.target_value;
+ } else {
+ glib_value.array_length_cvalues = null;
+ }
+ glib_value.append_array_length_cvalue (size);
+ }
+
+ public static unowned List<CCodeExpression>? get_array_lengths (Expression expr) {
+ unowned GLibValue? glib_value = (GLibValue) expr.target_value;
+ if (glib_value == null) {
+ return null;
+ }
+ return glib_value.array_length_cvalues;
+ }
+
+ public static bool get_lvalue (TargetValue value) {
+ return ((GLibValue) value).lvalue;
+ }
+
+ public static bool get_non_null (TargetValue value) {
+ return ((GLibValue) value).non_null;
+ }
+
+ public static unowned string? get_ctype (TargetValue value) {
+ return ((GLibValue) value).ctype;
+ }
+
+ public static bool get_array_null_terminated (TargetValue value) {
+ return ((GLibValue) value).array_null_terminated;
+ }
+
+ public static unowned CCodeExpression? get_array_length_cexpr (TargetValue value) {
+ return ((GLibValue) value).array_length_cexpr;
+ }
+}
--- /dev/null
+/* valagobjectmodule.vala
+ *
+ * Copyright (C) 2006-2011 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+public class Vala.GObjectModule : GTypeModule {
+ int signal_wrapper_id;
+
+ public override void visit_class (Class cl) {
+ base.visit_class (cl);
+
+ if (!cl.is_subtype_of (gobject_type)) {
+ return;
+ }
+
+ push_line (cl.source_reference);
+ if (class_has_readable_properties (cl) || cl.has_type_parameters ()) {
+ add_get_property_function (cl);
+ }
+ if (class_has_writable_properties (cl) || cl.has_type_parameters ()) {
+ add_set_property_function (cl);
+ }
+ pop_line ();
+ }
+
+ public override void generate_class_init (Class cl) {
+ if (!cl.is_subtype_of (gobject_type)) {
+ return;
+ }
+
+ /* set property handlers */
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT_CLASS"));
+ ccall.add_argument (new CCodeIdentifier ("klass"));
+ if (class_has_readable_properties (cl) || cl.has_type_parameters ()) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccall, "get_property"), new CCodeIdentifier ("_vala_%s_get_property".printf (get_ccode_lower_case_name (cl, null))));
+ }
+ if (class_has_writable_properties (cl) || cl.has_type_parameters ()) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccall, "set_property"), new CCodeIdentifier ("_vala_%s_set_property".printf (get_ccode_lower_case_name (cl, null))));
+ }
+
+ /* set constructor */
+ if (cl.constructor != null) {
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT_CLASS"));
+ ccast.add_argument (new CCodeIdentifier ("klass"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "constructor"), new CCodeIdentifier ("%sconstructor".printf (get_ccode_lower_case_prefix (cl))));
+ }
+
+ /* set finalize function */
+ if (cl.get_fields ().size > 0 || cl.destructor != null) {
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT_CLASS"));
+ ccast.add_argument (new CCodeIdentifier ("klass"));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "finalize"), new CCodeIdentifier ("%sfinalize".printf (get_ccode_lower_case_prefix (cl))));
+ }
+
+ /* create type, dup_func, and destroy_func properties for generic types */
+ foreach (TypeParameter type_param in cl.get_type_parameters ()) {
+ string func_name, enum_value;
+ CCodeConstant func_name_constant;
+ CCodeFunctionCall cinst, cspec;
+
+
+ func_name = get_ccode_type_id (type_param);
+ func_name_constant = new CCodeConstant ("\"%s\"".printf (func_name.replace ("_", "-")));
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ cinst = new CCodeFunctionCall (new CCodeIdentifier ("g_object_class_install_property"));
+ cinst.add_argument (ccall);
+ cinst.add_argument (new CCodeConstant (enum_value));
+ cspec = new CCodeFunctionCall (new CCodeIdentifier ("g_param_spec_gtype"));
+ cspec.add_argument (func_name_constant);
+ cspec.add_argument (new CCodeConstant ("\"type\""));
+ cspec.add_argument (new CCodeConstant ("\"type\""));
+ cspec.add_argument (new CCodeIdentifier ("G_TYPE_NONE"));
+ cspec.add_argument (new CCodeConstant ("G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY"));
+ cinst.add_argument (cspec);
+ ccode.add_expression (cinst);
+ prop_enum.add_value (new CCodeEnumValue (enum_value));
+
+
+ func_name = get_ccode_copy_function (type_param);
+ func_name_constant = new CCodeConstant ("\"%s\"".printf (func_name.replace ("_", "-")));
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ cinst = new CCodeFunctionCall (new CCodeIdentifier ("g_object_class_install_property"));
+ cinst.add_argument (ccall);
+ cinst.add_argument (new CCodeConstant (enum_value));
+ cspec = new CCodeFunctionCall (new CCodeIdentifier ("g_param_spec_pointer"));
+ cspec.add_argument (func_name_constant);
+ cspec.add_argument (new CCodeConstant ("\"dup func\""));
+ cspec.add_argument (new CCodeConstant ("\"dup func\""));
+ cspec.add_argument (new CCodeConstant ("G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY"));
+ cinst.add_argument (cspec);
+ ccode.add_expression (cinst);
+ prop_enum.add_value (new CCodeEnumValue (enum_value));
+
+
+ func_name = get_ccode_destroy_function (type_param);
+ func_name_constant = new CCodeConstant ("\"%s\"".printf (func_name.replace ("_", "-")));
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ cinst = new CCodeFunctionCall (new CCodeIdentifier ("g_object_class_install_property"));
+ cinst.add_argument (ccall);
+ cinst.add_argument (new CCodeConstant (enum_value));
+ cspec = new CCodeFunctionCall (new CCodeIdentifier ("g_param_spec_pointer"));
+ cspec.add_argument (func_name_constant);
+ cspec.add_argument (new CCodeConstant ("\"destroy func\""));
+ cspec.add_argument (new CCodeConstant ("\"destroy func\""));
+ cspec.add_argument (new CCodeConstant ("G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY"));
+ cinst.add_argument (cspec);
+ ccode.add_expression (cinst);
+ prop_enum.add_value (new CCodeEnumValue (enum_value));
+ }
+
+ /* create properties */
+ var props = cl.get_properties ();
+ foreach (Property prop in props) {
+ if (!context.analyzer.is_gobject_property (prop)) {
+ if (!context.analyzer.is_gobject_property_type (prop.property_type)) {
+ Report.warning (prop.source_reference, "Type `%s' can not be used for a GLib.Object property", prop.property_type.to_qualified_string ());
+ }
+ continue;
+ }
+
+ if (prop.comment != null) {
+ ccode.add_statement (new CCodeComment (prop.comment.content));
+ }
+
+ var cinst = new CCodeFunctionCall (new CCodeIdentifier ("g_object_class_install_property"));
+ cinst.add_argument (ccall);
+ cinst.add_argument (new CCodeConstant ("%s_PROPERTY".printf (get_ccode_upper_case_name (prop))));
+ cinst.add_argument (get_param_spec (prop));
+
+ ccode.add_expression (cinst);
+ }
+ }
+
+ private bool class_has_readable_properties (Class cl) {
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.get_accessor != null) {
+ return true;
+ }
+ }
+ return false;
+ }
+
+ private bool class_has_writable_properties (Class cl) {
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.set_accessor != null) {
+ return true;
+ }
+ }
+ return false;
+ }
+
+ private void add_guarded_expression (Symbol sym, CCodeExpression expression) {
+ // prevent deprecation warnings
+ if (sym.version.deprecated) {
+ var guard = new CCodeGGnucSection (GGnucSectionType.IGNORE_DEPRECATIONS);
+ ccode.add_statement (guard);
+ guard.append (new CCodeExpressionStatement (expression));
+ } else {
+ ccode.add_expression (expression);
+ }
+ }
+
+ private void add_get_property_function (Class cl) {
+ var get_prop = new CCodeFunction ("_vala_%s_get_property".printf (get_ccode_lower_case_name (cl, null)), "void");
+ get_prop.modifiers = CCodeModifiers.STATIC;
+ get_prop.add_parameter (new CCodeParameter ("object", "GObject *"));
+ get_prop.add_parameter (new CCodeParameter ("property_id", "guint"));
+ get_prop.add_parameter (new CCodeParameter ("value", "GValue *"));
+ get_prop.add_parameter (new CCodeParameter ("pspec", "GParamSpec *"));
+
+ push_function (get_prop);
+
+ CCodeFunctionCall ccall = generate_instance_cast (new CCodeIdentifier ("object"), cl);
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self", ccall));
+
+ ccode.open_switch (new CCodeIdentifier ("property_id"));
+ var props = cl.get_properties ();
+ foreach (Property prop in props) {
+ if (prop.get_accessor == null || prop.is_abstract) {
+ continue;
+ }
+ if (!context.analyzer.is_gobject_property (prop)) {
+ // don't register private properties
+ continue;
+ }
+
+ Property base_prop = prop;
+ CCodeExpression cself = new CCodeIdentifier ("self");
+ if (prop.base_property != null) {
+ var base_type = (Class) prop.base_property.parent_symbol;
+ base_prop = prop.base_property;
+ cself = get_cvalue_ (transform_value (new GLibValue (new ObjectType (cl), cself, true), new ObjectType (base_type), prop));
+
+ generate_property_accessor_declaration (prop.base_property.get_accessor, cfile);
+ } else if (prop.base_interface_property != null) {
+ var base_type = (Interface) prop.base_interface_property.parent_symbol;
+ base_prop = prop.base_interface_property;
+ cself = get_cvalue_ (transform_value (new GLibValue (new ObjectType (cl), cself, true), new ObjectType (base_type), prop));
+
+ generate_property_accessor_declaration (prop.base_interface_property.get_accessor, cfile);
+ }
+
+ CCodeExpression cfunc;
+ if (!get_ccode_no_accessor_method (base_prop) && !get_ccode_concrete_accessor (base_prop)) {
+ cfunc = new CCodeIdentifier (get_ccode_name (base_prop.get_accessor));
+ } else {
+ // use the static real function as helper
+ cfunc = new CCodeIdentifier (get_ccode_real_name (prop.get_accessor));
+ }
+
+ ccode.add_case (new CCodeIdentifier ("%s_PROPERTY".printf (get_ccode_upper_case_name (prop))));
+ if (prop.property_type.is_real_struct_type ()) {
+ ccode.open_block ();
+ ccode.add_declaration (get_ccode_name (prop.property_type), new CCodeVariableDeclarator ("boxed"));
+
+ ccall = new CCodeFunctionCall (cfunc);
+ ccall.add_argument (cself);
+ if (prop.property_type.nullable) {
+ ccode.add_assignment (new CCodeIdentifier ("boxed"), ccall);
+ } else {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("boxed")));
+ ccode.add_expression (ccall);
+ }
+
+ var csetcall = new CCodeFunctionCall ();
+ csetcall.call = get_value_setter_function (prop.property_type);
+ csetcall.add_argument (new CCodeIdentifier ("value"));
+ if (prop.property_type.nullable) {
+ csetcall.add_argument (new CCodeIdentifier ("boxed"));
+ } else {
+ csetcall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("boxed")));
+ }
+ add_guarded_expression (prop, csetcall);
+
+ if (requires_destroy (prop.get_accessor.value_type)) {
+ ccode.add_expression (destroy_value (new GLibValue (prop.get_accessor.value_type, new CCodeIdentifier ("boxed"), true)));
+ }
+ ccode.close ();
+ } else {
+ ccall = new CCodeFunctionCall (cfunc);
+ ccall.add_argument (cself);
+ var array_type = prop.property_type as ArrayType;
+ if (array_type != null && get_ccode_array_length (prop) && array_type.element_type.type_symbol == string_type.type_symbol) {
+ // G_TYPE_STRV
+ ccode.open_block ();
+ ccode.add_declaration ("int", new CCodeVariableDeclarator ("length"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier ("length")));
+ }
+ var csetcall = new CCodeFunctionCall ();
+ if (prop.get_accessor.value_type.value_owned) {
+ csetcall.call = get_value_taker_function (prop.property_type);
+ } else {
+ csetcall.call = get_value_setter_function (prop.property_type);
+ }
+ csetcall.add_argument (new CCodeIdentifier ("value"));
+ csetcall.add_argument (ccall);
+ add_guarded_expression (prop, csetcall);
+ if (array_type != null && get_ccode_array_length (prop) && array_type.element_type.type_symbol == string_type.type_symbol) {
+ ccode.close ();
+ }
+ }
+ ccode.add_break ();
+ }
+
+ /* type, dup func, and destroy func properties for generic types */
+ foreach (TypeParameter type_param in cl.get_type_parameters ()) {
+ string func_name, enum_value;
+ CCodeMemberAccess cfield;
+ CCodeFunctionCall csetcall;
+
+ func_name = get_ccode_type_id (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ csetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_set_gtype"));
+ csetcall.add_argument (new CCodeIdentifier ("value"));
+ csetcall.add_argument (cfield);
+ ccode.add_expression (csetcall);
+ ccode.add_break ();
+
+ func_name = get_ccode_copy_function (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ csetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_set_pointer"));
+ csetcall.add_argument (new CCodeIdentifier ("value"));
+ csetcall.add_argument (cfield);
+ ccode.add_expression (csetcall);
+ ccode.add_break ();
+
+ func_name = get_ccode_destroy_function (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ csetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_set_pointer"));
+ csetcall.add_argument (new CCodeIdentifier ("value"));
+ csetcall.add_argument (cfield);
+ ccode.add_expression (csetcall);
+ ccode.add_break ();
+ }
+ ccode.add_default ();
+ emit_invalid_property_id_warn ();
+ ccode.add_break ();
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (get_prop);
+ cfile.add_function (get_prop);
+ }
+
+ private void add_set_property_function (Class cl) {
+ var set_prop = new CCodeFunction ("_vala_%s_set_property".printf (get_ccode_lower_case_name (cl, null)), "void");
+ set_prop.modifiers = CCodeModifiers.STATIC;
+ set_prop.add_parameter (new CCodeParameter ("object", "GObject *"));
+ set_prop.add_parameter (new CCodeParameter ("property_id", "guint"));
+ set_prop.add_parameter (new CCodeParameter ("value", "const GValue *"));
+ set_prop.add_parameter (new CCodeParameter ("pspec", "GParamSpec *"));
+
+ push_function (set_prop);
+
+ CCodeFunctionCall ccall = generate_instance_cast (new CCodeIdentifier ("object"), cl);
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self", ccall));
+
+ ccode.open_switch (new CCodeIdentifier ("property_id"));
+ var props = cl.get_properties ();
+ foreach (Property prop in props) {
+ if (prop.set_accessor == null || prop.is_abstract) {
+ continue;
+ }
+ if (!context.analyzer.is_gobject_property (prop)) {
+ continue;
+ }
+
+ Property base_prop = prop;
+ CCodeExpression cself = new CCodeIdentifier ("self");
+ if (prop.base_property != null) {
+ var base_type = (Class) prop.base_property.parent_symbol;
+ base_prop = prop.base_property;
+ cself = get_cvalue_ (transform_value (new GLibValue (new ObjectType (cl), cself, true), new ObjectType (base_type), prop));
+
+ generate_property_accessor_declaration (prop.base_property.set_accessor, cfile);
+ } else if (prop.base_interface_property != null) {
+ var base_type = (Interface) prop.base_interface_property.parent_symbol;
+ base_prop = prop.base_interface_property;
+ cself = get_cvalue_ (transform_value (new GLibValue (new ObjectType (cl), cself, true), new ObjectType (base_type), prop));
+
+ generate_property_accessor_declaration (prop.base_interface_property.set_accessor, cfile);
+ }
+
+ CCodeExpression cfunc;
+ if (!get_ccode_no_accessor_method (base_prop) && !get_ccode_concrete_accessor (base_prop)) {
+ cfunc = new CCodeIdentifier (get_ccode_name (base_prop.set_accessor));
+ } else {
+ // use the static real function as helper
+ cfunc = new CCodeIdentifier (get_ccode_real_name (prop.set_accessor));
+ }
+
+ ccode.add_case (new CCodeIdentifier ("%s_PROPERTY".printf (get_ccode_upper_case_name (prop))));
+ ccall = new CCodeFunctionCall (cfunc);
+ ccall.add_argument (cself);
+ if (prop.property_type is ArrayType && ((ArrayType)prop.property_type).element_type.type_symbol == string_type.type_symbol) {
+ ccode.open_block ();
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("boxed"));
+
+ var cgetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_boxed"));
+ cgetcall.add_argument (new CCodeIdentifier ("value"));
+ ccode.add_assignment (new CCodeIdentifier ("boxed"), cgetcall);
+ ccall.add_argument (new CCodeIdentifier ("boxed"));
+
+ if (get_ccode_array_length (prop)) {
+ var cisnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("boxed"), new CCodeConstant ("NULL"));
+ var cstrvlen = new CCodeFunctionCall (new CCodeIdentifier ("g_strv_length"));
+ cstrvlen.add_argument (new CCodeIdentifier ("boxed"));
+ var ccond = new CCodeConditionalExpression (cisnull, new CCodeConstant ("0"), cstrvlen);
+
+ ccall.add_argument (ccond);
+ }
+ add_guarded_expression (prop, ccall);
+ ccode.close ();
+ } else {
+ var cgetcall = new CCodeFunctionCall ();
+ if (prop.property_type.type_symbol != null) {
+ cgetcall.call = new CCodeIdentifier (get_ccode_get_value_function (prop.property_type.type_symbol));
+ } else {
+ cgetcall.call = new CCodeIdentifier ("g_value_get_pointer");
+ }
+ cgetcall.add_argument (new CCodeIdentifier ("value"));
+ ccall.add_argument (cgetcall);
+ add_guarded_expression (prop, ccall);
+ }
+ ccode.add_break ();
+ }
+
+ /* type, dup func, and destroy func properties for generic types */
+ foreach (TypeParameter type_param in cl.get_type_parameters ()) {
+ string func_name, enum_value;
+ CCodeMemberAccess cfield;
+ CCodeFunctionCall cgetcall;
+
+ func_name = get_ccode_type_id (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ cgetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_gtype"));
+ cgetcall.add_argument (new CCodeIdentifier ("value"));
+ ccode.add_assignment (cfield, cgetcall);
+ ccode.add_break ();
+
+ func_name = get_ccode_copy_function (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ cgetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ cgetcall.add_argument (new CCodeIdentifier ("value"));
+ ccode.add_assignment (cfield, cgetcall);
+ ccode.add_break ();
+
+ func_name = get_ccode_destroy_function (type_param);
+ enum_value = "%s_%s".printf (get_ccode_lower_case_name (cl, null), func_name).ascii_up ();
+ ccode.add_case (new CCodeIdentifier (enum_value));
+ cfield = new CCodeMemberAccess.pointer (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), func_name);
+ cgetcall = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ cgetcall.add_argument (new CCodeIdentifier ("value"));
+ ccode.add_assignment (cfield, cgetcall);
+ ccode.add_break ();
+ }
+ ccode.add_default ();
+ emit_invalid_property_id_warn ();
+ ccode.add_break ();
+
+ ccode.close ();
+
+ pop_function ();
+
+ cfile.add_function_declaration (set_prop);
+ cfile.add_function (set_prop);
+ }
+
+ private void emit_invalid_property_id_warn () {
+ // warn on invalid property id
+ var cwarn = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT_WARN_INVALID_PROPERTY_ID"));
+ cwarn.add_argument (new CCodeIdentifier ("object"));
+ cwarn.add_argument (new CCodeIdentifier ("property_id"));
+ cwarn.add_argument (new CCodeIdentifier ("pspec"));
+ ccode.add_expression (cwarn);
+ }
+
+ public override void visit_constructor (Constructor c) {
+ push_line (c.source_reference);
+
+ var cl = (Class) c.parent_symbol;
+
+ if (c.binding == MemberBinding.INSTANCE) {
+ if (!cl.is_subtype_of (gobject_type)) {
+ Report.error (c.source_reference, "construct blocks require GLib.Object");
+ c.error = true;
+ return;
+ }
+
+ push_context (new EmitContext (c));
+
+ var function = new CCodeFunction ("%sconstructor".printf (get_ccode_lower_case_prefix (cl)), "GObject *");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("type", "GType"));
+ function.add_parameter (new CCodeParameter ("n_construct_properties", "guint"));
+ function.add_parameter (new CCodeParameter ("construct_properties", "GObjectConstructParam *"));
+
+ cfile.add_function_declaration (function);
+
+ push_function (function);
+
+ ccode.add_declaration ("GObject *", new CCodeVariableDeclarator ("obj"));
+ ccode.add_declaration ("GObjectClass *", new CCodeVariableDeclarator ("parent_class"));
+
+ if (cl.is_singleton) {
+ var singleton_ref_name = "%s_singleton__ref".printf (get_ccode_name (cl));
+ var singleton_lock_name = "%s_singleton__lock".printf (get_ccode_name (cl));
+ var singleton_once_name = "%s_singleton__once".printf (get_ccode_name (cl));
+
+ var singleton_ref = new CCodeDeclaration("GObject *");
+ singleton_ref.add_declarator (new CCodeVariableDeclarator (singleton_ref_name, new CCodeConstant ("NULL")));
+ singleton_ref.modifiers = CCodeModifiers.STATIC;
+ ccode.add_statement (singleton_ref);
+
+ var mutex_lock = new CCodeDeclaration("GMutex");
+ mutex_lock.add_declarator (new CCodeVariableDeclarator (singleton_lock_name));
+ mutex_lock.modifiers = CCodeModifiers.STATIC;
+ ccode.add_statement (mutex_lock);
+
+ var once_lock = new CCodeDeclaration("gsize");
+ once_lock.add_declarator (new CCodeVariableDeclarator (singleton_once_name, new CCodeConstant ("0")));
+ if (context.require_glib_version (2, 68)) {
+ once_lock.modifiers = CCodeModifiers.STATIC;
+ } else {
+ once_lock.modifiers = CCodeModifiers.STATIC | CCodeModifiers.VOLATILE;
+ }
+ ccode.add_statement (once_lock);
+
+ var once_init = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_enter"));
+ once_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_once_name)));
+
+ var once_block = new CCodeBlock();
+
+ var singleton_mutex_init = new CCodeFunctionCall (new CCodeIdentifier ("g_mutex_init"));
+ singleton_mutex_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_lock_name)));
+ once_block.add_statement (new CCodeExpressionStatement (singleton_mutex_init));
+
+ var once_leave = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_leave"));
+ once_leave.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_once_name)));
+ once_leave.add_argument (new CCodeConstant ("42"));
+ once_block.add_statement (new CCodeExpressionStatement (once_leave));
+
+ var if_once = new CCodeIfStatement (once_init, once_block);
+ ccode.add_statement (if_once);
+
+ var singleton_mutex_lock = new CCodeFunctionCall (new CCodeIdentifier ("g_mutex_lock"));
+ singleton_mutex_lock.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_lock_name)));
+ ccode.add_statement (new CCodeExpressionStatement (singleton_mutex_lock));
+
+ var check_existance = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier (singleton_ref_name), new CCodeConstant ("NULL"));
+ var return_singleton = new CCodeBlock();
+
+ var ref_object = new CCodeFunctionCall (new CCodeIdentifier ("g_object_ref"));
+ ref_object.add_argument (new CCodeIdentifier (singleton_ref_name));
+ return_singleton.add_statement (new CCodeExpressionStatement (ref_object));
+
+ var singleton_mutex_unlock = new CCodeFunctionCall (new CCodeIdentifier ("g_mutex_unlock"));
+ singleton_mutex_unlock.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_lock_name)));
+ return_singleton.add_statement (new CCodeExpressionStatement (singleton_mutex_unlock));
+ return_singleton.add_statement (new CCodeReturnStatement (new CCodeIdentifier (singleton_ref_name)));
+
+ var if_singleton_alive = new CCodeIfStatement (check_existance, return_singleton);
+ ccode.add_statement (if_singleton_alive);
+ }
+
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier ("G_OBJECT_CLASS"));
+ ccast.add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (cl, null))));
+ ccode.add_assignment (new CCodeIdentifier ("parent_class"), ccast);
+
+ var ccall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (new CCodeIdentifier ("parent_class"), "constructor"));
+ ccall.add_argument (new CCodeIdentifier ("type"));
+ ccall.add_argument (new CCodeIdentifier ("n_construct_properties"));
+ ccall.add_argument (new CCodeIdentifier ("construct_properties"));
+ ccode.add_assignment (new CCodeIdentifier ("obj"), ccall);
+
+
+ ccall = generate_instance_cast (new CCodeIdentifier ("obj"), cl);
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), ccall);
+
+ c.body.emit (this);
+
+ if (current_method_inner_error) {
+ /* always separate error parameter and inner_error local variable
+ * as error may be set to NULL but we're always interested in inner errors
+ */
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ if (cl.is_singleton) {
+ var singleton_ref_name = "%s_singleton__ref".printf (get_ccode_name (cl));
+ var singleton_lock_name = "%s_singleton__lock".printf (get_ccode_name (cl));
+
+ ccode.add_assignment (new CCodeIdentifier (singleton_ref_name), new CCodeIdentifier ("obj"));
+
+ var set_weak_ref_to_volatile = new CCodeFunctionCall (new CCodeIdentifier ("g_object_add_weak_pointer"));
+ set_weak_ref_to_volatile.add_argument (new CCodeIdentifier (singleton_ref_name));
+ set_weak_ref_to_volatile.add_argument (new CCodeCastExpression (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_ref_name)), "gpointer"));
+ ccode.add_statement (new CCodeExpressionStatement (set_weak_ref_to_volatile));
+
+ var final_singleton_mutex_unlock = new CCodeFunctionCall (new CCodeIdentifier ("g_mutex_unlock"));
+ final_singleton_mutex_unlock.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (singleton_lock_name)));
+ ccode.add_statement (new CCodeExpressionStatement (final_singleton_mutex_unlock));
+ }
+
+ ccode.add_return (new CCodeIdentifier ("obj"));
+
+ pop_function ();
+ cfile.add_function (function);
+
+ pop_context ();
+ } else if (c.binding == MemberBinding.CLASS) {
+ // class constructor
+
+ if (cl.is_compact) {
+ Report.error (c.source_reference, "class constructors are not supported in compact classes");
+ c.error = true;
+ return;
+ }
+
+ push_context (base_init_context);
+
+ c.body.emit (this);
+
+ if (current_method_inner_error) {
+ /* always separate error parameter and inner_error local variable
+ * as error may be set to NULL but we're always interested in inner errors
+ */
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ pop_context ();
+ } else if (c.binding == MemberBinding.STATIC) {
+ // static class constructor
+ // add to class_init
+
+ if (cl.is_compact) {
+ Report.error (c.source_reference, "static constructors are not supported in compact classes");
+ c.error = true;
+ return;
+ }
+
+ push_context (class_init_context);
+
+ c.body.emit (this);
+
+ if (current_method_inner_error) {
+ /* always separate error parameter and inner_error local variable
+ * as error may be set to NULL but we're always interested in inner errors
+ */
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ pop_context ();
+ } else {
+ Report.error (c.source_reference, "internal error: constructors must have instance, class, or static binding");
+ }
+
+ pop_line ();
+ }
+
+ public override string get_dynamic_signal_cname (DynamicSignal node) {
+ return "dynamic_%s%d_".printf (node.name, signal_wrapper_id++);
+ }
+
+ public override void visit_property (Property prop) {
+ base.visit_property (prop);
+
+ if (context.analyzer.is_gobject_property (prop) && prop.parent_symbol is Class) {
+ prop_enum.add_value (new CCodeEnumValue ("%s_PROPERTY".printf (get_ccode_upper_case_name (prop))));
+ }
+ }
+
+ public override void visit_method_call (MethodCall expr) {
+ if (expr.call is MemberAccess) {
+ push_line (expr.source_reference);
+
+ var ma = expr.call as MemberAccess;
+ if (ma.inner != null && ma.inner.symbol_reference == gobject_type &&
+ (ma.member_name == "new" || ma.member_name == "newv"
+ || ma.member_name == "new_valist" || ma.member_name == "new_with_properties")) {
+ // Object.new (...) creation
+ // runtime check to ref_sink the instance if it's a floating type
+ base.visit_method_call (expr);
+
+ var initiallyunowned_ccall = new CCodeFunctionCall (new CCodeIdentifier ("G_IS_INITIALLY_UNOWNED"));
+ initiallyunowned_ccall.add_argument (get_cvalue (expr));
+ var sink_ref_ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_object_ref_sink"));
+ sink_ref_ccall.add_argument (get_cvalue (expr));
+ var cexpr = new CCodeConditionalExpression (initiallyunowned_ccall, sink_ref_ccall, get_cvalue (expr));
+
+ expr.target_value = store_temp_value (new GLibValue (expr.value_type, cexpr), expr);
+ return;
+ } else if (ma.symbol_reference == gobject_type) {
+ // Object (...) chain up
+ // check it's only used with valid properties
+ foreach (var arg in expr.get_argument_list ()) {
+ var named_argument = arg as NamedArgument;
+ if (named_argument == null) {
+ Report.error (arg.source_reference, "Named argument expected");
+ break;
+ }
+ var prop = SemanticAnalyzer.symbol_lookup_inherited (current_class, named_argument.name) as Property;
+ if (prop == null) {
+ Report.error (arg.source_reference, "Property `%s' not found in `%s'", named_argument.name, current_class.get_full_name ());
+ break;
+ }
+ if (!context.analyzer.is_gobject_property (prop)) {
+ Report.error (arg.source_reference, "Property `%s' not supported in Object (property: value) constructor chain up", named_argument.name);
+ break;
+ }
+ if (!arg.value_type.compatible (prop.property_type)) {
+ Report.error (arg.source_reference, "Cannot convert from `%s' to `%s'", arg.value_type.to_string (), prop.property_type.to_string ());
+ break;
+ }
+ }
+ }
+
+ pop_line ();
+ }
+
+ base.visit_method_call (expr);
+ }
+}
+
--- /dev/null
+/* valagsignalmodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+public class Vala.GSignalModule : GObjectModule {
+ string get_marshaller_function (Signal sig, List<Parameter> params, DataType return_type, string? prefix = null) {
+ var signature = get_marshaller_signature (sig, params, return_type);
+ string ret;
+
+ if (prefix == null) {
+ if (predefined_marshal_set.contains (signature)) {
+ prefix = "g_cclosure_marshal";
+ } else {
+ prefix = "g_cclosure_user_marshal";
+ }
+ }
+
+ ret = "%s_%s_".printf (prefix, get_ccode_marshaller_type_name (return_type));
+
+ foreach (Parameter p in params) {
+ ret = "%s_%s".printf (ret, get_ccode_marshaller_type_name (p).replace (",", "_"));
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ ret = ret + "_POINTER";
+ } else if (params.size == 0) {
+ ret = ret + "_VOID";
+ }
+
+ return ret;
+ }
+
+ private string? get_value_type_name_from_type_reference (DataType t) {
+ if (t is PointerType || t is GenericType) {
+ return "gpointer";
+ } else if (t is VoidType) {
+ return "void";
+ } else if (get_ccode_type_id (t) == get_ccode_type_id (string_type)) {
+ return "const char*";
+ } else if (t.type_symbol is Class || t.type_symbol is Interface) {
+ return "gpointer";
+ } else if (t is ValueType && t.nullable) {
+ return "gpointer";
+ } else if (t.type_symbol is Struct) {
+ unowned Struct st = (Struct) t.type_symbol;
+ if (st.is_simple_type ()) {
+ return get_ccode_name (t.type_symbol);
+ } else {
+ return "gpointer";
+ }
+ } else if (t.type_symbol is Enum) {
+ unowned Enum en = (Enum) t.type_symbol;
+ if (en.is_flags) {
+ return "guint";
+ } else {
+ return "gint";
+ }
+ } else if (t is ArrayType) {
+ return "gpointer";
+ } else if (t is DelegateType) {
+ return "gpointer";
+ } else if (t is ErrorType) {
+ return "gpointer";
+ }
+
+ return null;
+ }
+
+ private string? get_value_type_name_from_parameter (Parameter p) {
+ if (p.direction != ParameterDirection.IN) {
+ return "gpointer";
+ } else {
+ return get_value_type_name_from_type_reference (p.variable_type);
+ }
+ }
+
+ private string get_marshaller_signature (Signal sig, List<Parameter> params, DataType return_type) {
+ string signature;
+
+ signature = "%s:".printf (get_ccode_marshaller_type_name (return_type));
+ bool first = true;
+ foreach (Parameter p in params) {
+ if (first) {
+ signature = signature + get_ccode_marshaller_type_name (p);
+ first = false;
+ } else {
+ signature = "%s,%s".printf (signature, get_ccode_marshaller_type_name (p));
+ }
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ signature = signature + (first ? "POINTER" : ",POINTER");
+ } else if (params.size == 0) {
+ signature = signature + "VOID";
+ }
+
+ return signature;
+ }
+
+ private CCodeExpression get_signal_name_cexpression (Signal sig, Expression? detail_expr, CodeNode node) {
+ if (detail_expr == null) {
+ return get_signal_canonical_constant (sig);
+ }
+
+ if (detail_expr is StringLiteral) {
+ return get_signal_canonical_constant (sig, ((StringLiteral) detail_expr).eval ());
+ }
+
+ var detail_value = create_temp_value (detail_expr.value_type, false, node, true);
+ temp_ref_values.insert (0, detail_value);
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_strconcat"));
+ ccall.add_argument (get_signal_canonical_constant (sig, ""));
+ ccall.add_argument (get_cvalue (detail_expr));
+ ccall.add_argument (new CCodeConstant ("NULL"));
+
+ ccode.add_assignment (get_cvalue_ (detail_value), ccall);
+ return get_cvalue_ (detail_value);
+ }
+
+ private CCodeExpression get_signal_id_cexpression (Signal sig) {
+ var cl = (TypeSymbol) sig.parent_symbol;
+ var signal_array = new CCodeIdentifier ("%s_signals".printf (get_ccode_lower_case_name (cl)));
+ var signal_enum_value = new CCodeIdentifier ("%s_%s_SIGNAL".printf (get_ccode_upper_case_name (cl), get_ccode_upper_case_name (sig)));
+
+ return new CCodeElementAccess (signal_array, signal_enum_value);
+ }
+
+ private CCodeExpression get_detail_cexpression (Expression detail_expr, CodeNode node) {
+ var detail_cexpr = get_cvalue (detail_expr);
+ CCodeFunctionCall detail_ccall;
+ if (is_constant_ccode_expression (detail_cexpr)) {
+ detail_ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_static_string"));
+ } else {
+ detail_ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_quark_from_string"));
+ }
+ detail_ccall.add_argument (detail_cexpr);
+
+ return detail_ccall;
+ }
+
+ public override void visit_signal (Signal sig) {
+ if (signal_enum != null && sig.parent_symbol is TypeSymbol) {
+ signal_enum.add_value (new CCodeEnumValue ("%s_%s_SIGNAL".printf (get_ccode_upper_case_name ((TypeSymbol) sig.parent_symbol), get_ccode_upper_case_name (sig))));
+ }
+
+ sig.accept_children (this);
+
+ // declare parameter type
+ unowned List<Parameter> params = sig.get_parameters ();
+ foreach (Parameter p in params) {
+ generate_parameter (p, cfile, new HashMap<int,CCodeParameter> (), null);
+ }
+
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ generate_marshaller (sig, params, new VoidType ());
+ } else {
+ generate_marshaller (sig, params, sig.return_type);
+ }
+ }
+
+ void generate_marshaller (Signal sig, List<Parameter> params, DataType return_type) {
+ string signature;
+ int n_params, i;
+
+ /* check whether a signal with the same signature already exists for this source file (or predefined) */
+ signature = get_marshaller_signature (sig, params, return_type);
+ if (predefined_marshal_set.contains (signature) || user_marshal_set.contains (signature)) {
+ return;
+ }
+
+ var signal_marshaller = new CCodeFunction (get_marshaller_function (sig, params, return_type, null), "void");
+ signal_marshaller.modifiers = CCodeModifiers.STATIC;
+
+ signal_marshaller.add_parameter (new CCodeParameter ("closure", "GClosure *"));
+ signal_marshaller.add_parameter (new CCodeParameter ("return_value", "GValue *"));
+ signal_marshaller.add_parameter (new CCodeParameter ("n_param_values", "guint"));
+ signal_marshaller.add_parameter (new CCodeParameter ("param_values", "const GValue *"));
+ signal_marshaller.add_parameter (new CCodeParameter ("invocation_hint", "gpointer"));
+ signal_marshaller.add_parameter (new CCodeParameter ("marshal_data", "gpointer"));
+
+ push_function (signal_marshaller);
+
+ var callback_decl = new CCodeFunctionDeclarator (get_marshaller_function (sig, params, return_type, "GMarshalFunc"));
+ callback_decl.add_parameter (new CCodeParameter ("data1", "gpointer"));
+ n_params = 1;
+ foreach (Parameter p in params) {
+ callback_decl.add_parameter (new CCodeParameter ("arg_%d".printf (n_params), get_value_type_name_from_parameter (p)));
+ n_params++;
+ if (p.variable_type is ArrayType) {
+ var array_type = (ArrayType) p.variable_type;
+ var length_ctype = get_ccode_array_length_type (p);
+ for (var j = 0; j < array_type.rank; j++) {
+ callback_decl.add_parameter (new CCodeParameter ("arg_%d".printf (n_params), length_ctype));
+ n_params++;
+ }
+ } else if (p.variable_type is DelegateType) {
+ unowned DelegateType delegate_type = (DelegateType) p.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ callback_decl.add_parameter (new CCodeParameter ("arg_%d".printf (n_params), get_ccode_name (delegate_target_type)));
+ n_params++;
+ if (delegate_type.is_disposable ()) {
+ callback_decl.add_parameter (new CCodeParameter ("arg_%d".printf (n_params), get_ccode_name (delegate_target_destroy_type)));
+ n_params++;
+ }
+ }
+ }
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ callback_decl.add_parameter (new CCodeParameter ("arg_%d".printf (n_params), "gpointer"));
+ n_params++;
+ }
+
+ callback_decl.add_parameter (new CCodeParameter ("data2", "gpointer"));
+ ccode.add_statement (new CCodeTypeDefinition (get_value_type_name_from_type_reference (return_type), callback_decl));
+
+ ccode.add_declaration (get_marshaller_function (sig, params, return_type, "GMarshalFunc"), new CCodeVariableDeclarator ("callback"), CCodeModifiers.REGISTER);
+
+ ccode.add_declaration ("GCClosure *", new CCodeVariableDeclarator ("cc", new CCodeCastExpression (new CCodeIdentifier ("closure"), "GCClosure *")), CCodeModifiers.REGISTER);
+
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("data1"), CCodeModifiers.REGISTER);
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator ("data2"), CCodeModifiers.REGISTER);
+
+ CCodeFunctionCall fc;
+
+ if (return_type.type_symbol != null || return_type is ArrayType) {
+ ccode.add_declaration (get_value_type_name_from_type_reference (return_type), new CCodeVariableDeclarator ("v_return"));
+
+ fc = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier ("return_value"), new CCodeConstant ("NULL")));
+ ccode.add_expression (fc);
+ }
+
+ fc = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier ("n_param_values"), new CCodeConstant (n_params.to_string())));
+ ccode.add_expression (fc);
+
+ var data = new CCodeMemberAccess (new CCodeIdentifier ("closure"), "data", true);
+ var param = new CCodeMemberAccess (new CCodeMemberAccess (new CCodeIdentifier ("param_values"), "data[0]", true), "v_pointer");
+ var cond = new CCodeFunctionCall (new CCodeConstant ("G_CCLOSURE_SWAP_DATA"));
+ cond.add_argument (new CCodeIdentifier ("closure"));
+ ccode.open_if (cond);
+ ccode.add_assignment (new CCodeIdentifier ("data1"), data);
+ ccode.add_assignment (new CCodeIdentifier ("data2"), param);
+ ccode.add_else ();
+ ccode.add_assignment (new CCodeIdentifier ("data1"), param);
+ ccode.add_assignment (new CCodeIdentifier ("data2"), data);
+ ccode.close ();
+
+ var c_assign_rhs = new CCodeCastExpression (new CCodeConditionalExpression (new CCodeIdentifier ("marshal_data"), new CCodeIdentifier ("marshal_data"), new CCodeMemberAccess (new CCodeIdentifier ("cc"), "callback", true)), get_marshaller_function (sig, params, return_type, "GMarshalFunc"));
+ ccode.add_assignment (new CCodeIdentifier ("callback"), c_assign_rhs);
+
+ fc = new CCodeFunctionCall (new CCodeIdentifier ("callback"));
+ fc.add_argument (new CCodeIdentifier ("data1"));
+ i = 1;
+ foreach (Parameter p in params) {
+ CCodeFunctionCall inner_fc;
+ if (p.direction != ParameterDirection.IN) {
+ inner_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ } else if (p.variable_type is ValueType && p.variable_type.nullable) {
+ inner_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ } else {
+ inner_fc = new CCodeFunctionCall (get_value_getter_function (p.variable_type));
+ }
+ inner_fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("param_values"), new CCodeIdentifier (i.to_string ())));
+ fc.add_argument (inner_fc);
+ i++;
+ if (p.variable_type is ArrayType) {
+ var array_type = (ArrayType) p.variable_type;
+ var length_value_function = get_ccode_get_value_function (array_type.length_type.type_symbol);
+ assert (length_value_function != null && length_value_function != "");
+ for (var j = 0; j < array_type.rank; j++) {
+ inner_fc = new CCodeFunctionCall (new CCodeIdentifier (length_value_function));
+ inner_fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("param_values"), new CCodeIdentifier (i.to_string ())));
+ fc.add_argument (inner_fc);
+ i++;
+ }
+ } else if (p.variable_type is DelegateType) {
+ unowned DelegateType delegate_type = (DelegateType) p.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ inner_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ inner_fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("param_values"), new CCodeIdentifier (i.to_string ())));
+ fc.add_argument (inner_fc);
+ i++;
+ if (delegate_type.is_disposable ()) {
+ inner_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ inner_fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("param_values"), new CCodeIdentifier (i.to_string ())));
+ fc.add_argument (inner_fc);
+ i++;
+ }
+ }
+ }
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ var inner_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_get_pointer"));
+ inner_fc.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("param_values"), new CCodeIdentifier (i.to_string ())));
+ fc.add_argument (inner_fc);
+ i++;
+ }
+ fc.add_argument (new CCodeIdentifier ("data2"));
+
+ if (return_type.type_symbol != null || return_type is ArrayType) {
+ ccode.add_assignment (new CCodeIdentifier ("v_return"), fc);
+
+ CCodeFunctionCall set_fc;
+ if (return_type is ValueType) {
+ if (return_type.nullable) {
+ set_fc = new CCodeFunctionCall (new CCodeIdentifier ("g_value_set_pointer"));
+ } else {
+ set_fc = new CCodeFunctionCall (get_value_setter_function (return_type));
+ }
+ } else {
+ set_fc = new CCodeFunctionCall (get_value_taker_function (return_type));
+ }
+ set_fc.add_argument (new CCodeIdentifier ("return_value"));
+ set_fc.add_argument (new CCodeIdentifier ("v_return"));
+
+ ccode.add_expression (set_fc);
+ } else {
+ ccode.add_expression (fc);
+ }
+
+ pop_function ();
+
+ cfile.add_function_declaration (signal_marshaller);
+ cfile.add_function (signal_marshaller);
+ user_marshal_set.add (signature);
+ }
+
+ public override CCodeExpression get_signal_creation (Signal sig, ObjectTypeSymbol type) {
+ CCodeFunctionCall csignew;
+ if (sig.default_handler == null || sig.is_virtual) {
+ csignew = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_new"));
+ } else {
+ csignew = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_new_class_handler"));
+ }
+ csignew.add_argument (new CCodeConstant ("\"%s\"".printf (get_ccode_name (sig))));
+ csignew.add_argument (new CCodeIdentifier (get_ccode_type_id (type)));
+ string[] flags = new string[0];
+ var run_type = sig.get_attribute_string ("Signal", "run");
+ if (run_type == "first") {
+ flags += "G_SIGNAL_RUN_FIRST";
+ } else if (run_type == "cleanup") {
+ flags += "G_SIGNAL_RUN_CLEANUP";
+ } else {
+ flags += "G_SIGNAL_RUN_LAST";
+ }
+ if (sig.get_attribute_bool ("Signal", "detailed")) {
+ flags += "G_SIGNAL_DETAILED";
+ }
+
+ if (sig.get_attribute_bool ("Signal", "no_recurse")) {
+ flags += "G_SIGNAL_NO_RECURSE";
+ }
+
+ if (sig.get_attribute_bool ("Signal", "action")) {
+ flags += "G_SIGNAL_ACTION";
+ }
+
+ if (sig.get_attribute_bool ("Signal", "no_hooks")) {
+ flags += "G_SIGNAL_NO_HOOKS";
+ }
+
+ if (sig.version.deprecated) {
+ flags += "G_SIGNAL_DEPRECATED";
+ }
+
+ csignew.add_argument (new CCodeConstant (string.joinv (" | ", flags)));
+
+ if (sig.default_handler == null) {
+ csignew.add_argument (new CCodeConstant ("0"));
+ } else if (sig.is_virtual) {
+ var struct_offset = new CCodeFunctionCall (new CCodeIdentifier ("G_STRUCT_OFFSET"));
+ struct_offset.add_argument (new CCodeIdentifier (get_ccode_type_name (type)));
+ struct_offset.add_argument (new CCodeIdentifier (get_ccode_vfunc_name (sig.default_handler)));
+ csignew.add_argument (struct_offset);
+ } else {
+ csignew.add_argument (new CCodeCastExpression (new CCodeIdentifier (get_ccode_real_name (sig.default_handler)), "GCallback"));
+ }
+ csignew.add_argument (new CCodeConstant ("NULL"));
+ csignew.add_argument (new CCodeConstant ("NULL"));
+
+ unowned List<Parameter> params = sig.get_parameters ();
+ string marshaller;
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ marshaller = get_marshaller_function (sig, params, new VoidType ());
+ } else {
+ marshaller = get_marshaller_function (sig, params, sig.return_type);
+ }
+
+ var marshal_arg = new CCodeIdentifier (marshaller);
+ csignew.add_argument (marshal_arg);
+
+ if (sig.return_type is PointerType || sig.return_type is GenericType) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else if (sig.return_type is ErrorType) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else if (sig.return_type is ValueType && sig.return_type.nullable) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else if (sig.return_type.type_symbol == null) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_NONE"));
+ } else if (sig.return_type.is_real_non_null_struct_type ()) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_NONE"));
+ } else {
+ csignew.add_argument (new CCodeConstant (get_ccode_type_id (sig.return_type.type_symbol)));
+ }
+
+ int params_len = 0;
+ foreach (Parameter param in params) {
+ params_len++;
+ if (param.variable_type is ArrayType) {
+ params_len += ((ArrayType) param.variable_type).rank;
+ } else if (param.variable_type is DelegateType) {
+ unowned DelegateType delegate_type = (DelegateType) param.variable_type;
+ if (delegate_type.delegate_symbol.has_target) {
+ params_len++;
+ if (delegate_type.is_disposable ()) {
+ params_len++;
+ }
+ }
+ }
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ params_len++;
+ }
+
+ csignew.add_argument (new CCodeConstant ("%d".printf (params_len)));
+ foreach (Parameter param in params) {
+ if (param.variable_type is ArrayType) {
+ var array_type = (ArrayType) param.variable_type;
+ if (array_type.element_type.type_symbol == string_type.type_symbol) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_STRV"));
+ } else {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ }
+ assert (get_ccode_has_type_id (array_type.length_type.type_symbol));
+ var length_type_id = get_ccode_type_id (array_type.length_type.type_symbol);
+ for (var i = 0; i < array_type.rank; i++) {
+ csignew.add_argument (new CCodeConstant (length_type_id));
+ }
+ } else if (param.variable_type is DelegateType) {
+ unowned DelegateType delegate_type = (DelegateType) param.variable_type;
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ if (delegate_type.delegate_symbol.has_target) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ if (delegate_type.is_disposable ()) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ }
+ }
+ } else if (param.variable_type is PointerType || param.variable_type is GenericType || param.direction != ParameterDirection.IN) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else if (param.variable_type is ErrorType) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else if (param.variable_type is ValueType && param.variable_type.nullable) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ } else {
+ csignew.add_argument (new CCodeConstant (get_ccode_type_id (param.variable_type.type_symbol)));
+ }
+ }
+ if (sig.return_type.is_real_non_null_struct_type ()) {
+ csignew.add_argument (new CCodeConstant ("G_TYPE_POINTER"));
+ }
+
+ marshal_arg.name = marshaller;
+
+ return new CCodeAssignment (get_signal_id_cexpression (sig), csignew);
+ }
+
+ public override void visit_element_access (ElementAccess expr) {
+ if (!(expr.container is MemberAccess && expr.container.symbol_reference is Signal)) {
+ base.visit_element_access (expr);
+ return;
+ }
+
+ if (expr.parent_node is MethodCall) {
+ // detailed signal emission
+ unowned Signal sig = (Signal) expr.symbol_reference;
+ unowned MemberAccess ma = (MemberAccess) expr.container;
+ var detail_expr = expr.get_indices ().get (0);
+
+ set_cvalue (expr, emit_signal (sig, ma, detail_expr));
+ } else {
+ // signal connect or disconnect
+ }
+ }
+
+ bool in_gobject_instance (Method m) {
+ bool result = false;
+ if (m.binding == MemberBinding.INSTANCE) {
+ result = m.this_parameter.variable_type.type_symbol.is_subtype_of (gobject_type);
+ }
+ return result;
+ }
+
+ public override void visit_member_access (MemberAccess expr) {
+ if (!(expr.symbol_reference is Signal)) {
+ base.visit_member_access (expr);
+ return;
+ }
+
+ unowned Signal sig = (Signal) expr.symbol_reference;
+
+ set_cvalue (expr, emit_signal (sig, expr));
+ }
+
+ CCodeExpression emit_signal (Signal sig, MemberAccess expr, Expression? detail_expr = null) {
+ CCodeExpression pub_inst = null;
+
+ if (expr.inner != null) {
+ pub_inst = get_cvalue (expr.inner);
+ }
+
+ if (expr.inner is BaseAccess && sig.is_virtual) {
+ var m = sig.default_handler;
+ var base_class = (Class) m.parent_symbol;
+ var vcast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_class)));
+ vcast.add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (current_class))));
+ return new CCodeMemberAccess.pointer (vcast, m.name);
+ }
+
+ if (!sig.external_package && expr.source_reference.file == sig.source_reference.file && !(sig is DynamicSignal)) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_emit"));
+ ccall.add_argument (pub_inst);
+ ccall.add_argument (get_signal_id_cexpression (sig));
+ if (detail_expr == null) {
+ ccall.add_argument (new CCodeConstant ("0"));
+ } else {
+ ccall.add_argument (get_detail_cexpression (detail_expr, expr));
+ }
+ return ccall;
+ } else if (get_ccode_has_emitter (sig)) {
+ string emitter_func;
+ if (sig.emitter != null) {
+ if (!sig.external_package && expr.source_reference.file != sig.source_reference.file) {
+ generate_method_declaration (sig.emitter, cfile);
+ }
+ emitter_func = get_ccode_lower_case_name (sig.emitter);
+ } else {
+ unowned TypeSymbol sym = (TypeSymbol) sig.parent_symbol;
+ emitter_func = "%s_%s".printf (get_ccode_lower_case_name (sym), get_ccode_lower_case_name (sig));
+ }
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (emitter_func));
+ ccall.add_argument (pub_inst);
+ return ccall;
+ } else {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_emit_by_name"));
+ ccall.add_argument (pub_inst);
+ if (detail_expr == null) {
+ ccall.add_argument (get_signal_canonical_constant (sig));
+ } else {
+ ccall.add_argument (get_signal_name_cexpression (sig, detail_expr, expr));
+ }
+ return ccall;
+ }
+ }
+
+ public override void visit_method_call (MethodCall expr) {
+ var method_type = expr.call.value_type as MethodType;
+
+ if (method_type == null || !(method_type.method_symbol.parent_symbol is Signal)) {
+ // no signal connect/disconnect call
+ base.visit_method_call (expr);
+ return;
+ }
+
+ var sig = (Signal) method_type.method_symbol.parent_symbol;
+ var signal_access = ((MemberAccess) expr.call).inner;
+ var handler = expr.get_argument_list ().get (0);
+
+ bool disconnect = (method_type.method_symbol.name == "disconnect");
+ bool after = (method_type.method_symbol.name == "connect_after");
+
+ var cexpr = connect_signal (sig, signal_access, handler, disconnect, after, expr);
+ set_cvalue (expr, cexpr);
+ }
+
+ CCodeExpression? connect_signal (Signal sig, Expression signal_access, Expression handler, bool disconnect, bool after, CodeNode expr) {
+ string connect_func;
+
+ DelegateType? dt = null;
+ if (handler.symbol_reference is Variable) {
+ dt = ((Variable) handler.symbol_reference).variable_type as DelegateType;
+ if (dt != null && !context.experimental) {
+ Report.warning (handler.source_reference, "Connecting delegates to signals is experimental");
+ }
+ // Use actual lambda expression if available for proper target/destroy handling
+ if (((Variable) handler.symbol_reference).initializer is LambdaExpression) {
+ handler = ((Variable) handler.symbol_reference).initializer;
+ }
+ }
+ var m = handler.symbol_reference as Method;
+
+ if (!disconnect) {
+ // connect
+ if (!(sig is DynamicSignal) && ((m != null && m.closure) || (dt != null && dt.value_owned))) {
+ connect_func = "g_signal_connect_data";
+ } else if (m != null && in_gobject_instance (m)) {
+ connect_func = "g_signal_connect_object";
+ } else if (!after) {
+ connect_func = "g_signal_connect";
+ } else {
+ connect_func = "g_signal_connect_after";
+ }
+ } else {
+ // disconnect
+ if (sig is DynamicSignal) {
+ connect_func = "VALA_UNSUPPORTED";
+ } else {
+ connect_func = "g_signal_handlers_disconnect_matched";
+ }
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (connect_func));
+
+ CCodeExpression signal_name_cexpr = null;
+
+ // first argument: instance of sender
+ MemberAccess ma;
+ if (signal_access is ElementAccess) {
+ var ea = (ElementAccess) signal_access;
+ ma = (MemberAccess) ea.container;
+ var detail_expr = ea.get_indices ().get (0);
+ signal_name_cexpr = get_signal_name_cexpression (sig, detail_expr, expr);
+ } else {
+ ma = (MemberAccess) signal_access;
+ signal_name_cexpr = get_signal_name_cexpression (sig, null, expr);
+ }
+ if (ma.inner != null) {
+ ccall.add_argument ((CCodeExpression) get_ccodenode (ma.inner));
+ } else {
+ ccall.add_argument (get_this_cexpression ());
+ }
+
+ if (sig is DynamicSignal) {
+ // dynamic_signal_connect or dynamic_signal_disconnect
+
+ // second argument: signal name
+ ccall.add_argument (new CCodeConstant ("\"%s\"".printf (get_ccode_name (sig))));
+ } else if (!disconnect) {
+ // g_signal_connect_object or g_signal_connect
+
+ // second argument: signal name
+ ccall.add_argument (signal_name_cexpr);
+ } else {
+ // g_signal_handlers_disconnect_matched
+
+ // second argument: mask
+ if (!(signal_access is ElementAccess)) {
+ ccall.add_argument (new CCodeConstant ("G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA"));
+ } else {
+ ccall.add_argument (new CCodeConstant ("G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_DETAIL | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA"));
+ }
+
+ // get signal id
+ var temp_decl = get_temp_variable (uint_type);
+ emit_temp_var (temp_decl);
+ var parse_call = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_parse_name"));
+ parse_call.add_argument (signal_name_cexpr);
+ var decl_type = (TypeSymbol) sig.parent_symbol;
+ parse_call.add_argument (new CCodeIdentifier (get_ccode_type_id (decl_type)));
+ parse_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_variable_cexpression (temp_decl.name)));
+ LocalVariable? detail_temp_decl = null;
+ if (!(signal_access is ElementAccess)) {
+ parse_call.add_argument (new CCodeConstant ("NULL"));
+ parse_call.add_argument (new CCodeConstant ("FALSE"));
+ } else {
+ detail_temp_decl = get_temp_variable (gquark_type);
+ emit_temp_var (detail_temp_decl);
+ parse_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_variable_cexpression (detail_temp_decl.name)));
+ parse_call.add_argument (new CCodeConstant ("TRUE"));
+ }
+ ccode.add_expression (parse_call);
+
+ // third argument: signal_id
+ ccall.add_argument (get_variable_cexpression (temp_decl.name));
+
+ // fourth argument: detail
+ if (detail_temp_decl == null) {
+ ccall.add_argument (new CCodeConstant ("0"));
+ } else {
+ ccall.add_argument (get_variable_cexpression (detail_temp_decl.name));
+ }
+ // fifth argument: closure
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ // third resp. sixth argument: handler
+ ccall.add_argument (new CCodeCastExpression (get_cvalue (handler), "GCallback"));
+
+ if (m != null && m.closure) {
+ // g_signal_connect_data
+
+ // fourth argument: user_data
+ CCodeExpression handler_destroy_notify;
+ ccall.add_argument (get_delegate_target_cexpression (handler, out handler_destroy_notify));
+
+ // fifth argument: destroy_notify
+ ccall.add_argument (new CCodeCastExpression (handler_destroy_notify, "GClosureNotify"));
+
+ // sixth argument: connect_flags
+ if (!after)
+ ccall.add_argument (new CCodeConstant ("0"));
+ else
+ ccall.add_argument (new CCodeConstant ("G_CONNECT_AFTER"));
+ } else if (m != null && m.binding == MemberBinding.INSTANCE) {
+ // g_signal_connect_object or g_signal_handlers_disconnect_matched
+ // or dynamic_signal_connect or dynamic_signal_disconnect
+
+ // fourth resp. seventh argument: object/user_data
+ if (handler is MemberAccess) {
+ var right_ma = (MemberAccess) handler;
+ if (right_ma.inner != null) {
+ ccall.add_argument (get_cvalue (right_ma.inner));
+ } else {
+ ccall.add_argument (get_this_cexpression ());
+ }
+ } else if (handler is LambdaExpression) {
+ ccall.add_argument (get_this_cexpression ());
+ }
+ if (!disconnect && in_gobject_instance (m)) {
+ // g_signal_connect_object
+
+ // fifth argument: connect_flags
+ if (!after)
+ ccall.add_argument (new CCodeConstant ("0"));
+ else
+ ccall.add_argument (new CCodeConstant ("G_CONNECT_AFTER"));
+ }
+ } else if (dt != null && dt.delegate_symbol.has_target) {
+ // fourth argument: user_data
+ CCodeExpression handler_destroy_notify;
+ ccall.add_argument (get_delegate_target_cexpression (handler, out handler_destroy_notify));
+ if (!disconnect && dt.value_owned) {
+ // fifth argument: destroy_notify
+ //FIXME handler_destroy_notify is NULL
+ ccall.add_argument (new CCodeCastExpression (handler_destroy_notify, "GClosureNotify"));
+ // sixth argument: connect_flags
+ if (!after)
+ ccall.add_argument (new CCodeConstant ("0"));
+ else
+ ccall.add_argument (new CCodeConstant ("G_CONNECT_AFTER"));
+ }
+ } else {
+ // g_signal_connect or g_signal_connect_after or g_signal_handlers_disconnect_matched
+ // or dynamic_signal_connect or dynamic_signal_disconnect
+
+ // fourth resp. seventh argument: user_data
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ if (disconnect || expr.parent_node is ExpressionStatement) {
+ ccode.add_expression (ccall);
+ return null;
+ } else {
+ var temp_var = get_temp_variable (ulong_type);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+
+ emit_temp_var (temp_var);
+
+ ccode.add_assignment (temp_ref, ccall);
+
+ return temp_ref;
+ }
+ }
+}
+
--- /dev/null
+/* valagtkmodule.vala
+ *
+ * Copyright (C) 2013 Jürg Billeter
+ * Copyright (C) 2013-2014 Luca Bruno
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Luca Bruno <lucabru@src.gnome.org>
+ */
+
+
+public class Vala.GtkModule : GSignalModule {
+
+ class InvalidClass : Class {
+ public InvalidClass (string name) {
+ base (name, null, null);
+ error = true;
+ }
+ public override bool check (CodeContext context) {
+ return false;
+ }
+ }
+
+ class InvalidProperty : Property {
+ public InvalidProperty (string name) {
+ base (name, null, null, null);
+ error = true;
+ }
+ public override bool check (CodeContext context) {
+ return false;
+ }
+ }
+
+ /* C type-func name to Vala class mapping */
+ private HashMap<string, Class> type_id_to_vala_map = null;
+ /* C class name to Vala class mapping */
+ private HashMap<string, Class> cclass_to_vala_map = null;
+ /* GResource name to real file name mapping */
+ private HashMap<string, string> gresource_to_file_map = null;
+ /* GtkBuilder xml handler set */
+ private HashMap<string, string> handler_map = new HashMap<string, string>(str_hash, str_equal);
+ /* GtkBuilder xml handler to Vala property mapping */
+ private HashMap<string, Property> current_handler_to_property_map = new HashMap<string, Property>(str_hash, str_equal);
+ /* GtkBuilder xml handler to Vala signal mapping */
+ private HashMap<string, Signal> current_handler_to_signal_map = new HashMap<string, Signal>(str_hash, str_equal);
+ /* GtkBuilder xml child to Vala class mapping */
+ private HashMap<string, Class> current_child_to_class_map = new HashMap<string, Class>(str_hash, str_equal);
+ /* Required custom application-specific gtype classes to be ref'd before initializing the template */
+ private List<Class> current_required_app_classes = new ArrayList<Class>();
+
+ /* Stack of occuring object elements in the template */
+ List<Class> current_object_stack = new ArrayList<Class> ();
+ Class? current_object;
+
+ void push_object (Class cl) {
+ current_object_stack.add (current_object);
+ current_object = cl;
+ }
+
+ void pop_object () {
+ current_object = current_object_stack.remove_at (current_object_stack.size - 1);
+ }
+
+ /* Stack of occuring property elements in the template */
+ List<Property> current_property_stack = new ArrayList<Property> ();
+ Property? current_property;
+
+ void push_property (Property prop) {
+ current_property_stack.add (current_property);
+ current_property = prop;
+ }
+
+ void pop_property () {
+ current_property = current_property_stack.remove_at (current_property_stack.size - 1);
+ }
+
+ private void ensure_type_id_to_vala_map () {
+ // map C type-func name of gtypeinstance classes to Vala classes
+ if (type_id_to_vala_map != null) {
+ return;
+ }
+ type_id_to_vala_map = new HashMap<string, Class>(str_hash, str_equal);
+ recurse_type_id_to_vala_map (context.root);
+ }
+
+ private void recurse_type_id_to_vala_map (Symbol sym) {
+ unowned List<Class> classes;
+ if (sym is Namespace) {
+ foreach (var inner in ((Namespace) sym).get_namespaces()) {
+ recurse_type_id_to_vala_map (inner);
+ }
+ classes = ((Namespace) sym).get_classes ();
+ } else if (sym is ObjectTypeSymbol) {
+ classes = ((ObjectTypeSymbol) sym).get_classes ();
+ } else {
+ return;
+ }
+ foreach (var cl in classes) {
+ if (!cl.is_compact) {
+ var type_id = get_ccode_type_id (cl);
+ if (type_id == null)
+ continue;
+
+ var i = type_id.index_of_char ('(');
+ if (i > 0) {
+ type_id = type_id.substring (0, i - 1).strip ();
+ } else {
+ type_id = type_id.strip ();
+ }
+ type_id_to_vala_map.set (type_id, cl);
+ }
+ recurse_type_id_to_vala_map (cl);
+ }
+ }
+
+ private void ensure_cclass_to_vala_map () {
+ // map C name of gtypeinstance classes to Vala classes
+ if (cclass_to_vala_map != null) {
+ return;
+ }
+ cclass_to_vala_map = new HashMap<string, Class>(str_hash, str_equal);
+ recurse_cclass_to_vala_map (context.root);
+ }
+
+ private void recurse_cclass_to_vala_map (Symbol sym) {
+ unowned List<Class> classes;
+ if (sym is Namespace) {
+ foreach (var inner in ((Namespace) sym).get_namespaces()) {
+ recurse_cclass_to_vala_map (inner);
+ }
+ classes = ((Namespace) sym).get_classes ();
+ } else if (sym is ObjectTypeSymbol) {
+ classes = ((ObjectTypeSymbol) sym).get_classes ();
+ } else {
+ return;
+ }
+ foreach (var cl in classes) {
+ if (!cl.is_compact) {
+ cclass_to_vala_map.set (get_ccode_name (cl), cl);
+ }
+ recurse_cclass_to_vala_map (cl);
+ }
+ }
+
+ private void ensure_gresource_to_file_map () {
+ // map gresource paths to real file names
+ if (gresource_to_file_map != null) {
+ return;
+ }
+ gresource_to_file_map = new HashMap<string, string>(str_hash, str_equal);
+ foreach (var gresource in context.gresources) {
+ if (!FileUtils.test (gresource, FileTest.EXISTS)) {
+ Report.error (null, "GResources file `%s' does not exist", gresource);
+ continue;
+ }
+
+ MarkupReader reader = new MarkupReader (gresource);
+
+ int state = 0;
+ string prefix = null;
+ string alias = null;
+
+ MarkupTokenType current_token = reader.read_token (null, null);
+ while (current_token != MarkupTokenType.EOF) {
+ if (current_token == MarkupTokenType.START_ELEMENT && reader.name == "gresource") {
+ prefix = reader.get_attribute ("prefix");
+ } else if (current_token == MarkupTokenType.START_ELEMENT && reader.name == "file") {
+ alias = reader.get_attribute ("alias");
+ state = 1;
+ } else if (state == 1 && current_token == MarkupTokenType.TEXT) {
+ var name = reader.content;
+ var filename = context.get_gresource_path (gresource, name);
+ if (alias != null) {
+ gresource_to_file_map.set (Path.build_filename (prefix, alias), filename);
+ }
+ gresource_to_file_map.set (Path.build_filename (prefix, name), filename);
+ state = 0;
+ }
+ current_token = reader.read_token (null, null);
+ }
+ }
+ }
+
+ private void process_current_ui_resource (string ui_resource, CodeNode node) {
+ /* Scan a single gtkbuilder file for signal handlers in <object> elements,
+ and save an handler string -> Vala.Signal mapping for each of them */
+ ensure_type_id_to_vala_map ();
+ ensure_cclass_to_vala_map();
+ ensure_gresource_to_file_map();
+
+ current_handler_to_signal_map = null;
+ current_child_to_class_map = null;
+ var ui_file = gresource_to_file_map.get (ui_resource);
+ if (ui_file == null || !FileUtils.test (ui_file, FileTest.EXISTS)) {
+ node.error = true;
+ Report.error (node.source_reference, "UI resource not found: `%s'. Please make sure to specify the proper GResources xml files with --gresources and alternative search locations with --gresourcesdir.", ui_resource);
+ return;
+ }
+ handler_map = new HashMap<string, string>(str_hash, str_equal);
+ current_handler_to_signal_map = new HashMap<string, Signal>(str_hash, str_equal);
+ current_child_to_class_map = new HashMap<string, Class>(str_hash, str_equal);
+ current_object_stack = new ArrayList<Class> ();
+ current_property_stack = new ArrayList<Property> ();
+
+ MarkupReader reader = new MarkupReader (ui_file);
+ string? current_handler = null;
+
+ bool template_tag_found = false;
+ MarkupTokenType current_token = reader.read_token (null, null);
+ while (current_token != MarkupTokenType.EOF) {
+ unowned string current_name = reader.name;
+ if (current_token == MarkupTokenType.START_ELEMENT && (current_name == "object" || current_name == "template")) {
+ Class? current_class = null;
+
+ if (current_name == "object") {
+ var type_id = reader.get_attribute ("type-func");
+ if (type_id != null) {
+ current_class = type_id_to_vala_map.get (type_id);
+ }
+ } else if (current_name == "template") {
+ template_tag_found = true;
+ }
+
+ if (current_class == null) {
+ var class_name = reader.get_attribute ("class");
+ if (class_name == null) {
+ Report.error (node.source_reference, "Invalid %s in ui file `%s'", current_name, ui_file);
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+ current_class = cclass_to_vala_map.get (class_name);
+
+ if (current_class == null) {
+ push_object (new InvalidClass (class_name));
+ if (current_name == "template") {
+ Report.error (node.source_reference, "Unknown template `%s' in ui file `%s'", class_name, ui_file);
+ } else {
+ Report.warning (node.source_reference, "Unknown object `%s' in ui file `%s'", class_name, ui_file);
+ }
+ }
+ }
+
+ if (current_class != null) {
+ var child_name = reader.get_attribute ("id");
+ if (child_name != null) {
+ current_child_to_class_map.set (child_name, current_class);
+ }
+ push_object (current_class);
+ }
+ } else if (current_token == MarkupTokenType.END_ELEMENT && (current_name == "object" || current_name == "template")) {
+ pop_object ();
+ } else if (current_object != null && current_token == MarkupTokenType.START_ELEMENT && current_name == "signal") {
+ var signal_name = reader.get_attribute ("name");
+ var handler_name = reader.get_attribute ("handler");
+
+ if (signal_name == null || handler_name == null) {
+ if (signal_name != null) {
+ Report.error (node.source_reference, "Invalid signal `%s' without handler in ui file `%s'", signal_name, ui_file);
+ } else if (handler_name != null) {
+ Report.error (node.source_reference, "Invalid signal without name in ui file `%s'", ui_file);
+ } else {
+ Report.error (node.source_reference, "Invalid signal without name and handler in ui file `%s'", ui_file);
+ }
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+ var sep_idx = signal_name.index_of ("::");
+ if (sep_idx >= 0) {
+ // detailed signal, we don't care about the detail
+ signal_name = signal_name.substring (0, sep_idx);
+ }
+
+ var sig = SemanticAnalyzer.symbol_lookup_inherited (current_object, signal_name.replace ("-", "_")) as Signal;
+ if (sig != null) {
+ current_handler_to_signal_map.set (handler_name, sig);
+ } else {
+ Report.error (node.source_reference, "Unknown signal `%s::%s' in ui file `%s'", current_object.get_full_name (), signal_name, ui_file);
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+ } else if (current_object != null && current_token == MarkupTokenType.START_ELEMENT && (current_name == "property" || current_name == "binding")) {
+ var property_name = reader.get_attribute ("name");
+ if (property_name == null) {
+ Report.error (node.source_reference, "Invalid binding in ui file `%s'", ui_file);
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+
+ property_name = property_name.replace ("-", "_");
+ var property = SemanticAnalyzer.symbol_lookup_inherited (current_object, property_name) as Property;
+ if (property != null) {
+ push_property (property);
+ } else {
+ push_property (new InvalidProperty (property_name));
+ if (current_name == "binding") {
+ Report.error (node.source_reference, "Unknown property `%s:%s' for binding in ui file `%s'", current_object.get_full_name (), property_name, ui_file);
+ }
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+ } else if (current_token == MarkupTokenType.END_ELEMENT && (current_name == "property" || current_name == "binding")) {
+ pop_property ();
+ } else if (current_object != null && current_token == MarkupTokenType.START_ELEMENT && current_name == "closure") {
+ var handler_name = reader.get_attribute ("function");
+
+ if (current_property != null) {
+ if (handler_name == null) {
+ Report.error (node.source_reference, "Invalid closure in ui file `%s'", ui_file);
+ current_token = reader.read_token (null, null);
+ continue;
+ }
+ if (current_property is InvalidProperty) {
+ Report.error (node.source_reference, "Unknown property `%s:%s' for binding in ui file `%s'", current_object.get_full_name (), current_property.name, ui_file);
+ }
+
+ //TODO Retrieve signature declaration? c-type to vala-type?
+ current_handler_to_property_map.set (handler_name, current_property);
+ current_handler = handler_name;
+ } else if (current_handler != null) {
+ // Track nested closure elements
+ handler_map.set (handler_name, current_handler);
+ current_handler = handler_name;
+ }
+ }
+ current_token = reader.read_token (null, null);
+ }
+
+ if (!template_tag_found) {
+ Report.error (node.source_reference, "ui resource `%s' does not describe a valid composite template", ui_resource);
+ }
+ }
+
+ private bool is_gtk_template (Class cl) {
+ var attr = cl.get_attribute ("GtkTemplate");
+ if (attr != null) {
+ if (gtk_widget_type == null || !cl.is_subtype_of (gtk_widget_type)) {
+ if (!cl.error) {
+ Report.error (attr.source_reference, "subclassing Gtk.Widget is required for using Gtk templates");
+ cl.error = true;
+ }
+ return false;
+ }
+ return true;
+ }
+ return false;
+ }
+
+ public override void generate_class_init (Class cl) {
+ base.generate_class_init (cl);
+
+ if (cl.error || !is_gtk_template (cl)) {
+ return;
+ }
+
+ /* Gtk builder widget template */
+ var ui = cl.get_attribute_string ("GtkTemplate", "ui");
+ if (ui == null) {
+ Report.error (cl.source_reference, "empty ui resource declaration for Gtk widget template");
+ cl.error = true;
+ return;
+ }
+
+ process_current_ui_resource (ui, cl);
+
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("gtk_widget_class_set_template_from_resource"));
+ call.add_argument (new CCodeIdentifier ("GTK_WIDGET_CLASS (klass)"));
+ call.add_argument (new CCodeConstant ("\"%s\"".printf (ui)));
+ ccode.add_expression (call);
+
+ current_required_app_classes.clear ();
+ }
+
+ public override void visit_property (Property prop) {
+ if (prop.get_attribute ("GtkChild") != null && prop.field == null) {
+ Report.error (prop.source_reference, "[GtkChild] is only allowed on automatic properties");
+ }
+
+ base.visit_property (prop);
+ }
+
+ public override void visit_field (Field f) {
+ base.visit_field (f);
+
+ var cl = current_class;
+ if (cl == null || cl.error) {
+ return;
+ }
+
+ if (f.binding != MemberBinding.INSTANCE || f.get_attribute ("GtkChild") == null) {
+ return;
+ }
+
+ /* If the field has a [GtkChild] attribute but its class doesn'thave a
+ [GtkTemplate] attribute, we throw an error */
+ if (!is_gtk_template (cl)) {
+ Report.error (f.source_reference, "[GtkChild] is only allowed in classes with a [GtkTemplate] attribute");
+ return;
+ }
+
+ push_context (class_init_context);
+
+ /* Map ui widget to a class field */
+ var gtk_name = f.get_attribute_string ("GtkChild", "name", f.name);
+ var child_class = current_child_to_class_map.get (gtk_name);
+ if (child_class == null) {
+ Report.error (f.source_reference, "could not find child `%s'", gtk_name);
+ return;
+ }
+
+ /* We allow Gtk child to have stricter type than class field */
+ unowned Class? field_class = f.variable_type.type_symbol as Class;
+ if (field_class == null || !child_class.is_subtype_of (field_class)) {
+ Report.error (f.source_reference, "cannot convert from Gtk child type `%s' to `%s'", child_class.get_full_name(), field_class.get_full_name());
+ return;
+ }
+
+ var internal_child = f.get_attribute_bool ("GtkChild", "internal");
+
+ CCodeExpression offset;
+ if (f.is_private_symbol ()) {
+ // new glib api, we add the private struct offset to get the final field offset out of the instance
+ var private_field_offset = new CCodeFunctionCall (new CCodeIdentifier ("G_STRUCT_OFFSET"));
+ private_field_offset.add_argument (new CCodeIdentifier ("%sPrivate".printf (get_ccode_name (cl))));
+ private_field_offset.add_argument (new CCodeIdentifier (get_ccode_name (f)));
+ offset = new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier ("%s_private_offset".printf (get_ccode_name (cl))), private_field_offset);
+ } else {
+ var offset_call = new CCodeFunctionCall (new CCodeIdentifier ("G_STRUCT_OFFSET"));
+ offset_call.add_argument (new CCodeIdentifier (get_ccode_name (cl)));
+ offset_call.add_argument (new CCodeIdentifier (get_ccode_name (f)));
+ offset = offset_call;
+ }
+
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("gtk_widget_class_bind_template_child_full"));
+ call.add_argument (new CCodeIdentifier ("GTK_WIDGET_CLASS (klass)"));
+ call.add_argument (new CCodeConstant ("\"%s\"".printf (gtk_name)));
+ call.add_argument (new CCodeConstant (internal_child ? "TRUE" : "FALSE"));
+ call.add_argument (offset);
+ ccode.add_expression (call);
+
+ pop_context ();
+
+ if (!field_class.external && !field_class.external_package) {
+ current_required_app_classes.add (field_class);
+ }
+ }
+
+ public override void visit_method (Method m) {
+ base.visit_method (m);
+
+ var cl = current_class;
+ if (cl == null || cl.error || !is_gtk_template (cl)) {
+ return;
+ }
+
+ if (m.get_attribute ("GtkCallback") == null) {
+ return;
+ }
+
+ /* Handler name as defined in the gtkbuilder xml */
+ var handler_name = m.get_attribute_string ("GtkCallback", "name", m.name);
+ var callback = handler_map.get (handler_name);
+ var sig = current_handler_to_signal_map.get (handler_name);
+ var prop = current_handler_to_property_map.get (handler_name);
+ if (callback == null && sig == null && prop == null) {
+ Report.error (m.source_reference, "could not find signal or property for handler `%s'", handler_name);
+ return;
+ }
+
+ push_context (class_init_context);
+
+ if (sig != null) {
+ sig.check (context);
+ var method_type = new MethodType (m);
+ var signal_type = new SignalType (sig);
+ var delegate_type = signal_type.get_handler_type ();
+ if (!method_type.compatible (delegate_type)) {
+ Report.error (m.source_reference, "method `%s' is incompatible with signal `%s', expected `%s'", method_type.to_string (), delegate_type.to_string (), delegate_type.to_prototype_string (m.name));
+ } else {
+ var wrapper = generate_delegate_wrapper (m, signal_type.get_handler_type (), m);
+
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("gtk_widget_class_bind_template_callback_full"));
+ call.add_argument (new CCodeIdentifier ("GTK_WIDGET_CLASS (klass)"));
+ call.add_argument (new CCodeConstant ("\"%s\"".printf (handler_name)));
+ call.add_argument (new CCodeIdentifier ("G_CALLBACK(%s)".printf (wrapper)));
+ ccode.add_expression (call);
+ }
+ }
+ if (prop != null || callback != null) {
+ if (prop != null) {
+ prop.check (context);
+ }
+ //TODO Perform signature check
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("gtk_widget_class_bind_template_callback_full"));
+ call.add_argument (new CCodeIdentifier ("GTK_WIDGET_CLASS (klass)"));
+ call.add_argument (new CCodeConstant ("\"%s\"".printf (handler_name)));
+ call.add_argument (new CCodeIdentifier ("G_CALLBACK(%s)".printf (get_ccode_name (m))));
+ ccode.add_expression (call);
+ }
+
+ pop_context ();
+ }
+
+
+ public override void end_instance_init (Class cl) {
+ if (cl == null || cl.error || !is_gtk_template (cl)) {
+ return;
+ }
+
+ foreach (var req in current_required_app_classes) {
+ /* ensure custom application widgets are initialized */
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_ensure"));
+ call.add_argument (get_type_id_expression (SemanticAnalyzer.get_data_type_for_symbol (req)));
+ ccode.add_expression (call);
+ }
+
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("gtk_widget_init_template"));
+ call.add_argument (new CCodeIdentifier ("GTK_WIDGET (self)"));
+ ccode.add_expression (call);
+ }
+}
+
--- /dev/null
+/* valagtypemodule.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ * Copyright (C) 2006-2008 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+
+public class Vala.GTypeModule : GErrorModule {
+ public override CCodeParameter generate_parameter (Parameter param, CCodeFile decl_space, Map<int,CCodeParameter> cparam_map, Map<int,CCodeExpression>? carg_map) {
+ if (!(param.variable_type is ObjectType)) {
+ return base.generate_parameter (param, decl_space, cparam_map, carg_map);
+ }
+
+ generate_type_declaration (param.variable_type, decl_space);
+
+ string? ctypename = get_ccode_type (param);
+ if (ctypename == null) {
+ ctypename = get_ccode_name (param.variable_type);
+
+ if (param.direction != ParameterDirection.IN) {
+ ctypename = "%s*".printf (ctypename);
+ }
+ }
+
+ var cparam = new CCodeParameter (get_ccode_name (param), ctypename);
+ if (param.format_arg) {
+ cparam.modifiers = CCodeModifiers.FORMAT_ARG;
+ }
+
+ cparam_map.set (get_param_pos (get_ccode_pos (param)), cparam);
+ if (carg_map != null) {
+ carg_map.set (get_param_pos (get_ccode_pos (param)), get_parameter_cexpression (param));
+ }
+
+ return cparam;
+ }
+
+ public override void generate_class_declaration (Class cl, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, cl, get_ccode_name (cl))) {
+ return;
+ }
+
+ if (cl.base_class != null) {
+ // base class declaration
+ // necessary for ref and unref function declarations
+ generate_class_declaration (cl.base_class, decl_space);
+ }
+
+ bool is_gtypeinstance = !cl.is_compact;
+ bool is_fundamental = is_gtypeinstance && cl.base_class == null;
+ bool is_gsource = cl.is_subtype_of (gsource_type);
+
+ if (is_gtypeinstance) {
+ decl_space.add_include ("glib-object.h");
+
+ decl_space.add_type_declaration (new CCodeNewline ());
+ var macro = "(%s_get_type ())".printf (get_ccode_lower_case_name (cl, null));
+ decl_space.add_type_declaration (new CCodeMacroReplacement (get_ccode_type_id (cl), macro));
+
+ macro = "(G_TYPE_CHECK_INSTANCE_CAST ((obj), %s, %s))".printf (get_ccode_type_id (cl), get_ccode_name (cl));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_cast_function (cl)), macro));
+
+ if (!(cl.is_sealed && decl_space.file_type == CCodeFileType.PUBLIC_HEADER)) {
+ macro = "(G_TYPE_CHECK_CLASS_CAST ((klass), %s, %s))".printf (get_ccode_type_id (cl), get_ccode_type_name (cl));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(klass)".printf (get_ccode_class_type_function (cl)), macro));
+ }
+
+ macro = "(G_TYPE_CHECK_INSTANCE_TYPE ((obj), %s))".printf (get_ccode_type_id (cl));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_check_function (cl)), macro));
+
+ if (!(cl.is_sealed && decl_space.file_type == CCodeFileType.PUBLIC_HEADER)) {
+ macro = "(G_TYPE_CHECK_CLASS_TYPE ((klass), %s))".printf (get_ccode_type_id (cl));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(klass)".printf (get_ccode_class_type_check_function (cl)), macro));
+ }
+
+ if (!(cl.is_sealed && decl_space.file_type == CCodeFileType.PUBLIC_HEADER)) {
+ macro = "(G_TYPE_INSTANCE_GET_CLASS ((obj), %s, %s))".printf (get_ccode_type_id (cl), get_ccode_type_name (cl));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_get_function (cl)), macro));
+ }
+ decl_space.add_type_declaration (new CCodeNewline ());
+ }
+
+ if (!(!cl.is_compact || cl.base_class == null || compact_class_has_instance_struct_member (cl))) {
+ decl_space.add_type_declaration (new CCodeTypeDefinition (get_ccode_name (cl.base_class), new CCodeVariableDeclarator (get_ccode_name (cl))));
+ } else {
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct _%s".printf (get_ccode_name (cl)), new CCodeVariableDeclarator (get_ccode_name (cl))));
+ }
+
+ if (is_fundamental) {
+ var ref_fun = new CCodeFunction (get_ccode_ref_function (cl), "gpointer");
+ var unref_fun = new CCodeFunction (get_ccode_unref_function (cl), "void");
+ if (cl.is_private_symbol ()) {
+ ref_fun.modifiers = CCodeModifiers.STATIC;
+ unref_fun.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ ref_fun.modifiers = CCodeModifiers.INTERNAL;
+ unref_fun.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ ref_fun.modifiers = CCodeModifiers.EXTERN;
+ unref_fun.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ ref_fun.add_parameter (new CCodeParameter ("instance", "gpointer"));
+ unref_fun.add_parameter (new CCodeParameter ("instance", "gpointer"));
+
+ decl_space.add_function_declaration (ref_fun);
+ decl_space.add_function_declaration (unref_fun);
+
+ // GParamSpec and GValue functions
+ var function = new CCodeFunction (get_ccode_param_spec_function (cl), "GParamSpec*");
+ function.add_parameter (new CCodeParameter ("name", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("nick", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("blurb", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("object_type", "GType"));
+ function.add_parameter (new CCodeParameter ("flags", "GParamFlags"));
+
+ if (cl.is_private_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_set_value_function (cl), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.add_parameter (new CCodeParameter ("v_object", "gpointer"));
+
+ if (cl.is_private_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.INTERNAL | CCodeModifiers.UNUSED;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_take_value_function (cl), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.add_parameter (new CCodeParameter ("v_object", "gpointer"));
+
+ if (cl.is_private_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_function_declaration (function);
+
+ function = new CCodeFunction (get_ccode_get_value_function (cl), "gpointer");
+ function.add_parameter (new CCodeParameter ("value", "const GValue*"));
+
+ if (cl.is_private_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ // avoid C warning as this function is not always used
+ function.modifiers = CCodeModifiers.INTERNAL | CCodeModifiers.UNUSED;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ decl_space.add_function_declaration (function);
+ } else if (!is_gtypeinstance && !is_gsource) {
+ if (cl.base_class == null) {
+ var function = new CCodeFunction (get_ccode_free_function (cl), "void");
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ } else {
+ function.modifiers = CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", "%s *".printf (get_ccode_name (cl))));
+
+ decl_space.add_function_declaration (function);
+ }
+ }
+
+ if (is_gtypeinstance && !(cl.is_sealed && decl_space.file_type == CCodeFileType.PUBLIC_HEADER)) {
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct _%s".printf (get_ccode_type_name (cl)), new CCodeVariableDeclarator (get_ccode_type_name (cl))));
+
+ var type_fun = new ClassRegisterFunction (cl);
+ type_fun.init_from_type (context, in_plugin, true);
+ decl_space.add_type_member_declaration (type_fun.get_declaration ());
+
+ requires_vala_extern = true;
+ }
+
+ var base_class = cl;
+ while (base_class.base_class != null) {
+ base_class = base_class.base_class;
+ }
+ // Custom unref-methods need to be emitted before G_DEFINE_AUTOPTR_CLEANUP_FUNC,
+ // so we guard against that special case and handle it in generate_method_declaration.
+ if (!(base_class.is_compact && is_reference_counting (base_class))
+ && (context.header_filename == null|| decl_space.file_type == CCodeFileType.PUBLIC_HEADER
+ || (decl_space.file_type == CCodeFileType.INTERNAL_HEADER && base_class.is_internal_symbol()))) {
+ string autoptr_cleanup_func;
+ if (is_reference_counting (base_class)) {
+ autoptr_cleanup_func = get_ccode_unref_function (base_class);
+ } else {
+ autoptr_cleanup_func = get_ccode_free_function (base_class);
+ }
+ if (autoptr_cleanup_func == null || autoptr_cleanup_func == "") {
+ Report.error (cl.source_reference, "internal error: autoptr_cleanup_func not available");
+ }
+ decl_space.add_type_member_declaration (new CCodeIdentifier ("G_DEFINE_AUTOPTR_CLEANUP_FUNC (%s, %s)".printf (get_ccode_name (cl), autoptr_cleanup_func)));
+ decl_space.add_type_member_declaration (new CCodeNewline ());
+ }
+ }
+
+ public override void generate_class_struct_declaration (Class cl, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, cl, "struct _%s".printf (get_ccode_name (cl)))) {
+ return;
+ }
+
+ if (cl.base_class != null) {
+ // base class declaration
+ generate_class_struct_declaration (cl.base_class, decl_space);
+ }
+ foreach (DataType base_type in cl.get_base_types ()) {
+ unowned Interface? iface = base_type.type_symbol as Interface;
+ if (iface != null) {
+ generate_interface_declaration (iface, decl_space);
+ }
+ }
+
+ generate_class_declaration (cl, decl_space);
+
+ if (cl.is_sealed && decl_space.file_type == CCodeFileType.PUBLIC_HEADER) {
+ return;
+ }
+
+ bool is_gtypeinstance = !cl.is_compact;
+ bool is_fundamental = is_gtypeinstance && cl.base_class == null;
+
+ var instance_struct = new CCodeStruct ("_%s".printf (get_ccode_name (cl)));
+ var type_struct = new CCodeStruct ("_%s".printf (get_ccode_type_name (cl)));
+
+ if (cl.base_class != null) {
+ instance_struct.add_field (get_ccode_name (cl.base_class), "parent_instance");
+ } else if (is_fundamental) {
+ instance_struct.add_field ("GTypeInstance", "parent_instance");
+ instance_struct.add_field ("volatile int", "ref_count");
+ }
+
+ if (is_gtypeinstance) {
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct %sPrivate".printf (instance_struct.name), new CCodeVariableDeclarator ("%sPrivate".printf (get_ccode_name (cl)))));
+
+ if (!context.abi_stability) {
+ instance_struct.add_field ("%sPrivate *".printf (get_ccode_name (cl)), "priv");
+ }
+ if (is_fundamental) {
+ type_struct.add_field ("GTypeClass", "parent_class");
+ } else {
+ type_struct.add_field (get_ccode_type_name (cl.base_class), "parent_class");
+ }
+
+ if (is_fundamental) {
+ type_struct.add_field ("void", "(*finalize) (%s *self)".printf (get_ccode_name (cl)));
+ }
+ }
+
+ if (context.abi_stability) {
+ foreach (Symbol s in cl.get_members ()) {
+ if (s is Method) {
+ var m = (Method) s;
+ generate_struct_method_declaration (cl, m, instance_struct, type_struct, decl_space);
+ } else if (s is Signal) {
+ var sig = (Signal) s;
+ if (sig.default_handler != null) {
+ if (sig.is_virtual) {
+ generate_virtual_method_declaration (sig.default_handler, decl_space, type_struct);
+ } else {
+ generate_method_declaration (sig.default_handler, cfile);
+ }
+ }
+ } else if (s is Property) {
+ var prop = (Property) s;
+ generate_struct_property_declaration (cl, prop, instance_struct, type_struct, decl_space);
+ } else if (s is Field) {
+ if (s.access != SymbolAccessibility.PRIVATE || cl.is_opaque) {
+ generate_struct_field_declaration ((Field) s, instance_struct, type_struct, decl_space);
+ }
+ } else {
+ Report.error (s.source_reference, "internal: Unsupported symbol");
+ }
+ }
+ } else {
+ foreach (Method m in cl.get_methods ()) {
+ generate_struct_method_declaration (cl, m, instance_struct, type_struct, decl_space);
+ }
+
+ foreach (Signal sig in cl.get_signals ()) {
+ if (sig.default_handler != null) {
+ if (sig.is_virtual) {
+ generate_virtual_method_declaration (sig.default_handler, decl_space, type_struct);
+ } else {
+ generate_method_declaration (sig.default_handler, cfile);
+ }
+ }
+ }
+
+ foreach (Property prop in cl.get_properties ()) {
+ generate_struct_property_declaration (cl, prop, instance_struct, type_struct, decl_space);
+ }
+
+ foreach (Field f in cl.get_fields ()) {
+ if (f.access != SymbolAccessibility.PRIVATE || cl.is_opaque) {
+ generate_struct_field_declaration (f, instance_struct, type_struct, decl_space);
+ }
+ }
+ }
+
+ if (cl.is_compact && cl.base_class == null && !compact_class_has_instance_struct_member (cl)) {
+ // add dummy member, C doesn't allow empty structs
+ instance_struct.add_field ("int", "dummy");
+ }
+
+ if (!cl.is_compact || cl.base_class == null || compact_class_has_instance_struct_member (cl)) {
+ decl_space.add_type_definition (instance_struct);
+ }
+
+ if (is_gtypeinstance) {
+ if (context.abi_stability) {
+ instance_struct.add_field ("%sPrivate *".printf (get_ccode_name (cl)), "priv");
+ }
+ decl_space.add_type_definition (type_struct);
+ }
+ }
+
+ bool compact_class_has_instance_struct_member (Class cl) {
+ assert (cl.is_compact);
+ foreach (Symbol s in cl.get_members ()) {
+ if (s is Method) {
+ unowned Method m = (Method) s;
+ if (m.is_abstract || m.is_virtual) {
+ return true;
+ }
+ } else if (s is Property) {
+ unowned Property prop = (Property) s;
+ if (prop.is_abstract || prop.is_virtual) {
+ return true;
+ }
+ } else if (s is Field) {
+ if (s.access != SymbolAccessibility.PRIVATE || cl.is_opaque) {
+ unowned Field f = (Field) s;
+ if (f.binding == MemberBinding.INSTANCE) {
+ return true;
+ }
+ }
+ } else {
+ Report.error (s.source_reference, "internal: Unsupported symbol");
+ }
+ }
+ return false;
+ }
+
+ void generate_struct_method_declaration (ObjectTypeSymbol type_sym, Method m, CCodeStruct instance_struct, CCodeStruct type_struct, CCodeFile decl_space) {
+ unowned Class? cl = type_sym as Class;
+ if (type_sym is Interface || (cl != null && !cl.is_compact)) {
+ generate_virtual_method_declaration (m, decl_space, type_struct);
+ } else if (cl != null && cl.is_compact && cl.base_class == null) {
+ generate_virtual_method_declaration (m, decl_space, instance_struct);
+ }
+ }
+
+ void generate_struct_property_declaration (ObjectTypeSymbol type_sym, Property prop, CCodeStruct instance_struct, CCodeStruct type_struct, CCodeFile decl_space) {
+ if (!prop.is_abstract && !prop.is_virtual) {
+ return;
+ }
+ generate_type_declaration (prop.property_type, decl_space);
+
+ unowned ObjectTypeSymbol t = (ObjectTypeSymbol) prop.parent_symbol;
+ unowned Class? cl = type_sym as Class;
+
+ var this_type = new ObjectType (t);
+ var cselfparam = new CCodeParameter ("self", get_ccode_name (this_type));
+
+ if (prop.get_accessor != null) {
+ var vdeclarator = new CCodeFunctionDeclarator ("get_%s".printf (prop.name));
+ vdeclarator.add_parameter (cselfparam);
+ var creturn_type = get_callable_creturn_type (prop.get_accessor.get_method ());
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ var cvalueparam = new CCodeParameter ("result", "%s *".printf (get_ccode_name (prop.get_accessor.value_type)));
+ vdeclarator.add_parameter (cvalueparam);
+ }
+
+ var array_type = prop.property_type as ArrayType;
+ if (array_type != null && get_ccode_array_length (prop)) {
+ var length_ctype = get_ccode_array_length_type (prop) + "*";
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ vdeclarator.add_parameter (new CCodeParameter (get_array_length_cname ("result", dim), length_ctype));
+ }
+ } else if ((prop.property_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) prop.property_type).delegate_symbol.has_target) {
+ vdeclarator.add_parameter (new CCodeParameter (get_delegate_target_cname ("result"), "gpointer*"));
+ }
+
+ var vdecl = new CCodeDeclaration (get_ccode_name (creturn_type));
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+
+ if (cl != null && cl.is_compact && cl.base_class == null) {
+ instance_struct.add_declaration (vdecl);
+ }
+ }
+ if (prop.set_accessor != null) {
+ CCodeParameter cvalueparam;
+ if (prop.property_type.is_real_non_null_struct_type ()) {
+ cvalueparam = new CCodeParameter ("value", "%s *".printf (get_ccode_name (prop.set_accessor.value_type)));
+ } else {
+ cvalueparam = new CCodeParameter ("value", get_ccode_name (prop.set_accessor.value_type));
+ }
+
+ var vdeclarator = new CCodeFunctionDeclarator ("set_%s".printf (prop.name));
+ vdeclarator.add_parameter (cselfparam);
+ vdeclarator.add_parameter (cvalueparam);
+
+ var array_type = prop.property_type as ArrayType;
+ if (array_type != null && get_ccode_array_length (prop)) {
+ var length_ctype = get_ccode_array_length_type (prop);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ vdeclarator.add_parameter (new CCodeParameter (get_array_length_cname ("value", dim), length_ctype));
+ }
+ } else if ((prop.property_type is DelegateType) && get_ccode_delegate_target (prop) && ((DelegateType) prop.property_type).delegate_symbol.has_target) {
+ vdeclarator.add_parameter (new CCodeParameter (get_delegate_target_cname ("value"), "gpointer"));
+ if (prop.set_accessor.value_type.value_owned) {
+ vdeclarator.add_parameter (new CCodeParameter (get_delegate_target_destroy_notify_cname ("value"), get_ccode_name (delegate_target_destroy_type)));
+ }
+ }
+
+ var vdecl = new CCodeDeclaration ("void");
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+
+ if (cl != null && cl.is_compact && cl.base_class == null) {
+ instance_struct.add_declaration (vdecl);
+ }
+ }
+ }
+
+ void generate_struct_field_declaration (Field f, CCodeStruct instance_struct, CCodeStruct type_struct, CCodeFile decl_space) {
+ CCodeModifiers modifiers = (f.is_volatile ? CCodeModifiers.VOLATILE : 0) | (f.version.deprecated ? CCodeModifiers.DEPRECATED : 0);
+ if (f.binding == MemberBinding.INSTANCE) {
+ append_field (instance_struct, f, decl_space);
+ } else if (f.binding == MemberBinding.CLASS) {
+ type_struct.add_field (get_ccode_name (f.variable_type), get_ccode_name (f), modifiers);
+ }
+ }
+
+ public override bool generate_method_declaration (Method m, CCodeFile decl_space) {
+ if (base.generate_method_declaration (m, decl_space)) {
+ // Custom unref-methods need to be emitted before G_DEFINE_AUTOPTR_CLEANUP_FUNC,
+ // in addition to the non-ref-countable case in generate_class_declaration.
+ unowned Class? cl = m.parent_symbol as Class;
+ if (cl != null && cl.is_compact && get_ccode_unref_function (cl) == get_ccode_name (m)
+ && (context.header_filename == null || decl_space.file_type == CCodeFileType.PUBLIC_HEADER
+ || (decl_space.file_type == CCodeFileType.INTERNAL_HEADER && cl.is_internal_symbol()))) {
+ decl_space.add_type_member_declaration (new CCodeIdentifier ("G_DEFINE_AUTOPTR_CLEANUP_FUNC (%s, %s)".printf (get_ccode_name (cl), get_ccode_name (m))));
+ decl_space.add_type_member_declaration (new CCodeNewline ());
+ }
+
+ return true;
+ }
+
+ return false;
+ }
+
+ public virtual void generate_virtual_method_declaration (Method m, CCodeFile decl_space, CCodeStruct type_struct) {
+ if (!m.is_abstract && !m.is_virtual) {
+ return;
+ }
+
+ var creturn_type = get_callable_creturn_type (m);
+
+ // add vfunc field to the type struct
+ var vdeclarator = new CCodeFunctionDeclarator (get_ccode_vfunc_name (m));
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ if (m.printf_format) {
+ vdeclarator.modifiers |= CCodeModifiers.PRINTF;
+ } else if (m.scanf_format) {
+ vdeclarator.modifiers |= CCodeModifiers.SCANF;
+ }
+
+ if (m.version.deprecated) {
+ vdeclarator.modifiers |= CCodeModifiers.DEPRECATED;
+ }
+
+ generate_cparameters (m, decl_space, cparam_map, new CCodeFunction ("fake"), vdeclarator);
+
+ var vdecl = new CCodeDeclaration (get_ccode_name (creturn_type));
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+ }
+
+ void generate_class_private_declaration (Class cl, CCodeFile decl_space) {
+ if (cl.is_opaque || decl_space.add_declaration ("%sPrivate".printf (get_ccode_name (cl)))) {
+ return;
+ }
+
+ bool is_gtypeinstance = !cl.is_compact;
+ bool has_class_locks = false;
+
+ var instance_priv_struct = new CCodeStruct ("_%sPrivate".printf (get_ccode_name (cl)));
+ var type_priv_struct = new CCodeStruct ("_%sPrivate".printf (get_ccode_type_name (cl)));
+
+ if (is_gtypeinstance) {
+ /* create type, dup_func, and destroy_func fields for generic types */
+ foreach (TypeParameter type_param in cl.get_type_parameters ()) {
+ instance_priv_struct.add_field ("GType", get_ccode_type_id (type_param));
+ instance_priv_struct.add_field ("GBoxedCopyFunc", get_ccode_copy_function (type_param));
+ instance_priv_struct.add_field ("GDestroyNotify", get_ccode_destroy_function (type_param));
+ }
+ }
+
+ foreach (Field f in cl.get_fields ()) {
+ if (f.access == SymbolAccessibility.PRIVATE) {
+ generate_struct_field_declaration (f, instance_priv_struct, type_priv_struct, decl_space);
+ }
+ if (f.lock_used) {
+ if (f.binding == MemberBinding.INSTANCE) {
+ cl.has_private_fields = true;
+ // add field for mutex
+ instance_priv_struct.add_field (get_ccode_name (mutex_type), get_symbol_lock_name (get_ccode_name (f)));
+ } else if (f.binding == MemberBinding.CLASS) {
+ has_class_locks = true;
+ // add field for mutex
+ type_priv_struct.add_field (get_ccode_name (mutex_type), get_symbol_lock_name (get_ccode_name (f)));
+ }
+ }
+ }
+
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.binding == MemberBinding.INSTANCE) {
+ if (prop.lock_used) {
+ cl.has_private_fields = true;
+ // add field for mutex
+ instance_priv_struct.add_field (get_ccode_name (mutex_type), get_symbol_lock_name (get_ccode_name (prop)));
+ }
+ } else if (prop.binding == MemberBinding.CLASS) {
+ if (prop.lock_used) {
+ has_class_locks = true;
+ // add field for mutex
+ type_priv_struct.add_field (get_ccode_name (mutex_type), get_symbol_lock_name (get_ccode_name (prop)));
+ }
+ }
+ }
+
+ if (is_gtypeinstance) {
+ if (cl.has_class_private_fields || has_class_locks) {
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct %s".printf (type_priv_struct.name), new CCodeVariableDeclarator ("%sPrivate".printf (get_ccode_type_name (cl)))));
+ }
+
+ /* only add the *Private struct if it is not empty, i.e. we actually have private data */
+ if (cl.has_private_fields || cl.has_type_parameters ()) {
+ decl_space.add_type_definition (instance_priv_struct);
+
+ var parent_decl = new CCodeDeclaration ("gint");
+ var parent_var_decl = new CCodeVariableDeclarator ("%s_private_offset".printf (get_ccode_name (cl)));
+ parent_decl.add_declarator (parent_var_decl);
+ parent_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (parent_decl);
+
+ var function = new CCodeFunction ("%s_get_instance_private".printf (get_ccode_lower_case_name (cl, null)), "gpointer");
+ function.modifiers = CCodeModifiers.STATIC | CCodeModifiers.INLINE;
+ function.add_parameter (new CCodeParameter ("self", "%s*".printf (get_ccode_name (cl))));
+
+ push_function (function);
+
+ function.block = new CCodeBlock ();
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("G_STRUCT_MEMBER_P"));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ ccall.add_argument (new CCodeIdentifier ("%s_private_offset".printf (get_ccode_name (cl))));
+ function.block.add_statement (new CCodeReturnStatement (ccall));
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ if (cl.has_class_private_fields || has_class_locks) {
+ decl_space.add_type_definition (type_priv_struct);
+
+ string macro = "(G_TYPE_CLASS_GET_PRIVATE (klass, %s, %sPrivate))".printf (get_ccode_type_id (cl), get_ccode_type_name (cl));
+ decl_space.add_type_member_declaration (new CCodeMacroReplacement ("%s(klass)".printf (get_ccode_class_get_private_function (cl)), macro));
+ }
+ }
+ }
+
+ public override void visit_class (Class cl) {
+ push_context (new EmitContext (cl));
+ push_line (cl.source_reference);
+
+ var old_param_spec_struct = param_spec_struct;
+ var old_prop_enum = prop_enum;
+ var old_signal_enum = signal_enum;
+ var old_class_init_context = class_init_context;
+ var old_base_init_context = base_init_context;
+ var old_class_finalize_context = class_finalize_context;
+ var old_base_finalize_context = base_finalize_context;
+ var old_instance_init_context = instance_init_context;
+ var old_instance_finalize_context = instance_finalize_context;
+
+ bool is_gtypeinstance = !cl.is_compact;
+ bool is_gobject = is_gtypeinstance && cl.is_subtype_of (gobject_type);
+ bool is_fundamental = is_gtypeinstance && cl.base_class == null;
+
+ if (get_ccode_name (cl).length < 3) {
+ cl.error = true;
+ Report.error (cl.source_reference, "Class name `%s' is too short", get_ccode_name (cl));
+ return;
+ }
+
+ prop_enum = new CCodeEnum ();
+ prop_enum.add_value (new CCodeEnumValue ("%s_0_PROPERTY".printf (get_ccode_upper_case_name (cl, null))));
+ signal_enum = new CCodeEnum ();
+ class_init_context = new EmitContext (cl);
+ base_init_context = new EmitContext (cl);
+ class_finalize_context = new EmitContext (cl);
+ base_finalize_context = new EmitContext (cl);
+ instance_init_context = new EmitContext (cl);
+ instance_finalize_context = new EmitContext (cl);
+
+ generate_class_struct_declaration (cl, cfile);
+ generate_class_private_declaration (cl, cfile);
+
+ var last_prop = "%s_NUM_PROPERTIES".printf (get_ccode_upper_case_name (cl));
+ if (is_gobject) {
+ cfile.add_type_declaration (prop_enum);
+
+ var prop_array_decl = new CCodeDeclaration ("GParamSpec*");
+ prop_array_decl.modifiers |= CCodeModifiers.STATIC;
+ prop_array_decl.add_declarator (new CCodeVariableDeclarator ("%s_properties".printf (get_ccode_lower_case_name (cl)), null, new CCodeDeclaratorSuffix.with_array (new CCodeIdentifier (last_prop))));
+ cfile.add_type_declaration (prop_array_decl);
+ }
+
+ if (!cl.is_internal_symbol () || cl.is_sealed) {
+ if (!cl.is_opaque) {
+ generate_class_struct_declaration (cl, header_file);
+ } else {
+ generate_class_declaration (cl, header_file);
+ }
+ }
+ if (!cl.is_private_symbol () || cl.is_sealed) {
+ generate_class_struct_declaration (cl, internal_header_file);
+ }
+
+ if (is_gtypeinstance) {
+ begin_base_init_function (cl);
+ begin_class_init_function (cl);
+ begin_instance_init_function (cl);
+
+ begin_base_finalize_function (cl);
+ begin_class_finalize_function (cl);
+ begin_finalize_function (cl);
+ } else {
+ if (cl.is_compact || cl.base_class == null || cl.is_subtype_of (gsource_type)) {
+ begin_instance_init_function (cl);
+ begin_finalize_function (cl);
+ }
+ }
+
+ cl.accept_children (this);
+
+ if (is_gtypeinstance) {
+ if (is_fundamental) {
+ param_spec_struct = new CCodeStruct ( "_%sParamSpec%s".printf(get_ccode_prefix (cl.parent_symbol), cl.name));
+ param_spec_struct.add_field ("GParamSpec", "parent_instance");
+ cfile.add_type_definition (param_spec_struct);
+
+ cfile.add_type_declaration (new CCodeTypeDefinition ("struct %s".printf (param_spec_struct.name), new CCodeVariableDeclarator ( "%sParamSpec%s".printf(get_ccode_prefix (cl.parent_symbol), cl.name))));
+
+ add_type_value_table_init_function (cl);
+ add_type_value_table_free_function (cl);
+ add_type_value_table_copy_function (cl);
+ add_type_value_table_peek_pointer_function (cl);
+ add_type_value_table_collect_value_function (cl);
+ add_type_value_table_lcopy_value_function (cl);
+ add_g_param_spec_type_function (cl);
+ add_g_value_get_function (cl);
+ add_g_value_set_function (cl);
+ add_g_value_take_function (cl);
+
+ var ref_count = new CCodeAssignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "ref_count"), new CCodeConstant ("1"));
+ push_context (instance_init_context);
+ ccode.add_expression (ref_count);
+ pop_context ();
+ }
+
+ if (is_gobject) {
+ prop_enum.add_value (new CCodeEnumValue (last_prop));
+ }
+
+ if (cl.get_signals ().size > 0) {
+ var last_signal = "%s_NUM_SIGNALS".printf (get_ccode_upper_case_name (cl));
+ signal_enum.add_value (new CCodeEnumValue (last_signal));
+ cfile.add_type_declaration (signal_enum);
+
+ var signal_array_decl = new CCodeDeclaration ("guint");
+ signal_array_decl.modifiers |= CCodeModifiers.STATIC;
+ signal_array_decl.add_declarator (new CCodeVariableDeclarator ("%s_signals".printf (get_ccode_lower_case_name (cl)), new CCodeConstant ("{0}"), new CCodeDeclaratorSuffix.with_array (new CCodeIdentifier (last_signal))));
+ cfile.add_type_declaration (signal_array_decl);
+ }
+
+
+ if (cl.class_constructor != null) {
+ add_base_init_function (cl);
+ }
+ add_class_init_function (cl);
+
+ if (cl.class_destructor != null) {
+ add_base_finalize_function (cl);
+ }
+
+ if (cl.static_destructor != null) {
+ add_class_finalize_function (cl);
+ }
+
+ foreach (DataType base_type in cl.get_base_types ()) {
+ if (base_type.type_symbol is Interface) {
+ add_interface_init_function (cl, (Interface) base_type.type_symbol);
+ }
+ }
+
+ add_instance_init_function (cl);
+
+ if (!cl.is_compact && (cl.get_fields ().size > 0 || cl.destructor != null || cl.is_fundamental ())) {
+ add_finalize_function (cl);
+ }
+
+ if (cl.comment != null) {
+ cfile.add_type_member_definition (new CCodeComment (cl.comment.content));
+ }
+
+ var type_fun = new ClassRegisterFunction (cl);
+ type_fun.init_from_type (context, in_plugin, false);
+ cfile.add_type_member_declaration (type_fun.get_source_declaration ());
+ cfile.add_type_member_definition (type_fun.get_definition ());
+
+ if (is_fundamental) {
+ var ref_count = new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "ref_count");
+
+ // ref function
+ var ref_fun = new CCodeFunction (get_ccode_ref_function (cl), "gpointer");
+ ref_fun.add_parameter (new CCodeParameter ("instance", "gpointer"));
+ if (cl.is_private_symbol ()) {
+ ref_fun.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ ref_fun.modifiers = CCodeModifiers.INTERNAL;
+ }
+ push_function (ref_fun);
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self", new CCodeIdentifier ("instance")));
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_atomic_int_inc"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ref_count));
+ ccode.add_expression (ccall);
+ ccode.add_return (new CCodeIdentifier ("instance"));
+
+ pop_function ();
+ cfile.add_function (ref_fun);
+
+ // unref function
+ var unref_fun = new CCodeFunction (get_ccode_unref_function (cl), "void");
+ unref_fun.add_parameter (new CCodeParameter ("instance", "gpointer"));
+ if (cl.is_private_symbol ()) {
+ unref_fun.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ unref_fun.modifiers = CCodeModifiers.INTERNAL;
+ }
+ push_function (unref_fun);
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self", new CCodeIdentifier ("instance")));
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_atomic_int_dec_and_test"));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, ref_count));
+ ccode.open_if (ccall);
+
+ var get_class = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ get_class.add_argument (new CCodeIdentifier ("self"));
+
+ // finalize class
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_get_function (cl)));
+ ccast.add_argument (new CCodeIdentifier ("self"));
+ ccall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (ccast, "finalize"));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (ccall);
+
+ // free type instance
+ var free = new CCodeFunctionCall (new CCodeIdentifier ("g_type_free_instance"));
+ free.add_argument (new CCodeCastExpression (new CCodeIdentifier ("self"), "GTypeInstance *"));
+ ccode.add_expression (free);
+
+ ccode.close ();
+ pop_function ();
+ cfile.add_function (unref_fun);
+ }
+ } else {
+ if (cl.is_compact || cl.base_class == null || cl.is_subtype_of (gsource_type)) {
+ add_instance_init_function (cl);
+ add_finalize_function (cl);
+ }
+ }
+
+ param_spec_struct = old_param_spec_struct;
+ prop_enum = old_prop_enum;
+ signal_enum = old_signal_enum;
+ class_init_context = old_class_init_context;
+ base_init_context = old_base_init_context;
+ class_finalize_context = old_class_finalize_context;
+ base_finalize_context = old_base_finalize_context;
+ instance_init_context = old_instance_init_context;
+ instance_finalize_context = old_instance_finalize_context;
+
+ pop_line ();
+ pop_context ();
+ }
+
+ private void add_type_value_table_init_function (Class cl) {
+ var function = new CCodeFunction ("%s_init".printf (get_ccode_lower_case_name (cl, "value_")), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ push_function (function);
+ ccode.add_assignment (new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"), "v_pointer"), new CCodeConstant ("NULL"));
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_type_value_table_free_function (Class cl) {
+ var function = new CCodeFunction ("%s_free_value".printf (get_ccode_lower_case_name (cl, "value_")), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ push_function (function);
+
+ var vpointer = new CCodeMemberAccess(new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"),"v_pointer");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_unref_function (cl)));
+ ccall.add_argument (vpointer);
+
+ ccode.open_if (vpointer);
+ ccode.add_expression (ccall);
+ ccode.close ();
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_type_value_table_copy_function (Class cl) {
+ var function = new CCodeFunction ("%s_copy_value".printf (get_ccode_lower_case_name (cl, "value_")), "void");
+ function.add_parameter (new CCodeParameter ("src_value", "const GValue*"));
+ function.add_parameter (new CCodeParameter ("dest_value", "GValue*"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ push_function (function);
+
+ var dest_vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("dest_value"), "data[0]"), "v_pointer");
+ var src_vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("src_value"), "data[0]"), "v_pointer");
+
+ var ref_ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_ref_function (cl)));
+ ref_ccall.add_argument ( src_vpointer );
+
+ ccode.open_if (src_vpointer);
+ ccode.add_assignment (dest_vpointer, ref_ccall);
+ ccode.add_else ();
+ ccode.add_assignment (dest_vpointer, new CCodeConstant ("NULL"));
+ ccode.close ();
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_type_value_table_peek_pointer_function (Class cl) {
+ var function = new CCodeFunction ("%s_peek_pointer".printf (get_ccode_lower_case_name (cl, "value_")), "gpointer");
+ function.add_parameter (new CCodeParameter ("value", "const GValue*"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ push_function (function);
+
+ var vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"), "v_pointer");
+ ccode.add_return (vpointer);
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_type_value_table_lcopy_value_function ( Class cl ) {
+ // Required for GTypeCValue
+ cfile.add_include ("gobject/gvaluecollector.h");
+
+ var function = new CCodeFunction ("%s_lcopy_value".printf (get_ccode_lower_case_name (cl, "value_")), "gchar*");
+ function.add_parameter (new CCodeParameter ("value", "const GValue*"));
+ function.add_parameter (new CCodeParameter ("n_collect_values", "guint"));
+ function.add_parameter (new CCodeParameter ("collect_values", "GTypeCValue*"));
+ function.add_parameter (new CCodeParameter ("collect_flags", "guint"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ var vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"), "v_pointer");
+ var object_p_ptr = new CCodeIdentifier ("*object_p");
+ var null_ = new CCodeConstant ("NULL");
+
+ push_function (function);
+
+ ccode.add_declaration ("%s **".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("object_p", new CCodeMemberAccess (new CCodeIdentifier ("collect_values[0]"), "v_pointer")));
+
+ var value_type_name_fct = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE_NAME"));
+ value_type_name_fct.add_argument (new CCodeConstant ("value"));
+
+ var assert_condition = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, new CCodeIdentifier ("object_p"));
+ ccode.open_if (assert_condition);
+ var assert_printf = new CCodeFunctionCall (new CCodeIdentifier ("g_strdup_printf"));
+ assert_printf.add_argument (new CCodeConstant ("\"value location for `%s' passed as NULL\""));
+ assert_printf.add_argument (value_type_name_fct);
+ ccode.add_return (assert_printf);
+ ccode.close ();
+
+ var main_condition = new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, vpointer);
+ var main_else_if_condition = new CCodeBinaryExpression (CCodeBinaryOperator.BITWISE_AND, new CCodeIdentifier ("collect_flags"), new CCodeIdentifier ("G_VALUE_NOCOPY_CONTENTS"));
+ var ref_fct = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_ref_function (cl)));
+ ref_fct.add_argument (vpointer);
+ ccode.open_if (main_condition);
+ ccode.add_assignment (object_p_ptr, null_);
+ ccode.else_if (main_else_if_condition);
+ ccode.add_assignment (object_p_ptr, vpointer);
+ ccode.add_else ();
+ ccode.add_assignment (object_p_ptr, ref_fct);
+ ccode.close ();
+
+ ccode.add_return (null_);
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_type_value_table_collect_value_function (Class cl) {
+ // Required for GTypeCValue
+ cfile.add_include ("gobject/gvaluecollector.h");
+
+ var function = new CCodeFunction ("%s_collect_value".printf (get_ccode_lower_case_name (cl, "value_")), "gchar*");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.add_parameter (new CCodeParameter ("n_collect_values", "guint"));
+ function.add_parameter (new CCodeParameter ("collect_values", "GTypeCValue*"));
+ function.add_parameter (new CCodeParameter ("collect_flags", "guint"));
+ function.modifiers = CCodeModifiers.STATIC;
+
+ var vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"), "v_pointer");
+
+ push_function (function);
+
+ var collect_vpointer = new CCodeMemberAccess (new CCodeIdentifier ("collect_values[0]"), "v_pointer");
+
+ ccode.open_if (collect_vpointer);
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("object", collect_vpointer));
+ var obj_identifier = new CCodeIdentifier ("object");
+ var l_expression = new CCodeMemberAccess (new CCodeMemberAccess.pointer (obj_identifier, "parent_instance"), "g_class");
+ var sub_condition = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, l_expression, new CCodeConstant ("NULL"));
+ var value_type_name_fct = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE_NAME"));
+ value_type_name_fct.add_argument (new CCodeConstant ("value"));
+
+ ccode.open_if (sub_condition);
+ var true_return = new CCodeFunctionCall (new CCodeIdentifier ("g_strconcat"));
+ true_return.add_argument (new CCodeConstant ("\"invalid unclassed object pointer for value type `\""));
+ true_return.add_argument (value_type_name_fct);
+ true_return.add_argument (new CCodeConstant ("\"'\""));
+ true_return.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_return (true_return);
+
+ var reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_value_type_compatible"));
+ var type_check = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_FROM_INSTANCE"));
+ type_check.add_argument (new CCodeIdentifier ("object"));
+ reg_call.add_argument (type_check);
+ var stored_type = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE"));
+ stored_type.add_argument (new CCodeIdentifier ("value"));
+ reg_call.add_argument (stored_type);
+
+ ccode.else_if (new CCodeUnaryExpression (CCodeUnaryOperator.LOGICAL_NEGATION, reg_call));
+ var false_return = new CCodeFunctionCall (new CCodeIdentifier ("g_strconcat"));
+ var type_name_fct = new CCodeFunctionCall (new CCodeIdentifier ("g_type_name"));
+ type_name_fct.add_argument (type_check);
+ false_return.add_argument (new CCodeConstant ("\"invalid object type `\""));
+ false_return.add_argument (type_name_fct);
+ false_return.add_argument (new CCodeConstant ("\"' for value type `\""));
+ false_return.add_argument (value_type_name_fct);
+ false_return.add_argument (new CCodeConstant ("\"'\""));
+ false_return.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_return (false_return);
+
+ ccode.close ();
+
+ var ref_call = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_ref_function (cl)));
+ ref_call.add_argument (new CCodeIdentifier ("object"));
+ ccode.add_assignment (vpointer, ref_call);
+
+ ccode.add_else ();
+ ccode.add_assignment (vpointer, new CCodeConstant ("NULL"));
+
+ ccode.close ();
+
+ ccode.add_return (new CCodeConstant ("NULL"));
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_g_param_spec_type_function (Class cl) {
+ var function = new CCodeFunction (get_ccode_param_spec_function (cl), "GParamSpec*");
+ function.add_parameter (new CCodeParameter ("name", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("nick", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("blurb", "const gchar*"));
+ function.add_parameter (new CCodeParameter ("object_type", "GType"));
+ function.add_parameter (new CCodeParameter ("flags", "GParamFlags"));
+
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ push_function (function);
+
+ ccode.add_declaration ("%sParamSpec%s*".printf (get_ccode_prefix (cl.parent_symbol), cl.name), new CCodeVariableDeclarator ("spec"));
+
+ var subccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_is_a"));
+ subccall.add_argument (new CCodeIdentifier ("object_type"));
+ subccall.add_argument (new CCodeIdentifier ( get_ccode_type_id (cl) ));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_val_if_fail"));
+ ccall.add_argument (subccall);
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (ccall);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_param_spec_internal"));
+ ccall.add_argument (new CCodeIdentifier ( "G_TYPE_PARAM_OBJECT" ));
+ ccall.add_argument (new CCodeIdentifier ("name"));
+ ccall.add_argument (new CCodeIdentifier ("nick"));
+ ccall.add_argument (new CCodeIdentifier ("blurb"));
+ ccall.add_argument (new CCodeIdentifier ("flags"));
+
+ ccode.add_assignment (new CCodeIdentifier ("spec"), ccall);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("G_PARAM_SPEC"));
+ ccall.add_argument (new CCodeIdentifier ("spec"));
+
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccall, "value_type"), new CCodeIdentifier ("object_type"));
+ ccode.add_return (ccall);
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_g_value_set_function (Class cl) {
+ var function = new CCodeFunction (get_ccode_set_value_function (cl), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.add_parameter (new CCodeParameter ("v_object", "gpointer"));
+
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ var vpointer = new CCodeMemberAccess (new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"), "v_pointer");
+
+ push_function (function);
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("old"));
+
+ var ccall_typecheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_VALUE_TYPE"));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( "value" ));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( get_ccode_type_id (cl) ));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecheck);
+ ccode.add_expression (ccall);
+
+ ccode.add_assignment (new CCodeConstant ("old"), vpointer);
+
+ ccode.open_if (new CCodeIdentifier ("v_object"));
+ ccall_typecheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_INSTANCE_TYPE"));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( "v_object" ));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( get_ccode_type_id (cl) ));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecheck);
+ ccode.add_expression (ccall);
+
+ var ccall_typefrominstance = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_FROM_INSTANCE"));
+ ccall_typefrominstance.add_argument (new CCodeIdentifier ( "v_object" ));
+
+ var ccall_gvaluetype = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE"));
+ ccall_gvaluetype.add_argument (new CCodeIdentifier ( "value" ));
+
+ var ccall_typecompatible = new CCodeFunctionCall (new CCodeIdentifier ("g_value_type_compatible"));
+ ccall_typecompatible.add_argument (ccall_typefrominstance);
+ ccall_typecompatible.add_argument (ccall_gvaluetype);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecompatible);
+ ccode.add_expression (ccall);
+
+ ccode.add_assignment (vpointer, new CCodeConstant ("v_object"));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_ref_function (cl)));
+ ccall.add_argument (vpointer);
+ ccode.add_expression (ccall);
+
+ ccode.add_else ();
+ ccode.add_assignment (vpointer, new CCodeConstant ("NULL"));
+ ccode.close ();
+
+ ccode.open_if (new CCodeIdentifier ("old"));
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_unref_function (cl)));
+ ccall.add_argument (new CCodeIdentifier ("old"));
+ ccode.add_expression (ccall);
+ ccode.close ();
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_g_value_take_function (Class cl) {
+ var function = new CCodeFunction (get_ccode_take_value_function (cl), "void");
+ function.add_parameter (new CCodeParameter ("value", "GValue*"));
+ function.add_parameter (new CCodeParameter ("v_object", "gpointer"));
+
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ var vpointer = new CCodeMemberAccess(new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"),"v_pointer");
+
+ push_function (function);
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("old"));
+
+ var ccall_typecheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_VALUE_TYPE"));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( "value" ));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( get_ccode_type_id (cl) ));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecheck);
+ ccode.add_expression (ccall);
+
+ ccode.add_assignment (new CCodeConstant ("old"), vpointer);
+
+ ccode.open_if (new CCodeIdentifier ("v_object"));
+
+ ccall_typecheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_INSTANCE_TYPE"));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( "v_object" ));
+ ccall_typecheck.add_argument (new CCodeIdentifier ( get_ccode_type_id (cl) ));
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecheck);
+ ccode.add_expression (ccall);
+
+ var ccall_typefrominstance = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_FROM_INSTANCE"));
+ ccall_typefrominstance.add_argument (new CCodeIdentifier ( "v_object" ));
+
+ var ccall_gvaluetype = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_TYPE"));
+ ccall_gvaluetype.add_argument (new CCodeIdentifier ( "value" ));
+
+ var ccall_typecompatible = new CCodeFunctionCall (new CCodeIdentifier ("g_value_type_compatible"));
+ ccall_typecompatible.add_argument (ccall_typefrominstance);
+ ccall_typecompatible.add_argument (ccall_gvaluetype);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_if_fail"));
+ ccall.add_argument (ccall_typecompatible);
+ ccode.add_expression (ccall);
+
+ ccode.add_assignment (vpointer, new CCodeConstant ("v_object"));
+
+ ccode.add_else ();
+ ccode.add_assignment (vpointer, new CCodeConstant ("NULL"));
+ ccode.close ();
+
+ ccode.open_if (new CCodeIdentifier ("old"));
+ ccall = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_unref_function (cl)));
+ ccall.add_argument (new CCodeIdentifier ("old"));
+ ccode.add_expression (ccall);
+ ccode.close ();
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void add_g_value_get_function (Class cl) {
+ var function = new CCodeFunction (get_ccode_get_value_function (cl), "gpointer");
+ function.add_parameter (new CCodeParameter ("value", "const GValue*"));
+
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ var vpointer = new CCodeMemberAccess(new CCodeMemberAccess.pointer (new CCodeIdentifier ("value"), "data[0]"),"v_pointer");
+
+ push_function (function);
+
+ var ccall_typecheck = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_VALUE_TYPE"));
+ ccall_typecheck.add_argument (new CCodeIdentifier ("value"));
+ ccall_typecheck.add_argument (new CCodeIdentifier (get_ccode_type_id (cl)));
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_return_val_if_fail"));
+ ccall.add_argument (ccall_typecheck);
+ ccall.add_argument (new CCodeConstant ("NULL"));
+ ccode.add_expression (ccall);
+
+ ccode.add_return (vpointer);
+
+ pop_function ();
+ cfile.add_function (function);
+ }
+
+ private void begin_base_init_function (Class cl) {
+ push_context (base_init_context);
+
+ var base_init = new CCodeFunction ("%s_base_init".printf (get_ccode_lower_case_name (cl, null)), "void");
+ base_init.add_parameter (new CCodeParameter ("klass", "%s *".printf (get_ccode_type_name (cl))));
+ base_init.modifiers = CCodeModifiers.STATIC;
+
+ push_function (base_init);
+
+ pop_context ();
+ }
+
+ private void add_base_init_function (Class cl) {
+ cfile.add_function (base_init_context.ccode);
+ }
+
+ public virtual void generate_class_init (Class cl) {
+ }
+
+ public virtual void end_instance_init (Class cl) {
+ }
+
+ private void begin_class_init_function (Class cl) {
+ push_context (class_init_context);
+
+ var func = new CCodeFunction ("%s_class_init".printf (get_ccode_lower_case_name (cl, null)));
+ func.add_parameter (new CCodeParameter ("klass", "%s *".printf (get_ccode_type_name (cl))));
+ func.add_parameter (new CCodeParameter ("klass_data", "gpointer"));
+ func.modifiers = CCodeModifiers.STATIC;
+
+ CCodeFunctionCall ccall;
+
+ /* save pointer to parent class */
+ var parent_decl = new CCodeDeclaration ("gpointer");
+ var parent_var_decl = new CCodeVariableDeclarator ("%s_parent_class".printf (get_ccode_lower_case_name (cl, null)));
+ parent_var_decl.initializer = new CCodeConstant ("NULL");
+ parent_decl.add_declarator (parent_var_decl);
+ parent_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (parent_decl);
+
+ push_function (func);
+
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_class_peek_parent"));
+ ccall.add_argument (new CCodeIdentifier ("klass"));
+ var parent_assignment = new CCodeAssignment (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (cl, null))), ccall);
+ ccode.add_expression (parent_assignment);
+
+
+ if (!cl.is_compact && !cl.is_subtype_of (gobject_type) && (cl.get_fields ().size > 0 || cl.destructor != null || cl.is_fundamental ())) {
+ // set finalize function
+ var fundamental_class = cl;
+ while (fundamental_class.base_class != null) {
+ fundamental_class = fundamental_class.base_class;
+ }
+
+ var ccast = new CCodeCastExpression (new CCodeIdentifier ("klass"), "%s *".printf (get_ccode_type_name (fundamental_class)));
+ var finalize_assignment = new CCodeAssignment (new CCodeMemberAccess.pointer (ccast, "finalize"), new CCodeIdentifier ("%sfinalize".printf (get_ccode_lower_case_prefix (cl))));
+ ccode.add_expression (finalize_assignment);
+ }
+
+ /* add struct for private fields */
+ if (cl.has_private_fields || cl.has_type_parameters ()) {
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_class_adjust_private_offset"));
+ ccall.add_argument (new CCodeIdentifier ("klass"));
+ ccall.add_argument (new CCodeIdentifier ("&%s_private_offset".printf (get_ccode_name (cl))));
+ ccode.add_expression (ccall);
+ }
+
+ /* connect overridden methods */
+ foreach (Method m in cl.get_methods ()) {
+ if (m.base_method == null) {
+ continue;
+ }
+ var base_type = (ObjectTypeSymbol) m.base_method.parent_symbol;
+
+ // there is currently no default handler for abstract async methods
+ if (!m.is_abstract || !m.coroutine) {
+ generate_method_declaration (m.base_method, cfile);
+
+ CCodeExpression cfunc = new CCodeIdentifier (get_ccode_real_name (m));
+ cfunc = cast_method_pointer (m.base_method, cfunc, base_type, (m.coroutine ? 1 : 3));
+ var ccast = new CCodeCastExpression (new CCodeIdentifier ("klass"), "%s *".printf (get_ccode_type_name (base_type)));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, get_ccode_vfunc_name (m.base_method)), cfunc);
+
+ if (m.coroutine) {
+ cfunc = new CCodeIdentifier (get_ccode_finish_real_name (m));
+ cfunc = cast_method_pointer (m.base_method, cfunc, base_type, 2);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, get_ccode_finish_vfunc_name (m.base_method)), cfunc);
+ }
+ }
+ }
+
+ /* connect default signal handlers */
+ foreach (Signal sig in cl.get_signals ()) {
+ if (sig.default_handler == null || !sig.is_virtual) {
+ continue;
+ }
+
+ var ccast = new CCodeCastExpression (new CCodeIdentifier ("klass"), "%s *".printf (get_ccode_type_name (cl)));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, get_ccode_vfunc_name (sig.default_handler)), new CCodeIdentifier (get_ccode_real_name (sig.default_handler)));
+ }
+
+ /* connect overridden properties */
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.base_property == null) {
+ continue;
+ }
+ var base_type = (Class) prop.base_property.parent_symbol;
+
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (base_type)));
+ ccast.add_argument (new CCodeIdentifier ("klass"));
+
+ if (!get_ccode_no_accessor_method (prop.base_property) && !get_ccode_concrete_accessor (prop.base_property)) {
+ if (prop.get_accessor != null) {
+ generate_property_accessor_declaration (prop.base_property.get_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.get_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "get_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ if (prop.set_accessor != null) {
+ generate_property_accessor_declaration (prop.base_property.set_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.set_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "set_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ }
+ }
+
+ generate_class_init (cl);
+
+ if (!cl.is_compact) {
+ /* create signals */
+ foreach (Signal sig in cl.get_signals ()) {
+ if (sig.comment != null) {
+ ccode.add_statement (new CCodeComment (sig.comment.content));
+ }
+ ccode.add_expression (get_signal_creation (sig, cl));
+ }
+ }
+
+ pop_context ();
+ }
+
+ private void add_class_init_function (Class cl) {
+ cfile.add_function (class_init_context.ccode);
+ }
+
+ private void add_generic_accessor_function (string base_name, string return_type, CCodeExpression? expression, TypeParameter p, Class cl, Interface iface) {
+ string name = "%s_%s_%s".printf (get_ccode_lower_case_name (cl), get_ccode_lower_case_name (iface), base_name);
+
+ var function = new CCodeFunction (name, return_type);
+ function.modifiers = CCodeModifiers.STATIC;
+ var this_type = SemanticAnalyzer.get_data_type_for_symbol (cl);
+ function.add_parameter (new CCodeParameter ("self", get_ccode_name (this_type)));
+ push_function (function);
+ ccode.add_return (expression);
+ pop_function ();
+ cfile.add_function (function);
+
+ CCodeExpression cfunc = new CCodeIdentifier (function.name);
+ string cast = "%s (*)".printf (return_type);
+ string cast_args = "%s *".printf (get_ccode_name (iface));
+ cast = "%s (%s)".printf (cast, cast_args);
+ cfunc = new CCodeCastExpression (cfunc, cast);
+ var ciface = new CCodeIdentifier ("iface");
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, base_name), cfunc);
+ }
+
+ private void add_interface_init_function (Class cl, Interface iface) {
+ var iface_init = new CCodeFunction ("%s_%s_interface_init".printf (get_ccode_lower_case_name (cl), get_ccode_lower_case_name (iface)), "void");
+ iface_init.add_parameter (new CCodeParameter ("iface", "%s *".printf (get_ccode_type_name (iface))));
+ iface_init.add_parameter (new CCodeParameter ("iface_data", "gpointer"));
+ iface_init.modifiers = CCodeModifiers.STATIC;
+
+ push_function (iface_init);
+
+ CCodeFunctionCall ccall;
+
+ /* save pointer to parent vtable */
+ string parent_iface_var = "%s_%s_parent_iface".printf (get_ccode_lower_case_name (cl), get_ccode_lower_case_name (iface));
+ var parent_decl = new CCodeDeclaration ("%s *".printf (get_ccode_type_name (iface)));
+ var parent_var_decl = new CCodeVariableDeclarator (parent_iface_var);
+ parent_var_decl.initializer = new CCodeConstant ("NULL");
+ parent_decl.add_declarator (parent_var_decl);
+ parent_decl.modifiers = CCodeModifiers.STATIC;
+ cfile.add_type_member_declaration (parent_decl);
+ ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_interface_peek_parent"));
+ ccall.add_argument (new CCodeIdentifier ("iface"));
+ ccode.add_assignment (new CCodeIdentifier (parent_iface_var), ccall);
+
+ foreach (Method m in cl.get_methods ()) {
+ if (m.base_interface_method == null) {
+ continue;
+ }
+
+ var base_type = m.base_interface_method.parent_symbol;
+ if (base_type != iface) {
+ continue;
+ }
+
+ generate_method_declaration (m.base_interface_method, cfile);
+
+ var ciface = new CCodeIdentifier ("iface");
+ CCodeExpression cfunc;
+ if (m.is_abstract || m.is_virtual) {
+ cfunc = new CCodeIdentifier (get_ccode_name (m));
+ } else {
+ cfunc = new CCodeIdentifier (get_ccode_real_name (m));
+ }
+ cfunc = cast_method_pointer (m.base_interface_method, cfunc, iface, (m.coroutine ? 1 : 3));
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_vfunc_name (m.base_interface_method)), cfunc);
+
+ if (m.coroutine) {
+ if (m.is_abstract || m.is_virtual) {
+ cfunc = new CCodeIdentifier (get_ccode_finish_name (m));
+ } else {
+ cfunc = new CCodeIdentifier (get_ccode_finish_real_name (m));
+ }
+ cfunc = cast_method_pointer (m.base_interface_method, cfunc, iface, 2);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_finish_vfunc_name (m.base_interface_method)), cfunc);
+ }
+ }
+
+ if (iface.get_attribute ("GenericAccessors") != null) {
+ foreach (TypeParameter p in iface.get_type_parameters ()) {
+ GenericType p_type = new GenericType (p);
+ DataType p_data_type = p_type.get_actual_type (SemanticAnalyzer.get_data_type_for_symbol (cl), null, cl);
+
+ add_generic_accessor_function ("get_%s".printf (get_ccode_type_id (p)),
+ "GType",
+ get_type_id_expression (p_data_type),
+ p, cl, iface);
+
+ add_generic_accessor_function ("get_%s".printf (get_ccode_copy_function (p)),
+ "GBoxedCopyFunc",
+ get_dup_func_expression (p_data_type, p_data_type.source_reference),
+ p, cl, iface);
+
+ add_generic_accessor_function ("get_%s".printf (get_ccode_destroy_function (p)),
+ "GDestroyNotify",
+ get_destroy_func_expression (p_data_type),
+ p, cl, iface);
+ }
+ }
+
+ // connect inherited implementations
+ var it = cl.get_implicit_implementations ().map_iterator ();
+ while (it.next ()) {
+ Method m = it.get_key ();
+ if (m.parent_symbol == iface) {
+ Method base_method = it.get_value ();
+
+ generate_method_declaration (base_method, cfile);
+
+ CCodeExpression cfunc = new CCodeIdentifier (get_ccode_name (base_method));
+ cfunc = cast_method_pointer (m, cfunc, iface);
+ var ciface = new CCodeIdentifier ("iface");
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_vfunc_name (m)), cfunc);
+ }
+ }
+
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.base_interface_property == null) {
+ continue;
+ }
+
+ var base_type = (ObjectTypeSymbol) prop.base_interface_property.parent_symbol;
+ if (base_type != iface) {
+ continue;
+ }
+
+ var ciface = new CCodeIdentifier ("iface");
+
+ if (!get_ccode_no_accessor_method (prop.base_interface_property) && !get_ccode_concrete_accessor (prop.base_interface_property)) {
+ if (prop.get_accessor != null) {
+ generate_property_accessor_declaration (prop.base_interface_property.get_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.get_accessor);
+ if (prop.is_abstract || prop.is_virtual) {
+ cname = get_ccode_name (prop.get_accessor);
+ }
+
+ CCodeExpression cfunc = new CCodeIdentifier (cname);
+ if (prop.is_abstract || prop.is_virtual) {
+ cfunc = cast_property_accessor_pointer (prop.get_accessor, cfunc, base_type);
+ }
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "get_%s".printf (prop.name)), cfunc);
+ }
+ if (prop.set_accessor != null) {
+ generate_property_accessor_declaration (prop.base_interface_property.set_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.set_accessor);
+ if (prop.is_abstract || prop.is_virtual) {
+ cname = get_ccode_name (prop.set_accessor);
+ }
+
+ CCodeExpression cfunc = new CCodeIdentifier (cname);
+ if (prop.is_abstract || prop.is_virtual) {
+ cfunc = cast_property_accessor_pointer (prop.set_accessor, cfunc, base_type);
+ }
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "set_%s".printf (prop.name)), cfunc);
+ }
+ }
+ }
+
+ foreach (Property prop in iface.get_properties ()) {
+ if (!prop.is_abstract) {
+ continue;
+ }
+
+ Property cl_prop = null;
+ var base_class = cl;
+ while (base_class != null && cl_prop == null) {
+ cl_prop = base_class.scope.lookup (prop.name) as Property;
+ base_class = base_class.base_class;
+ }
+ if (base_class != null && cl_prop.parent_symbol != cl) {
+ // property inherited from base class
+
+ var base_property = cl_prop;
+ if (cl_prop.base_property != null) {
+ base_property = cl_prop.base_property;
+ } else if (cl_prop.base_interface_property != null) {
+ base_property = cl_prop.base_interface_property;
+ }
+
+ // Our base class provides this interface implementation
+ if (prop == base_property) {
+ continue;
+ }
+
+ var ciface = new CCodeIdentifier ("iface");
+
+ if (base_property.get_accessor != null && prop.get_accessor != null) {
+ generate_property_accessor_declaration (base_property.get_accessor, cfile);
+
+ string cname = get_ccode_name (base_property.get_accessor);
+ CCodeExpression cfunc = new CCodeIdentifier (cname);
+ cfunc = cast_property_accessor_pointer (prop.get_accessor, cfunc, iface);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "get_%s".printf (prop.name)), cfunc);
+ }
+ if (base_property.set_accessor != null && prop.set_accessor != null) {
+ generate_property_accessor_declaration (base_property.set_accessor, cfile);
+
+ string cname = get_ccode_name (base_property.set_accessor);
+ CCodeExpression cfunc = new CCodeIdentifier (cname);
+ cfunc = cast_property_accessor_pointer (prop.set_accessor, cfunc, iface);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "set_%s".printf (prop.name)), cfunc);
+ }
+ }
+ }
+
+ pop_function ();
+ cfile.add_function (iface_init);
+ }
+
+ CCodeExpression cast_property_accessor_pointer (PropertyAccessor acc, CCodeExpression cfunc, ObjectTypeSymbol base_type) {
+ string cast;
+ if (acc.readable && acc.value_type.is_real_non_null_struct_type ()) {
+ cast = "void (*) (%s *, %s *)".printf (get_ccode_name (base_type), get_ccode_name (acc.value_type));
+ } else if (acc.readable) {
+ cast = "%s (*) (%s *)".printf (get_ccode_name (acc.value_type), get_ccode_name (base_type));
+ } else if (acc.value_type.is_real_non_null_struct_type ()) {
+ cast = "void (*) (%s *, %s *)".printf (get_ccode_name (base_type), get_ccode_name (acc.value_type));
+ } else {
+ cast = "void (*) (%s *, %s)".printf (get_ccode_name (base_type), get_ccode_name (acc.value_type));
+ }
+ return new CCodeCastExpression (cfunc, cast);
+ }
+
+ CCodeExpression cast_method_pointer (Method m, CCodeExpression cfunc, ObjectTypeSymbol base_type, int direction = 3) {
+ // Cast the function pointer to match the interface
+ string cast;
+ if (direction == 1 || m.return_type.is_real_non_null_struct_type ()) {
+ cast = "void (*)";
+ } else {
+ cast = "%s (*)".printf (get_ccode_name (m.return_type));
+ }
+
+ var vdeclarator = new CCodeFunctionDeclarator (get_ccode_vfunc_name (m));
+ var cparam_map = new HashMap<int,CCodeParameter> (direct_hash, direct_equal);
+
+ generate_cparameters (m, cfile, cparam_map, new CCodeFunction ("fake"), vdeclarator, null, null, direction);
+
+ // append C arguments in the right order
+ int last_pos = -1;
+ int min_pos;
+ string cast_args = "";
+ while (true) {
+ min_pos = -1;
+ foreach (int pos in cparam_map.get_keys ()) {
+ if (pos > last_pos && (min_pos == -1 || pos < min_pos)) {
+ min_pos = pos;
+ }
+ }
+ if (min_pos == -1) {
+ break;
+ }
+ if (last_pos != -1) {
+ cast_args = "%s, ".printf (cast_args);
+ }
+ var cparam = cparam_map.get (min_pos);
+ if (cparam.ellipsis) {
+ cast_args = "%s...".printf (cast_args);
+ } else {
+ cast_args = "%s%s".printf (cast_args, cparam.type_name);
+ }
+ last_pos = min_pos;
+ }
+ cast = "%s (%s)".printf (cast, cast_args);
+ return new CCodeCastExpression (cfunc, cast);
+ }
+
+ private void begin_instance_init_function (Class cl) {
+ push_context (instance_init_context);
+
+ var func = new CCodeFunction ("%s_instance_init".printf (get_ccode_lower_case_name (cl, null)));
+ func.add_parameter (new CCodeParameter ("self", "%s *".printf (get_ccode_name (cl))));
+ if (!cl.is_compact) {
+ func.add_parameter (new CCodeParameter ("klass", "gpointer"));
+ }
+ func.modifiers = CCodeModifiers.STATIC;
+
+ push_function (func);
+
+ bool is_gsource = cl.is_subtype_of (gsource_type);
+
+ if (cl.is_compact) {
+ // Add declaration, since the instance_init function is explicitly called
+ // by the creation methods
+ cfile.add_function_declaration (func);
+
+ // connect overridden methods
+ foreach (Method m in cl.get_methods ()) {
+ if (m.base_method == null || is_gsource) {
+ continue;
+ }
+ var base_type = (ObjectTypeSymbol) m.base_method.parent_symbol;
+
+ // there is currently no default handler for abstract async methods
+ if (!m.is_abstract || !m.coroutine) {
+ generate_method_declaration (m.base_method, cfile);
+
+ CCodeExpression cfunc = new CCodeIdentifier (get_ccode_real_name (m));
+ cfunc = cast_method_pointer (m.base_method, cfunc, base_type, (m.coroutine ? 1 : 3));
+ var ccast = new CCodeCastExpression (new CCodeIdentifier ("self"), "%s *".printf (get_ccode_name (base_type)));
+ func.add_assignment (new CCodeMemberAccess.pointer (ccast, get_ccode_vfunc_name (m.base_method)), cfunc);
+
+ if (m.coroutine) {
+ cfunc = new CCodeIdentifier (get_ccode_finish_real_name (m));
+ cfunc = cast_method_pointer (m.base_method, cfunc, base_type, 2);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, get_ccode_finish_vfunc_name (m.base_method)), cfunc);
+ }
+ }
+ }
+
+ // connect overridden properties
+ foreach (Property prop in cl.get_properties ()) {
+ if (prop.base_property == null || is_gsource) {
+ continue;
+ }
+ var base_type = prop.base_property.parent_symbol;
+
+ var ccast = new CCodeCastExpression (new CCodeIdentifier ("self"), "%s *".printf (get_ccode_name (base_type)));
+
+ if (!get_ccode_no_accessor_method (prop.base_property) && !get_ccode_concrete_accessor (prop.base_property)) {
+ if (prop.get_accessor != null) {
+ generate_property_accessor_declaration (prop.base_property.get_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.get_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "get_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ if (prop.set_accessor != null) {
+ generate_property_accessor_declaration (prop.base_property.set_accessor, cfile);
+
+ string cname = get_ccode_real_name (prop.set_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ccast, "set_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ }
+ }
+ }
+
+ if (!cl.is_compact && (cl.has_private_fields || cl.has_type_parameters ())) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("%s_get_instance_private".printf (get_ccode_lower_case_name (cl, null))));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ func.add_assignment (new CCodeMemberAccess.pointer (new CCodeIdentifier ("self"), "priv"), ccall);
+ }
+
+ pop_context ();
+ }
+
+ private void add_instance_init_function (Class cl) {
+ push_context (instance_init_context);
+ end_instance_init (cl);
+ pop_context ();
+
+ cfile.add_function (instance_init_context.ccode);
+ }
+
+ private void begin_class_finalize_function (Class cl) {
+ push_context (class_finalize_context);
+
+ var function = new CCodeFunction ("%s_class_finalize".printf (get_ccode_lower_case_name (cl, null)), "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("klass", "%s *".printf (get_ccode_type_name (cl))));
+
+ push_function (function);
+
+ if (cl.static_destructor != null) {
+ cl.static_destructor.body.emit (this);
+
+ if (current_method_inner_error) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ if (current_method_return) {
+ // support return statements in destructors
+ ccode.add_label ("_return");
+ ccode.add_statement (new CCodeEmptyStatement ());
+ }
+ }
+
+ pop_context ();
+ }
+
+ private void add_class_finalize_function (Class cl) {
+ cfile.add_function_declaration (class_finalize_context.ccode);
+ cfile.add_function (class_finalize_context.ccode);
+ }
+
+ private void begin_base_finalize_function (Class cl) {
+ push_context (base_finalize_context);
+
+ var function = new CCodeFunction ("%s_base_finalize".printf (get_ccode_lower_case_name (cl, null)), "void");
+ function.modifiers = CCodeModifiers.STATIC;
+
+ function.add_parameter (new CCodeParameter ("klass", "%s *".printf (get_ccode_type_name (cl))));
+ function.add_parameter (new CCodeParameter ("klass_data", "gpointer"));
+
+ push_function (function);
+
+ if (cl.class_destructor != null) {
+ cl.class_destructor.body.emit (this);
+
+ if (current_method_inner_error) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ if (current_method_return) {
+ // support return statements in destructors
+ ccode.add_label ("_return");
+ ccode.add_statement (new CCodeEmptyStatement ());
+ }
+ }
+
+ pop_context ();
+ }
+
+ private void add_base_finalize_function (Class cl) {
+ push_context (base_finalize_context);
+
+ cfile.add_function_declaration (ccode);
+ cfile.add_function (ccode);
+
+ pop_context ();
+ }
+
+ private void begin_finalize_function (Class cl) {
+ push_context (instance_finalize_context);
+
+ bool is_gsource = cl.is_subtype_of (gsource_type);
+
+ if (!cl.is_compact || is_gsource) {
+ var fundamental_class = cl;
+ while (fundamental_class.base_class != null) {
+ fundamental_class = fundamental_class.base_class;
+ }
+
+ var func = new CCodeFunction ("%sfinalize".printf (get_ccode_lower_case_prefix (cl)));
+ func.add_parameter (new CCodeParameter ("obj", "%s *".printf (get_ccode_name (fundamental_class))));
+ func.modifiers = CCodeModifiers.STATIC;
+
+ push_function (func);
+
+ if (is_gsource) {
+ cfile.add_function_declaration (func);
+ }
+
+ CCodeExpression ccast;
+ if (!cl.is_compact) {
+ ccast = generate_instance_cast (new CCodeIdentifier ("obj"), cl);
+ } else {
+ ccast = new CCodeCastExpression (new CCodeIdentifier ("obj"), "%s *".printf (get_ccode_name (cl)));
+ }
+
+ ccode.add_declaration ("%s *".printf (get_ccode_name (cl)), new CCodeVariableDeclarator ("self"));
+ ccode.add_assignment (new CCodeIdentifier ("self"), ccast);
+
+ if (!cl.is_compact && cl.base_class == null) {
+ // non-gobject class
+ var call = new CCodeFunctionCall (new CCodeIdentifier ("g_signal_handlers_destroy"));
+ call.add_argument (new CCodeIdentifier ("self"));
+ ccode.add_expression (call);
+ }
+ } else if (cl.base_class == null) {
+ var function = new CCodeFunction (get_ccode_free_function (cl), "void");
+ if (cl.is_private_symbol ()) {
+ function.modifiers = CCodeModifiers.STATIC;
+ } else if (context.hide_internal && cl.is_internal_symbol ()) {
+ function.modifiers = CCodeModifiers.INTERNAL;
+ }
+
+ function.add_parameter (new CCodeParameter ("self", "%s *".printf (get_ccode_name (cl))));
+
+ push_function (function);
+ }
+
+ if (cl.destructor != null) {
+ cl.destructor.body.emit (this);
+
+ if (current_method_inner_error) {
+ ccode.add_declaration ("GError*", new CCodeVariableDeclarator.zero ("_inner_error%d_".printf (current_inner_error_id), new CCodeConstant ("NULL")));
+ }
+
+ if (current_method_return) {
+ // support return statements in destructors
+ ccode.add_label ("_return");
+ }
+ }
+
+ pop_context ();
+ }
+
+ private void add_finalize_function (Class cl) {
+ if (!cl.is_compact) {
+ var fundamental_class = cl;
+ while (fundamental_class.base_class != null) {
+ fundamental_class = fundamental_class.base_class;
+ }
+
+ // chain up to finalize function of the base class
+ if (cl.base_class != null) {
+ var ccast = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_class_type_function (fundamental_class)));
+ ccast.add_argument (new CCodeIdentifier ("%s_parent_class".printf (get_ccode_lower_case_name (cl, null))));
+ var ccall = new CCodeFunctionCall (new CCodeMemberAccess.pointer (ccast, "finalize"));
+ ccall.add_argument (new CCodeIdentifier ("obj"));
+ push_context (instance_finalize_context);
+ ccode.add_expression (ccall);
+ pop_context ();
+ }
+
+ cfile.add_function_declaration (instance_finalize_context.ccode);
+ cfile.add_function (instance_finalize_context.ccode);
+ } else if (cl.base_class == null) {
+ // g_slice_free needs glib.h
+ cfile.add_include ("glib.h");
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_slice_free"));
+ ccall.add_argument (new CCodeIdentifier (get_ccode_name (cl)));
+ ccall.add_argument (new CCodeIdentifier ("self"));
+ push_context (instance_finalize_context);
+ ccode.add_expression (ccall);
+ pop_context ();
+
+ cfile.add_function (instance_finalize_context.ccode);
+ } else if (cl.is_subtype_of (gsource_type)) {
+ cfile.add_function (instance_finalize_context.ccode);
+ }
+ }
+
+ public override CCodeExpression get_param_spec_cexpression (Property prop) {
+ var cl = (TypeSymbol) prop.parent_symbol;
+ var prop_array = new CCodeIdentifier ("%s_properties".printf (get_ccode_lower_case_name (cl)));
+ var prop_enum_value = new CCodeIdentifier ("%s_PROPERTY".printf (get_ccode_upper_case_name (prop)));
+
+ return new CCodeElementAccess (prop_array, prop_enum_value);
+ }
+
+ public override CCodeExpression get_param_spec (Property prop) {
+ var cspec = new CCodeFunctionCall ();
+ cspec.add_argument (get_property_canonical_cconstant (prop));
+ cspec.add_argument (new CCodeConstant ("\"%s\"".printf (prop.nick)));
+ cspec.add_argument (new CCodeConstant ("\"%s\"".printf (prop.blurb)));
+
+ unowned TypeSymbol? type_symbol = prop.property_type.type_symbol;
+ if (type_symbol is Class || type_symbol is Interface) {
+ string param_spec_name = get_ccode_param_spec_function (type_symbol);
+ cspec.call = new CCodeIdentifier (param_spec_name);
+ if (param_spec_name == "g_param_spec_string") {
+ cspec.add_argument (new CCodeConstant ("NULL"));
+ } else if (param_spec_name == "g_param_spec_variant") {
+ cspec.add_argument (new CCodeConstant ("G_VARIANT_TYPE_ANY"));
+ cspec.add_argument (new CCodeConstant ("NULL"));
+ } else if (param_spec_name == "gtk_param_spec_expression") {
+ // No additional parameter required
+ } else if (get_ccode_type_id (type_symbol) != "G_TYPE_POINTER") {
+ cspec.add_argument (new CCodeIdentifier (get_ccode_type_id (type_symbol)));
+ }
+ } else if (type_symbol is Enum) {
+ unowned Enum e = (Enum) type_symbol;
+ if (get_ccode_has_type_id (e)) {
+ if (e.is_flags) {
+ cspec.call = new CCodeIdentifier ("g_param_spec_flags");
+ } else {
+ cspec.call = new CCodeIdentifier ("g_param_spec_enum");
+ }
+ cspec.add_argument (new CCodeIdentifier (get_ccode_type_id (e)));
+ } else {
+ if (e.is_flags) {
+ cspec.call = new CCodeIdentifier ("g_param_spec_uint");
+ cspec.add_argument (new CCodeConstant ("0"));
+ cspec.add_argument (new CCodeConstant ("G_MAXUINT"));
+ } else {
+ cspec.call = new CCodeIdentifier ("g_param_spec_int");
+ cspec.add_argument (new CCodeConstant ("G_MININT"));
+ cspec.add_argument (new CCodeConstant ("G_MAXINT"));
+ }
+ }
+
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant (get_ccode_default_value (type_symbol)));
+ }
+ } else if (type_symbol is Struct) {
+ unowned Struct st = (Struct) type_symbol;
+ var type_id = get_ccode_type_id (st);
+ if (type_id == "G_TYPE_INT") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_int");
+ cspec.add_argument (new CCodeConstant ("G_MININT"));
+ cspec.add_argument (new CCodeConstant ("G_MAXINT"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0"));
+ }
+ } else if (type_id == "G_TYPE_UINT") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_uint");
+ cspec.add_argument (new CCodeConstant ("0"));
+ cspec.add_argument (new CCodeConstant ("G_MAXUINT"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0U"));
+ }
+ } else if (type_id == "G_TYPE_INT64") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_int64");
+ cspec.add_argument (new CCodeConstant ("G_MININT64"));
+ cspec.add_argument (new CCodeConstant ("G_MAXINT64"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0"));
+ }
+ } else if (type_id == "G_TYPE_UINT64") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_uint64");
+ cspec.add_argument (new CCodeConstant ("0"));
+ cspec.add_argument (new CCodeConstant ("G_MAXUINT64"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0U"));
+ }
+ } else if (type_id == "G_TYPE_LONG") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_long");
+ cspec.add_argument (new CCodeConstant ("G_MINLONG"));
+ cspec.add_argument (new CCodeConstant ("G_MAXLONG"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0L"));
+ }
+ } else if (type_id == "G_TYPE_ULONG") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_ulong");
+ cspec.add_argument (new CCodeConstant ("0"));
+ cspec.add_argument (new CCodeConstant ("G_MAXULONG"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0UL"));
+ }
+ } else if (type_id == "G_TYPE_BOOLEAN") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_boolean");
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("FALSE"));
+ }
+ } else if (type_id == "G_TYPE_CHAR") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_char");
+ cspec.add_argument (new CCodeConstant ("G_MININT8"));
+ cspec.add_argument (new CCodeConstant ("G_MAXINT8"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0"));
+ }
+ } else if (type_id == "G_TYPE_UCHAR") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_uchar");
+ cspec.add_argument (new CCodeConstant ("0"));
+ cspec.add_argument (new CCodeConstant ("G_MAXUINT8"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0"));
+ }
+ } else if (type_id == "G_TYPE_FLOAT") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_float");
+ cspec.add_argument (new CCodeConstant ("-G_MAXFLOAT"));
+ cspec.add_argument (new CCodeConstant ("G_MAXFLOAT"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0.0F"));
+ }
+ } else if (type_id == "G_TYPE_DOUBLE") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_double");
+ cspec.add_argument (new CCodeConstant ("-G_MAXDOUBLE"));
+ cspec.add_argument (new CCodeConstant ("G_MAXDOUBLE"));
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("0.0"));
+ }
+ } else if (type_id == "G_TYPE_GTYPE") {
+ cspec.call = new CCodeIdentifier ("g_param_spec_gtype");
+ if (prop.initializer != null) {
+ cspec.add_argument ((CCodeExpression) get_ccodenode (prop.initializer));
+ } else {
+ cspec.add_argument (new CCodeConstant ("G_TYPE_NONE"));
+ }
+ } else {
+ cspec.call = new CCodeIdentifier ("g_param_spec_boxed");
+ cspec.add_argument (new CCodeIdentifier (type_id));
+ }
+ } else if (prop.property_type is ArrayType && ((ArrayType)prop.property_type).element_type.type_symbol == string_type.type_symbol) {
+ cspec.call = new CCodeIdentifier ("g_param_spec_boxed");
+ cspec.add_argument (new CCodeIdentifier ("G_TYPE_STRV"));
+ } else {
+ cspec.call = new CCodeIdentifier ("g_param_spec_pointer");
+ }
+
+ var pflags = "G_PARAM_STATIC_STRINGS";
+ if (prop.get_accessor != null && prop.get_accessor.access != SymbolAccessibility.PRIVATE) {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_READABLE");
+ }
+ if (prop.set_accessor != null && prop.set_accessor.access != SymbolAccessibility.PRIVATE) {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_WRITABLE");
+ if (prop.set_accessor.construction) {
+ if (prop.set_accessor.writable) {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_CONSTRUCT");
+ } else {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_CONSTRUCT_ONLY");
+ }
+ }
+ }
+ if (!prop.notify) {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_EXPLICIT_NOTIFY");
+ }
+ if (prop.version.deprecated) {
+ pflags = "%s%s".printf (pflags, " | G_PARAM_DEPRECATED");
+ }
+ cspec.add_argument (new CCodeConstant (pflags));
+
+ if (prop.parent_symbol is Interface) {
+ return cspec;
+ } else {
+ return new CCodeAssignment (get_param_spec_cexpression (prop), cspec);
+ }
+ }
+
+ public override void generate_interface_declaration (Interface iface, CCodeFile decl_space) {
+ if (add_symbol_declaration (decl_space, iface, get_ccode_name (iface))) {
+ return;
+ }
+
+ decl_space.add_include ("glib-object.h");
+
+ var instance_struct = new CCodeStruct ("_%s".printf (get_ccode_name (iface)));
+ var type_struct = new CCodeStruct ("_%s".printf (get_ccode_type_name (iface)));
+
+ decl_space.add_type_declaration (new CCodeNewline ());
+ var macro = "(%s_get_type ())".printf (get_ccode_lower_case_name (iface, null));
+ decl_space.add_type_declaration (new CCodeMacroReplacement (get_ccode_type_id (iface), macro));
+
+ macro = "(G_TYPE_CHECK_INSTANCE_CAST ((obj), %s, %s))".printf (get_ccode_type_id (iface), get_ccode_name (iface));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_cast_function (iface)), macro));
+
+ macro = "(G_TYPE_CHECK_INSTANCE_TYPE ((obj), %s))".printf (get_ccode_type_id (iface));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_check_function (iface)), macro));
+
+ macro = "(G_TYPE_INSTANCE_GET_INTERFACE ((obj), %s, %s))".printf (get_ccode_type_id (iface), get_ccode_type_name (iface));
+ decl_space.add_type_declaration (new CCodeMacroReplacement ("%s(obj)".printf (get_ccode_type_get_function (iface)), macro));
+ decl_space.add_type_declaration (new CCodeNewline ());
+
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct _%s".printf (get_ccode_name (iface)), new CCodeVariableDeclarator (get_ccode_name (iface))));
+ decl_space.add_type_declaration (new CCodeTypeDefinition ("struct %s".printf (type_struct.name), new CCodeVariableDeclarator (get_ccode_type_name (iface))));
+
+ foreach (DataType prerequisite in iface.get_prerequisites ()) {
+ unowned Class? prereq_cl = prerequisite.type_symbol as Class;
+ unowned Interface? prereq_iface = prerequisite.type_symbol as Interface;
+ if (prereq_cl != null) {
+ generate_class_declaration (prereq_cl, decl_space);
+ } else if (prereq_iface != null) {
+ generate_interface_declaration (prereq_iface, decl_space);
+ }
+ }
+
+ type_struct.add_field ("GTypeInterface", "parent_iface");
+
+ if (iface.get_attribute ("GenericAccessors") != null) {
+ foreach (TypeParameter p in iface.get_type_parameters ()) {
+ var vdeclarator = new CCodeFunctionDeclarator ("get_%s".printf (get_ccode_type_id (p)));
+ var this_type = SemanticAnalyzer.get_data_type_for_symbol (iface);
+ vdeclarator.add_parameter (new CCodeParameter ("self", get_ccode_name (this_type)));
+
+ var vdecl = new CCodeDeclaration ("GType");
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+
+ vdeclarator = new CCodeFunctionDeclarator ("get_%s".printf (get_ccode_copy_function (p)));
+ this_type = SemanticAnalyzer.get_data_type_for_symbol (iface);
+ vdeclarator.add_parameter (new CCodeParameter ("self", get_ccode_name (this_type)));
+
+ vdecl = new CCodeDeclaration ("GBoxedCopyFunc");
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+
+ vdeclarator = new CCodeFunctionDeclarator ("get_%s".printf (get_ccode_destroy_function (p)));
+ this_type = SemanticAnalyzer.get_data_type_for_symbol (iface);
+ vdeclarator.add_parameter (new CCodeParameter ("self", get_ccode_name (this_type)));
+
+ vdecl = new CCodeDeclaration ("GDestroyNotify");
+ vdecl.add_declarator (vdeclarator);
+ type_struct.add_declaration (vdecl);
+ }
+ }
+
+ foreach (Symbol sym in iface.get_virtuals ()) {
+ Method m;
+ Signal sig;
+ Property prop;
+ if ((m = sym as Method) != null) {
+ generate_struct_method_declaration (iface, m, instance_struct, type_struct, decl_space);
+ } else if ((sig = sym as Signal) != null) {
+ if (sig.default_handler != null) {
+ if (sig.is_virtual) {
+ generate_virtual_method_declaration (sig.default_handler, decl_space, type_struct);
+ } else {
+ generate_method_declaration (sig.default_handler, cfile);
+ }
+ }
+ } else if ((prop = sym as Property) != null) {
+ generate_struct_property_declaration (iface, prop, instance_struct, type_struct, decl_space);
+ } else {
+ Report.error (sym.source_reference, "internal: Unsupported symbol");
+ }
+ }
+
+ decl_space.add_type_definition (type_struct);
+
+ var type_fun = new InterfaceRegisterFunction (iface);
+ type_fun.init_from_type (context, in_plugin, true);
+ decl_space.add_type_member_declaration (type_fun.get_declaration ());
+
+ requires_vala_extern = true;
+ }
+
+ public override void visit_interface (Interface iface) {
+ push_context (new EmitContext (iface));
+ push_line (iface.source_reference);
+
+ var old_signal_enum = signal_enum;
+
+ if (get_ccode_name (iface).length < 3) {
+ iface.error = true;
+ Report.error (iface.source_reference, "Interface name `%s' is too short", get_ccode_name (iface));
+ return;
+ }
+
+ signal_enum = new CCodeEnum ();
+
+ generate_interface_declaration (iface, cfile);
+ if (!iface.is_internal_symbol ()) {
+ generate_interface_declaration (iface, header_file);
+ }
+ if (!iface.is_private_symbol ()) {
+ generate_interface_declaration (iface, internal_header_file);
+ }
+
+ iface.accept_children (this);
+
+ if (iface.get_signals ().size > 0) {
+ var last_signal = "%s_NUM_SIGNALS".printf (get_ccode_upper_case_name (iface));
+ signal_enum.add_value (new CCodeEnumValue (last_signal));
+ cfile.add_type_declaration (signal_enum);
+
+ var signal_array_decl = new CCodeDeclaration ("guint");
+ signal_array_decl.modifiers |= CCodeModifiers.STATIC;
+ signal_array_decl.add_declarator (new CCodeVariableDeclarator ("%s_signals".printf (get_ccode_lower_case_name (iface)), new CCodeConstant ("{0}"), new CCodeDeclaratorSuffix.with_array (new CCodeIdentifier (last_signal))));
+ cfile.add_type_declaration (signal_array_decl);
+ }
+
+ add_interface_default_init_function (iface);
+
+ if (iface.comment != null) {
+ cfile.add_type_member_definition (new CCodeComment (iface.comment.content));
+ }
+
+ var type_fun = new InterfaceRegisterFunction (iface);
+ type_fun.init_from_type (context, in_plugin, false);
+ cfile.add_type_member_declaration (type_fun.get_source_declaration ());
+ cfile.add_type_member_definition (type_fun.get_definition ());
+
+ signal_enum = old_signal_enum;
+
+ pop_line ();
+ pop_context ();
+ }
+
+ private void add_interface_default_init_function (Interface iface) {
+ push_context (new EmitContext (iface));
+
+ var default_init = new CCodeFunction ("%s_default_init".printf (get_ccode_lower_case_name (iface, null)), "void");
+ default_init.add_parameter (new CCodeParameter ("iface", "%s *".printf (get_ccode_type_name (iface))));
+ default_init.add_parameter (new CCodeParameter ("iface_data", "gpointer"));
+ default_init.modifiers = CCodeModifiers.STATIC;
+
+ push_function (default_init);
+
+ if (iface.is_subtype_of (gobject_type)) {
+ /* create properties */
+ var props = iface.get_properties ();
+ foreach (Property prop in props) {
+ if (prop.is_abstract) {
+ if (!context.analyzer.is_gobject_property (prop)) {
+ continue;
+ }
+
+ if (prop.comment != null) {
+ ccode.add_statement (new CCodeComment (prop.comment.content));
+ }
+
+ var cinst = new CCodeFunctionCall (new CCodeIdentifier ("g_object_interface_install_property"));
+ cinst.add_argument (new CCodeIdentifier ("iface"));
+ cinst.add_argument (get_param_spec (prop));
+
+ ccode.add_expression (cinst);
+ }
+ }
+ }
+
+ var ciface = new CCodeIdentifier ("iface");
+
+ /* connect default signal handlers */
+ foreach (Signal sig in iface.get_signals ()) {
+ if (sig.default_handler == null || !sig.is_virtual) {
+ continue;
+ }
+ var cname = get_ccode_real_name (sig.default_handler);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_vfunc_name (sig.default_handler)), new CCodeIdentifier (cname));
+ }
+
+ /* create signals */
+ foreach (Signal sig in iface.get_signals ()) {
+ if (sig.comment != null) {
+ ccode.add_statement (new CCodeComment (sig.comment.content));
+ }
+ ccode.add_expression (get_signal_creation (sig, iface));
+ }
+
+ // connect default implementations
+ foreach (Method m in iface.get_methods ()) {
+ if (m.is_virtual) {
+ var cname = get_ccode_real_name (m);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_vfunc_name (m)), new CCodeIdentifier (cname));
+ if (m.coroutine) {
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, get_ccode_finish_vfunc_name (m)), new CCodeIdentifier (get_ccode_finish_real_name (m)));
+ }
+ }
+ }
+
+ foreach (Property prop in iface.get_properties ()) {
+ if (prop.is_virtual) {
+ if (prop.get_accessor != null) {
+ string cname = get_ccode_real_name (prop.get_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "get_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ if (prop.set_accessor != null) {
+ string cname = get_ccode_real_name (prop.set_accessor);
+ ccode.add_assignment (new CCodeMemberAccess.pointer (ciface, "set_%s".printf (prop.name)), new CCodeIdentifier (cname));
+ }
+ }
+ }
+
+ pop_context ();
+
+ cfile.add_function (default_init);
+ }
+
+ public override void visit_struct (Struct st) {
+ // custom simple type structs cannot have a type id which depends on head-allocation
+ if (st.get_attribute ("SimpleType") != null && !st.has_attribute_argument ("CCode", "type_id")) {
+ st.set_attribute_bool ("CCode", "has_type_id", false);
+ }
+
+ base.visit_struct (st);
+
+ if (st.is_boolean_type () || st.is_integer_type () || st.is_floating_type ()) {
+ // Skip GType handling for these struct types,
+ // like in CCodeStructModule.generate_struct_declaration()
+ return;
+ }
+
+ if (get_ccode_has_type_id (st)) {
+ if (get_ccode_name (st).length < 3) {
+ st.error = true;
+ Report.error (st.source_reference, "Struct name `%s' is too short", get_ccode_name (st));
+ return;
+ }
+
+ push_line (st.source_reference);
+ var type_fun = new StructRegisterFunction (st);
+ type_fun.init_from_type (context, false, false);
+ cfile.add_type_member_definition (type_fun.get_definition ());
+ pop_line ();
+ }
+ }
+
+ public override void visit_enum (Enum en) {
+ base.visit_enum (en);
+
+ if (get_ccode_has_type_id (en)) {
+ if (get_ccode_name (en).length < 3) {
+ en.error = true;
+ Report.error (en.source_reference, "Enum name `%s' is too short", get_ccode_name (en));
+ return;
+ }
+
+ push_line (en.source_reference);
+ var type_fun = new EnumRegisterFunction (en);
+ type_fun.init_from_type (context, false, false);
+ cfile.add_type_member_definition (type_fun.get_definition ());
+ pop_line ();
+ }
+ }
+
+ public override void visit_method_call (MethodCall expr) {
+ var ma = expr.call as MemberAccess;
+ var mtype = expr.call.value_type as MethodType;
+ if (mtype == null || ma == null || ma.inner == null ||
+ !(ma.inner.value_type is EnumValueType) || !get_ccode_has_type_id (ma.inner.value_type.type_symbol) ||
+ mtype.method_symbol != ((EnumValueType) ma.inner.value_type).get_to_string_method ()) {
+ base.visit_method_call (expr);
+ return;
+ }
+ // to_string() on a gtype enum
+
+ bool is_flags = ((Enum) ((EnumValueType) ma.inner.value_type).type_symbol).is_flags;
+
+ push_line (expr.source_reference);
+ if (context.require_glib_version (2, 54)) {
+ var to_string = new CCodeFunctionCall (new CCodeIdentifier ((is_flags ? "g_flags_to_string" : "g_enum_to_string")));
+ to_string.add_argument (new CCodeIdentifier (get_ccode_type_id (ma.inner.value_type)));
+ to_string.add_argument ((CCodeExpression) get_ccodenode (((MemberAccess) expr.call).inner));
+ expr.value_type.value_owned = true;
+ set_cvalue (expr, to_string);
+ } else {
+ var temp_var = get_temp_variable (new CType (is_flags ? "GFlagsValue*" : "GEnumValue*", "NULL"), false, expr, false);
+ emit_temp_var (temp_var);
+
+ var class_ref = new CCodeFunctionCall (new CCodeIdentifier ("g_type_class_ref"));
+ class_ref.add_argument (new CCodeIdentifier (get_ccode_type_id (ma.inner.value_type)));
+ var get_value = new CCodeFunctionCall (new CCodeIdentifier (is_flags ? "g_flags_get_first_value" : "g_enum_get_value"));
+ get_value.add_argument (class_ref);
+ get_value.add_argument ((CCodeExpression) get_ccodenode (((MemberAccess) expr.call).inner));
+
+ ccode.add_assignment (get_variable_cexpression (temp_var.name), get_value);
+ var is_null_value = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, get_variable_cexpression (temp_var.name), new CCodeConstant ("NULL"));
+ set_cvalue (expr, new CCodeConditionalExpression (is_null_value, new CCodeMemberAccess.pointer (get_variable_cexpression (temp_var.name), "value_name"), new CCodeConstant ("NULL")));
+ }
+ pop_line ();
+ }
+
+ public override void visit_property (Property prop) {
+ var cl = current_type_symbol as Class;
+ var st = current_type_symbol as Struct;
+
+ var base_prop = prop;
+ if (prop.base_property != null) {
+ base_prop = prop.base_property;
+ } else if (prop.base_interface_property != null) {
+ base_prop = prop.base_interface_property;
+ }
+
+ if (base_prop.get_attribute ("NoAccessorMethod") == null &&
+ prop.name == "type" && ((cl != null && !cl.is_compact) || (st != null && get_ccode_has_type_id (st)))) {
+ Report.error (prop.source_reference, "Property 'type' not allowed");
+ return;
+ }
+ base.visit_property (prop);
+ }
+
+ public override void create_type_check_statement (CodeNode method_node, DataType ret_type, TypeSymbol t, bool non_null, string var_name) {
+ var ccheck = new CCodeFunctionCall ();
+
+ if (!context.assert) {
+ return;
+ } else if (context.checking && ((t is Class && !((Class) t).is_compact) || t is Interface)) {
+ if (!get_ccode_has_type_id (t)) {
+ return;
+ }
+
+ CCodeFunctionCall ctype_check;
+ if (t.external_package) {
+ ctype_check = new CCodeFunctionCall (new CCodeIdentifier ("G_TYPE_CHECK_INSTANCE_TYPE"));
+ ctype_check.add_argument (new CCodeIdentifier (var_name));
+ ctype_check.add_argument (new CCodeIdentifier (get_ccode_type_id (t)));
+ } else {
+ ctype_check = new CCodeFunctionCall (new CCodeIdentifier (get_ccode_type_check_function (t)));
+ ctype_check.add_argument (new CCodeIdentifier (var_name));
+ }
+
+ CCodeExpression cexpr = ctype_check;
+ if (!non_null) {
+ var cnull = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier (var_name), new CCodeConstant ("NULL"));
+
+ cexpr = new CCodeBinaryExpression (CCodeBinaryOperator.OR, cnull, ctype_check);
+ }
+ ccheck.add_argument (cexpr);
+ } else if (!non_null || (t is Struct && ((Struct) t).is_simple_type ())) {
+ return;
+ } else if (t == glist_type || t == gslist_type) {
+ // NULL is empty list
+ return;
+ } else {
+ var cnonnull = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeIdentifier (var_name), new CCodeConstant ("NULL"));
+ ccheck.add_argument (cnonnull);
+ }
+
+ // g_return_* needs glib.h
+ cfile.add_include ("glib.h");
+
+ var cm = method_node as CreationMethod;
+ if (cm != null && !cm.coroutine && cm.parent_symbol is ObjectTypeSymbol) {
+ ccheck.call = new CCodeIdentifier ("g_return_val_if_fail");
+ ccheck.add_argument (new CCodeConstant ("NULL"));
+ } else if (ret_type is VoidType) {
+ /* void function */
+ ccheck.call = new CCodeIdentifier ("g_return_if_fail");
+ } else {
+ ccheck.call = new CCodeIdentifier ("g_return_val_if_fail");
+
+ var cdefault = default_value_for_type (ret_type, false);
+ if (cdefault != null) {
+ ccheck.add_argument (cdefault);
+ } else if (ret_type.type_symbol is Struct && !((Struct) ret_type.type_symbol).is_simple_type ()) {
+ ccheck.add_argument (new CCodeIdentifier ("result"));
+ } else {
+ return;
+ }
+ }
+
+ ccode.add_expression (ccheck);
+ }
+
+ public override void visit_cast_expression (CastExpression expr) {
+ unowned ObjectTypeSymbol? type_symbol = expr.type_reference.type_symbol as ObjectTypeSymbol;
+
+ if (type_symbol == null || (type_symbol is Class && ((Class) type_symbol).is_compact)) {
+ base.visit_cast_expression (expr);
+ return;
+ }
+
+ generate_type_declaration (expr.type_reference, cfile);
+
+ // checked cast for strict subtypes of GTypeInstance
+ if (expr.is_silent_cast) {
+ TargetValue to_cast = expr.inner.target_value;
+ CCodeExpression cexpr;
+ if (!get_lvalue (to_cast)) {
+ to_cast = store_temp_value (to_cast, expr);
+ }
+ cexpr = get_cvalue_ (to_cast);
+ var ccheck = create_type_check (cexpr, expr.type_reference);
+ var ccast = new CCodeCastExpression (cexpr, get_ccode_name (expr.type_reference));
+ var cnull = new CCodeConstant ("NULL");
+ var cast_value = new GLibValue (expr.value_type, new CCodeConditionalExpression (ccheck, ccast, cnull));
+ if (requires_destroy (expr.inner.value_type)) {
+ var casted = store_temp_value (cast_value, expr);
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, get_cvalue_ (casted), new CCodeConstant ("NULL")));
+ ccode.add_expression (destroy_value (to_cast));
+ ccode.close ();
+ expr.target_value = ((GLibValue) casted).copy ();
+ } else {
+ expr.target_value = cast_value;
+ }
+ } else {
+ set_cvalue (expr, generate_instance_cast (get_cvalue (expr.inner), expr.type_reference.type_symbol));
+ }
+ }
+}
--- /dev/null
+/* valagvaluemodule.vala
+ *
+ * Copyright (C) 2019 Rico Tzschichholz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Rico Tzschichholz <ricotz@ubuntu.com>
+ */
+
+public class Vala.GValueModule : GAsyncModule {
+ public override void visit_cast_expression (CastExpression expr) {
+ unowned DataType? value_type = expr.inner.value_type;
+ unowned DataType? target_type = expr.type_reference;
+
+ if (expr.is_non_null_cast || value_type == null || gvalue_type == null
+ || value_type.type_symbol != gvalue_type || target_type.type_symbol == gvalue_type
+ || get_ccode_type_id (target_type) == "") {
+ base.visit_cast_expression (expr);
+ return;
+ }
+
+ generate_type_declaration (expr.type_reference, cfile);
+
+ // explicit conversion from GValue
+ var ccall = new CCodeFunctionCall (get_value_getter_function (target_type));
+ CCodeExpression gvalue;
+ if (value_type.nullable) {
+ gvalue = get_cvalue (expr.inner);
+ } else {
+ gvalue = new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue (expr.inner));
+ }
+ ccall.add_argument (gvalue);
+
+ if (value_type.is_disposable ()) {
+ var temp_var = get_temp_variable (value_type, true, expr, false);
+ emit_temp_var (temp_var);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+ ccode.add_assignment (temp_ref, get_cvalue (expr.inner));
+
+ // value needs to be kept alive until the end of this block
+ temp_ref_values.insert (0, get_local_cvalue (temp_var));
+ }
+
+ CCodeExpression rv;
+ if (target_type is ArrayType) {
+ var temp_var = get_temp_variable (target_type, true, expr, false);
+ emit_temp_var (temp_var);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+ ccode.add_assignment (temp_ref, ccall);
+ rv = temp_ref;
+
+ // null-terminated string array
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("g_strv_length"));
+ len_call.add_argument (rv);
+ append_array_length (expr, len_call);
+ } else if (target_type is StructValueType) {
+ var temp_var = get_temp_variable (new PointerType (target_type), true, expr, false);
+ emit_temp_var (temp_var);
+ var temp_ref = get_variable_cexpression (temp_var.name);
+ ccode.add_assignment (temp_ref, ccall);
+ rv = temp_ref;
+
+ // default value to fallback to
+ var temp_value = create_temp_value (target_type, true, expr, true);
+ var ctemp = get_cvalue_ (temp_value);
+
+ var holds = new CCodeFunctionCall (new CCodeIdentifier ("G_VALUE_HOLDS"));
+ holds.add_argument (gvalue);
+ holds.add_argument (new CCodeIdentifier (get_ccode_type_id (target_type)));
+ var cond = new CCodeBinaryExpression (CCodeBinaryOperator.AND, holds, rv);
+ var warn = new CCodeFunctionCall (new CCodeIdentifier ("g_warning"));
+ warn.add_argument (new CCodeConstant ("\"Invalid GValue unboxing (wrong type or NULL)\""));
+ var fail = new CCodeCommaExpression ();
+ fail.append_expression (warn);
+ fail.append_expression (ctemp);
+ rv = new CCodeConditionalExpression (cond, new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, rv), fail);
+ } else {
+ rv = ccall;
+ }
+
+ set_cvalue (expr, rv);
+ }
+
+ public override CCodeExpression get_value_getter_function (DataType type_reference) {
+ var array_type = type_reference as ArrayType;
+ if (type_reference.type_symbol != null) {
+ return new CCodeIdentifier (get_ccode_get_value_function (type_reference.type_symbol));
+ } else if (array_type != null && array_type.element_type.type_symbol == string_type.type_symbol) {
+ // G_TYPE_STRV
+ return new CCodeIdentifier ("g_value_get_boxed");
+ } else {
+ return new CCodeIdentifier ("g_value_get_pointer");
+ }
+ }
+
+ public override CCodeExpression get_value_setter_function (DataType type_reference) {
+ var array_type = type_reference as ArrayType;
+ if (type_reference.type_symbol != null) {
+ return new CCodeIdentifier (get_ccode_set_value_function (type_reference.type_symbol));
+ } else if (array_type != null && array_type.element_type.type_symbol == string_type.type_symbol) {
+ // G_TYPE_STRV
+ return new CCodeIdentifier ("g_value_set_boxed");
+ } else {
+ return new CCodeIdentifier ("g_value_set_pointer");
+ }
+ }
+
+ public override CCodeExpression get_value_taker_function (DataType type_reference) {
+ var array_type = type_reference as ArrayType;
+ if (type_reference.type_symbol != null) {
+ return new CCodeIdentifier (get_ccode_take_value_function (type_reference.type_symbol));
+ } else if (array_type != null && array_type.element_type.type_symbol == string_type.type_symbol) {
+ // G_TYPE_STRV
+ return new CCodeIdentifier ("g_value_take_boxed");
+ } else {
+ return new CCodeIdentifier ("g_value_set_pointer");
+ }
+ }
+}
--- /dev/null
+/* valagvariantmodule.vala
+ *
+ * Copyright (C) 2010-2011 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+public class Vala.GVariantModule : GValueModule {
+ struct BasicTypeInfo {
+ public unowned string signature;
+ public unowned string type_name;
+ public bool is_string;
+ }
+
+ const BasicTypeInfo[] basic_types = {
+ { "y", "byte", false },
+ { "b", "boolean", false },
+ { "n", "int16", false },
+ { "q", "uint16", false },
+ { "i", "int32", false },
+ { "u", "uint32", false },
+ { "x", "int64", false },
+ { "t", "uint64", false },
+ { "d", "double", false },
+ { "s", "string", true },
+ { "o", "object_path", true },
+ { "g", "signature", true }
+ };
+
+ static bool is_string_marshalled_enum (TypeSymbol? symbol) {
+ if (symbol != null && symbol is Enum) {
+ return symbol.get_attribute_bool ("DBus", "use_string_marshalling");
+ }
+ return false;
+ }
+
+ string get_dbus_value (EnumValue value, string default_value) {
+ var dbus_value = value.get_attribute_string ("DBus", "value");
+ if (dbus_value != null) {
+ return dbus_value;;
+ }
+ return default_value;
+ }
+
+ public static string? get_dbus_signature (Symbol symbol) {
+ return symbol.get_attribute_string ("DBus", "signature");
+ }
+
+ bool get_basic_type_info (string? signature, out BasicTypeInfo basic_type) {
+ if (signature != null) {
+ foreach (BasicTypeInfo info in basic_types) {
+ if (info.signature == signature) {
+ basic_type = info;
+ return true;
+ }
+ }
+ }
+ basic_type = BasicTypeInfo ();
+ return false;
+ }
+
+ public override void visit_enum (Enum en) {
+ base.visit_enum (en);
+
+ if (is_string_marshalled_enum (en)) {
+ // strcmp
+ cfile.add_include ("string.h");
+
+ // for G_DBUS_ERROR
+ cfile.add_include ("gio/gio.h");
+
+ cfile.add_function (generate_enum_from_string_function (en));
+ cfile.add_function (generate_enum_to_string_function (en));
+ }
+ }
+
+ public override bool generate_enum_declaration (Enum en, CCodeFile decl_space) {
+ if (base.generate_enum_declaration (en, decl_space)) {
+ if (is_string_marshalled_enum (en)) {
+ decl_space.add_function_declaration (generate_enum_from_string_function_declaration (en));
+ decl_space.add_function_declaration (generate_enum_to_string_function_declaration (en));
+ }
+ return true;
+ }
+ return false;
+ }
+
+ int next_variant_function_id = 0;
+
+ public override void visit_cast_expression (CastExpression expr) {
+ var value = expr.inner.target_value;
+ var target_type = expr.type_reference;
+
+ if (expr.is_non_null_cast || value.value_type == null || gvariant_type == null || value.value_type.type_symbol != gvariant_type) {
+ base.visit_cast_expression (expr);
+ return;
+ }
+
+ generate_type_declaration (expr.type_reference, cfile);
+
+ string variant_func = "_variant_get%d".printf (++next_variant_function_id);
+
+ var variant = value;
+ if (value.value_type.value_owned) {
+ // value leaked, destroy it
+ var temp_value = store_temp_value (value, expr);
+ temp_ref_values.insert (0, ((GLibValue) temp_value).copy ());
+ variant = temp_value;
+ }
+
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier (variant_func));
+ ccall.add_argument (get_cvalue_ (variant));
+
+ var needs_init = (target_type is ArrayType);
+ var result = create_temp_value (target_type, needs_init, expr);
+
+ var cfunc = new CCodeFunction (variant_func);
+ cfunc.modifiers = CCodeModifiers.STATIC;
+ cfunc.add_parameter (new CCodeParameter ("value", "GVariant*"));
+
+ if (!target_type.is_real_non_null_struct_type ()) {
+ cfunc.return_type = get_ccode_name (target_type);
+ }
+
+ if (target_type.is_real_non_null_struct_type ()) {
+ // structs are returned via out parameter
+ cfunc.add_parameter (new CCodeParameter ("result", "%s *".printf (get_ccode_name (target_type))));
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_cvalue_ (result)));
+ } else if (target_type is ArrayType) {
+ // return array length if appropriate
+ // tmp = _variant_get (variant, &tmp_length);
+ unowned ArrayType array_type = (ArrayType) target_type;
+ var length_ctype = get_ccode_array_length_type (array_type);
+ for (int dim = 1; dim <= array_type.rank; dim++) {
+ ccall.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, get_array_length_cvalue (result, dim)));
+ cfunc.add_parameter (new CCodeParameter (get_array_length_cname ("result", dim), length_ctype + "*"));
+ }
+ }
+
+ if (!target_type.is_real_non_null_struct_type ()) {
+ ccode.add_assignment (get_cvalue_ (result), ccall);
+ } else {
+ ccode.add_expression (ccall);
+ }
+
+ push_context (new EmitContext ());
+ push_function (cfunc);
+
+ CCodeExpression type_expr = null;
+ BasicTypeInfo basic_type = {};
+ bool is_basic_type = false;
+ if (expr.is_silent_cast) {
+ var signature = target_type.get_type_signature ();
+ is_basic_type = get_basic_type_info (signature, out basic_type);
+ var ccheck = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_is_of_type"));
+ ccheck.add_argument (new CCodeIdentifier ("value"));
+ if (is_basic_type) {
+ type_expr = new CCodeIdentifier ("G_VARIANT_TYPE_" + basic_type.type_name.ascii_up ());
+ } else {
+ var gvariant_type_type = new ObjectType ((Class) root_symbol.scope.lookup ("GLib").scope.lookup ("VariantType"));
+ var type_temp = get_temp_variable (gvariant_type_type, true, expr, true);
+ emit_temp_var (type_temp);
+ type_expr = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_type_new"));
+ ((CCodeFunctionCall) type_expr).add_argument (new CCodeIdentifier ("\"%s\"".printf (signature)));
+ store_value (get_local_cvalue (type_temp), new GLibValue (gvariant_type_type, type_expr), expr.source_reference);
+ type_expr = get_variable_cexpression (type_temp.name);
+ }
+ ccheck.add_argument (type_expr);
+ ccode.open_if (new CCodeBinaryExpression (CCodeBinaryOperator.AND, new CCodeIdentifier ("value"), ccheck));
+ }
+
+ CCodeExpression func_result = deserialize_expression (target_type, new CCodeIdentifier ("value"), new CCodeIdentifier ("*result"));
+
+ if (expr.is_silent_cast) {
+ if (is_basic_type && basic_type.is_string) {
+ ccode.add_return (func_result);
+ } else {
+ if (!is_basic_type) {
+ var type_free = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_type_free"));
+ type_free.add_argument (type_expr);
+ ccode.add_expression (type_free);
+ }
+ var temp_type = expr.target_type.copy ();
+ if (!expr.target_type.is_real_struct_type ()) {
+ temp_type.nullable = false;
+ }
+ var temp_value = create_temp_value (temp_type, false, expr);
+ store_value (temp_value, new GLibValue (temp_type, func_result), expr.source_reference);
+ ccode.add_return (get_cvalue_ (transform_value (temp_value, expr.target_type, expr)));
+ }
+ ccode.add_else ();
+ if (!is_basic_type) {
+ var type_free = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_type_free"));
+ type_free.add_argument (type_expr);
+ ccode.add_expression (type_free);
+ }
+ ccode.add_return (new CCodeConstant ("NULL"));
+ ccode.close ();
+ } else if (target_type.is_real_non_null_struct_type ()) {
+ ccode.add_assignment (new CCodeIdentifier ("*result"), func_result);
+ } else {
+ ccode.add_return (func_result);
+ }
+
+ pop_function ();
+ pop_context ();
+
+ cfile.add_function_declaration (cfunc);
+ cfile.add_function (cfunc);
+
+ expr.target_value = load_temp_value (result);
+ }
+
+ CCodeExpression? get_array_length (CCodeExpression expr, int dim) {
+ var id = expr as CCodeIdentifier;
+ var ma = expr as CCodeMemberAccess;
+ if (id != null) {
+ return new CCodeIdentifier ("%s_length%d".printf (id.name, dim));
+ } else if (ma != null) {
+ if (ma.is_pointer) {
+ return new CCodeMemberAccess.pointer (ma.inner, "%s_length%d".printf (ma.member_name, dim));
+ } else {
+ return new CCodeMemberAccess (ma.inner, "%s_length%d".printf (ma.member_name, dim));
+ }
+ } else {
+ // must be NULL-terminated
+ var len_call = new CCodeFunctionCall (new CCodeIdentifier ("g_strv_length"));
+ len_call.add_argument (expr);
+ return len_call;
+ }
+ }
+
+ CCodeExpression? generate_enum_value_from_string (EnumValueType type, CCodeExpression? expr, CCodeExpression? error_expr) {
+ var en = type.type_symbol as Enum;
+ var from_string_name = "%s_from_string".printf (get_ccode_lower_case_name (en, null));
+
+ var from_string_call = new CCodeFunctionCall (new CCodeIdentifier (from_string_name));
+ from_string_call.add_argument (expr);
+ from_string_call.add_argument (error_expr != null ? error_expr : new CCodeConstant ("NULL"));
+
+ return from_string_call;
+ }
+
+ public CCodeFunction generate_enum_from_string_function_declaration (Enum en) {
+ var from_string_name = "%s_from_string".printf (get_ccode_lower_case_name (en, null));
+
+ var from_string_func = new CCodeFunction (from_string_name, get_ccode_name (en));
+ from_string_func.add_parameter (new CCodeParameter ("str", "const char*"));
+ from_string_func.add_parameter (new CCodeParameter ("error", "GError**"));
+ from_string_func.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+
+ return from_string_func;
+ }
+
+ public CCodeFunction generate_enum_from_string_function (Enum en) {
+ var from_string_name = "%s_from_string".printf (get_ccode_lower_case_name (en, null));
+
+ var from_string_func = new CCodeFunction (from_string_name, get_ccode_name (en));
+ from_string_func.add_parameter (new CCodeParameter ("str", "const char*"));
+ from_string_func.add_parameter (new CCodeParameter ("error", "GError**"));
+
+ push_function (from_string_func);
+
+ ccode.add_declaration (get_ccode_name (en), new CCodeVariableDeclarator.zero ("value", new CCodeConstant ("0")));
+
+ bool firstif = true;
+ foreach (EnumValue enum_value in en.get_values ()) {
+ string dbus_value = get_dbus_value (enum_value, enum_value.name);
+ var string_comparison = new CCodeFunctionCall (new CCodeIdentifier ("strcmp"));
+ string_comparison.add_argument (new CCodeIdentifier ("str"));
+ string_comparison.add_argument (new CCodeConstant ("\"%s\"".printf (dbus_value)));
+ var cond = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, string_comparison, new CCodeConstant ("0"));
+ if (firstif) {
+ ccode.open_if (cond);
+ firstif = false;
+ } else {
+ ccode.else_if (cond);
+ }
+ ccode.add_assignment (new CCodeIdentifier ("value"), new CCodeIdentifier (get_ccode_name (enum_value)));
+ }
+
+ ccode.add_else ();
+ var set_error = new CCodeFunctionCall (new CCodeIdentifier ("g_set_error"));
+ set_error.add_argument (new CCodeIdentifier ("error"));
+ set_error.add_argument (new CCodeIdentifier ("G_DBUS_ERROR"));
+ set_error.add_argument (new CCodeIdentifier ("G_DBUS_ERROR_INVALID_ARGS"));
+ set_error.add_argument (new CCodeConstant ("\"Invalid value for enum `%s'\"".printf (get_ccode_name (en))));
+ ccode.add_expression (set_error);
+ ccode.close ();
+
+ ccode.add_return (new CCodeIdentifier ("value"));
+
+ pop_function ();
+ return from_string_func;
+ }
+
+ CCodeExpression deserialize_basic (BasicTypeInfo basic_type, CCodeExpression variant_expr, bool transfer = false) {
+ var get_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_get_" + basic_type.type_name));
+ get_call.add_argument (variant_expr);
+
+ if (basic_type.is_string) {
+ if (transfer) {
+ get_call.call = new CCodeIdentifier ("g_variant_get_string");
+ } else {
+ get_call.call = new CCodeIdentifier ("g_variant_dup_string");
+ }
+ get_call.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ return get_call;
+ }
+
+ CCodeExpression deserialize_array (ArrayType array_type, CCodeExpression variant_expr, CCodeExpression? expr) {
+ if (array_type.rank == 1 && array_type.get_type_signature () == "ay") {
+ return deserialize_buffer_array (array_type, variant_expr, expr);
+ }
+
+ string temp_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ var new_call = new CCodeFunctionCall (new CCodeIdentifier ("g_new"));
+ new_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ // add one extra element for NULL-termination
+ new_call.add_argument (new CCodeConstant ("5"));
+
+ var length_ctype = get_ccode_array_length_type (array_type);
+ ccode.add_declaration (get_ccode_name (array_type), new CCodeVariableDeclarator (temp_name, new_call));
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator (temp_name + "_length", new CCodeConstant ("0")));
+ ccode.add_declaration (length_ctype, new CCodeVariableDeclarator (temp_name + "_size", new CCodeConstant ("4")));
+
+ deserialize_array_dim (array_type, 1, temp_name, variant_expr, expr);
+
+ if (array_type.element_type.is_reference_type_or_type_parameter ()) {
+ // NULL terminate array
+ var length = new CCodeIdentifier (temp_name + "_length");
+ var element_access = new CCodeElementAccess (new CCodeIdentifier (temp_name), length);
+ ccode.add_assignment (element_access, new CCodeConstant ("NULL"));
+ }
+
+ return new CCodeIdentifier (temp_name);
+ }
+
+ void deserialize_array_dim (ArrayType array_type, int dim, string temp_name, CCodeExpression variant_expr, CCodeExpression? expr) {
+ string subiter_name = "_tmp%d_".printf (next_temp_var_id++);
+ string element_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration (get_ccode_array_length_type (array_type), new CCodeVariableDeclarator ("%s_length%d".printf (temp_name, dim), new CCodeConstant ("0")));
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator (subiter_name));
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator (element_name));
+
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (variant_expr);
+ ccode.add_expression (iter_call);
+
+ iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_next_value"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+
+ var cforcond = new CCodeBinaryExpression (CCodeBinaryOperator.INEQUALITY, new CCodeAssignment (new CCodeIdentifier (element_name), iter_call), new CCodeConstant ("NULL"));
+ var cforiter = new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier ("%s_length%d".printf (temp_name, dim)));
+ ccode.open_for (null, cforcond, cforiter);
+
+ if (dim < array_type.rank) {
+ deserialize_array_dim (array_type, dim + 1, temp_name, new CCodeIdentifier (element_name), expr);
+ } else {
+ var size_check = new CCodeBinaryExpression (CCodeBinaryOperator.EQUALITY, new CCodeIdentifier (temp_name + "_size"), new CCodeIdentifier (temp_name + "_length"));
+
+ ccode.open_if (size_check);
+
+ // tmp_size = (2 * tmp_size);
+ var new_size = new CCodeBinaryExpression (CCodeBinaryOperator.MUL, new CCodeConstant ("2"), new CCodeIdentifier (temp_name + "_size"));
+ ccode.add_assignment (new CCodeIdentifier (temp_name + "_size"), new_size);
+
+ var renew_call = new CCodeFunctionCall (new CCodeIdentifier ("g_renew"));
+ renew_call.add_argument (new CCodeIdentifier (get_ccode_name (array_type.element_type)));
+ renew_call.add_argument (new CCodeIdentifier (temp_name));
+ // add one extra element for NULL-termination
+ renew_call.add_argument (new CCodeBinaryExpression (CCodeBinaryOperator.PLUS, new CCodeIdentifier (temp_name + "_size"), new CCodeConstant ("1")));
+ ccode.add_assignment (new CCodeIdentifier (temp_name), renew_call);
+
+ ccode.close ();
+
+ var element_access = new CCodeElementAccess (new CCodeIdentifier (temp_name), new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier (temp_name + "_length")));
+ var element_expr = deserialize_expression (array_type.element_type, new CCodeIdentifier (element_name), null);
+ ccode.add_assignment (element_access, element_expr);
+ }
+
+ var unref = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_unref"));
+ unref.add_argument (new CCodeIdentifier (element_name));
+ ccode.add_expression (unref);
+
+ ccode.close ();
+
+ if (expr != null) {
+ ccode.add_assignment (get_array_length (expr, dim), new CCodeIdentifier ("%s_length%d".printf (temp_name, dim)));
+ }
+ }
+
+ CCodeExpression deserialize_buffer_array (ArrayType array_type, CCodeExpression variant_expr, CCodeExpression? expr) {
+ string temp_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ var get_data_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_get_data"));
+ get_data_call.add_argument (variant_expr);
+
+ var get_size_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_get_size"));
+ get_size_call.add_argument (variant_expr);
+ ccode.add_declaration ("gsize", new CCodeVariableDeclarator (temp_name + "_length", get_size_call));
+ var length = new CCodeIdentifier (temp_name + "_length");
+
+ CCodeFunctionCall dup_call;
+ if (context.require_glib_version (2, 68)) {
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("g_memdup2"));
+ } else {
+ requires_memdup2 = true;
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_memdup2"));
+ }
+ dup_call.add_argument (get_data_call);
+ dup_call.add_argument (length);
+
+ ccode.add_declaration (get_ccode_name (array_type), new CCodeVariableDeclarator (temp_name, dup_call));
+ if (expr != null) {
+ ccode.add_assignment (get_array_length (expr, 1), length);
+ }
+
+ return new CCodeIdentifier (temp_name);
+ }
+
+ CCodeExpression? deserialize_struct (Struct st, CCodeExpression variant_expr) {
+ string temp_name = "_tmp%d_".printf (next_temp_var_id++);
+ string subiter_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration (get_ccode_name (st), new CCodeVariableDeclarator (temp_name));
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator (subiter_name));
+
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (variant_expr);
+ ccode.add_expression (iter_call);
+
+ bool field_found = false;;
+
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding != MemberBinding.INSTANCE) {
+ continue;
+ }
+
+ field_found = true;
+
+ read_expression (f.variable_type, new CCodeIdentifier (subiter_name), new CCodeMemberAccess (new CCodeIdentifier (temp_name), get_ccode_name (f)), f);
+ }
+
+ if (!field_found) {
+ return null;
+ }
+
+ return new CCodeIdentifier (temp_name);
+ }
+
+ CCodeExpression? deserialize_hash_table (ObjectType type, CCodeExpression variant_expr) {
+ string temp_name = "_tmp%d_".printf (next_temp_var_id++);
+ string subiter_name = "_tmp%d_".printf (next_temp_var_id++);
+ string key_name = "_tmp%d_".printf (next_temp_var_id++);
+ string value_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ var type_args = type.get_type_arguments ();
+ if (type_args.size != 2) {
+ Report.error (type.source_reference, "Missing type-arguments for GVariant deserialization of `%s'", type.type_symbol.get_full_name ());
+ return new CCodeInvalidExpression ();
+ }
+ var key_type = type_args.get (0);
+ var value_type = type_args.get (1);
+
+ ccode.add_declaration ("GHashTable*", new CCodeVariableDeclarator (temp_name));
+ ccode.add_declaration ("GVariantIter", new CCodeVariableDeclarator (subiter_name));
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator (key_name));
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator (value_name));
+
+ var hash_table_new = new CCodeFunctionCall (new CCodeIdentifier ("g_hash_table_new_full"));
+ if (key_type.type_symbol.is_subtype_of (string_type.type_symbol)) {
+ hash_table_new.add_argument (new CCodeIdentifier ("g_str_hash"));
+ hash_table_new.add_argument (new CCodeIdentifier ("g_str_equal"));
+ } else if (key_type.type_symbol == gvariant_type) {
+ hash_table_new.add_argument (new CCodeIdentifier ("g_variant_hash"));
+ hash_table_new.add_argument (new CCodeIdentifier ("g_variant_equal"));
+ } else {
+ hash_table_new.add_argument (new CCodeIdentifier ("g_direct_hash"));
+ hash_table_new.add_argument (new CCodeIdentifier ("g_direct_equal"));
+ }
+
+ if (key_type.type_symbol.is_subtype_of (string_type.type_symbol)) {
+ hash_table_new.add_argument (new CCodeIdentifier ("g_free"));
+ } else if (key_type.type_symbol == gvariant_type) {
+ hash_table_new.add_argument (new CCodeCastExpression (new CCodeIdentifier ("g_variant_unref"), "GDestroyNotify"));
+ } else if (key_type.type_symbol.get_full_name () == "GLib.HashTable") {
+ hash_table_new.add_argument (new CCodeCastExpression (new CCodeIdentifier ("g_hash_table_unref"), "GDestroyNotify"));
+ } else {
+ hash_table_new.add_argument (new CCodeConstant ("NULL"));
+ }
+
+ if (value_type.type_symbol.is_subtype_of (string_type.type_symbol)) {
+ hash_table_new.add_argument (new CCodeIdentifier ("g_free"));
+ } else if (value_type.type_symbol == gvariant_type) {
+ hash_table_new.add_argument (new CCodeCastExpression (new CCodeIdentifier ("g_variant_unref"), "GDestroyNotify"));
+ } else if (value_type.type_symbol.get_full_name () == "GLib.HashTable") {
+ hash_table_new.add_argument (new CCodeCastExpression (new CCodeIdentifier ("g_hash_table_unref"), "GDestroyNotify"));
+ } else {
+ hash_table_new.add_argument (new CCodeConstant ("NULL"));
+ }
+ ccode.add_assignment (new CCodeIdentifier (temp_name), hash_table_new);
+
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_init"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (variant_expr);
+ ccode.add_expression (iter_call);
+
+ iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_loop"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (new CCodeConstant ("\"{?*}\""));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (key_name)));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (value_name)));
+
+ ccode.open_while (iter_call);
+
+ var key_expr = deserialize_expression (key_type, new CCodeIdentifier (key_name), null);
+ var value_expr = deserialize_expression (value_type, new CCodeIdentifier (value_name), null);
+ if (key_expr == null || value_expr == null) {
+ return null;
+ }
+
+ var hash_table_insert = new CCodeFunctionCall (new CCodeIdentifier ("g_hash_table_insert"));
+ hash_table_insert.add_argument (new CCodeIdentifier (temp_name));
+ hash_table_insert.add_argument (convert_to_generic_pointer (key_expr, key_type));
+ hash_table_insert.add_argument (convert_to_generic_pointer (value_expr, value_type));
+ ccode.add_expression (hash_table_insert);
+
+ ccode.close ();
+
+ return new CCodeIdentifier (temp_name);
+ }
+
+ public override CCodeExpression? deserialize_expression (DataType type, CCodeExpression variant_expr, CCodeExpression? expr, CCodeExpression? error_expr = null, out bool may_fail = null) {
+ BasicTypeInfo basic_type;
+ CCodeExpression result = null;
+ may_fail = false;
+ if (is_string_marshalled_enum (type.type_symbol)) {
+ get_basic_type_info ("s", out basic_type);
+ result = deserialize_basic (basic_type, variant_expr, true);
+ result = generate_enum_value_from_string (type as EnumValueType, result, error_expr);
+ may_fail = true;
+ } else if (get_basic_type_info (type.get_type_signature (), out basic_type)) {
+ result = deserialize_basic (basic_type, variant_expr);
+ } else if (type is ArrayType) {
+ result = deserialize_array ((ArrayType) type, variant_expr, expr);
+ } else if (type.type_symbol is Struct) {
+ unowned Struct st = (Struct) type.type_symbol;
+ result = deserialize_struct (st, variant_expr);
+ if (result != null && type.nullable) {
+ var csizeof = new CCodeFunctionCall (new CCodeIdentifier ("sizeof"));
+ csizeof.add_argument (new CCodeIdentifier (get_ccode_name (st)));
+ CCodeFunctionCall cdup;
+ if (context.require_glib_version (2, 68)) {
+ cdup = new CCodeFunctionCall (new CCodeIdentifier ("g_memdup2"));
+ } else {
+ requires_memdup2 = true;
+ cdup = new CCodeFunctionCall (new CCodeIdentifier ("_vala_memdup2"));
+ }
+ cdup.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, result));
+ cdup.add_argument (csizeof);
+ result = cdup;
+ }
+ } else if (type is ObjectType) {
+ if (type.type_symbol.get_full_name () == "GLib.Variant") {
+ var variant_get = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_get_variant"));
+ variant_get.add_argument (variant_expr);
+ result = variant_get;
+ } else if (type.type_symbol.get_full_name () == "GLib.HashTable") {
+ result = deserialize_hash_table ((ObjectType) type, variant_expr);
+ }
+ }
+
+ if (result == null) {
+ Report.error (type.source_reference, "GVariant deserialization of type `%s' is not supported", type.to_string ());
+ return new CCodeInvalidExpression ();
+ }
+
+ return result;
+ }
+
+ public void read_expression (DataType type, CCodeExpression iter_expr, CCodeExpression target_expr, Symbol? sym, CCodeExpression? error_expr = null, out bool may_fail = null) {
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_iter_next_value"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, iter_expr));
+
+ if (sym != null && get_dbus_signature (sym) != null) {
+ // raw GVariant
+ ccode.add_assignment (target_expr, iter_call);
+ may_fail = false;
+ return;
+ }
+
+ string temp_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration ("GVariant*", new CCodeVariableDeclarator (temp_name));
+
+ var variant_expr = new CCodeIdentifier (temp_name);
+
+ ccode.add_assignment (variant_expr, iter_call);
+
+ var result = deserialize_expression (type, variant_expr, target_expr, error_expr, out may_fail);
+ if (result == null) {
+ // error already reported
+ return;
+ }
+
+ ccode.add_assignment (target_expr, result);
+
+ var unref = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_unref"));
+ unref.add_argument (variant_expr);
+ ccode.add_expression (unref);
+ }
+
+ CCodeExpression? generate_enum_value_to_string (EnumValueType type, CCodeExpression? expr) {
+ var en = type.type_symbol as Enum;
+ var to_string_name = "%s_to_string".printf (get_ccode_lower_case_name (en, null));
+
+ var to_string_call = new CCodeFunctionCall (new CCodeIdentifier (to_string_name));
+ to_string_call.add_argument (expr);
+
+ return to_string_call;
+ }
+
+ public CCodeFunction generate_enum_to_string_function_declaration (Enum en) {
+ var to_string_name = "%s_to_string".printf (get_ccode_lower_case_name (en, null));
+
+ var to_string_func = new CCodeFunction (to_string_name, "const char*");
+ to_string_func.add_parameter (new CCodeParameter ("value", get_ccode_name (en)));
+ to_string_func.modifiers |= CCodeModifiers.EXTERN;
+ requires_vala_extern = true;
+
+ return to_string_func;
+ }
+
+ public CCodeFunction generate_enum_to_string_function (Enum en) {
+ var to_string_name = "%s_to_string".printf (get_ccode_lower_case_name (en, null));
+
+ var to_string_func = new CCodeFunction (to_string_name, "const char*");
+ to_string_func.add_parameter (new CCodeParameter ("value", get_ccode_name (en)));
+
+ push_function (to_string_func);
+
+ ccode.add_declaration ("const char *", new CCodeVariableDeclarator ("str"));
+
+ ccode.open_switch (new CCodeIdentifier ("value"));
+ foreach (EnumValue enum_value in en.get_values ()) {
+ string dbus_value = get_dbus_value (enum_value, enum_value.name);
+ ccode.add_case (new CCodeIdentifier (get_ccode_name (enum_value)));
+ ccode.add_assignment (new CCodeIdentifier ("str"), new CCodeConstant ("\"%s\"".printf (dbus_value)));
+ ccode.add_break ();
+ }
+
+ ccode.close();
+
+ ccode.add_return (new CCodeIdentifier ("str"));
+
+ pop_function ();
+ return to_string_func;
+ }
+
+ CCodeExpression? serialize_basic (BasicTypeInfo basic_type, CCodeExpression expr) {
+ var new_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_new_" + basic_type.type_name));
+ new_call.add_argument (expr);
+ return new_call;
+ }
+
+ CCodeExpression? serialize_array (ArrayType array_type, CCodeExpression array_expr) {
+ if (array_type.rank == 1 && array_type.get_type_signature () == "ay") {
+ return serialize_buffer_array (array_type, array_expr);
+ }
+
+ string array_iter_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration (get_ccode_name (array_type), new CCodeVariableDeclarator (array_iter_name));
+ ccode.add_assignment (new CCodeIdentifier (array_iter_name), array_expr);
+
+ return serialize_array_dim (array_type, 1, array_expr, new CCodeIdentifier (array_iter_name));
+ }
+
+ CCodeExpression? serialize_array_dim (ArrayType array_type, int dim, CCodeExpression array_expr, CCodeExpression array_iter_expr) {
+ string builder_name = "_tmp%d_".printf (next_temp_var_id++);
+ string index_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator (builder_name));
+ ccode.add_declaration (get_ccode_array_length_type (array_type), new CCodeVariableDeclarator (index_name));
+
+ var gvariant_type = new CCodeFunctionCall (new CCodeIdentifier ("G_VARIANT_TYPE"));
+ ArrayType array_type_copy = (ArrayType) array_type.copy ();
+ array_type_copy.rank -= dim - 1;
+ gvariant_type.add_argument (new CCodeConstant ("\"%s\"".printf (array_type_copy.get_type_signature ())));
+
+ var builder_init = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ builder_init.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (builder_name)));
+ builder_init.add_argument (gvariant_type);
+ ccode.add_expression (builder_init);
+
+ var cforinit = new CCodeAssignment (new CCodeIdentifier (index_name), new CCodeConstant ("0"));
+ var cforcond = new CCodeBinaryExpression (CCodeBinaryOperator.LESS_THAN, new CCodeIdentifier (index_name), get_array_length (array_expr, dim));
+ var cforiter = new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, new CCodeIdentifier (index_name));
+ ccode.open_for (cforinit, cforcond, cforiter);
+
+ CCodeExpression element_variant;
+ if (dim < array_type.rank) {
+ element_variant = serialize_array_dim (array_type, dim + 1, array_expr, array_iter_expr);
+ } else {
+ var element_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, array_iter_expr);
+ element_variant = serialize_expression (array_type.element_type, element_expr);
+ }
+
+ var builder_add = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_add_value"));
+ builder_add.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (builder_name)));
+ builder_add.add_argument (element_variant);
+ ccode.add_expression (builder_add);
+
+ if (dim == array_type.rank) {
+ var array_iter_incr = new CCodeUnaryExpression (CCodeUnaryOperator.POSTFIX_INCREMENT, array_iter_expr);
+ ccode.add_expression (array_iter_incr);
+ }
+
+ ccode.close ();
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (builder_name)));
+ return builder_end;
+ }
+
+ CCodeExpression serialize_buffer_array (ArrayType array_type, CCodeExpression array_expr) {
+ string buffer_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ var gvariant_type = new CCodeFunctionCall (new CCodeIdentifier ("G_VARIANT_TYPE"));
+ gvariant_type.add_argument (new CCodeConstant ("\"%s\"".printf (array_type.get_type_signature ())));
+
+ CCodeFunctionCall dup_call;
+ if (context.require_glib_version (2, 68)) {
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("g_memdup2"));
+ } else {
+ requires_memdup2 = true;
+ dup_call = new CCodeFunctionCall (new CCodeIdentifier ("_vala_memdup2"));
+ }
+ dup_call.add_argument (array_expr);
+ dup_call.add_argument (get_array_length (array_expr, 1));
+ ccode.add_declaration (get_ccode_name (array_type), new CCodeVariableDeclarator (buffer_name, dup_call));
+
+ var new_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_new_from_data"));
+ new_call.add_argument (gvariant_type);
+ new_call.add_argument (new CCodeIdentifier (buffer_name));
+ new_call.add_argument (get_array_length (array_expr, 1));
+ new_call.add_argument (new CCodeConstant ("TRUE"));
+ new_call.add_argument (new CCodeIdentifier ("g_free"));
+ new_call.add_argument (new CCodeIdentifier (buffer_name));
+
+ return new_call;
+ }
+
+ CCodeExpression? serialize_struct (Struct st, CCodeExpression struct_expr) {
+ string builder_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator (builder_name));
+
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (builder_name)));
+ iter_call.add_argument (new CCodeIdentifier ("G_VARIANT_TYPE_TUPLE"));
+ ccode.add_expression (iter_call);
+
+ bool field_found = false;;
+
+ foreach (Field f in st.get_fields ()) {
+ if (f.binding != MemberBinding.INSTANCE) {
+ continue;
+ }
+
+ field_found = true;
+
+ write_expression (f.variable_type, new CCodeIdentifier (builder_name), new CCodeMemberAccess (struct_expr, get_ccode_name (f)), f);
+ }
+
+ if (!field_found) {
+ return null;
+ }
+
+ var builder_end = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ builder_end.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (builder_name)));
+ return builder_end;
+ }
+
+ CCodeExpression? serialize_hash_table (ObjectType type, CCodeExpression hash_table_expr) {
+ string subiter_name = "_tmp%d_".printf (next_temp_var_id++);
+ string tableiter_name = "_tmp%d_".printf (next_temp_var_id++);
+ string key_name = "_tmp%d_".printf (next_temp_var_id++);
+ string value_name = "_tmp%d_".printf (next_temp_var_id++);
+
+ var type_args = type.get_type_arguments ();
+ if (type_args.size != 2) {
+ Report.error (type.source_reference, "Missing type-arguments for GVariant serialization of `%s'", type.type_symbol.get_full_name ());
+ return new CCodeInvalidExpression ();
+ }
+ var key_type = type_args.get (0);
+ var value_type = type_args.get (1);
+
+ ccode.add_declaration ("GVariantBuilder", new CCodeVariableDeclarator (subiter_name));
+ ccode.add_declaration ("GHashTableIter", new CCodeVariableDeclarator (tableiter_name));
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator (key_name));
+ ccode.add_declaration ("gpointer", new CCodeVariableDeclarator (value_name));
+
+ var iter_init_call = new CCodeFunctionCall (new CCodeIdentifier ("g_hash_table_iter_init"));
+ iter_init_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (tableiter_name)));
+ iter_init_call.add_argument (hash_table_expr);
+ ccode.add_expression (iter_init_call);
+
+ var gvariant_type = new CCodeFunctionCall (new CCodeIdentifier ("G_VARIANT_TYPE"));
+ gvariant_type.add_argument (new CCodeConstant ("\"%s\"".printf (type.get_type_signature ())));
+
+ var iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_init"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (gvariant_type);
+ ccode.add_expression (iter_call);
+
+ var iter_next_call = new CCodeFunctionCall (new CCodeIdentifier ("g_hash_table_iter_next"));
+ iter_next_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (tableiter_name)));
+ iter_next_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (key_name)));
+ iter_next_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (value_name)));
+
+ ccode.open_while (iter_next_call);
+
+ ccode.add_declaration (get_ccode_name (key_type), new CCodeVariableDeclarator ("_key"));
+ ccode.add_declaration (get_ccode_name (value_type), new CCodeVariableDeclarator ("_value"));
+
+ ccode.add_assignment (new CCodeIdentifier ("_key"), convert_from_generic_pointer (new CCodeIdentifier (key_name), key_type));
+ ccode.add_assignment (new CCodeIdentifier ("_value"), convert_from_generic_pointer (new CCodeIdentifier (value_name), value_type));
+
+ var serialized_key = serialize_expression (key_type, new CCodeIdentifier ("_key"));
+ var serialized_value = serialize_expression (value_type, new CCodeIdentifier ("_value"));
+ if (serialized_key == null || serialized_value == null) {
+ return null;
+ }
+
+ iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_add"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ iter_call.add_argument (new CCodeConstant ("\"{?*}\""));
+ iter_call.add_argument (serialized_key);
+ iter_call.add_argument (serialized_value);
+ ccode.add_expression (iter_call);
+
+ ccode.close ();
+
+ iter_call = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_end"));
+ iter_call.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (subiter_name)));
+ return iter_call;
+ }
+
+ public override CCodeExpression? serialize_expression (DataType type, CCodeExpression expr) {
+ BasicTypeInfo basic_type;
+ CCodeExpression result = null;
+ if (is_string_marshalled_enum (type.type_symbol)) {
+ get_basic_type_info ("s", out basic_type);
+ result = generate_enum_value_to_string (type as EnumValueType, expr);
+ result = serialize_basic (basic_type, result);
+ } else if (get_basic_type_info (type.get_type_signature (), out basic_type)) {
+ result = serialize_basic (basic_type, expr);
+ } else if (type is ArrayType) {
+ result = serialize_array ((ArrayType) type, expr);
+ } else if (type.type_symbol is Struct) {
+ var st_expr = expr;
+ if (type.nullable) {
+ st_expr = new CCodeUnaryExpression (CCodeUnaryOperator.POINTER_INDIRECTION, st_expr);
+ }
+ result = serialize_struct ((Struct) type.type_symbol, st_expr);
+ } else if (type is ObjectType) {
+ if (type.type_symbol.get_full_name () == "GLib.Variant") {
+ var variant_new = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_new_variant"));
+ variant_new.add_argument (expr);
+ result = variant_new;
+ } else if (type.type_symbol.get_full_name () == "GLib.HashTable") {
+ result = serialize_hash_table ((ObjectType) type, expr);
+ }
+ }
+
+ if (result == null) {
+ Report.error (type.source_reference, "GVariant serialization of type `%s' is not supported", type.to_string ());
+ return new CCodeInvalidExpression ();
+ }
+
+ return result;
+ }
+
+ public void write_expression (DataType type, CCodeExpression builder_expr, CCodeExpression expr, Symbol? sym) {
+ var variant_expr = expr;
+ if (sym == null || get_dbus_signature (sym) == null) {
+ // perform boxing
+ variant_expr = serialize_expression (type, expr);
+ }
+ if (variant_expr != null) {
+ var builder_add = new CCodeFunctionCall (new CCodeIdentifier ("g_variant_builder_add_value"));
+ builder_add.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, builder_expr));
+ builder_add.add_argument (variant_expr);
+ ccode.add_expression (builder_add);
+ }
+ }
+}
--- /dev/null
+/* valainterfaceregisterfunction.vala
+ *
+ * Copyright (C) 2006-2011 Jürg Billeter
+ * Copyright (C) 2006-2007 Raffaele Sandrini
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ * Raffaele Sandrini <raffaele@sandrini.ch>
+ */
+
+using GLib;
+
+/**
+ * C function to register an interface at runtime.
+ */
+public class Vala.InterfaceRegisterFunction : TypeRegisterFunction {
+ /**
+ * Specifies the interface to be registered.
+ */
+ public weak Interface interface_reference { get; set; }
+
+ public InterfaceRegisterFunction (Interface iface) {
+ interface_reference = iface;
+ }
+
+ public override TypeSymbol get_type_declaration () {
+ return interface_reference;
+ }
+
+ public override string get_type_struct_name () {
+ return get_ccode_type_name (interface_reference);
+ }
+
+ public override string get_base_init_func_name () {
+ return "NULL";
+ }
+
+ public override string get_class_finalize_func_name () {
+ return "NULL";
+ }
+
+ public override string get_base_finalize_func_name () {
+ return "NULL";
+ }
+
+ public override string get_class_init_func_name () {
+ return "%s_default_init".printf (get_ccode_lower_case_name (interface_reference));
+ }
+
+ public override string get_instance_struct_size () {
+ return "0";
+ }
+
+ public override string get_instance_init_func_name () {
+ return "NULL";
+ }
+
+ public override string get_parent_type_name () {
+ return "G_TYPE_INTERFACE";
+ }
+
+ public override SymbolAccessibility get_accessibility () {
+ return interface_reference.access;
+ }
+
+ public override void get_type_interface_init_statements (CodeContext context, CCodeBlock block, bool plugin) {
+ /* register all prerequisites */
+ foreach (DataType prereq_ref in interface_reference.get_prerequisites ()) {
+ unowned TypeSymbol prereq = prereq_ref.type_symbol;
+
+ var func = new CCodeFunctionCall (new CCodeIdentifier ("g_type_interface_add_prerequisite"));
+ func.add_argument (new CCodeIdentifier ("%s_type_id".printf (get_ccode_lower_case_name (interface_reference))));
+ func.add_argument (new CCodeIdentifier (get_ccode_type_id (prereq)));
+
+ block.add_statement (new CCodeExpressionStatement (func));
+ }
+
+ ((CCodeBaseModule) context.codegen).register_dbus_info (block, interface_reference);
+ }
+}
--- /dev/null
+/* valastructregisterfunction.vala
+ *
+ * Copyright (C) 2008 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * C function to register a struct at runtime.
+ */
+public class Vala.StructRegisterFunction : TypeRegisterFunction {
+ /**
+ * Specifies the struct to be registered.
+ */
+ public weak Struct struct_reference { get; set; }
+
+ /**
+ * Creates a new C function to register the specified struct at runtime.
+ *
+ * @param st a struct
+ * @return newly created struct register function
+ */
+ public StructRegisterFunction (Struct st) {
+ struct_reference = st;
+ }
+
+ public override TypeSymbol get_type_declaration () {
+ return struct_reference;
+ }
+
+ public override SymbolAccessibility get_accessibility () {
+ return struct_reference.access;
+ }
+}
--- /dev/null
+/* valatyperegisterfunction.vala
+ *
+ * Copyright (C) 2006-2010 Jürg Billeter
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * Author:
+ * Jürg Billeter <j@bitron.ch>
+ */
+
+using GLib;
+
+/**
+ * C function to register a type at runtime.
+ */
+public abstract class Vala.TypeRegisterFunction {
+ CCodeFragment source_declaration_fragment = new CCodeFragment ();
+ CCodeFragment declaration_fragment = new CCodeFragment ();
+ CCodeFragment definition_fragment = new CCodeFragment ();
+
+ /**
+ * Constructs the C function from the specified type.
+ */
+ public void init_from_type (CodeContext context, bool plugin, bool declaration_only) {
+ var type_symbol = get_type_declaration ();
+
+ bool fundamental = false;
+ unowned Class? cl = type_symbol as Class;
+ if (cl != null && !cl.is_compact && cl.base_class == null) {
+ fundamental = true;
+ }
+
+ string type_id_name = "%s_type_id".printf (get_ccode_lower_case_name (type_symbol));
+
+ var type_block = new CCodeBlock ();
+ var type_once_block = new CCodeBlock ();
+ CCodeDeclaration cdecl;
+ if (!plugin) {
+ cdecl = new CCodeDeclaration ("gsize");
+ cdecl.add_declarator (new CCodeVariableDeclarator (type_id_name + "__once", new CCodeConstant ("0")));
+ if (context.require_glib_version (2, 68)) {
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ } else {
+ cdecl.modifiers = CCodeModifiers.STATIC | CCodeModifiers.VOLATILE;
+ }
+ type_block.add_statement (cdecl);
+ } else {
+ cdecl = new CCodeDeclaration ("GType");
+ cdecl.add_declarator (new CCodeVariableDeclarator (type_id_name, new CCodeConstant ("0")));
+ cdecl.modifiers = CCodeModifiers.STATIC;
+ source_declaration_fragment.append (cdecl);
+ }
+
+ CCodeFunction fun;
+ CCodeFunction fun_once = null;
+ if (!plugin) {
+ fun = new CCodeFunction (get_ccode_type_function (type_symbol), "GType");
+ fun.modifiers = CCodeModifiers.CONST;
+
+ /* Function will not be prototyped anyway */
+ if (get_accessibility () == SymbolAccessibility.PRIVATE) {
+ // avoid C warning as this function is not always used
+ fun.modifiers |= CCodeModifiers.STATIC | CCodeModifiers.UNUSED;
+ } else if (context.hide_internal && get_accessibility () == SymbolAccessibility.INTERNAL) {
+ // avoid C warning as this function is not always used
+ fun.modifiers |= CCodeModifiers.INTERNAL | CCodeModifiers.UNUSED;
+ } else {
+ fun.modifiers |= CCodeModifiers.EXTERN;
+ }
+
+ fun.is_declaration = true;
+ declaration_fragment.append (fun.copy ());
+ fun.is_declaration = false;
+
+ fun_once = new CCodeFunction ("%s_once".printf (fun.name), "GType");
+ fun_once.modifiers = CCodeModifiers.STATIC;
+ if (context.require_glib_version (2, 58)) {
+ fun_once.modifiers |= CCodeModifiers.NO_INLINE;
+ }
+
+ fun_once.is_declaration = true;
+ source_declaration_fragment.append (fun_once.copy ());
+ fun_once.is_declaration = false;
+ } else {
+ fun = new CCodeFunction ("%s_register_type".printf (get_ccode_lower_case_name (type_symbol)), "GType");
+ fun.add_parameter (new CCodeParameter ("module", "GTypeModule *"));
+
+ fun.is_declaration = true;
+ declaration_fragment.append (fun.copy ());
+ fun.is_declaration = false;
+
+ var get_fun = new CCodeFunction (get_ccode_type_function (type_symbol), "GType");
+ get_fun.modifiers = CCodeModifiers.CONST | CCodeModifiers.EXTERN;
+
+ get_fun.is_declaration = true;
+ declaration_fragment.append (get_fun.copy ());
+ get_fun.is_declaration = false;
+
+ get_fun.block = new CCodeBlock ();
+ get_fun.block.add_statement (new CCodeReturnStatement (new CCodeIdentifier (type_id_name)));
+
+ definition_fragment.append (get_fun);
+ }
+
+ string type_value_table_decl_name = null;
+ var type_init = new CCodeBlock ();
+
+ if (fundamental) {
+ var cgtypetabledecl = new CCodeDeclaration ("const GTypeValueTable");
+ cgtypetabledecl.modifiers = CCodeModifiers.STATIC;
+
+ cgtypetabledecl.add_declarator (new CCodeVariableDeclarator ( "g_define_type_value_table", new CCodeConstant ("{ %s, %s, %s, %s, \"p\", %s, \"p\", %s }".printf (get_gtype_value_table_init_function_name (), get_gtype_value_table_free_function_name (), get_gtype_value_table_copy_function_name (), get_gtype_value_table_peek_pointer_function_name (), get_gtype_value_table_collect_value_function_name (), get_gtype_value_table_lcopy_value_function_name ()))));
+ type_value_table_decl_name = "&g_define_type_value_table";
+ type_init.add_statement ( cgtypetabledecl );
+ }
+ else {
+ type_value_table_decl_name = "NULL";
+ }
+
+
+ if (type_symbol is ObjectTypeSymbol) {
+ var ctypedecl = new CCodeDeclaration ("const GTypeInfo");
+ ctypedecl.modifiers = CCodeModifiers.STATIC;
+ ctypedecl.add_declarator (new CCodeVariableDeclarator ("g_define_type_info", new CCodeConstant ("{ sizeof (%s), (GBaseInitFunc) %s, (GBaseFinalizeFunc) %s, (GClassInitFunc) %s, (GClassFinalizeFunc) %s, NULL, %s, 0, (GInstanceInitFunc) %s, %s }".printf (get_type_struct_name (), get_base_init_func_name (), (plugin) ? get_base_finalize_func_name () : "NULL", get_class_init_func_name (), get_class_finalize_func_name (), get_instance_struct_size (), get_instance_init_func_name (), type_value_table_decl_name))));
+ type_init.add_statement (ctypedecl);
+ if (fundamental) {
+ var ctypefundamentaldecl = new CCodeDeclaration ("const GTypeFundamentalInfo");
+ ctypefundamentaldecl.modifiers = CCodeModifiers.STATIC;
+ ctypefundamentaldecl.add_declarator (new CCodeVariableDeclarator ("g_define_type_fundamental_info", new CCodeConstant ("{ (G_TYPE_FLAG_CLASSED | G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE) }")));
+ type_init.add_statement (ctypefundamentaldecl);
+ }
+ }
+
+ type_init.add_statement (get_type_interface_init_declaration ());
+
+ CCodeFunctionCall reg_call;
+ if (type_symbol is Struct) {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_boxed_type_register_static"));
+ } else if (type_symbol is Enum) {
+ unowned Enum en = (Enum) type_symbol;
+ if (en.is_flags) {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_flags_register_static"));
+ } else {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_enum_register_static"));
+ }
+ } else if (fundamental) {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_register_fundamental"));
+ reg_call.add_argument (new CCodeFunctionCall (new CCodeIdentifier ("g_type_fundamental_next")));
+ } else if (!plugin) {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_register_static"));
+ reg_call.add_argument (new CCodeIdentifier (get_parent_type_name ()));
+ } else {
+ reg_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_module_register_type"));
+ reg_call.add_argument (new CCodeIdentifier ("module"));
+ reg_call.add_argument (new CCodeIdentifier (get_parent_type_name ()));
+ }
+ reg_call.add_argument (new CCodeConstant ("\"%s\"".printf (get_ccode_name (type_symbol))));
+ if (type_symbol is Struct) {
+ var st = (Struct) type_symbol;
+ reg_call.add_argument (new CCodeCastExpression (new CCodeIdentifier (get_ccode_dup_function (st)), "GBoxedCopyFunc"));
+ reg_call.add_argument (new CCodeCastExpression (new CCodeIdentifier (get_ccode_free_function (st)), "GBoxedFreeFunc"));
+ } else if (type_symbol is Enum) {
+ unowned Enum en = (Enum) type_symbol;
+ var clist = new CCodeInitializerList (); /* or during visit time? */
+
+ CCodeInitializerList clist_ev = null;
+ foreach (EnumValue ev in en.get_values ()) {
+ clist_ev = new CCodeInitializerList ();
+ clist_ev.append (new CCodeConstant (get_ccode_name (ev)));
+ clist_ev.append (new CCodeConstant ("\"%s\"".printf (get_ccode_name (ev))));
+ clist_ev.append (new CCodeConstant ("\"%s\"".printf (ev.nick)));
+ clist.append (clist_ev);
+ }
+
+ clist_ev = new CCodeInitializerList ();
+ clist_ev.append (new CCodeConstant ("0"));
+ clist_ev.append (new CCodeConstant ("NULL"));
+ clist_ev.append (new CCodeConstant ("NULL"));
+ clist.append (clist_ev);
+
+ var enum_decl = new CCodeVariableDeclarator ("values[]", clist);
+
+ if (en.is_flags) {
+ cdecl = new CCodeDeclaration ("const GFlagsValue");
+ } else {
+ cdecl = new CCodeDeclaration ("const GEnumValue");
+ }
+
+ cdecl.add_declarator (enum_decl);
+ cdecl.modifiers = CCodeModifiers.STATIC;
+
+ type_init.add_statement (cdecl);
+
+ reg_call.add_argument (new CCodeIdentifier ("values"));
+ } else {
+ reg_call.add_argument (new CCodeIdentifier ("&g_define_type_info"));
+ if (fundamental) {
+ reg_call.add_argument (new CCodeIdentifier ("&g_define_type_fundamental_info"));
+ }
+ reg_call.add_argument (new CCodeConstant (get_type_flags ()));
+ }
+
+ var once_call_block = new CCodeBlock ();
+ if (!plugin) {
+ var temp_decl = new CCodeDeclaration ("GType");
+ temp_decl.add_declarator (new CCodeVariableDeclarator (type_id_name, reg_call));
+ type_init.add_statement (temp_decl);
+ temp_decl = new CCodeDeclaration ("GType");
+ temp_decl.add_declarator (new CCodeVariableDeclarator (type_id_name, new CCodeFunctionCall (new CCodeIdentifier (fun_once.name))));
+ once_call_block.add_statement (temp_decl);
+ } else {
+ type_init.add_statement (new CCodeExpressionStatement (new CCodeAssignment (new CCodeIdentifier (type_id_name), reg_call)));
+ }
+
+ if (cl != null && cl.has_class_private_fields) {
+ CCodeFunctionCall add_class_private_call;
+
+ add_class_private_call = new CCodeFunctionCall (new CCodeIdentifier ("g_type_add_class_private"));
+ add_class_private_call.add_argument (new CCodeIdentifier (type_id_name));
+ add_class_private_call.add_argument (new CCodeIdentifier ("sizeof (%sPrivate)".printf (get_ccode_type_name (cl))));
+ type_init.add_statement (new CCodeExpressionStatement (add_class_private_call));
+ }
+
+ if (!declaration_only) {
+ get_type_interface_init_statements (context, type_init, plugin);
+ }
+
+ if (cl != null && (cl.has_private_fields || cl.has_type_parameters ())) {
+ if (!plugin) {
+ var ccall = new CCodeFunctionCall (new CCodeIdentifier ("g_type_add_instance_private"));
+ ccall.add_argument (new CCodeIdentifier (type_id_name));
+ ccall.add_argument (new CCodeIdentifier ("sizeof (%sPrivate)".printf (get_ccode_name (cl))));
+ type_init.add_statement (new CCodeExpressionStatement (new CCodeAssignment (new CCodeIdentifier ("%s_private_offset".printf (get_ccode_name (cl))), ccall)));
+ } else {
+ type_init.add_statement (new CCodeExpressionStatement (new CCodeAssignment (new CCodeIdentifier ("%s_private_offset".printf (get_ccode_name (cl))), new CCodeIdentifier ("sizeof (%sPrivate)".printf (get_ccode_name (cl))))));
+ }
+ }
+
+ if (!plugin) {
+ // the condition that guards the type initialisation
+ var enter = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_enter"));
+ enter.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (type_id_name + "__once")));
+
+ var leave = new CCodeFunctionCall (new CCodeIdentifier ("g_once_init_leave"));
+ leave.add_argument (new CCodeUnaryExpression (CCodeUnaryOperator.ADDRESS_OF, new CCodeIdentifier (type_id_name + "__once")));
+ leave.add_argument (new CCodeIdentifier (type_id_name));
+ once_call_block.add_statement (new CCodeExpressionStatement (leave));
+
+ var cif = new CCodeIfStatement (enter, once_call_block);
+ type_block.add_statement (cif);
+ type_block.add_statement (new CCodeReturnStatement (new CCodeIdentifier (type_id_name + "__once")));
+
+ type_once_block = type_init;
+ type_once_block.add_statement (new CCodeReturnStatement (new CCodeIdentifier (type_id_name)));
+ } else {
+ type_block = type_init;
+ type_block.add_statement (new CCodeReturnStatement (new CCodeIdentifier (type_id_name)));
+ }
+
+ if (!plugin) {
+ fun_once.block = type_once_block;
+ definition_fragment.append (fun_once);
+ }
+
+ fun.block = type_block;
+ definition_fragment.append (fun);
+ }
+
+ /**
+ * Returns the data type to be registered.
+ *
+ * @return type to be registered
+ */
+ public abstract TypeSymbol get_type_declaration ();
+
+ /**
+ * Returns the name of the type struct in C code.
+ *
+ * @return C struct name
+ */
+ public virtual string get_type_struct_name () {
+ assert_not_reached ();
+ }
+ /**
+ * Returns the name of the base_init function in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_base_init_func_name () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the name of the class_finalize function in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_class_finalize_func_name () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the name of the base_finalize function in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_base_finalize_func_name () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the name of the class_init function in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_class_init_func_name () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the size of the instance struct in C code.
+ *
+ * @return C instance struct size
+ */
+ public virtual string get_instance_struct_size () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the name of the instance_init function in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_instance_init_func_name () {
+ assert_not_reached ();
+ }
+
+ /**
+ * Returns the name of the parent type in C code.
+ *
+ * @return C function name
+ */
+ public virtual string get_parent_type_name () {
+ assert_not_reached ();
+ }
+
+
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable init function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_init_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable peek pointer function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_peek_pointer_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable free function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_free_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable copy function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_copy_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable lcopy function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_lcopy_value_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the C-name of the new generated GTypeValueTable collect value function or null when not available.
+ *
+ * @return C function name
+ */
+ public virtual string? get_gtype_value_table_collect_value_function_name () {
+ return null;
+ }
+
+ /**
+ * Returns the set of type flags to be applied when registering.
+ *
+ * @return type flags
+ */
+ public virtual string get_type_flags () {
+ return "0";
+ }
+
+ /**
+ * Returns additional C declarations to setup interfaces.
+ *
+ * @return C declarations
+ */
+ public virtual CCodeFragment get_type_interface_init_declaration () {
+ return new CCodeFragment ();
+ }
+
+ /**
+ * Returns additional C initialization statements to setup interfaces.
+ */
+ public virtual void get_type_interface_init_statements (CodeContext context, CCodeBlock block, bool plugin) {
+ }
+
+ public CCodeFragment get_source_declaration () {
+ return source_declaration_fragment;
+ }
+
+ /**
+ * Returns the declaration for this type register function in C code.
+ *
+ * @return C function declaration fragment
+ */
+ public CCodeFragment get_declaration () {
+ return declaration_fragment;
+ }
+
+ /**
+ * Returns the definition for this type register function in C code.
+ *
+ * @return C function definition fragment
+ */
+ public CCodeFragment get_definition () {
+ return definition_fragment;
+ }
+
+ /**
+ * Returns the accessibility for this type.
+ */
+ public abstract SymbolAccessibility get_accessibility ();
+}