/*
 *        selectn.cc
 *        Selection stuff
 *        AYM 1998-10-23
 */


/*
This file is part of Yadex.

Yadex incorporates code from DEU 5.21 that was put in the public domain in
1994 by Raphaël Quinet and Brendon Wyber.

The rest of Yadex is Copyright © 1997-2003 André Majorel and others.

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., 59 Temple
Place, Suite 330, Boston, MA 02111-1307, USA.
*/


#include "yadex.h"
#include "bitvec.h"
#include "objid.h"
#include "selectn.h"


/*
 *        IsSelected - test if an object is in a selection list
 *
 *        FIXME change the identifier
 *        FIXME slow
 */
bool IsSelected(SelPtr list, int objnum)
{
    SelPtr cur;

    for (cur = list; cur; cur = cur->next)
        if (cur->objnum == objnum)
            return true;
    return false;
}


/*
 *        DumpSelection -        list the contents of a selection
 *
 *        FIXME change the identifier
 */
void DumpSelection(SelPtr list)
{
    int n;
    SelPtr cur;

    printf("Selection:");
    for (n = 0, cur = list; cur; cur = cur->next, n++)
        printf(" %d", cur->objnum);
    printf("  (%d)\n", n);
}


/*
 *        SelectObject - add an object to a selection list
 *
 *        FIXME change the identifier
 */
void SelectObject(SelPtr * list, int objnum)
{
    SelPtr cur;

    if (!is_obj(objnum))
        fatal_error("BUG: SelectObject called with %d", objnum);
    cur = (SelPtr) GetMemory(sizeof(struct SelectionList));
    cur->next = *list;
    cur->objnum = objnum;
    *list = cur;
}


/*
 *        select_unselect_obj - add or remove an object from a selection list
 *
 *        If the object is not in the selection list, add it.  If
 *        it already is, remove it.
 */
void select_unselect_obj(SelPtr * list, int objnum)
{
    SelPtr cur;
    SelPtr prev;

    if (!is_obj(objnum))
        fatal_error("s/u_obj called with %d", objnum);
    for (prev = NULL, cur = *list; cur != NULL; prev = cur, cur = cur->next)
        // Already selected: unselect it.
        if (cur->objnum == objnum)
        {
            if (prev != NULL)
                prev->next = cur->next;
            else
                *list = cur->next;
            FreeMemory(cur);
            if (prev != NULL)
                cur = prev->next;
            else
                cur = (SelPtr) NULL;
            return;
        }

    // Not selected: select it.
    cur = (SelPtr) GetMemory(sizeof(struct SelectionList));
    cur->next = *list;
    cur->objnum = objnum;
    *list = cur;
}


/*
 *        UnSelectObject - remove an object from a selection list
 *
 *        FIXME change the identifier
 */
void UnSelectObject(SelPtr * list, int objnum)
{
    SelPtr cur, prev;

    if (!is_obj(objnum))
        fatal_error("BUG: UnSelectObject called with %d", objnum);
    prev = 0;
    cur = *list;
    while (cur)
    {
        if (cur->objnum == objnum)
        {
            if (prev)
                prev->next = cur->next;
            else
                *list = cur->next;
            FreeMemory(cur);
            if (prev)
                cur = prev->next;
            else
                cur = 0;
        }
        else
        {
            prev = cur;
            cur = cur->next;
        }
    }
}


/*
 *        ForgetSelection - clear a selection list
 *
 *        FIXME change the identifier
 */
void ForgetSelection(SelPtr * list)
{
    SelPtr cur, prev;

    cur = *list;
    while (cur)
    {
        prev = cur;
        cur = cur->next;
        FreeMemory(prev);
    }
    *list = 0;
}


/*
 *        list_to_bitvec - make a bit vector from a list
 *
 *        The bit vector has <bitvec_size> elements. It's up to
 *        the caller to delete the new bit vector after use.
 */
bitvec_c *list_to_bitvec(SelPtr list, size_t bitvec_size)
{
    SelPtr cur;
    bitvec_c *bitvec;

    bitvec = new bitvec_c(bitvec_size);
    for (cur = list; cur; cur = cur->next)
        bitvec->set(cur->objnum);
    return bitvec;
}


/*
 *        bitvec_to_list - make a list from a bitvec object
 *
 *        The items are inserted in the list from first to last
 *        (i.e. item N in the bitvec is inserted before item N+1).
 *        It's up to the caller to delete the new list after use.
 */
SelPtr bitvec_to_list(const bitvec_c & b)
{
    SelPtr list = 0;
    for (size_t n = 0; n < b.nelements(); n++)
        if (b.get(n))
            SelectObject(&list, n);
    return list;
}