Add support for untyped records

src/Generation/Generator/Generator/Internal/UntypedRecord.cs

@@ -0,0 +1,29 @@
+using Generator.Model;
+
+namespace Generator.Generator.Internal;
+
+internal class UntypedRecord : Generator<GirModel.Record>
+{
+    private readonly Publisher _publisher;
+
+    public UntypedRecord(Publisher publisher)
+    {
+        _publisher = publisher;
+    }
+
+    public void Generate(GirModel.Record obj)
+    {
+        if (!Record.IsUntyped(obj))
+            return;
+
+        var source = Renderer.Internal.UntypedRecord.Render(obj);
+        var codeUnit = new CodeUnit(
+            Project: Namespace.GetCanonicalName(obj.Namespace),
+            Name: obj.Name,
+            Source: source,
+            IsInternal: true
+        );
+
+        _publisher.Publish(codeUnit);
+    }
+}

src/Generation/Generator/Generator/Internal/UntypedRecordData.cs

@@ -0,0 +1,29 @@
+using Generator.Model;
+
+namespace Generator.Generator.Internal;
+
+internal class UntypedRecordData : Generator<GirModel.Record>
+{
+    private readonly Publisher _publisher;
+
+    public UntypedRecordData(Publisher publisher)
+    {
+        _publisher = publisher;
+    }
+
+    public void Generate(GirModel.Record obj)
+    {
+        if (!Record.IsUntyped(obj))
+            return;
+
+        var source = Renderer.Internal.UntypedRecordData.Render(obj);
+        var codeUnit = new CodeUnit(
+            Project: Namespace.GetCanonicalName(obj.Namespace),
+            Name: Model.UntypedRecord.GetDataName(obj),
+            Source: source,
+            IsInternal: true
+        );
+
+        _publisher.Publish(codeUnit);
+    }
+}

src/Generation/Generator/Generator/Internal/UntypedRecordHandle.cs

@@ -0,0 +1,29 @@
+using Generator.Model;
+
+namespace Generator.Generator.Internal;
+
+internal class UntypedRecordHandle : Generator<GirModel.Record>
+{
+    private readonly Publisher _publisher;
+
+    public UntypedRecordHandle(Publisher publisher)
+    {
+        _publisher = publisher;
+    }
+
+    public void Generate(GirModel.Record obj)
+    {
+        if (!Record.IsUntyped(obj))
+            return;
+
+        var source = Renderer.Internal.UntypedRecordHandle.Render(obj);
+        var codeUnit = new CodeUnit(
+            Project: Namespace.GetCanonicalName(obj.Namespace),
+            Name: Model.UntypedRecord.GetInternalHandle(obj),
+            Source: source,
+            IsInternal: true
+        );
+
+        _publisher.Publish(codeUnit);
+    }
+}

src/Generation/Generator/Generator/Public/UntypedRecord.cs

@@ -0,0 +1,29 @@
+using Generator.Model;
+
+namespace Generator.Generator.Public;
+
+internal class UntypedRecord : Generator<GirModel.Record>
+{
+    private readonly Publisher _publisher;
+
+    public UntypedRecord(Publisher publisher)
+    {
+        _publisher = publisher;
+    }
+
+    public void Generate(GirModel.Record record)
+    {
+        if (!Record.IsUntyped(record))
+            return;
+
+        var source = Renderer.Public.UntypedRecord.Render(record);
+        var codeUnit = new CodeUnit(
+            Project: Namespace.GetCanonicalName(record.Namespace),
+            Name: Record.GetPublicClassName(record),
+            Source: source,
+            IsInternal: false
+        );
+
+        _publisher.Publish(codeUnit);
+    }
+}

src/Generation/Generator/Model/Record.cs

@@ -4,7 +4,7 @@ internal static partial class Record
 {
     public static bool IsStandard(GirModel.Record record)
     {
-        return !IsForeignTyped(record) && !IsOpaqueTyped(record) && !IsOpaqueUntyped(record) && !IsTyped(record);
+        return !IsForeignTyped(record) && !IsOpaqueTyped(record) && !IsOpaqueUntyped(record) && !IsTyped(record) && !IsUntyped(record);
     }
 
     public static bool IsForeignTyped(GirModel.Record record)
@@ -34,6 +34,11 @@ public static bool IsTyped(GirModel.Record record)
         //record is actually fundamental and does not have a type function.
         return record is { Foreign: false, Opaque: false, TypeFunction.CIdentifier: not "intern" };
     }
+
+    public static bool IsUntyped(GirModel.Record record)
+    {
+        return record is { Foreign: false, Opaque: false, TypeFunction: null or { CIdentifier: "intern" } };
+    }
 
     public static string GetFullyQualifiedInternalStructName(GirModel.Record record)
         => Namespace.GetInternalName(record.Namespace) + "." + GetInternalStructName(record);

src/Generation/Generator/Model/UntypedRecord.cs

