/*
 * gettbin.c
 *
 * By Ross Ridge
 * Public Domain
 * 92/02/01 07:29:59
 *
 * Get a terminfo binary entry
 *
 */

#include "defs.h"
#include <term.h>

#ifdef USE_SCCS_IDS
static const char SCCSid[] = "@(#) mytinfo gettbin.c 3.2 92/02/01 public domain, By Ross Ridge";
#endif

extern int _boolorder[], _numorder[], _strorder[];

#ifdef TRUE_BYTE_ORDERING
/* 8 bit char, 16 bit short, lsb first, twos complement */
#define convshort(s) (*(short *)(s))

#else

#ifdef TWOS_COPLEMENT
/* 8 bit char, 16 bit short, lsb last, twos complement */
#define convshort(s) ((short)(((s[0] & 0377) << 8) | (s[1] & 0377)))

#else

/* anything else... */

static short
convshort(s)
char *s; {
	register int a,b;

	a = (int) s[0] & 0377;
	b = (int) s[1] & 0377;

	if (a == 0377 && b == 0377)
		return -1;
	if (a == 0376 && b == 0377)
		return -2;

	return a + b * 256;
}
#endif
#endif

int
_gettbin(buf, cur)
char *buf;
TERMINAL *cur; {
	register char *s;
	int i;
	int sz_names, sz_bools, sz_nums, sz_offs, sz_strs;
	int n_bools, n_nums, n_strs;
	char *strtbl;

	buf[MAX_BUF-1] = '\0';
	s = buf;

	if (convshort(s) != 0432)
		return 1;
	sz_names = convshort(s + 2);
	sz_bools = convshort(s + 4);
	n_nums = convshort(s + 6);
	n_strs = convshort(s + 8);
	sz_strs = convshort(s + 10);

	n_bools = sz_bools;
	sz_nums = n_nums * 2;
	sz_offs = n_strs * 2;

	if ((sz_names + sz_bools) & 1)
		sz_bools++;

	if (12 + sz_names + sz_bools + sz_nums + sz_offs + sz_strs >= MAX_BUF)
		return 1;

	s += 12;
	if ((cur->name_all = _addstr(s)) == NULL)
		return 1;
	s += sz_names;
	while(--s >= buf + 12) {
		if (*s == '|') {
			if ((cur->name_long = _addstr(s + 1)) == NULL)
				return 1;
			break;
		}
	}

	s = buf + 12 + sz_names;
	for(i = 0; i < n_bools && _boolorder[i] != -1; i++, s++) {
		if (cur->bools[_boolorder[i]] == -1 && *s == 1)
			cur->bools[_boolorder[i]] = 1;
	}

	s = buf + 12 + sz_names + sz_bools;
	for(i = 0; i < n_nums && _numorder[i] != -1; i++, s += 2) {
		if (convshort(s) == -2)
			cur->nums[_numorder[i]] = -1;
		else if (cur->nums[_numorder[i]] == -2 && convshort(s) != -1)
			cur->nums[_numorder[i]] = convshort(s);
	}

	s = buf + 12 + sz_names + sz_bools + sz_nums;
	strtbl = s + sz_offs;
	for(i = 0; i < n_strs && _strorder[i] != -1; i++, s += 2) {
		if (convshort(s) == -2)
			cur->strs[_strorder[i]] = NULL;
		else if (cur->strs[_strorder[i]] == (char *) -1
			 && convshort(s) != -1) {
#ifdef DEBUG
			printf("$%s ", strnames[_strorder[i]]);
#endif
			if ((cur->strs[_strorder[i]]
			     = _addstr(strtbl + convshort(s))) == NULL)
				return 1;
		}
	}

	return 0;
}