/*

 * Copyright 1992, 1993 by TOSHIBA Corp.

 *

 * Permission to use, copy, modify, and distribute this software and its

 * documentation for any purpose and without fee is hereby granted, provided

 * that the above copyright notice appear in all copies and that both that

 * copyright notice and this permission notice appear in supporting

 * documentation, and that the name of TOSHIBA not be used in advertising

 * or publicity pertaining to distribution of the software without specific,

 * written prior permission. TOSHIBA make no representations about the

 * suitability of this software for any purpose.  It is provided "as is"

 * without express or implied warranty.

 *

 * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

 * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

 * SOFTWARE.

 *

 * Author: Katsuhisa Yano	TOSHIBA Corp.

 *			   	mopi@osa.ilab.toshiba.co.jp

 */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include "Xlibint.h"

#include "Xlcint.h"

XOC

XCreateOC(XOM om, ...)

{

    va_list var;

    XlcArgList args;

    XOC oc;

    int num_args;

    va_start(var, om);

    _XlcCountVaList(var, &num_args);

    va_end(var);

    va_start(var, om);

    _XlcVaToArgList(var, num_args, &args);

    va_end(var);

    if (args == (XlcArgList) NULL)

	return (XOC) NULL;

    oc = (*om->methods->create_oc)(om, args, num_args);

    Xfree(args);

    if (oc) {

	oc->core.next = om->core.oc_list;

	om->core.oc_list = oc;

    }

    return oc;

}

void

XDestroyOC(XOC oc)

{

    XOC prev, oc_list;

    prev = oc_list = oc->core.om->core.oc_list;

    if (oc_list == oc)

	oc->core.om->core.oc_list = oc_list->core.next;

    else {

	while ((oc_list = oc_list->core.next)) {

	    if (oc_list == oc) {

		prev->core.next = oc_list->core.next;

		break;

	    }

	    prev = oc_list;

	}

    }

    (*oc->methods->destroy)(oc);

}

XOM

XOMOfOC(XOC oc)

{

    return oc->core.om;

}

char *

XSetOCValues(XOC oc, ...)

{

    va_list var;

    XlcArgList args;

    char *ret;

    int num_args;

    va_start(var, oc);

    _XlcCountVaList(var, &num_args);

    va_end(var);

    va_start(var, oc);

    _XlcVaToArgList(var, num_args, &args);

    va_end(var);

    if (args == (XlcArgList) NULL)

	return (char *) NULL;

    ret = (*oc->methods->set_values)(oc, args, num_args);

    Xfree(args);

    return ret;

}

char *

XGetOCValues(XOC oc, ...)

{

    va_list var;

    XlcArgList args;

    char *ret;

    int num_args;

    va_start(var, oc);

    _XlcCountVaList(var, &num_args);

    va_end(var);

    va_start(var, oc);

    _XlcVaToArgList(var, num_args, &args);

    va_end(var);

    if (args == (XlcArgList) NULL)

	return (char *) NULL;

    ret = (*oc->methods->get_values)(oc, args, num_args);

    Xfree(args);

    return ret;

}