/* SQLSYS_G.C  -  26.10.1990

	system dependend initialization function for the SQLSVR class
	(called from SqlSvr constructor)

	GUPTA SQLBase server

*/

#include <sql.h>
#include "sqlusr.h"
#include "sqlsys.h"

extern char* malloc(unsigned int);


void init_sys_data()
{

/*
	misc system globals
*/

	SS_MAXCURSORS = 10;     /* house number... */
	SS_DEFINSZ    = 0L;     /* defaults will be assigned */
	SS_DEFOUTSZ   = 0L;     /* by the GUPTA - db server  */
	SS_DEFCURSZ   = 0L;


	CB_MAX_PTYPES = 19;     /* SQLPDTM + 1 for 0 - based array      */
	CB_MAX_SYSTYPES = 21;   /* SQLPDTM + 2                          */
	CB_MAX_ERRCOUNT = 27;   /* currently defined cb errors          */
	CB_MAX_ERRTXTLEN = SQLMERR; /* max error text length            */
	CB_MAX_COLNAMELEN = 50; /* according to GUPTA manual            */

/*
	global arrays
*/

	perrors = (short* )malloc(100); /* > CB_MAX_ERRCOUNT * sizeof(short) */
	pdlen = (short* )malloc(100);   /* > CB_MAX_SYSTYPES * sizeof(short) */
	pdtype = (int* )malloc(200);    /* > CB_MAX_SYSTYPES * sizeof(int)   */

/*
	length lookup table
*/
	pdlen[CB_PBUFFER] = 0;
	pdlen[CB_PSTR]    = 0;
	pdlen[CB_PUCHAR]  = sizeof(unsigned char);
	pdlen[CB_PCHAR]   = sizeof(char);
	pdlen[CB_PUSHORT] = sizeof(unsigned short);
	pdlen[CB_PSHORT]  = sizeof(short);
	pdlen[CB_PUINT]   = sizeof(unsigned int);
	pdlen[CB_PINT]    = sizeof(int);
	pdlen[CB_PULONG]  = sizeof(unsigned long);
	pdlen[CB_PLONG]   = sizeof(long);
	pdlen[CB_PFLOAT]  = sizeof(float);
	pdlen[CB_PDOUBLE] = sizeof(double);

	pdlen[CB_PLSTRING] = 0;
	pdlen[CB_PLSTREAM] = 0;
	pdlen[CB_PRECNO] = 0;
/*
	data type table
*/
	pdtype[CB_PBUFFER] = SQLPBUF;
	pdtype[CB_PSTR]    = SQLPSTR;
	pdtype[CB_PUCHAR]  = SQLPUCH;
	pdtype[CB_PCHAR]   = SQLPSCH;
	pdtype[CB_PUSHORT] = SQLPUIN;
	pdtype[CB_PSHORT]  = SQLPSIN;
	pdtype[CB_PUINT]   = SQLPUIN;
	pdtype[CB_PINT]    = SQLPSIN;
	pdtype[CB_PULONG]  = SQLPULO;
	pdtype[CB_PLONG]   = SQLPSLO;
	pdtype[CB_PFLOAT]  = SQLPFLT;
	pdtype[CB_PDOUBLE] = SQLPDOU;

	pdtype[CB_PLSTRING] = CB_MAX_PTYPES + 1;
	pdtype[CB_PLSTREAM] = CB_MAX_PTYPES + 2;

	pdtype[CB_PRECNO] = SQLPBUF;
/*
	error table
*/
	perrors[CB_ERR_NONE]     = 0;
	perrors[CB_ERR_NOSVR]    = 140;
	perrors[CB_ERR_UIDOVFL]  = 130;
	perrors[CB_ERR_INBOVFL]  = 131;
	perrors[CB_ERR_OUTBOVFL] = 132;
	perrors[CB_ERR_CRSBOVFL] = 139;
	perrors[CB_ERR_SVRNO]    = 143;
	perrors[CB_ERR_DATABASE] = 411;
	perrors[CB_ERR_USER]     = 405;
	perrors[CB_ERR_PASSWD]   = 404;
	perrors[CB_ERR_DBOPEN]   = 401;
	perrors[CB_ERR_VERSION]  = 231;
	perrors[CB_ERR_NODBA]    = 247;
	perrors[CB_ERR_NORSC]    = 362;
	perrors[CB_ERR_EOF]      = 1;
	perrors[CB_ERR_NOROW]    = 3;
	perrors[CB_ERR_NOROWC]   = 127;
	perrors[CB_ERR_UPDROW]   = 2;
	perrors[CB_ERR_UPDROWC]  = 4;
	perrors[CB_ERR_NODATE]   = 121;
	perrors[CB_ERR_NONDATE]  = 317;
	perrors[CB_ERR_NONNUM]   = 318;
	perrors[CB_ERR_RECNO]    = 144;
	perrors[CB_ERR_NOTBL]    = 335;
	perrors[CB_ERR_TBLEXIST] = 334;
	perrors[CB_ERR_TBLNCR]   = 601;
	perrors[CB_ERR_SYNNCR]   = 604;
	perrors[CB_ERR_NULL]     = 346;
}