mirror of
https://github.com/Ryujinx/GtkSharp.git
synced 2024-09-09 00:13:20 +02:00
![Bertrand Lorentz](/assets/img/avatar_default.png)
In a lot of places, we were only checking the presence of boolean attributes, like "array", automatically assuming they were true. This meant that we didn't allow setting them explicitly to false, which apparently is needed for some bindings. For all boolean attributes, we now use the GetAttributeAsBoolean method added in the previous commit, to correctly check the value of the attribute. As before, if the attribute is not present, it is considered to be false. Thanks to Stephan Sundermann for noticing this issue.
418 lines
13 KiB
C#
418 lines
13 KiB
C#
// GtkSharp.Generation.ObjectGen.cs - The Object Generatable.
|
|
//
|
|
// Author: Mike Kestner <mkestner@ximian.com>
|
|
//
|
|
// Copyright (c) 2001-2003 Mike Kestner
|
|
// Copyright (c) 2003-2004 Novell, Inc.
|
|
//
|
|
// This program is free software; you can redistribute it and/or
|
|
// modify it under the terms of version 2 of the GNU General Public
|
|
// License as published by the Free Software Foundation.
|
|
//
|
|
// This program 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
|
|
// General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public
|
|
// License along with this program; if not, write to the
|
|
// Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
// Boston, MA 02111-1307, USA.
|
|
|
|
|
|
namespace GtkSharp.Generation {
|
|
|
|
using System;
|
|
using System.Collections;
|
|
using System.IO;
|
|
using System.Text;
|
|
using System.Xml;
|
|
|
|
public class ObjectGen : ObjectBase {
|
|
|
|
private ArrayList custom_attrs = new ArrayList();
|
|
private ArrayList strings = new ArrayList();
|
|
private Hashtable childprops = new Hashtable();
|
|
private static Hashtable dirs = new Hashtable ();
|
|
|
|
public ObjectGen (XmlElement ns, XmlElement elem) : base (ns, elem, false)
|
|
{
|
|
foreach (XmlNode node in elem.ChildNodes) {
|
|
if (!(node is XmlElement)) continue;
|
|
XmlElement member = (XmlElement) node;
|
|
if (member.GetAttributeAsBoolean ("hidden"))
|
|
continue;
|
|
|
|
switch (node.Name) {
|
|
case "callback":
|
|
Statistics.IgnoreCount++;
|
|
break;
|
|
|
|
case "custom-attribute":
|
|
custom_attrs.Add (member.InnerXml);
|
|
break;
|
|
|
|
case "static-string":
|
|
strings.Add (node);
|
|
break;
|
|
|
|
case "childprop":
|
|
string name = member.GetAttribute ("name");
|
|
while (childprops.ContainsKey (name))
|
|
name += "mangled";
|
|
childprops.Add (name, new ChildProperty (member, this));
|
|
break;
|
|
|
|
default:
|
|
if (!IsNodeNameHandled (node.Name))
|
|
Console.WriteLine ("Unexpected node " + node.Name + " in " + CName);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
public override string CallByName (string var, bool owned)
|
|
{
|
|
return String.Format ("{0} == null ? IntPtr.Zero : {0}.{1}", var, owned ? "OwnedHandle" : "Handle");
|
|
}
|
|
|
|
public override bool Validate ()
|
|
{
|
|
LogWriter log = new LogWriter (QualifiedName);
|
|
|
|
ArrayList invalids = new ArrayList ();
|
|
|
|
foreach (ChildProperty prop in childprops.Values) {
|
|
if (!prop.Validate (log))
|
|
invalids.Add (prop);
|
|
}
|
|
foreach (ChildProperty prop in invalids)
|
|
childprops.Remove (prop);
|
|
|
|
return base.Validate ();
|
|
}
|
|
|
|
private bool DisableVoidCtor {
|
|
get {
|
|
return Elem.GetAttributeAsBoolean ("disable_void_ctor");
|
|
}
|
|
}
|
|
|
|
private class DirectoryInfo {
|
|
public string assembly_name;
|
|
public Hashtable objects;
|
|
|
|
public DirectoryInfo (string assembly_name) {
|
|
this.assembly_name = assembly_name;
|
|
objects = new Hashtable ();
|
|
}
|
|
}
|
|
|
|
private static DirectoryInfo GetDirectoryInfo (string dir, string assembly_name)
|
|
{
|
|
DirectoryInfo result;
|
|
|
|
if (dirs.ContainsKey (dir)) {
|
|
result = dirs [dir] as DirectoryInfo;
|
|
if (result.assembly_name != assembly_name) {
|
|
Console.WriteLine ("Can't put multiple assemblies in one directory.");
|
|
return null;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
result = new DirectoryInfo (assembly_name);
|
|
dirs.Add (dir, result);
|
|
|
|
return result;
|
|
}
|
|
|
|
public override void Generate (GenerationInfo gen_info)
|
|
{
|
|
gen_info.CurrentType = QualifiedName;
|
|
|
|
string asm_name = gen_info.AssemblyName.Length == 0 ? NS.ToLower () + "-sharp" : gen_info.AssemblyName;
|
|
DirectoryInfo di = GetDirectoryInfo (gen_info.Dir, asm_name);
|
|
|
|
StreamWriter sw = gen_info.Writer = gen_info.OpenStream (Name);
|
|
|
|
sw.WriteLine ("namespace " + NS + " {");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\tusing System;");
|
|
sw.WriteLine ("\tusing System.Collections;");
|
|
sw.WriteLine ("\tusing System.Runtime.InteropServices;");
|
|
sw.WriteLine ();
|
|
|
|
SymbolTable table = SymbolTable.Table;
|
|
|
|
sw.WriteLine ("#region Autogenerated code");
|
|
if (IsDeprecated)
|
|
sw.WriteLine ("\t[Obsolete]");
|
|
foreach (string attr in custom_attrs)
|
|
sw.WriteLine ("\t" + attr);
|
|
sw.Write ("\t{0} {1}partial class " + Name, IsInternal ? "internal" : "public", IsAbstract ? "abstract " : "");
|
|
string cs_parent = table.GetCSType(Elem.GetAttribute("parent"));
|
|
if (cs_parent != "") {
|
|
di.objects.Add (CName, QualifiedName);
|
|
sw.Write (" : " + cs_parent);
|
|
}
|
|
foreach (string iface in interfaces) {
|
|
if (Parent != null && Parent.Implements (iface))
|
|
continue;
|
|
sw.Write (", " + table.GetCSType (iface));
|
|
}
|
|
foreach (string iface in managed_interfaces) {
|
|
if (Parent != null && Parent.Implements (iface))
|
|
continue;
|
|
sw.Write (", " + iface);
|
|
}
|
|
sw.WriteLine (" {");
|
|
sw.WriteLine ();
|
|
|
|
GenCtors (gen_info);
|
|
GenProperties (gen_info, null);
|
|
GenFields (gen_info);
|
|
GenChildProperties (gen_info);
|
|
|
|
bool has_sigs = (sigs != null && sigs.Count > 0);
|
|
if (!has_sigs) {
|
|
foreach (string iface in interfaces) {
|
|
InterfaceGen igen = table.GetClassGen (iface) as InterfaceGen;
|
|
if (igen != null && igen.Signals != null) {
|
|
has_sigs = true;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (has_sigs && Elem.HasAttribute("parent")) {
|
|
GenSignals (gen_info, null);
|
|
}
|
|
|
|
GenClassMembers (gen_info, cs_parent);
|
|
GenMethods (gen_info, null, null);
|
|
|
|
if (interfaces.Count != 0) {
|
|
Hashtable all_methods = new Hashtable ();
|
|
foreach (Method m in Methods.Values)
|
|
all_methods[m.Name] = m;
|
|
Hashtable collisions = new Hashtable ();
|
|
foreach (string iface in interfaces) {
|
|
ClassBase igen = table.GetClassGen (iface);
|
|
foreach (Method m in igen.Methods.Values) {
|
|
if (m.Name.StartsWith ("Get") || m.Name.StartsWith ("Set")) {
|
|
if (GetProperty (m.Name.Substring (3)) != null) {
|
|
collisions[m.Name] = true;
|
|
continue;
|
|
}
|
|
}
|
|
Method collision = all_methods[m.Name] as Method;
|
|
if (collision != null && collision.Signature.Types == m.Signature.Types)
|
|
collisions[m.Name] = true;
|
|
else
|
|
all_methods[m.Name] = m;
|
|
}
|
|
}
|
|
|
|
foreach (string iface in interfaces) {
|
|
if (Parent != null && Parent.Implements (iface))
|
|
continue;
|
|
InterfaceGen igen = table.GetClassGen (iface) as InterfaceGen;
|
|
igen.GenMethods (gen_info, collisions, this);
|
|
igen.GenProperties (gen_info, this);
|
|
igen.GenSignals (gen_info, this);
|
|
igen.GenVirtualMethods (gen_info, this);
|
|
}
|
|
}
|
|
|
|
foreach (XmlElement str in strings) {
|
|
sw.Write ("\t\tpublic static string " + str.GetAttribute ("name"));
|
|
sw.WriteLine (" {\n\t\t\t get { return \"" + str.GetAttribute ("value") + "\"; }\n\t\t}");
|
|
}
|
|
|
|
if (cs_parent != String.Empty && GetExpected (CName) != QualifiedName) {
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\t\tstatic " + Name + " ()");
|
|
sw.WriteLine ("\t\t{");
|
|
sw.WriteLine ("\t\t\tGtkSharp." + Studlify (asm_name) + ".ObjectManager.Initialize ();");
|
|
sw.WriteLine ("\t\t}");
|
|
}
|
|
|
|
sw.WriteLine ("#endregion");
|
|
|
|
sw.WriteLine ("\t}");
|
|
sw.WriteLine ("}");
|
|
|
|
sw.Close ();
|
|
gen_info.Writer = null;
|
|
Statistics.ObjectCount++;
|
|
}
|
|
|
|
protected override void GenCtors (GenerationInfo gen_info)
|
|
{
|
|
if (!Elem.HasAttribute("parent"))
|
|
return;
|
|
|
|
gen_info.Writer.WriteLine("\t\tpublic " + Name + "(IntPtr raw) : base(raw) {}");
|
|
if (ctors.Count == 0 && !DisableVoidCtor) {
|
|
gen_info.Writer.WriteLine();
|
|
gen_info.Writer.WriteLine("\t\tprotected " + Name + "() : base(IntPtr.Zero)");
|
|
gen_info.Writer.WriteLine("\t\t{");
|
|
gen_info.Writer.WriteLine("\t\t\tCreateNativeObject (new string [0], new GLib.Value [0]);");
|
|
gen_info.Writer.WriteLine("\t\t}");
|
|
}
|
|
gen_info.Writer.WriteLine();
|
|
|
|
base.GenCtors (gen_info);
|
|
}
|
|
|
|
protected void GenChildProperties (GenerationInfo gen_info)
|
|
{
|
|
if (childprops.Count == 0)
|
|
return;
|
|
|
|
StreamWriter sw = gen_info.Writer;
|
|
|
|
ObjectGen child_ancestor = Parent as ObjectGen;
|
|
while (child_ancestor.CName != "GtkContainer" &&
|
|
child_ancestor.childprops.Count == 0)
|
|
child_ancestor = child_ancestor.Parent as ObjectGen;
|
|
|
|
sw.WriteLine ("\t\tpublic class " + Name + "Child : " + child_ancestor.NS + "." + child_ancestor.Name + "." + child_ancestor.Name + "Child {");
|
|
sw.WriteLine ("\t\t\tprotected internal " + Name + "Child (Gtk.Container parent, Gtk.Widget child) : base (parent, child) {}");
|
|
sw.WriteLine ("");
|
|
|
|
foreach (ChildProperty prop in childprops.Values)
|
|
prop.Generate (gen_info, "\t\t\t", null);
|
|
|
|
sw.WriteLine ("\t\t}");
|
|
sw.WriteLine ("");
|
|
|
|
sw.WriteLine ("\t\tpublic override Gtk.Container.ContainerChild this [Gtk.Widget child] {");
|
|
sw.WriteLine ("\t\t\tget {");
|
|
sw.WriteLine ("\t\t\t\treturn new " + Name + "Child (this, child);");
|
|
sw.WriteLine ("\t\t\t}");
|
|
sw.WriteLine ("\t\t}");
|
|
sw.WriteLine ("");
|
|
|
|
}
|
|
|
|
void GenClassMembers (GenerationInfo gen_info, string cs_parent)
|
|
{
|
|
GenVirtualMethods (gen_info, null);
|
|
|
|
if (class_struct_name == null || !CanGenerateClassStruct) return;
|
|
StreamWriter sw = gen_info.Writer;
|
|
GenerateClassStruct (gen_info);
|
|
if (cs_parent == "")
|
|
sw.WriteLine ("\t\tstatic uint class_offset = 0;");
|
|
else
|
|
sw.WriteLine ("\t\tstatic uint class_offset = ((GLib.GType) typeof ({0})).GetClassSize ();", cs_parent);
|
|
sw.WriteLine ("\t\tstatic Hashtable class_structs;");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\t\tstatic {0} GetClassStruct (GLib.GType gtype, bool use_cache)", class_struct_name);
|
|
sw.WriteLine ("\t\t{");
|
|
sw.WriteLine ("\t\t\tif (class_structs == null)");
|
|
sw.WriteLine ("\t\t\t\tclass_structs = new Hashtable ();");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\t\t\tif (use_cache && class_structs.Contains (gtype))");
|
|
sw.WriteLine ("\t\t\t\treturn ({0}) class_structs [gtype];", class_struct_name);
|
|
sw.WriteLine ("\t\t\telse {");
|
|
sw.WriteLine ("\t\t\t\tIntPtr class_ptr = new IntPtr (gtype.GetClassPtr ().ToInt64 () + class_offset);");
|
|
sw.WriteLine ("\t\t\t\t{0} class_struct = ({0}) Marshal.PtrToStructure (class_ptr, typeof ({0}));", class_struct_name);
|
|
sw.WriteLine ("\t\t\t\tif (use_cache)");
|
|
sw.WriteLine ("\t\t\t\t\tclass_structs.Add (gtype, class_struct);");
|
|
sw.WriteLine ("\t\t\t\treturn class_struct;");
|
|
sw.WriteLine ("\t\t\t}");
|
|
sw.WriteLine ("\t\t}");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\t\tstatic void OverrideClassStruct (GLib.GType gtype, {0} class_struct)", class_struct_name);
|
|
sw.WriteLine ("\t\t{");
|
|
sw.WriteLine ("\t\t\tIntPtr class_ptr = new IntPtr (gtype.GetClassPtr ().ToInt64 () + class_offset);");
|
|
sw.WriteLine ("\t\t\tMarshal.StructureToPtr (class_struct, class_ptr, false);");
|
|
sw.WriteLine ("\t\t}");
|
|
sw.WriteLine ();
|
|
}
|
|
|
|
/* Keep this in sync with the one in glib/GType.cs */
|
|
private static string GetExpected (string cname)
|
|
{
|
|
for (int i = 1; i < cname.Length; i++) {
|
|
if (Char.IsUpper (cname[i])) {
|
|
if (i == 1 && cname[0] == 'G')
|
|
return "GLib." + cname.Substring (1);
|
|
else
|
|
return cname.Substring (0, i) + "." + cname.Substring (i);
|
|
}
|
|
}
|
|
|
|
throw new ArgumentException ("cname doesn't follow the NamespaceType capitalization style: " + cname);
|
|
}
|
|
|
|
private static bool NeedsMap (Hashtable objs, string assembly_name)
|
|
{
|
|
foreach (string key in objs.Keys)
|
|
if (GetExpected (key) != ((string) objs[key]))
|
|
return true;
|
|
|
|
return false;
|
|
}
|
|
|
|
private static string Studlify (string name)
|
|
{
|
|
string result = "";
|
|
|
|
string[] subs = name.Split ('-');
|
|
foreach (string sub in subs)
|
|
result += Char.ToUpper (sub[0]) + sub.Substring (1);
|
|
|
|
return result;
|
|
}
|
|
|
|
public static void GenerateMappers ()
|
|
{
|
|
foreach (string dir in dirs.Keys) {
|
|
|
|
DirectoryInfo di = dirs[dir] as DirectoryInfo;
|
|
|
|
if (!NeedsMap (di.objects, di.assembly_name))
|
|
continue;
|
|
|
|
GenerationInfo gen_info = new GenerationInfo (dir, di.assembly_name);
|
|
|
|
GenerateMapper (di, gen_info);
|
|
}
|
|
}
|
|
|
|
private static void GenerateMapper (DirectoryInfo dir_info, GenerationInfo gen_info)
|
|
{
|
|
StreamWriter sw = gen_info.OpenStream ("ObjectManager");
|
|
|
|
sw.WriteLine ("namespace GtkSharp." + Studlify (dir_info.assembly_name) + " {");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\tpublic class ObjectManager {");
|
|
sw.WriteLine ();
|
|
sw.WriteLine ("\t\tstatic bool initialized = false;");
|
|
sw.WriteLine ("\t\t// Call this method from the appropriate module init function.");
|
|
sw.WriteLine ("\t\tpublic static void Initialize ()");
|
|
sw.WriteLine ("\t\t{");
|
|
sw.WriteLine ("\t\t\tif (initialized)");
|
|
sw.WriteLine ("\t\t\t\treturn;");
|
|
sw.WriteLine ("");
|
|
sw.WriteLine ("\t\t\tinitialized = true;");
|
|
|
|
foreach (string key in dir_info.objects.Keys) {
|
|
if (GetExpected(key) != ((string) dir_info.objects[key]))
|
|
sw.WriteLine ("\t\t\tGLib.GType.Register ({0}.GType, typeof ({0}));", dir_info.objects [key]);
|
|
}
|
|
|
|
sw.WriteLine ("\t\t}");
|
|
sw.WriteLine ("\t}");
|
|
sw.WriteLine ("}");
|
|
sw.Close ();
|
|
}
|
|
}
|
|
}
|
|
|