Blame src/FToCback.c

Packit Service 2b1f13
/*
Packit Service 2b1f13
Packit Service 2b1f13
Copyright 1988,1998  The Open Group
Packit Service 2b1f13
Packit Service 2b1f13
Permission to use, copy, modify, distribute, and sell this software and its
Packit Service 2b1f13
documentation for any purpose is hereby granted without fee, provided that
Packit Service 2b1f13
the above copyright notice appear in all copies and that both that
Packit Service 2b1f13
copyright notice and this permission notice appear in supporting
Packit Service 2b1f13
documentation.
Packit Service 2b1f13
Packit Service 2b1f13
The above copyright notice and this permission notice shall be included in
Packit Service 2b1f13
all copies or substantial portions of the Software.
Packit Service 2b1f13
Packit Service 2b1f13
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
Packit Service 2b1f13
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
Packit Service 2b1f13
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
Packit Service 2b1f13
OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
Packit Service 2b1f13
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
Packit Service 2b1f13
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Packit Service 2b1f13
Packit Service 2b1f13
Except as contained in this notice, the name of The Open Group shall not be
Packit Service 2b1f13
used in advertising or otherwise to promote the sale, use or other dealings
Packit Service 2b1f13
in this Software without prior written authorization from The Open Group.
Packit Service 2b1f13
Packit Service 2b1f13
*/
Packit Service 2b1f13
Packit Service 2b1f13
#ifdef HAVE_CONFIG_H
Packit Service 2b1f13
#include <config.h>
Packit Service 2b1f13
#endif
Packit Service 2b1f13
#include	<X11/Intrinsic.h>
Packit Service 2b1f13
#include <X11/Xmu/Converters.h>
Packit Service 2b1f13
Packit Service 2b1f13
/* ARGSUSED */
Packit Service 2b1f13
void
Packit Service 2b1f13
XmuCvtFunctionToCallback(XrmValue *args, Cardinal *num_args,
Packit Service 2b1f13
			 XrmValuePtr fromVal, XrmValuePtr toVal)
Packit Service 2b1f13
{
Packit Service 2b1f13
    static XtCallbackRec callback[2]; /* K&R: initialized to NULL */
Packit Service 2b1f13
    static XtCallbackList callback_list = callback;
Packit Service 2b1f13
Packit Service 2b1f13
    callback[0].callback = *(XtCallbackProc *)fromVal->addr;
Packit Service 2b1f13
Packit Service 2b1f13
    toVal->size = sizeof(XtCallbackList);
Packit Service 2b1f13
    toVal->addr = (XPointer)&callback_list;
Packit Service 2b1f13
}