// 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
// 

#ifndef LISTWRAPPER_H
#define LISTWRAPPER_H

#include <stk.h>
#include <LINK/stkWrapper/stkWrapper.h>
#include <LINK/basic/List.h>

/*** the following static members are set by code generated by the user */
/*** with the GENLISTWRAPPER(className, stkElementType) macro	*/

template <class T> class ListWrapper {
public:
	static void markTypedList(SCM p);
	static void freeTypedList(SCM p);
	static void displayTypedList(SCM c, SCM port, int mode);
	static PRIMITIVE makeLinkList();
	static PRIMITIVE nullpLinkList(SCM x);
	static PRIMITIVE linkListP(SCM l);
	static PRIMITIVE buildLinkList(SCM l);
	static PRIMITIVE lengthLinkList(SCM l);
	static PRIMITIVE linkList2STkList(SCM l);
	static PRIMITIVE stkList2LinkList(SCM l);
	static PRIMITIVE eqvLinkList(SCM l1, SCM l2);
	static PRIMITIVE lthLinkList(SCM l1, SCM l2);
	static PRIMITIVE leLinkList(SCM l1, SCM l2);
	static PRIMITIVE grLinkList(SCM l1, SCM l2);
	static PRIMITIVE geLinkList(SCM l1, SCM l2);

	/*
	static PRIMITIVE consLinkList(SCM e, SCM l);
	static PRIMITIVE carLinkList(SCM l);
	static PRIMITIVE cdrLinkList(SCM l);
	static PRIMITIVE tailLinkList(SCM l, SCM k);
	static PRIMITIVE refLinkList(SCM l, SCM k);
	static PRIMITIVE setCarLinkList(SCM l, SCM value);
	static PRIMITIVE setCdrLinkList(SCM l, SCM l2);
	static PRIMITIVE appendLinkList(SCM l, int len);
	static PRIMITIVE memqLinkList(SCM obj, SCM list);
	static PRIMITIVE memvLinkList(SCM obj, SCM list);
	static PRIMITIVE memberLinkList(SCM obj, SCM list);
	*/
	//static PRIMITIVE equalLinkList(SCM l1, SCM l2); -never used
private:
	//static SCM  LINK_newListNode();
	static int  LINK_llength(SCM x);
	static SCM  LINK_lmember(SCM obj, SCM list,SCM (*predicate)(SCM,SCM));
	static PRIMITIVE LINK_append2(SCM l1, SCM l2);
        static PRIMITIVE newWrappedElement(const T&, int);
        static PRIMITIVE newWrappedList(const List<T>&, int);
};


#ifdef DEFINE_TEMPLATE
#include <LINK/stkWrapper/ListWrapper.cc>
#endif

#endif