// Copyright (C) 1996 DIMACS Center, Rutgers, The State University of New Jersey
// Author(s): Jonathan Berry

// This software is copyrighted by the DIMACS Center at Rutgers, The State
// University of New Jersey.  IT IS PROVIDED AS IS, AND THE AUTHORS, DIMACS, AND
// RUTGERS, THE STATE UNIVERSITY OF NEW JERSEY  DISCLAIM
// ALL LIABILITY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL
// DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
// DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

// THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
// INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
// IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
// NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
// MODIFICATIONS.

// The authors hereby grant permission to use, copy, modify, distribute,
// and license this software and its documentation for any purpose, provided
// that existing copyright notices are retained in all copies and that this
// notice is included verbatim in any distributions. No written agreement,
// license, or royalty fee is required for any of the authorized uses.
// Modifications to this software may be copyrighted by their authors
// and need not follow the licensing terms described here, provided that
// the new terms are clearly indicated on the first page of each file where
// they apply.

// Last File Update: 31-Jul-1996
// 

#include <iostream.h>

template <class T> 
void Register<T>::createEntry(const int type, char *name, const T* t)
{
	Tcl_HashEntry *p;
	int not_found;
	SCM objptr;

        objptr=STk_make_CXXwrapper(type, name,(void*)t,LINK_DYNAMIC);

        p = Tcl_CreateHashEntry(&objTable, (char*) t, &not_found);
	if (!not_found)
		Err("LINK: internal error:  duplicate Register::newEntry", NIL);
        Tcl_SetHashValue(p, (ClientData) objptr);
}

template <class T> 
void Register<T>::markEntry(const T* t)
{
        Tcl_HashEntry *entry = Tcl_FindHashEntry(&objTable, (char*)t);
        if (entry) {
                SCM n = (SCM) Tcl_GetHashValue(entry);
                STk_gc_mark(n);
        }
}

template <class T> 
void Register<T>::deleteEntry(const T* t)
{
	Tcl_HashEntry *entry;
	entry = Tcl_FindHashEntry(&objTable, (char*)t);
	if (entry) {
		Tcl_DeleteHashEntry(entry);
	}
}