pebblisp/src/pebbleobject.c

137 lines
4.7 KiB
C

#include "pebbleobject.h"
#include "calc.h"
#include "object.h"
Object pebbleOther(enum PebbleType type, void* data, void (* cleanup)(Object*),
Object (* clone)(struct Other*))
{
struct Object o = otherObject();
struct PebbleObject* po = malloc(sizeof(struct PebbleObject));
o.other->data = po;
o.other->cleanup = cleanup;
o.other->clone = clone;
po->type = type;
po->ptr = data;
return o;
}
enum PebbleType getPebbleType(const Object o1)
{
if (o1.type == TYPE_OTHER) {
struct PebbleObject* po = o1.other->data;
enum PebbleType t = po->type;
return t;
}
return P_ERROR;
}
struct PebbleObject* accessPebbleObject(Object obj)
{
if (getPebbleType(obj) != P_ERROR) {
return obj.other->data;
}
return NULL;
}
void custom_window_load(Window* window)
{
}
void custom_window_unload(Window* window)
{
window_destroy(window);
}
Object createWindow(Object o1, Object o2, struct Environment* env)
{
Window* window = window_create();
WindowHandlers wh = {.load = custom_window_load,
.unload = custom_window_unload};
window_set_window_handlers(window, wh);
return pebbleOther(WINDOW, window, NULL, NULL);
}
Object deleteWindow(Object window, Object o2, struct Environment* env)
{
/* Maintain a list of layers to delete? */
if (getPebbleType(window) == WINDOW) {
window_stack_remove(accessPebbleObject(window)->window, true);
return boolObject(1);
}
return boolObject(0);
}
Object pushWindow(Object window, Object o2, struct Environment* env)
{
if (getPebbleType(window) == WINDOW) {
window_stack_push(accessPebbleObject(window)->window, true);
return boolObject(1);
}
return boolObject(0);
}
Object updateTextLayer(Object textLayer, Object text, struct Environment* env)
{
if (getPebbleType(textLayer) == TEXT_LAYER) {
struct PebbleObject* po = accessPebbleObject(textLayer);
stringObj(po->textLayer->text, &text);
text_layer_set_text(po->textLayer->layer, po->textLayer->text);
return boolObject(1);
}
return boolObject(0);
}
Object addTextLayer(Object window, Object text, struct Environment* env)
{
if (getPebbleType(window) != WINDOW) {
return errorObject(0);
}
Layer* window_layer =
window_get_root_layer(accessPebbleObject(window)->window);
GRect bounds = layer_get_bounds(window_layer);
struct PLTextLayer* textLayer = malloc(sizeof(struct PLTextLayer));
textLayer->text = calloc(sizeof(char), 100);
textLayer->layer = text_layer_create(bounds);
stringObj(textLayer->text, &text);
text_layer_set_text(textLayer->layer, textLayer->text);
text_layer_set_font(textLayer->layer,
fonts_get_system_font(FONT_KEY_BITHAM_42_BOLD));
layer_add_child(window_layer, text_layer_get_layer(textLayer->layer));
return pebbleOther(TEXT_LAYER, textLayer, NULL, NULL);
}
Object subscription;
struct Environment* subscriptionEnv;
static void subscriptionHandler(struct tm* tick_time, TimeUnits changed)
{
eval(&subscription, subscriptionEnv);
}
Object subscribe(Object function, Object time, struct Environment* env)
{
if (function.type == TYPE_LAMBDA) {
subscription = cloneObject(function);
subscriptionEnv = env;
int unit = time.type != TYPE_NUMBER ? MINUTE_UNIT
: time.number == 1 ? SECOND_UNIT
: time.number == 2 ? MINUTE_UNIT
: time.number == 3 ? HOUR_UNIT
: time.number == 4
? DAY_UNIT
: time.number ==
5 ? MONTH_UNIT
:
time.number ==
6 ? YEAR_UNIT
: MINUTE_UNIT;
tick_timer_service_subscribe(unit, subscriptionHandler);
return boolObject(1);
}
return boolObject(0);
}