fabs/oboy
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add .clang-format

Browse source
This commit is contained in:
Fabien Freling 2019-07-16 13:31:07 +02:00
parent 90526946e6
commit 20041deef5
6 changed files with 158 additions and 143 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/qt/.clang-format Normal file
View file

@ -0,0 +1,6 @@
---
BasedOnStyle: Mozilla
IndentWidth: 4
TabWidth: 4
ColumnLimit: 100
UseTab: ForIndentation

25
src/qt/main.cpp
View file

@ -8,21 +8,22 @@
#include <caml/callback.h>
int main(int argc, char *argv[])
int
main(int argc, char* argv[])
{
QCoreApplication::setApplicationName("OBoy");
QCoreApplication::setOrganizationName("ffreling");
QCoreApplication::setOrganizationDomain("ffreling.com");
QCoreApplication::setAttribute(Qt::AA_EnableHighDpiScaling);
QGuiApplication app(argc, argv);
QCoreApplication::setApplicationName("OBoy");
QCoreApplication::setOrganizationName("ffreling");
QCoreApplication::setOrganizationDomain("ffreling.com");
QCoreApplication::setAttribute(Qt::AA_EnableHighDpiScaling);
QGuiApplication app(argc, argv);
caml_main(argv);
caml_main(argv);
qmlRegisterType<OBoy>("com.oboy.oboy", 1, 0, "OBoy");
qmlRegisterType<OBoy>("com.oboy.oboy", 1, 0, "OBoy");
QQmlApplicationEngine engine;
engine.addImageProvider(QLatin1String("oboy"), new OImageProvider(engine));
engine.load(QUrl(QStringLiteral("qrc:/main.qml")));
QQmlApplicationEngine engine;
engine.addImageProvider(QLatin1String("oboy"), new OImageProvider(engine));
engine.load(QUrl(QStringLiteral("qrc:/main.qml")));
return app.exec();
return app.exec();
}

197
src/qt/oboy.cpp
View file

