/********************************************************************
 *																	*
 *	WinLIB PRO Revision II: ASCII Table								*
 *	by Ken Hollis													*
 *																	*
 *	Copyright (C) 1994, Bitgate Software							*
 *																	*
 ********************************************************************/

#include "winlib.h"

char ppp[1] = "";

TEDINFO ascii_tedinfo[] = {
  {" ASCII Table ", ppp, ppp, 3,   0,   2, 4513,   0,  -1,  14,   1},
  {" \x01\x02\x03\x04\x05\x06\x07\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2a\x2b\x2c\x2d\x2e\x2f\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3a\x3b\x3c\x3d\x3e\x3f", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4a\x4b\x4c\x4d\x4e\x4f\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5a\x5b\x5c\x5d\x5e\x5f", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6a\x6b\x6c\x6d\x6e\x6f\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7a\x7b\x7c\x7d\x7e\x7f", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xae\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {"\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  32,   1},
  {"\xe0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf9\xfa\xfb\xfc\xfd\xfe\xff", ppp, ppp, 3,   6,   0, 4480,   0,  -1,  33,   1},
  {" Editing type: Numerical ", ppp, ppp,  3,   6,   0, 4480,   0,  -1,  26,   1},
  {"C[ancel", ppp, ppp, 3,   0,   2, 4480,   0,  -2,   8,   1}
};

OBJECT ascii_object[] = {
  /* Tree #0*/
  {  -1,   1,   1,0x0014,0x0000,0x0000, (long)(0x00001173L),   0,   0, 549,1551},
  {   0,   2,  13,0x0014,FL3DACT,DRAW3D, (long)(0x00ff1100L), 256, 256,  37,1039},
  {   3,  -1,  -1,(FLYING << 8) + 0x0016,0x0040,0x0000, (long)(&ascii_tedinfo[0]),   0,   0,  37,   1},
  {  12,   4,  11,(BOXFRAME << 8) + 0x001A,FL3DACT|BOXFRAMETITLE,DRAW3D, (long)(" Table "),   1,   3,  35,1033},
  {   5,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[1]),1281,   1,  32,   1},
  {   6,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[2]),1281,   2,  32,   1},
  {   7,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[3]),1281,   3,  32,   1},
  {   8,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[4]),1281,   4,  32,   1},
  {   9,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[5]),1281,   5,  32,   1},
  {  10,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[6]),1281,   6,  32,   1},
  {  11,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[7]),1281,   7,  32,   1},
  {   3,  -1,  -1,0x0015,TOUCHEXIT,0x0000, (long)(&ascii_tedinfo[8]),1281,   8,  32,   1},
  {  13,  -1,  -1,0x0015,0x0000,DRAW3D, (long)(&ascii_tedinfo[9]),   6,1025,  25,   1},
  {   1,  -1,  -1,0x0016,(SELECTABLE|DEFAULT|EXIT|FL3DACT|LASTOB),DRAW3D, (long)(&ascii_tedinfo[10]),   8,1037,  21, 257}
};

#define ALINE1   4   /* TEXT in Tree ASCIITAB */
#define ALINE2   5   /* TEXT in Tree ASCIITAB */
#define ALINE3   6   /* TEXT in Tree ASCIITAB */
#define ALINE4   7   /* TEXT in Tree ASCIITAB */
#define ALINE5   8   /* TEXT in Tree ASCIITAB */
#define ALINE6   9   /* TEXT in Tree ASCIITAB */
#define ALINE7   10  /* TEXT in Tree ASCIITAB */
#define ALINE8   11  /* TEXT in Tree ASCIITAB */
#define ASCITYPE 12  /* TEXT in Tree ASCIITAB */
#define ASCICANC 13  /* BOXTEXT in Tree ASCIITAB */

OBJECT *asciitable = ascii_object;

GLOBAL void WInitAscii(void)
{
	RFix_ObjectPos(asciitable);
	fix_object(asciitable, TRUE);
}

LOCAL int WFindChar(int obj, int mx)
{
	int value,offx;

	offx = (mx - (asciitable->ob_x + asciitable[obj].ob_x)) / gr_cw;

	/* Remember significant digits; rounds up by two with hex... */
	value = (offx + (int)((obj - ALINE1) * 0x20)) - 1;

	return(value);
}

