// 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 <LINK/basic/Set.h>
#include <LINK/stkWrapper/Wrapper.h>
#include <LINK/stkWrapper/stkWrapper.h>
#include <LINK/userobj/Testobj.h>

static Set<Testobj*>* globalSet;

//**************************************************************************
Collection<Testobj*>* getStaticCollection()
{
	Collection<Testobj*>* cp;
	Testobj *na5 = new Testobj(5); Testobj *na4 = new Testobj(4);
	Testobj *na3 = new Testobj(3); Testobj *na2 = new Testobj(2);
	Testobj *na1 = new Testobj(1);
	if (!globalSet)
		globalSet = new Set<Testobj*>();
	globalSet->insert(na1); globalSet->insert(na2); 
	globalSet->insert(na5);globalSet->insert(na4);globalSet->insert(na3);
	return (cp = globalSet);
}

Set<Testobj*>& getStaticSet()
{
	Testobj *na5 = new Testobj(5); Testobj *na4 = new Testobj(4);
	Testobj *na3 = new Testobj(3); Testobj *na2 = new Testobj(2);
	Testobj *na1 = new Testobj(1);
	if (!globalSet)
		globalSet = new Set<Testobj*>();
	globalSet->insert(na1); globalSet->insert(na2); 
	globalSet->insert(na5);globalSet->insert(na4);globalSet->insert(na3);
	return *globalSet;
}

void deleteGlobalSet()
{
	delete globalSet;
	globalSet = 0;
}

Set<Testobj*> getDynamicSet(int i)//note-difference in receiver of ret. val.
{
	Testobj *na = new Testobj(i);
	if (!globalSet)
		globalSet = new Set<Testobj*>();
	globalSet->insert(na);
	return *globalSet;
}

//**************************************************************************
static PRIMITIVE getStaticCollectionWrapper()
{
	Collection<Testobj*>* cp = getStaticCollection();
	return STk_make_CXXwrapper(Wrapper<Collection<Testobj*> >::type, 
				   Wrapper<Collection<Testobj*> >::name,
				   (void *) cp, LINK_STATIC);
}
static PRIMITIVE getStaticSetWrapper()
{
	Set<Testobj*>& l = getStaticSet();
	return STk_make_CXXwrapper(Wrapper<Set<Testobj*> >::type, 
				   Wrapper<Set<Testobj*> >::name,
				   (void *) &l, LINK_STATIC);
}

static PRIMITIVE getDynamicSetWrapper(SCM n)
{
	int i = INTEGER(n);
	Set<Testobj*> l = getDynamicSet(i);
	Set<Testobj*>* lp = new Set<Testobj*>(l);	// assumes copy constructor
	return STk_make_CXXwrapper(Wrapper<Set<Testobj*> >::type, 
				   Wrapper<Set<Testobj*> >::name,
				   (void *) lp, LINK_DYNAMIC);
}

//**************************************************************************

PRIMITIVE STk_init_collection_get_routines(void)
{
	STk_add_new_cpp_primitive("get-static-collection", tc_subr_0,
				(PRIMITIVE (*)(...))getStaticCollectionWrapper);
	STk_add_new_cpp_primitive("get-static-set", tc_subr_0,
				(PRIMITIVE (*)(...))getStaticSetWrapper);
	STk_add_new_cpp_primitive("get-dynamic-set", tc_subr_1,
				(PRIMITIVE (*)(...))getDynamicSetWrapper);
	return UNDEFINED;
}