#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#define __SP_GLYPH_C__

/*
 * SVG <glyph> element implementation
 *
 * Author:
 *   Felipe C. da S. Sanches <juca@members.fsf.org>
 *   Abhishek Sharma
 *
 * Copyright (C) 2008, Felipe C. da S. Sanches
 *
 * Released under GNU GPL, read the file 'COPYING' for more information
 */

#include "xml/repr.h"
#include "attributes.h"
#include "sp-glyph.h"
#include "document.h"
#include <cstring>

G_DEFINE_TYPE(SPGlyph, sp_glyph, SP_TYPE_OBJECT);

static void sp_glyph_class_init(SPGlyphClass *gc)
{
}

CGlyph::CGlyph(SPGlyph* glyph) : CObject(glyph) {
	this->spglyph = glyph;
}

CGlyph::~CGlyph() {
}

static void sp_glyph_init(SPGlyph *glyph)
{
	glyph->cglyph = new CGlyph(glyph);
	glyph->typeHierarchy.insert(typeid(SPGlyph));

	delete glyph->cobject;
	glyph->cobject = glyph->cglyph;

//TODO: correct these values:

    new (&glyph->unicode) Glib::ustring();
    new (&glyph->glyph_name) Glib::ustring();
    glyph->d = NULL;
    glyph->orientation = GLYPH_ORIENTATION_BOTH;
    glyph->arabic_form = GLYPH_ARABIC_FORM_INITIAL;
    glyph->lang = NULL;
    glyph->horiz_adv_x = 0;
    glyph->vert_origin_x = 0;
    glyph->vert_origin_y = 0;
    glyph->vert_adv_y = 0;
}

void CGlyph::build(SPDocument *document, Inkscape::XML::Node *repr) {
	CObject::build(document, repr);

	SPGlyph* object = this->spglyph;

	object->readAttr( "unicode" );
	object->readAttr( "glyph-name" );
	object->readAttr( "d" );
	object->readAttr( "orientation" );
	object->readAttr( "arabic-form" );
	object->readAttr( "lang" );
	object->readAttr( "horiz-adv-x" );
	object->readAttr( "vert-origin-x" );
	object->readAttr( "vert-origin-y" );
	object->readAttr( "vert-adv-y" );
}

void CGlyph::release() {
	CObject::release();
}

static glyphArabicForm sp_glyph_read_arabic_form(gchar const *value){
    if (!value) return GLYPH_ARABIC_FORM_INITIAL; //TODO: verify which is the default default (for me, the spec is not clear)
    switch(value[0]){
        case 'i':
            if (strncmp(value, "initial", 7) == 0) return GLYPH_ARABIC_FORM_INITIAL;
            if (strncmp(value, "isolated", 8) == 0) return GLYPH_ARABIC_FORM_ISOLATED;
            break;
        case 'm':
            if (strncmp(value, "medial", 6) == 0) return GLYPH_ARABIC_FORM_MEDIAL;
            break;
        case 't':
            if (strncmp(value, "terminal", 8) == 0) return GLYPH_ARABIC_FORM_TERMINAL;
            break;
    }
    return GLYPH_ARABIC_FORM_INITIAL; //TODO: VERIFY DEFAULT!
}

static glyphOrientation sp_glyph_read_orientation(gchar const *value){
    if (!value) return GLYPH_ORIENTATION_BOTH;
    switch(value[0]){
        case 'h':
            return GLYPH_ORIENTATION_HORIZONTAL;
            break;
        case 'v':
            return GLYPH_ORIENTATION_VERTICAL;
            break;
    }
//ERROR? TODO: VERIFY PROPER ERROR HANDLING
    return GLYPH_ORIENTATION_BOTH;
}

