View+JSON.c File Reference

#include <assert.h>
#include <stdlib.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.
static void	bindBool (const Inlet *inlet, ident obj)
	InletBinding for InletTypeBool.
static void	bindCharacters (const Inlet *inlet, ident obj)
	InletBinding for InletTypeCharacters.
static void	bindClassNames (const Inlet *inlet, ident obj)
	InletBinding for InletTypeClassNames.
static void	bindClassNames_enumerate (const Array *array, ident obj, ident data)
	ArrayEnumerator for bindClassNames.
static void	bindColor (const Inlet *inlet, ident obj)
	InletBinding for InletTypeColor.
static void	bindDouble (const Inlet *inlet, ident obj)
	InletBinding for InletTypeDouble.
static void	bindEnum (const Inlet *inlet, ident obj)
	InletBinding for InletTypeEnum.
static void	bindFloat (const Inlet *inlet, ident obj)
	InletBinding for InletTypeFloat.
static void	bindFont (const Inlet *inlet, ident obj)
	InletBinding for InletTypeFont.
static void	bindImage (const Inlet *inlet, ident obj)
	InletBinding for InletTypeImage.
bool	bindInlets (const Inlet *inlets, const Dictionary *dictionary)
	Binds each Inlet specified in inlets to the data provided in dictionary.
static void	bindInteger (const Inlet *inlet, ident obj)
	InletBinding for InletTypeInteger.
static void	bindPoint (const Inlet *inlet, ident obj)
	InletBinding for InletTypePoint.
static void	bindRectangle (const Inlet *inlet, ident obj)
	InletBinding for InletTypeRectangle.
static void	bindSize (const Inlet *inlet, ident obj)
	InletBinding for InletTypeSize.
static void	bindStyle (const Inlet *inlet, ident obj)
	InletBinding for InletTypeStyle.
static void	bindSubviews (const Inlet *inlet, ident obj)
	InletBinding for InletTypeSubviews.
static void	bindSubviews_enumerate (const Array *array, ident obj, ident data)
	ArrayEnumerator for bind subview recursion.
static void	bindView (const Inlet *inlet, ident obj)
	Binds the given View with the specified Dictionary.

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

Macro Definition Documentation

_Class

#define _Class   _View

Definition at line 27 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 297 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 32 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 39 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 60 of file View+JSON.c.

                                                          {
  $(cast(Array, obj), enumerate, 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 53 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 67 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 113 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 120 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 127 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 134 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 146 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 327 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 156 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 163 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 178 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 201 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 267 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 290 of file View+JSON.c.

                                                        {
  $(cast(Array, obj), enumerate, 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 274 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 216 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 307 of file View+JSON.c.

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