@@ -0,0 +1,86 @@
+using System.Linq;
+
+namespace Generator.Model;
+
+internal static class UntypedRecord
+{
+    public static string GetPublicClassName(GirModel.Record record)
+        => record.Name;
+
+    public static string GetFullyQualifiedPublicClassName(GirModel.Record record)
+        => Namespace.GetPublicName(record.Namespace) + "." + GetPublicClassName(record);
+
+    public static string GetFullyQualifiedInternalClassName(GirModel.Record record)
+        => Namespace.GetInternalName(record.Namespace) + "." + record.Name;
+
+    public static string GetInternalHandle(GirModel.Record record)
+        => $"{Type.GetName(record)}Handle";
+
+    public static string GetInternalManagedHandle(GirModel.Record record)
+        => $"{Type.GetName(record)}ManagedHandle";
+
+    public static string GetInternalOwnedHandle(GirModel.Record record)
+        => $"{Type.GetName(record)}OwnedHandle";
+
+    public static string GetInternalUnownedHandle(GirModel.Record record)
+        => $"{Type.GetName(record)}UnownedHandle";
+
+    public static string GetFullyQuallifiedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalHandle(record)}";
+
+    public static string GetFullyQuallifiedOwnedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalOwnedHandle(record)}";
+
+    public static string GetFullyQuallifiedUnownedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalUnownedHandle(record)}";
+
+    public static string GetFullyQuallifiedNullHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalUnownedHandle(record)}.NullHandle";
+
+    public static string GetDataName(GirModel.Record record)
+        => $"{Type.GetName(record)}Data";
+
+    public static string GetFullyQuallifiedDataName(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetDataName(record)}";
+
+    public static string GetFullyQuallifiedManagedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalManagedHandle(record)}";
+
+    public static string GetInternalArrayHandle(GirModel.Record record)
+    {
+        var prefix = $"{Type.GetName(record)}Array";
+        if (record.Namespace.Records.Select(x => x.Name).Contains(prefix))
+            prefix += "2";
+
+        return $"{prefix}Handle";
+    }
+
+    public static string GetFullyQuallifiedArrayHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalArrayHandle(record)}";
+
+    public static string GetInternalArrayOwnedHandle(GirModel.Record record)
+    {
+        var prefix = $"{Type.GetName(record)}Array";
+        if (record.Namespace.Records.Select(x => x.Name).Contains(prefix))
+            prefix += "2";
+
+        return $"{prefix}OwnedHandle";
+    }
+
+    public static string GetFullyQuallifiedArrayOwnedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalArrayOwnedHandle(record)}";
+
+    public static string GetInternalArrayUnownedHandle(GirModel.Record record)
+    {
+        var prefix = $"{Type.GetName(record)}Array";
+        if (record.Namespace.Records.Select(x => x.Name).Contains(prefix))
+            prefix += "2";
+        return $"{prefix}UnownedHandle";
+    }
+
+    public static string GetFullyQuallifiedArrayUnownedHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalArrayUnownedHandle(record)}";
+
+    public static string GetFullyQuallifiedArrayNullHandle(GirModel.Record record)
+        => $"{Namespace.GetInternalName(record.Namespace)}.{GetInternalArrayUnownedHandle(record)}.NullHandle";
+}

src/Generation/Generator/Records.cs

