Qt Battles

.envrc

@@ -1,2 +1 @@
-use guix chicken chicken-r7rs chicken-coops chicken-coops-utils chicken-foreigners chicken-utf8 chicken-srfi-69 chicken-list-comprehensions
-use guix qtbase qtdeclarative
+use guix chicken chicken-r7rs chicken-coops chicken-coops-utils chicken-foreigners chicken-utf8 chicken-srfi-69 chicken-list-comprehensions qtbase qtdeclarative

qml.egg

@@ -10,4 +10,8 @@
   foreigners
   utf8
   srfi-69
-  list-comprehensions))
+  list-comprehensions)
+ (extension qml.meta
+            (csc-options "-X" "r7rs" "-R" "r7rs" "-sJ"
+                         "-c++" "-I$C_INCLUDE_PATH"
+                         "-L" "-lQt6Core")))

qml.meta-impl.scm

@@ -1 +1,10 @@
 ;; -*- geiser-scheme-implementation: chicken -*-
+
+(foreign-declare "#include <QtCore/private/qmetaobjectbuilder_p.h>")
+
+(define-class <QMetaStringTable> ()
+  (this))
+
+(define make-QMetaStringTable
+  (foreign-lambda (instance "QMetaStringTable" <QMetaStringTable>)
+      "new QMetaStringTable" c-string))

qml.meta.scm

@@ -9,4 +9,6 @@
   (import (chicken memory))
   (import foreigners)
   (import coops coops-primitive-objects coops-extras coops-utils)
-  (include-relative "qml.meta-impl.scm"))
+  (export <QMetaStringTable>)
+  (begin
+    (include-relative "qml.meta-impl.scm")))