49 lines
1.2 KiB
C++
49 lines
1.2 KiB
C++
#include <QGuiApplication>
|
|
#include <QQmlApplicationEngine>
|
|
#include <iostream>
|
|
#include <string>
|
|
|
|
#include <caml/mlvalues.h>
|
|
#include <caml/callback.h>
|
|
|
|
void load_caml(char *argv[])
|
|
{
|
|
caml_main(argv);
|
|
}
|
|
|
|
void print_closure(const std::string &closure_name) {
|
|
value * closure_f = caml_named_value(closure_name.c_str());
|
|
if (closure_f == nullptr) {
|
|
std::cerr << "ERROR: Unreachable closure " << closure_name << "\n";
|
|
return;
|
|
}
|
|
|
|
const char *str = String_val(caml_callback(*closure_f, Val_unit));
|
|
std::cout << closure_name << ": " << str << "\n";
|
|
}
|
|
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
QCoreApplication::setAttribute(Qt::AA_EnableHighDpiScaling);
|
|
QGuiApplication app(argc, argv);
|
|
|
|
QQmlApplicationEngine engine;
|
|
const QUrl url(QStringLiteral("qrc:/main.qml"));
|
|
QObject::connect(&engine, &QQmlApplicationEngine::objectCreated,
|
|
&app, [url](QObject *obj, const QUrl &objUrl) {
|
|
if (!obj && url == objUrl)
|
|
QCoreApplication::exit(-1);
|
|
}, Qt::QueuedConnection);
|
|
engine.load(url);
|
|
|
|
load_caml(argv);
|
|
|
|
std::cout << "test std::cout" << "\n";
|
|
std::cerr << "test std::cerr" << "\n";
|
|
print_closure("name");
|
|
print_closure("version");
|
|
|
|
return app.exec();
|
|
}
|