Initial commit

1 files changed, 45 insertions, 0 deletions

diff --git a/vendor/x11iraf/obm/ObmW/DrawIString.c b/vendor/x11iraf/obm/ObmW/DrawIString.c
new file mode 100644
index 00000000..6f81404e
--- /dev/null
+++ b/vendor/x11iraf/obm/ObmW/DrawIString.c
@@ -0,0 +1,45 @@
+#include <X11/Intrinsic.h>
+#include <X11/StringDefs.h>
+#include "TabString.h"
+
+/*
+ *	Like DrawImageString, except it takes an additional  "tabs"
+ *	argument, used to specify what horizontal pixel position to
+ *	move to when tab characters are present in the string.  If
+ *	the "tabs" argument is NULL, works exactly like its
+ *	counterpart.
+ */
+void
+XfwfDrawImageString(display, drawable, gc, x, y, string, length, tabs)
+     Display *display;
+     Drawable drawable;
+     GC gc;
+     int x;
+     int y;
+     String string;
+     int length;
+     int *tabs;
+{
+	register char	*p, *ep;
+	register int	tx, tab;
+
+	tab = tx = 0;
+	for (p = string; length; )
+	{
+		ep = strnchr(p, '\t', length);
+		if (ep && tabs)
+		{
+			XDrawImageString(display, drawable, gc, x+tx, y,
+				p, ep - p);
+			tx = tabs[tab++];
+			length -= ep - p + 1;
+			p = ep + 1;
+		}
+		else
+		{
+			XDrawImageString(display, drawable, gc, x+tx, y,
+				p, length);
+			break;
+		}
+	}
+}