From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- vendor/x11iraf/obm/ObmW/cvtLong.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 vendor/x11iraf/obm/ObmW/cvtLong.c (limited to 'vendor/x11iraf/obm/ObmW/cvtLong.c') diff --git a/vendor/x11iraf/obm/ObmW/cvtLong.c b/vendor/x11iraf/obm/ObmW/cvtLong.c new file mode 100644 index 00000000..710b22af --- /dev/null +++ b/vendor/x11iraf/obm/ObmW/cvtLong.c @@ -0,0 +1,34 @@ +/* + A converter from string to long is defined in the Xmu library, but + the opposite direction is not. Here it is. + + Bert Bos + 13 Aug 1993 +*/ + +#include +#include +#include "Converters.h" +#include "done.h" + + +Boolean XfwfCvtLongToString(display, args, num_args, from, to, converter_data) + Display *display; + XrmValuePtr args; + Cardinal *num_args; + XrmValuePtr from; + XrmValuePtr to; + XtPointer *converter_data; +{ + char s[30]; + + if (*num_args != 0) + XtAppErrorMsg(XtDisplayToApplicationContext(display), + "cvtLongToString", "wrongParameters", + "XtToolkitError", + "long to String conversion needs no arguments", + (String*) NULL, (Cardinal*) NULL); + sprintf(s, "%ld", *((long*) from->addr)); + done(String, s); +} + -- cgit