LOCAL void WAscii_TableSetup(int edittype)
{
	asciitable[ALINE1].ob_state = NORMAL;
	asciitable[ALINE2].ob_state = NORMAL;
	asciitable[ALINE3].ob_state = NORMAL;
	asciitable[ALINE4].ob_state = NORMAL;
	asciitable[ALINE5].ob_state = NORMAL;
	asciitable[ALINE6].ob_state = NORMAL;
	asciitable[ALINE7].ob_state = NORMAL;
	asciitable[ALINE8].ob_state = NORMAL;

	if ((edittype!=E_ANY) && (edittype!=E_SPECIAL)) {
		asciitable[ALINE1].ob_state |= DISABLED;
		asciitable[ALINE2].ob_state |= DISABLED;
		asciitable[ALINE3].ob_state |= DISABLED;
		asciitable[ALINE4].ob_state |= DISABLED;
		asciitable[ALINE5].ob_state |= DISABLED;
		asciitable[ALINE6].ob_state |= DISABLED;
		asciitable[ALINE7].ob_state |= DISABLED;
		asciitable[ALINE8].ob_state |= DISABLED;
	}

	if (edittype == E_SPECIAL) {
		asciitable[ALINE2].ob_state |= DISABLED;
		asciitable[ALINE3].ob_state |= DISABLED;
		asciitable[ALINE4].ob_state |= DISABLED;
	}

	switch(edittype) {
		case E_NUMERIC:
			ChangeObjectText(asciitable, ASCITYPE, "Numeric editing field", 3, TE_CNTR);
			asciitable[ALINE2].ob_state &= ~DISABLED;
			break;

		case E_UP_ASCII:
			ChangeObjectText(asciitable, ASCITYPE, "Uppercase ASCII chars", 3, TE_CNTR);
			asciitable[ALINE3].ob_state &= ~DISABLED;
			break;

		case E_LOW_ASCII:
			ChangeObjectText(asciitable, ASCITYPE, "Lowercase ASCII chars", 3, TE_CNTR);
			asciitable[ALINE3].ob_state &= ~DISABLED;
			asciitable[ALINE4].ob_state &= ~DISABLED;
			break;

		case E_UP_NUMERIC:
			ChangeObjectText(asciitable, ASCITYPE, "Uppercase alphanumeric", 3, TE_CNTR);
			asciitable[ALINE2].ob_state &= ~DISABLED;
			asciitable[ALINE3].ob_state &= ~DISABLED;
			break;

		case E_LOW_NUMERIC:
			ChangeObjectText(asciitable, ASCITYPE, "Alphanumeric characters", 3, TE_CNTR);
			asciitable[ALINE2].ob_state &= ~DISABLED;
			asciitable[ALINE3].ob_state &= ~DISABLED;
			asciitable[ALINE4].ob_state &= ~DISABLED;
			break;

		case E_UP_PATH:
			ChangeObjectText(asciitable, ASCITYPE, "Uppercase path chars", 3, TE_CNTR);
			asciitable[ALINE2].ob_state &= ~DISABLED;
			asciitable[ALINE3].ob_state &= ~DISABLED;
			break;

		case E_LOW_PATH:
			ChangeObjectText(asciitable, ASCITYPE, "Lowercase path chars", 3, TE_CNTR);
			asciitable[ALINE2].ob_state &= ~DISABLED;
			asciitable[ALINE3].ob_state &= ~DISABLED;
			asciitable[ALINE4].ob_state &= ~DISABLED;
			break;

		case E_ANY:
			ChangeObjectText(asciitable, ASCITYPE, "All characters allowed", 3, TE_CNTR);
			break;

		case E_SPECIAL:
			ChangeObjectText(asciitable, ASCITYPE, "All control characters", 3, TE_CNTR);
			break;
	}
}

GLOBAL int WAscii_Table(int edittype)
{
	int ex,currchar,mx,d;

	WAscii_TableSetup(edittype);
	showdialog(asciitable);
	ex = dodialog(VDIhandle, asciitable, FALSE, TRUE);
	switch(ex) {
		case ALINE1:
		case ALINE2:
		case ALINE3:
		case ALINE4:
		case ALINE5:
		case ALINE6:
		case ALINE7:
		case ALINE8:
			graf_mkstate(&mx,&d,&d,&d);
			currchar = WFindChar(ex, mx);
			break;

		case ASCICANC:
			currchar = 0;
			break;
	}
	enddialog(asciitable);

	return currchar;
}