pebblisp/src/pebbleobject.c

127 lines
3.8 KiB
C
Raw Normal View History

#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);
}