/* -*- Mode: C; indent-tabs-mode:nil; c-basic-offset: 8-*- */

/*
 * This file is part of The Croco Library
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2.1 of the GNU Lesser General Public
 * License as published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 *
 * Author: Dodji Seketeli
 * See COPYRIGHTS file for copyright information.
 */

#include "cr-pseudo.h"

/**
 *@CRPseudo:
 *The definition of the #CRPseudo class.
 */

/**
 * cr_pseudo_new:
 *Constructor of the #CRPseudo class.
 *
 *Returns the newly build instance.
 */
CRPseudo *
cr_pseudo_new (void)
{
        CRPseudo *result = NULL;

        result = g_malloc0 (sizeof (CRPseudo));

        return result;
}

/**
 * cr_pseudo_to_string:
 * @a_this: the current instance of #CRPseud.
 *
 * Returns the serialized pseudo. Caller must free the returned
 * string using g_free().
 */
guchar *
cr_pseudo_to_string (CRPseudo const * a_this)
{
        guchar *result = NULL;
        GString *str_buf = NULL;

        g_return_val_if_fail (a_this, NULL);

        str_buf = g_string_new (NULL);

        if (a_this->type == IDENT_PSEUDO) {
                gchar const *name = NULL;

                if (a_this->name == NULL) {
                        goto error;
                }

                name = a_this->name->stryng->str;

                if (name) {
                        g_string_append (str_buf, (const gchar *) name);
                        name = NULL;
                }
        } else if (a_this->type == FUNCTION_PSEUDO) {
                gchar const *name = NULL,
                        *arg = NULL;

                if (a_this->name == NULL)
                        goto error;

                name = a_this->name->stryng->str;

                if (a_this->term && a_this->term->type == TERM_IDENT) {
                        arg = a_this->term->content.str->stryng->str;
                }

                if (name) {
                        g_string_append_printf (str_buf, "%s(", name);
                        name = NULL;

                        if (arg) {
                                g_string_append (str_buf, (const gchar *) arg);
                                arg = NULL;
                        }

                        g_string_append_c (str_buf, ')');
                }
        }

        if (str_buf) {
                result = (guchar *) str_buf->str;
                g_string_free (str_buf, FALSE);
                str_buf = NULL;
        }

        return result;

      error:
        g_string_free (str_buf, TRUE);
        return NULL;
}

/**
 * cr_pseudo_dump:
 *@a_this: the current instance of pseudo
 *@a_fp: the destination file pointer.
 *
 *Dumps the pseudo to a file.
 *
 */
void
cr_pseudo_dump (CRPseudo const * a_this, FILE * a_fp)
{
        guchar *tmp_str = NULL;

        if (a_this) {
                tmp_str = cr_pseudo_to_string (a_this);
                if (tmp_str) {
                        fprintf (a_fp, "%s", tmp_str);
                        g_free (tmp_str);
                        tmp_str = NULL;
                }
        }
}

/**
 * cr_pseudo_destroy:
 *@a_this: the current instance to destroy.
 *
 *destructor of the #CRPseudo class.
 */
void
cr_pseudo_destroy (CRPseudo * a_this)
{
        g_return_if_fail (a_this);

        if (a_this->name) {
                cr_string_destroy (a_this->name);
                a_this->name = NULL;
        }

        if (a_this->sel_name) {
                cr_string_destroy (a_this->sel_name);
                a_this->sel_name = NULL;
        }

        if (a_this->term) {
                cr_term_destroy (a_this->term);
                a_this->term = NULL;
        }

        g_free (a_this);
}