void CGlyph::set(unsigned int key, const gchar *value) {
	SPGlyph* object = this->spglyph;

    SPGlyph *glyph = SP_GLYPH(object);

    switch (key) {
        case SP_ATTR_UNICODE:
        {
            glyph->unicode.clear();
            if (value) glyph->unicode.append(value);
            object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            break;
        }
        case SP_ATTR_GLYPH_NAME:
        {
            glyph->glyph_name.clear();
            if (value) glyph->glyph_name.append(value);
            object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            break;
        }
        case SP_ATTR_D:
        {
            if (glyph->d) g_free(glyph->d);
            glyph->d = g_strdup(value);
            object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            break;
        }
        case SP_ATTR_ORIENTATION:
        {
            glyphOrientation orient = sp_glyph_read_orientation(value);
            if (glyph->orientation != orient){
                glyph->orientation = orient;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        case SP_ATTR_ARABIC_FORM:
        {
            glyphArabicForm form = sp_glyph_read_arabic_form(value);
            if (glyph->arabic_form != form){
                glyph->arabic_form = form;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        case SP_ATTR_LANG:
        {
            if (glyph->lang) g_free(glyph->lang);
            glyph->lang = g_strdup(value);
            object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            break;
        }
        case SP_ATTR_HORIZ_ADV_X:
        {
            double number = value ? g_ascii_strtod(value, 0) : 0;
            if (number != glyph->horiz_adv_x){
                glyph->horiz_adv_x = number;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        case SP_ATTR_VERT_ORIGIN_X:
        {
            double number = value ? g_ascii_strtod(value, 0) : 0;
            if (number != glyph->vert_origin_x){
                glyph->vert_origin_x = number;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        case SP_ATTR_VERT_ORIGIN_Y:
        {
            double number = value ? g_ascii_strtod(value, 0) : 0;
            if (number != glyph->vert_origin_y){
                glyph->vert_origin_y = number;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        case SP_ATTR_VERT_ADV_Y:
        {
            double number = value ? g_ascii_strtod(value, 0) : 0;
            if (number != glyph->vert_adv_y){
                glyph->vert_adv_y = number;
                object->requestModified(SP_OBJECT_MODIFIED_FLAG);
            }
            break;
        }
        default:
        {
        	CObject::set(key, value);
            break;
        }
    }
}

/**
 *  * Receives update notifications.
 *   */
void CGlyph::update(SPCtx *ctx, guint flags) {
	SPGlyph* object = this->spglyph;

    SPGlyph *glyph = SP_GLYPH(object);
    (void)glyph;

    if (flags & SP_OBJECT_MODIFIED_FLAG) {
        /* do something to trigger redisplay, updates? */
            object->readAttr( "unicode" );
            object->readAttr( "glyph-name" );
            object->readAttr( "d" );
            object->readAttr( "orientation" );
            object->readAttr( "arabic-form" );
            object->readAttr( "lang" );
            object->readAttr( "horiz-adv-x" );
            object->readAttr( "vert-origin-x" );
            object->readAttr( "vert-origin-y" );
            object->readAttr( "vert-adv-y" );
    }

    CObject::update(ctx, flags);
}

#define COPY_ATTR(rd,rs,key) (rd)->setAttribute((key), rs->attribute(key));

Inkscape::XML::Node* CGlyph::write(Inkscape::XML::Document *xml_doc, Inkscape::XML::Node *repr, guint flags) {
	SPGlyph* object = this->spglyph;

	//    SPGlyph *glyph = SP_GLYPH(object);

	    if ((flags & SP_OBJECT_WRITE_BUILD) && !repr) {
	        repr = xml_doc->createElement("svg:glyph");
	    }

	/* I am commenting out this part because I am not certain how does it work. I will have to study it later. Juca
	    repr->setAttribute("unicode", glyph->unicode);
	    repr->setAttribute("glyph-name", glyph->glyph_name);
	    repr->setAttribute("d", glyph->d);
	    sp_repr_set_svg_double(repr, "orientation", (double) glyph->orientation);
	    sp_repr_set_svg_double(repr, "arabic-form", (double) glyph->arabic_form);
	    repr->setAttribute("lang", glyph->lang);
	    sp_repr_set_svg_double(repr, "horiz-adv-x", glyph->horiz_adv_x);
	    sp_repr_set_svg_double(repr, "vert-origin-x", glyph->vert_origin_x);
	    sp_repr_set_svg_double(repr, "vert-origin-y", glyph->vert_origin_y);
	    sp_repr_set_svg_double(repr, "vert-adv-y", glyph->vert_adv_y);
	*/
	    if (repr != object->getRepr()) {
	        // All the COPY_ATTR functions below use
	        //   XML Tree directly while they shouldn't.
	        COPY_ATTR(repr, object->getRepr(), "unicode");
	        COPY_ATTR(repr, object->getRepr(), "glyph-name");
	        COPY_ATTR(repr, object->getRepr(), "d");
	        COPY_ATTR(repr, object->getRepr(), "orientation");
	        COPY_ATTR(repr, object->getRepr(), "arabic-form");
	        COPY_ATTR(repr, object->getRepr(), "lang");
	        COPY_ATTR(repr, object->getRepr(), "horiz-adv-x");
	        COPY_ATTR(repr, object->getRepr(), "vert-origin-x");
	        COPY_ATTR(repr, object->getRepr(), "vert-origin-y");
	        COPY_ATTR(repr, object->getRepr(), "vert-adv-y");
	    }

	    CObject::write(xml_doc, repr, flags);

	    return repr;
}
/*
  Local Variables:
  mode:c++
  c-file-style:"stroustrup"
  c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
  indent-tabs-mode:nil
  fill-column:99
  End:
*/
// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4 :