ScriptBasic: G:/ScriptBasic/source/extensions/mysql/interface.c File Reference

p = (pmyOBJECT)besMODULEPOINTER;\
  Argument = besARGUMENT(1);\
  besDEREFERENCE(Argument);\
  if( Argument == NULL )return EX_ERROR_TOO_FEW_ARGUMENTS;\
  q = besHandleGetPointer(p->HandleArray,besGETLONGVALUE(Argument));\
  if( q == NULL )return COMMAND_ERROR_ARGUMENT_RANGE;


Data Structures
struct	_mymysqlHANDLE
struct	_myOBJECT
Defines
#define	VERSION323 1
#define	MAXERR 7
#define	MYSQL_ERROR_LVAL 0x00081001
#define	MYSQL_ERROR_SEEK 0x00081002
#define	MYSQL_ERROR_SEKO 0x00081003
#define	MYSQL_ERROR_NORS 0x00081004
#define	MYSQL_ERROR_NOCN 0x00081005
#define	MYSQL_ERROR_BDCN 0x00081006
#define	GET_DB_HANDLE
#define	CONFLEN 100
#define	CONFROOT "mysql.connections."
#define	MAXKL 20
Typedefs
typedef _mymysqlHANDLE	mymysqlHANDLE
typedef _mymysqlHANDLE *	pmymysqlHANDLE
typedef _myOBJECT	myOBJECT
typedef _myOBJECT *	pmyOBJECT
Functions
static int	convert_error (int iMyError)
besSUB_ERRMSG	if (iError< 0x80000+MAXERR &&iError > 0x80000) return errtxt[iError-0x80000]
besEND besVERSION_NEGOTIATE	return (int)
	besFUNCTION (mys_affected_rows)
besEND	besFUNCTION (mys_get_host_info)
besEND	besFUNCTION (mys_get_server_info)
besEND	besFUNCTION (mys_stat)
besEND	besFUNCTION (mys_thread_id)
besEND	besFUNCTION (mys_get_proto_info)
besEND	besFUNCTION (mys_change_user)
	besDEREFERENCE (Argument)
	if (Argument)
	if (pszUser)
	if (row==NULL)
	if (lengths==NULL)
	for (i=0;((unsigned) i)< numfields;i++)
	LONGVALUE (besRETURNVALUE)
besEND	besFUNCTION (mys_fetchhash)
	if (field==NULL)
besEND	besFUNCTION (mys_query)
	if (!Argument) return EX_ERROR_TOO_FEW_ARGUMENTS
	if (iMyError!=0)
besEND	besFUNCTION (mys_close)
	if (besARGNR > 4)
	if (besARGNR > 5)
	if (besARGNR > 6)
	if (pszHost)
	if (pH==NULL)
	strcpy (szConfigPath, CONFROOT)
	if (STRLEN(Argument) > CONFLEN-strlen(CONFROOT)-MAXKL) return MYSQL_ERROR_BDCN
	memcpy (pszConf, STRINGVALUE(Argument), STRLEN(Argument))
	strcpy (pszConf,"host")
	strcpy (pszConf,"user")
	strcpy (pszConf,"password")
	strcpy (pszConf,"db")
	strcpy (pszConf,"port")
	besCONFIGEX (pSt->pEo->pConfig, szConfigPath, NULL, NULL,&lPort, NULL, NULL)
	strcpy (pszConf,"socket")
	if (pszUnixSocket &&*pszUnixSocket==(char) 0) pszUnixSocket
	strcpy (pszConf,"flag")
	if (q)
Variables
static int	err_conv_table []
static char *	errtxt []
else return	NULL
	return
else	besRETURNVALUE = NULL
else	besRETURNVALUE = NULL
else	besRETURNVALUE = NULL
else	besRETURNVALUE = NULL
else	besRETURNVALUE = NULL
else	pszUser = NULL
	Argument = besARGUMENT(3)
else	pszPassword = NULL
	Argument = besARGUMENT(4)
else	pszDB = NULL
	iError = mysql_change_user(q->hSQL,pszUser,pszPassword,pszDB)
*	Lval = besNEWARRAY(0,numfields-1)
if Lval return	COMMAND_ERROR_MEMORY_LOW
	row = mysql_fetch_row(q->result)
	lengths = mysql_fetch_lengths(q->result)
	besALLOC_RETURN_LONG
*	Lval = besNEWARRAY(0,2*numfields-1)
if Lval return	COMMAND_ERROR_MEMORY_LOW
	field = mysql_fetch_fields(q->result)
	row = mysql_fetch_row(q->result)
	lengths = mysql_fetch_lengths(q->result)
	besALLOC_RETURN_LONG
	Argument = besARGUMENT(2)
	Argument = besCONVERT2STRING(Argument)
	iMyError = mysql_real_query(q->hSQL,STRINGVALUE(Argument),STRLEN(Argument))
q	num_fields = mysql_num_fields(q->result)
	besRETURNVALUE = NULL
else	pszHost = NULL
	Argument = besARGUMENT(2)
else	pszUser = NULL
	Argument = besARGUMENT(3)
else	pszPassword = NULL
	Argument = besARGUMENT(4)
else	pszDB = NULL
	q = mysql_real_connect(pH->hSQL,pszHost,pszUser,pszPassword,pszDB,lPort,pszUnixSocket,lClientFlag)
int	iMyError
pmymysqlHANDLE	pH
VARIABLE	Argument
char *	pszHost
char *	pszUser
char *	pszPassword
char *	pszDB
char *	pszUnixSocket
long	lPort
long	lClientFlag
pmyOBJECT	p
char	szConfigPath [CONFLEN]
char *	pszConf
char *	pszCname
	p = (pmyOBJECT)besMODULEPOINTER
	pH = besALLOC(sizeof(mymysqlHANDLE))
else return	MYSQL_ERROR_NOCN
	pszConf = szConfigPath + strlen(szConfigPath)
	pszConf = STRLEN(Argument)
*	pszConf = '.'
	pszHost = besCONFIG(szConfigPath)
	pszUser = besCONFIG(szConfigPath)
	pszPassword = besCONFIG(szConfigPath)
	pszDB = besCONFIG(szConfigPath)
	pszUnixSocket = besCONFIG(szConfigPath)
	q = mysql_real_connect(pH->hSQL,pszHost,pszUser,pszPassword,pszDB,(int)lPort,pszUnixSocket,lClientFlag)

G:/ScriptBasic/source/extensions/mysql/interface.c File Reference

Data Structures

Defines

Typedefs

Functions

Variables

Define Documentation

Typedef Documentation

Function Documentation

Variable Documentation