View+JSON.c File Reference

#include <assert.h>
#include <string.h>
#include <Objectively.h>
#include <ObjectivelyMVC.h>

Go to the source code of this file.

Macros
#define	_Class   _View
#define	ScaleColor(c)   (c > 0.0 && c < 1.0 ? c * 255 : c)

Functions
static void	bindApplicationDefined (const Inlet *inlet, ident obj)
	InletBinding for InletTypeApplicationDefined. More...
static void	bindBool (const Inlet *inlet, ident obj)
	InletBinding for InletTypeBool. More...
static void	bindCharacters (const Inlet *inlet, ident obj)
	InletBinding for InletTypeCharacters. More...
static void	bindClassNames (const Inlet *inlet, ident obj)
	InletBinding for InletTypeClassNames. More...
static void	bindClassNames_enumerate (const Array *array, ident obj, ident data)
	ArrayEnumerator for bindClassNames. More...
static void	bindColor (const Inlet *inlet, ident obj)
	InletBinding for InletTypeColor. More...
static void	bindDouble (const Inlet *inlet, ident obj)
	InletBinding for InletTypeDouble. More...
static void	bindEnum (const Inlet *inlet, ident obj)
	InletBinding for InletTypeEnum. More...
static void	bindFloat (const Inlet *inlet, ident obj)
	InletBinding for InletTypeFloat. More...
static void	bindFont (const Inlet *inlet, ident obj)
	InletBinding for InletTypeFont. More...
static void	bindImage (const Inlet *inlet, ident obj)
	InletBinding for InletTypeImage. More...
_Bool	bindInlets (const Inlet *inlets, const Dictionary *dictionary)
	Binds each Inlet specified in inlets to the data provided in dictionary. More...
static void	bindInteger (const Inlet *inlet, ident obj)
	InletBinding for InletTypeInteger. More...
static void	bindPoint (const Inlet *inlet, ident obj)
	InletBinding for InletTypePoint. More...
static void	bindRectangle (const Inlet *inlet, ident obj)
	InletBinding for InletTypeRectangle. More...
static void	bindSize (const Inlet *inlet, ident obj)
	InletBinding for InletTypeSize. More...
static void	bindStyle (const Inlet *inlet, ident obj)
	InletBinding for InletTypeStyle. More...
static void	bindSubviews (const Inlet *inlet, ident obj)
	InletBinding for InletTypeSubviews. More...
static void	bindSubviews_enumerate (const Array *array, ident obj, ident data)
	ArrayEnumerator for bind subview recursion. More...
static void	bindView (const Inlet *inlet, ident obj)
	Binds the given View with the specified Dictionary. More...

Variables
const InletBinding	inletBindings []
	The array of InletBinding functions, indexed by InletType. More...

Macro Definition Documentation

_Class

#define _Class   _View

Definition at line 26 of file View+JSON.c.

ScaleColor

#define ScaleColor

(

c

)

(c > 0.0 && c < 1.0 ? c * 255 : c)

Function Documentation

bindApplicationDefined()

static void bindApplicationDefined ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeApplicationDefined.

Definition at line 296 of file View+JSON.c.

                                                                  {
 
    assert(inlet->data);
 
    ((InletBinding) inlet->data)(inlet, obj);
}

bindBool()

static void bindBool ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeBool.

Definition at line 31 of file View+JSON.c.

                                                    {
    *((_Bool *) inlet->dest) = cast(Boole, obj)->value;
}

bindCharacters()

static void bindCharacters ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeCharacters.

Definition at line 38 of file View+JSON.c.

                                                          {
 
    char **dest = inlet->dest;
 
    if (*dest) {
        free(*dest);
    }
 
    *dest = strdup(cast(String, obj)->chars);
}

bindClassNames()

static void bindClassNames ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeClassNames.

Definition at line 59 of file View+JSON.c.

                                                          {
    $(cast(Array, obj), enumerateObjects, bindClassNames_enumerate, *(View **) inlet->dest);
}

bindClassNames_enumerate()

static void bindClassNames_enumerate ( const Array *  array, ident  obj, ident  data  )

static

