/**
 * Motif
 *
 * Copyright (c) 2025-2026 Tim Hentenaar
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2.1 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <X11/Xlib.h>
#include <X11/Intrinsic.h>

#include "XmI.h"
#include "RepTypeI.h"
#include "obsolete.h"

Atom XmInternAtom(Display *display, String name, Boolean only_if_exists)
{
	return XInternAtom(display, name, only_if_exists);
}

String XmGetAtomName(Display *display, Atom atom)
{
	return XGetAtomName(display, atom);
}

/************************************************************************
 *
 *  XmCvtStringToUnitType
 *	Convert a string to resolution independent unit type.
 *  This routine is obsolete, the converter is now available
 *  by default. We just call it here.
 *
 ************************************************************************/
void XmCvtStringToUnitType(XrmValuePtr args, Cardinal *num_args,
                           XrmValue *from_val, XrmValue *to_val)
{
	Display * dpy = _XmGetDefaultDisplay();

	(void)args;
	(void)num_args;
	/**
	 * we cannot call XmRUnitType directly, since it would loop
	 * if a program registers this function with to_type = XmRUnitType (which
	 * is very likely).
	 * So we use REAL_UNIT_TYPE_NAME, which has been registered with the
	 * same semantics as the original XmRUnitType in RepType.c
	 */
	XtConvertAndStore(XmGetXmDisplay(dpy), XmRString, from_val, REAL_UNIT_TYPE_NAME, to_val);
}