@@ -12,6 +12,12 @@ public static void Generate(IEnumerable<GirModel.Record> records, string path)
         var publisher = new Publisher(path);
         var generators = new List<Generator<GirModel.Record>>()
         {
+            //Untyped records
+            new Generator.Internal.UntypedRecord(publisher),
+            new Generator.Internal.UntypedRecordData(publisher),
+            new Generator.Internal.UntypedRecordHandle(publisher),
+            new Generator.Public.UntypedRecord(publisher),
+
             //Foreign typed records
             new Generator.Internal.ForeignTypedRecord(publisher),
             new Generator.Internal.ForeignTypedRecordHandle(publisher),

src/Generation/Generator/Renderer/Internal/Callback/CallbackAsyncHandler.cs

@@ -8,6 +8,11 @@ public static string Render(GirModel.Callback callback)
     {
         try
         {
+            if (callback.Name == "LogWriterFunc")
+            {
+
+            }
+
             var handlerName = Model.Callback.GetAsyncHandlerName(callback);
 
             return $@"

src/Generation/Generator/Renderer/Internal/Field/Converter/TypedRecordArray.cs

@@ -28,6 +28,6 @@ private static string GetNullableTypeName(GirModel.Field field)
     {
         var arrayType = field.AnyTypeOrCallback.AsT0.AsT1;
         var type = (GirModel.Record) arrayType.AnyType.AsT0;
-        return Model.Record.GetFullyQualifiedInternalStructName(type) + "[]";
+        return Model.TypedRecord.GetFullyQuallifiedDataName(type) + "[]";
     }
 }

src/Generation/Generator/Renderer/Internal/Field/Converter/UntypedRecord.cs

@@ -0,0 +1,28 @@
+using Generator.Model;
+
+namespace Generator.Renderer.Internal.Field;
+
+internal class UntypedRecord : FieldConverter
+{
+    public bool Supports(GirModel.Field field)
+    {
+        return field.AnyTypeOrCallback.TryPickT0(out var anyType, out _) && anyType.Is<GirModel.Record>(out var record) && Model.Record.IsUntyped(record);
+    }
+
+    public RenderableField Convert(GirModel.Field field)
+    {
+        return new RenderableField(
+            Name: Model.Field.GetName(field),
+            Attribute: null,
+            NullableTypeName: GetNullableTypeName(field)
+        );
+    }
+
+    private static string GetNullableTypeName(GirModel.Field field)
+    {
+        var type = (GirModel.Record) field.AnyTypeOrCallback.AsT0.AsT0;
+        return field.IsPointer
+            ? Type.Pointer
+            : Model.Record.GetFullyQualifiedInternalStructName(type);
+    }
+}

src/Generation/Generator/Renderer/Internal/Field/Converter/UntypedRecordArray.cs

@@ -0,0 +1,33 @@
+namespace Generator.Renderer.Internal.Field;
+
+internal class UntypedRecordArray : FieldConverter
+{
+    public bool Supports(GirModel.Field field)
+    {
+        return field.AnyTypeOrCallback.TryPickT0(out var anyType, out _) && anyType.IsArray<GirModel.Record>(out var record) && Model.Record.IsUntyped(record); ;
+    }
+
+    public RenderableField Convert(GirModel.Field field)
+    {
+        return new RenderableField(
+            Name: Model.Field.GetName(field),
+            Attribute: GetAttribute(field),
+            NullableTypeName: GetNullableTypeName(field)
+        );
+    }
+
+    private static string? GetAttribute(GirModel.Field field)
+    {
+        var arrayType = field.AnyTypeOrCallback.AsT0.AsT1;
+        return arrayType.FixedSize is not null
+            ? MarshalAs.UnmanagedByValArray(sizeConst: arrayType.FixedSize.Value)
+            : null;
+    }
+
+    private static string GetNullableTypeName(GirModel.Field field)
+    {
+        var arrayType = field.AnyTypeOrCallback.AsT0.AsT1;
+        var type = (GirModel.Record) arrayType.AnyType.AsT0;
+        return Model.UntypedRecord.GetFullyQuallifiedDataName(type) + "[]";
+    }
+}

src/Generation/Generator/Renderer/Internal/Field/Fields.cs

@@ -31,6 +31,8 @@ internal static class Fields
         new Field.TypedRecordArray(),
         new Field.Union(),
         new Field.UnionArray(),
+        new Field.UntypedRecord(),
+        new Field.UntypedRecordArray()
     };
 
     public static string Render(IEnumerable<GirModel.Field> fields)

src/Generation/Generator/Renderer/Internal/InstanceParameter/Converter/UntypedRecord.cs

@@ -0,0 +1,30 @@
+using System;
+
+namespace Generator.Renderer.Internal.InstanceParameter;
+
+internal class UntypedRecord : InstanceParameterConverter
+{
+    public bool Supports(GirModel.Type type)
+    {
+        return type is GirModel.Record r && Model.Record.IsUntyped(r);
+    }
+
+    public RenderableInstanceParameter Convert(GirModel.InstanceParameter instanceParameter)
+    {
+        return new RenderableInstanceParameter(
+            Name: Model.InstanceParameter.GetName(instanceParameter),
+            NullableTypeName: GetNullableTypeName(instanceParameter)
+        );
+    }
+
+    private static string GetNullableTypeName(GirModel.InstanceParameter instanceParameter)
+    {
+        var type = (GirModel.Record) instanceParameter.Type;
+        return instanceParameter switch
+        {
+            { Direction: GirModel.Direction.In, Transfer: GirModel.Transfer.None } => Model.UntypedRecord.GetFullyQuallifiedHandle(type),
+            { Direction: GirModel.Direction.In, Transfer: GirModel.Transfer.Full } => throw new Exception("Can't transfer ownership of untyped record"),
+            _ => throw new System.Exception($"Can't detect typed record instance parameter type {instanceParameter.Name}: CallerAllocates={instanceParameter.CallerAllocates} Direction={instanceParameter.Direction} Transfer={instanceParameter.Transfer}")
+        };
+    }
+}

src/Generation/Generator/Renderer/Internal/InstanceParameter/InstanceParameters.cs

@@ -15,7 +15,8 @@ internal static class InstanceParameters
         new InstanceParameter.Pointer(),
         new InstanceParameter.Record(),
         new InstanceParameter.TypedRecord(),
-        new InstanceParameter.Union()
+        new InstanceParameter.Union(),
+        new InstanceParameter.UntypedRecord()
     };
 
     public static string Render(GirModel.InstanceParameter instanceParameter)

src/Generation/Generator/Renderer/Internal/Parameter/CallbackParameters.cs

@@ -43,6 +43,8 @@ internal static class CallbackParameters
         new Parameter.Union(),
         new Parameter.UnionArray(),
         new Parameter.UnsignedPointer(),
+        new Parameter.UntypedRecordCallback(),
+        new Parameter.UntypedRecordCallbackArray(),
         new Parameter.Utf8StringArrayCallback(),
         new Parameter.Void(),
     };