ArrayEnumerator for bindClassNames.

Definition at line 52 of file View+JSON.c.

                                                                                {
    $((View *) data, addClassName, cast(String, obj)->chars);
}

bindColor()

static void bindColor ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeColor.

Definition at line 66 of file View+JSON.c.

                                                     {
 
    SDL_Color color = Colors.Black;
 
    if ($((Object *) obj, isKindOfClass, _String())) {
 
        String *string = cast(String, obj);
        if (string->length) {
 
            if (strcmp("none", string->chars) == 0) {
                return;
            }
 
            if (string->chars[0] == '#') {
                color = MVC_HexToRGBA(string->chars + 1);
            } else {
                color = MVC_ColorForName(string->chars);
            }
        }
 
    } else {
        const Array *array = cast(Array, obj);
 
        assert(array->count == 4);
 
        const Number *r = $(array, objectAtIndex, 0);
        const Number *g = $(array, objectAtIndex, 1);
        const Number *b = $(array, objectAtIndex, 2);
        const Number *a = $(array, objectAtIndex, 3);
 
        #define ScaleColor(c) (c > 0.0 && c < 1.0 ? c * 255 : c)
 
        color = MakeColor(
            ScaleColor(r->value),
            ScaleColor(g->value),
            ScaleColor(b->value),
            ScaleColor(a->value)
        );
    }
 
    *((SDL_Color *) inlet->dest) = color;
}

bindDouble()

static void bindDouble ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeDouble.

Definition at line 112 of file View+JSON.c.

                                                      {
    *((double *) inlet->dest) = cast(Number, obj)->value;
}

bindEnum()

static void bindEnum ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeEnum.

Definition at line 119 of file View+JSON.c.

                                                    {
    *((int *) inlet->dest) = valueof(inlet->data, cast(String, obj)->chars);
}

bindFloat()

static void bindFloat ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeFloat.

Definition at line 126 of file View+JSON.c.

                                                     {
    *((float *) inlet->dest) = cast(Number, obj)->value;
}

bindFont()

static void bindFont ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeFont.

Definition at line 133 of file View+JSON.c.

                                                    {
 
    release(*(Font **) inlet->dest);
 
    // TODO
 
    //*((Font **) inlet->dest) = $(alloc(Font), initWithName, cast(String, obj)->chars);
}

bindImage()

static void bindImage ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeImage.

Definition at line 145 of file View+JSON.c.

                                                     {
 
    release(*(Image **) inlet->dest);
 
    *((Image **) inlet->dest) = $(alloc(Image), initWithResourceName, cast(String, obj)->chars);
}

bindInlets()

_Bool bindInlets	(	const Inlet *	inlets,
		const Dictionary *	dictionary
	)

Binds each Inlet specified in inlets to the data provided in dictionary.

Parameters

inlets	The Inlets to bind.
dictionary	The Dictionary from which to bind.

Returns

True if one or more Inlets were bound, false otherwise.

Definition at line 326 of file View+JSON.c.

                                                                    {
 
    assert(inlets);
    assert(dictionary);
 
    _Bool didBindInlets = false;
 
    for (const Inlet *inlet = inlets; inlet->name; inlet++) {
        const ident obj = $(dictionary, objectForKeyPath, inlet->name);
        if (obj) {
            BindInlet(inlet, obj);
            didBindInlets = true;
        }
    }
 
    return didBindInlets;
}

bindInteger()

static void bindInteger ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeInteger.

Definition at line 155 of file View+JSON.c.

                                                       {
    *((int *) inlet->dest) = cast(Number, obj)->value;
}

bindPoint()

static void bindPoint ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypePoint.

Definition at line 162 of file View+JSON.c.

                                                     {
 
    const Array *array = cast(Array, obj);
 
    assert(array->count == 2);
 
    const Number *x = $(array, objectAtIndex, 0);
    const Number *y = $(array, objectAtIndex, 1);
 
    *((SDL_Point *) inlet->dest) = MakePoint(x->value, y->value);
}

bindRectangle()

static void bindRectangle ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeRectangle.

