128 lines
2.5 KiB
C
128 lines
2.5 KiB
C
|
/*
|
||
|
|
* 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;
|
||
|
|
}
|