@ -4,126 +4,135 @@
#include <QUrl>
#include <QtGlobal>
#include <caml/mlvalues.h>
#include <caml/callback.h>
#include <caml/alloc.h>
#include <caml/bigarray.h>
#include <caml/callback.h>
#include <caml/memory.h>
#include <caml/misc.h>
#include <caml/mlvalues.h>
#include <caml/osdeps.h>
OBoy::OBoy(QObject *parent) : QObject(parent)
OBoy::OBoy(QObject* parent)
: QObject(parent)
{
const QStringList args = QCoreApplication::arguments();
if (args.size() > 1) {
const QUrl path = QUrl::fromLocalFile(args.at(1));
load(path);
}
const QStringList args = QCoreApplication::arguments();
if (args.size() > 1) {
const QUrl path = QUrl::fromLocalFile(args.at(1));
load(path);
}
}
value *fetch_caml_callback(const char *name) {
value * closure_f = caml_named_value(name);
if (closure_f == nullptr) {
qFatal("Cannot find OCaml function: %s", name);
}
return closure_f;
value*
fetch_caml_callback(const char* name)
{
value* closure_f = caml_named_value(name);
if (closure_f == nullptr) {
qFatal("Cannot find OCaml function: %s", name);
}
return closure_f;
}
// https://caml.inria.fr/pub/docs/manual-ocaml/intfc.html
// http://www.mega-nerd.com/erikd/Blog/CodeHacking/Ocaml/calling_ocaml.html
QString OBoy::name() const
QString
OBoy::name() const
{
CAMLparam0();
CAMLparam0();
static value * closure_f = fetch_caml_callback("oboy_name");
if (closure_f == nullptr) {
CAMLdrop;
return QString("<Unreachable>");
}
static value* closure_f = fetch_caml_callback("oboy_name");
if (closure_f == nullptr) {
CAMLdrop;
return QString("<Unreachable>");
}
const char *str = String_val(caml_callback(*closure_f, Val_unit));
CAMLdrop;
return QString(str);
const char* str = String_val(caml_callback(*closure_f, Val_unit));
CAMLdrop;
return QString(str);
}
QString OBoy::version() const
QString
OBoy::version() const
{
CAMLparam0();
CAMLparam0();
static value * closure_f = fetch_caml_callback("oboy_version");
if (closure_f == nullptr) {
CAMLdrop;
return QString("<Unreachable>");
}
static value* closure_f = fetch_caml_callback("oboy_version");
if (closure_f == nullptr) {
CAMLdrop;
return QString("<Unreachable>");
}
const char *str = String_val(caml_callback(*closure_f, Val_unit));
CAMLdrop;
return QString(str);
const char* str = String_val(caml_callback(*closure_f, Val_unit));
CAMLdrop;
return QString(str);
}
bool OBoy::load(const QUrl &path) {
CAMLparam0();
CAMLlocal1(ocaml_path) ;
static value * closure_f = fetch_caml_callback("oboy_load");
if (closure_f == nullptr) {
CAMLdrop;
return false;
}
const QString local_path = path.toLocalFile();
const QByteArray ba = local_path.toLocal8Bit();
ocaml_path = caml_copy_string_of_os(ba.data());
_loaded = Bool_val(caml_callback(*closure_f, ocaml_path));
this->loadedChanged(_loaded);
CAMLdrop;
return _loaded;
}
bool OBoy::loaded() const
bool
OBoy::load(const QUrl& path)
{
return _loaded;
CAMLparam0();
CAMLlocal1(ocaml_path);
static value* closure_f = fetch_caml_callback("oboy_load");
if (closure_f == nullptr) {
CAMLdrop;
return false;
}
const QString local_path = path.toLocalFile();
const QByteArray ba = local_path.toLocal8Bit();
ocaml_path = caml_copy_string_of_os(ba.data());
_loaded = Bool_val(caml_callback(*closure_f, ocaml_path));
this->loadedChanged(_loaded);
CAMLdrop;
return _loaded;
}
QImage OBoy::backgroundMap(int index) const
bool
OBoy::loaded() const
{
CAMLparam0();
CAMLlocal1(ocaml_index);
ocaml_index = index;
static value * closure_f = fetch_caml_callback("oboy_bg_map");
if (closure_f == nullptr) {
CAMLdrop;
return QImage(0, 0, QImage::Format_Indexed8);
}
const auto bg_array = Caml_ba_array_val(caml_callback(*closure_f, Val_int(ocaml_index)));
const auto bg_raw_data = static_cast<caml_ba_uint8 *>(bg_array->data);
Q_ASSERT(bg_array->num_dims == 2);
Q_ASSERT(bg_array->flags & CAML_BA_UINT8);
const int width = bg_array->dim[0];
const int height = bg_array->dim[1];
QImage img(width, height, QImage::Format_Indexed8);
QVector<QRgb> green_palette = {
qRgb(15, 56, 15),
qRgb(48, 98, 48),
qRgb(139, 172, 15),
qRgb(155, 188, 15),
};
img.setColorTable(green_palette);
for (int y = 0; y < height; ++y) {
for (int x = 0; x < width; ++x) {
img.setPixel(x, y, bg_raw_data[y * width + x] % 4);
}
}
CAMLdrop;
return img;
return _loaded;
}
QImage
OBoy::backgroundMap(int index) const
{
CAMLparam0();
CAMLlocal1(ocaml_index);
ocaml_index = index;
static value* closure_f = fetch_caml_callback("oboy_bg_map");
if (closure_f == nullptr) {
CAMLdrop;
return QImage(0, 0, QImage::Format_Indexed8);
}
const auto bg_array = Caml_ba_array_val(caml_callback(*closure_f, Val_int(ocaml_index)));
const auto bg_raw_data = static_cast<caml_ba_uint8*>(bg_array->data);
Q_ASSERT(bg_array->num_dims == 2);
Q_ASSERT(bg_array->flags & CAML_BA_UINT8);
const int width = bg_array->dim[0];
const int height = bg_array->dim[1];
QImage img(width, height, QImage::Format_Indexed8);
QVector<QRgb> green_palette = {
qRgb(15, 56, 15),
qRgb(48, 98, 48),
qRgb(139, 172, 15),
qRgb(155, 188, 15),
};
img.setColorTable(green_palette);
for (int y = 0; y < height; ++y) {
for (int x = 0; x < width; ++x) {
img.setPixel(x, y, bg_raw_data[y * width + x] % 4);
}
}
CAMLdrop;
return img;
}

32
src/qt/oboy.h
View file

@ -1,27 +1,27 @@
#pragma once
#include <QObject>
#include <QImage>
#include <QObject>
#include <QString>
class OBoy : public QObject
{
Q_OBJECT
Q_PROPERTY(QString name READ name CONSTANT)
Q_PROPERTY(QString version READ version CONSTANT)
Q_PROPERTY(bool loaded READ loaded NOTIFY loadedChanged)
public:
explicit OBoy(QObject *parent = nullptr);
Q_OBJECT
Q_PROPERTY(QString name READ name CONSTANT)
Q_PROPERTY(QString version READ version CONSTANT)
Q_PROPERTY(bool loaded READ loaded NOTIFY loadedChanged)
public:
explicit OBoy(QObject* parent = nullptr);
QString name() const;
QString version() const;
bool loaded() const;
Q_INVOKABLE bool load(const QUrl &path);
QImage backgroundMap(int index) const;
QString name() const;
QString version() const;
bool loaded() const;
Q_INVOKABLE bool load(const QUrl& path);
QImage backgroundMap(int index) const;
signals:
void loadedChanged(bool loaded);
signals:
void loadedChanged(bool loaded);
private:
bool _loaded = false;
private:
bool _loaded = false;
};

31
src/qt/oimageprovider.cpp
View file

@ -1,22 +1,21 @@
#include "oimageprovider.h"
#include "oboy.h"
OImageProvider::OImageProvider(QQmlApplicationEngine &engine)
: QQuickImageProvider(QQuickImageProvider::Image)
, _engine(engine)
OImageProvider::OImageProvider(QQmlApplicationEngine& engine)
: QQuickImageProvider(QQuickImageProvider::Image)
, _engine(engine)
{}
QImage
OImageProvider::requestImage(const QString& id, QSize* size, const QSize& requestedSize)
{
QList<QObject*> roots = _engine.rootObjects();
OBoy* oboy = roots[0]->findChild<OBoy*>("qml_oboy");
if (!oboy) {
qFatal("Cannot find oboy instance.");
}
Q_ASSERT(oboy->loaded());
}
QImage OImageProvider::requestImage(const QString &id, QSize *size, const QSize &requestedSize)
{
QList<QObject*> roots = _engine.rootObjects();
OBoy *oboy = roots[0]->findChild<OBoy*>("qml_oboy");
if (!oboy) {
qFatal("Cannot find oboy instance.");
}
Q_ASSERT(oboy->loaded());
QImage img = oboy->backgroundMap(0);
return img;
QImage img = oboy->backgroundMap(0);
return img;
}

10
src/qt/oimageprovider.h
View file

@ -5,10 +5,10 @@
class OImageProvider : public QQuickImageProvider
{
public:
OImageProvider(QQmlApplicationEngine &engine);
QImage requestImage(const QString &id, QSize *size, const QSize &requestedSize) override;
public:
OImageProvider(QQmlApplicationEngine& engine);
QImage requestImage(const QString& id, QSize* size, const QSize& requestedSize) override;
private:
QQmlApplicationEngine &_engine;
private:
QQmlApplicationEngine& _engine;
};