Definition at line 177 of file View+JSON.c.

                                                         {
 
    if ($((Object *) obj, isKindOfClass, _Number())) {
        const Number *n = obj;
 
        *((SDL_Rect *) inlet->dest) = MakeRect(n->value, n->value, n->value, n->value);
    } else {
        const Array *array = cast(Array, obj);
 
        assert(array->count == 4);
 
        const Number *x = $(array, objectAtIndex, 0);
        const Number *y = $(array, objectAtIndex, 1);
        const Number *w = $(array, objectAtIndex, 2);
        const Number *h = $(array, objectAtIndex, 3);
 
        *((SDL_Rect *) inlet->dest) = MakeRect(x->value, y->value, w->value, h->value);
    }
}

bindSize()

static void bindSize ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeSize.

Definition at line 200 of file View+JSON.c.

                                                    {
 
    const Array *array = cast(Array, obj);
 
    assert(array->count == 2);
 
    const Number *w = $(array, objectAtIndex, 0);
    const Number *h = $(array, objectAtIndex, 1);
 
    *((SDL_Size *) inlet->dest) = MakeSize(w->value, h->value);
}

bindStyle()

static void bindStyle ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeStyle.

Definition at line 266 of file View+JSON.c.

                                                     {
    $(cast(View, *((View **) inlet->dest))->style, addAttributes, cast(Dictionary, obj));
}

bindSubviews()

static void bindSubviews ( const Inlet *  inlet, ident  obj  )

static

InletBinding for InletTypeSubviews.

Definition at line 289 of file View+JSON.c.

                                                        {
    $(cast(Array, obj), enumerateObjects, bindSubviews_enumerate, *(View **) inlet->dest);
}

bindSubviews_enumerate()

static void bindSubviews_enumerate ( const Array *  array, ident  obj, ident  data  )

static

ArrayEnumerator for bind subview recursion.

Definition at line 273 of file View+JSON.c.

                                                                              {
 
    View *subview = NULL;
 
    const Inlet inlet = MakeInlet(NULL, InletTypeView, &subview, NULL);
 
    bindView(&inlet, obj);
 
    $(cast(View, data), addSubview, subview);
 
    release(subview);
}

bindView()

static void bindView ( const Inlet *  inlet, ident  obj  )

static

Binds the given View with the specified Dictionary.

Definition at line 215 of file View+JSON.c.

                                                    {
 
    View *dest = *(View **) inlet->dest;
 
    const Dictionary *dictionary = cast(Dictionary, obj);
 
    const String *className = $(dictionary, objectForKeyPath, "class");
    if (className || dest == NULL) {
 
        Class *clazz = className ? classForName(className->chars) : _View();
        assert(clazz);
 
        const Class *c = clazz;
        while (c) {
            if (c == _View()) {
                break;
            }
            c = c->def.superclass;
        }
        assert(c);
 
        if (clazz != _View()) {
            if (interfaceof(View, clazz)->init == interfaceof(View, clazz->def.superclass)->init) {
                MVC_LogWarn("%s does not implement View::init\n", clazz->def.name);
            }
        }
 
        View *view = $((View *) _alloc(clazz), init);
        assert(view);
 
        $(view, awakeWithDictionary, dictionary);
 
        if (dest) {
            if (dest->superview) {
                $(dest->superview, replaceSubview, dest, view);
            }
            release(dest);
        }
 
        *(View **) inlet->dest = view;
 
    } else if (dest) {
        $(dest, awakeWithDictionary, dictionary);
    } else {
        MVC_LogWarn("Inlet %s has NULL destination and no className specified\n", inlet->name);
    }
}

Variable Documentation

inletBindings

const InletBinding inletBindings[]

Initial value:

= {
    bindBool,
    bindCharacters,
    bindClassNames,
    bindColor,
    bindDouble,
    bindEnum,
    bindFloat,
    bindFont,
    bindImage,
    bindInteger,
    bindPoint,
    bindRectangle,
    bindSize,
    bindStyle,
    bindSubviews,
    bindView,
    bindApplicationDefined,
}

The array of InletBinding functions, indexed by InletType.

Definition at line 306 of file View+JSON.c.