/*
 * entity.c
 *
 * entity structure, variables and functions ( "&xx;")
 *
 * Copyright (C) 1995,96  Thomas Aglassinger
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * 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 General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * updated: 13-Oct-1996
 * created:  8-Sep-1995
 *
 */

#define NOEXTERN_HSCLIB_ENTITY_H
#include "hsclib/inc_base.h"
#include "hsclib/entity.h"

/*
 *-------------------------------------
 * constructor/destructor
 *-------------------------------------
 */

/*
 * new_hscent
 *
 * alloc & init a new hscentity
 */
HSCENT *new_hscent(STRPTR newid)
{
    HSCENT *newent = (HSCENT *) umalloc(sizeof(HSCENT));

#if DEBUG_ENTITY
    fprintf(stderr, DHL "   new_enty %s\n", newid);
#endif

    if (newent)
    {
        /* init new entity item */
        newent->name = strclone(newid);         /* set id */
        newent->replace = NULL;
        newent->numeric = 0L;
    }

    return (newent);

}

/*
 * del_entity
 */
VOID del_entity(APTR data)
{
    HSCENT *ent = (HSCENT *) data;

#if DEBUG_ENTITY
    fprintf(stderr, DHL "   del_enty %s\n", ent->name);
#endif

    ufreestr(ent->name);
    ufreestr(ent->replace);
    ent->numeric = 0;
    ufree(ent);
}

/*
 * cpy_hscent
 *
 * create a copy of an already existing entity
 */
HSCENT *cpy_hscent(HSCENT * oldent)
{
    HSCENT *newent = new_hscent(oldent->name);

    if (newent)
    {
        newent->replace = strclone(oldent->replace);
        newent->numeric = oldent->numeric;
    }

    return (newent);
}

/*
 *---------------------------
 * find entity string
 *---------------------------
 */

/*
 * cmp_strent
 *
 * compares a entity-string with the name
 * of a HSCENT-entry
 */
int cmp_strent(APTR cmpstr, APTR entdata)
{
    STRPTR entstr = NULL;

    if (entdata)
        entstr = ((HSCENT *) entdata)->name;

    if (entstr)
        if (!strcmp(cmpstr, entstr))
            return (-1);
        else
            return (0);
    else
        return (0);
}

/*
 * cmp_nument
 *
 * compares a entity-string with the numeric
 * data of a HSCENT-entry
 */
int cmp_nument(APTR cmpstr, APTR entdata)
{
    LONG num = -1;
    LONG cmpnum = (LONG) cmpstr;

    if (entdata)
        num = ((HSCENT *) entdata)->numeric;

    return ((num != -1) && (num == cmpnum));
}

/*
 * cmp_rplcent
 *
 * compares a entity-string with the replace-item
 * of a HSCENT-entry
 */
int cmp_rplcent(APTR cmpstr, APTR entdata)
{
    STRPTR entstr = NULL;

    if (entdata)
        entstr = ((HSCENT *) entdata)->replace;

    if (entstr)
        if (!strcmp(cmpstr, entstr))
            return (-1);
        else
            return (0);
    else
        return (0);
}

/*
 *-------------------------------------
 * append entity functions
 *-------------------------------------
 */

/*
 * app_entnode
 *
 * create a new entity and append it to entity-list
 *
 * params: entid..name of the new entity (eg "uuml")
 * result: ptr to the new entity or NULL if no mem
 */
HSCENT *app_entnode(DLLIST * entlist, STRPTR entid)
{
    HSCENT *newent;

    newent = new_hscent(entid);
    if (newent)
    {
        if (app_dlnode(entlist, newent) == NULL)
        {
            del_entity((APTR) newent);
            newent = NULL;
        }
    }

    return (newent);
}

/*
 * add_ent
 */
BOOL add_ent(DLLIST * entlist, STRPTR entid, STRPTR entreplace, LONG num)
{
    HSCENT *newent = app_entnode(entlist, entid);

    if (entreplace)
        newent->replace = strclone(entreplace);

    newent->numeric = num;

#if 0
    DDE(
           {
           STRPTR rplc = entreplace;
           if (!rplc)
           rplc = "(empty)";
           fprintf(stderr, DHL "defent: \"%s\" \"%s\" %ld\n",
                   entid, rplc, num);
           }
    );
#endif

    return (TRUE);
}