source/core/StarLuaConverters.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

#include "StarLuaConverters.hpp"
#include "StarColor.hpp"

namespace Star {

LuaValue LuaConverter<Color>::from(LuaEngine& engine, Color const& c) {
  if (c.alpha() == 255)
    return engine.createArrayTable(initializer_list<uint8_t>{c.red(), c.green(), c.blue()});
  else
    return engine.createArrayTable(initializer_list<uint8_t>{c.red(), c.green(), c.blue(), c.alpha()});
}

Maybe<Color> LuaConverter<Color>::to(LuaEngine& engine, LuaValue const& v) {
  if (auto t = v.ptr<LuaTable>()) {
    Color c = Color::rgba(0, 0, 0, 255);
    Maybe<int> r = engine.luaMaybeTo<int>(t->get(1));
    Maybe<int> g = engine.luaMaybeTo<int>(t->get(2));
    Maybe<int> b = engine.luaMaybeTo<int>(t->get(3));
    if (!r || !g || !b)
      return {};

    c.setRed(*r);
    c.setGreen(*g);
    c.setBlue(*b);

    if (Maybe<int> a = engine.luaMaybeTo<int>(t->get(4))) {
      if (!a)
        return {};
      c.setAlpha(*a);
    }

    return c;
  } else if (auto s = v.ptr<LuaString>()) {
    try {
      return Color(s->ptr());
    } catch (ColorException) {}
  }

  return {};
}

}