static char sccsid[]="%Z% %M% %I% %E% %U%";
/************************************************************/
/*															*/
/*	処理目的: ＳＱＬ文チェック								*/
/*															*/
/*	関数名	: int cl_chk_sql(sql)							*/
/*															*/
/*	引き数	: (I)char *sql	SQL文							*/
/*															*/
/*	戻り値	: D_FIND_SELECT （select文が見つかったとき）	*/
/*			  D_FIND_ANOTHER（その他の時）					*/
/*			  処理内エラー発生時は ERROR					*/
/*															*/
/*	処理概要: 上位よりSQLコマンド文字列を受け取り、			*/
/*			: selectコマンドかをチェックする。				*/
/*															*/
/************************************************************/
#include "colmn.h"

int cl_chk_sql(sql)
char *sql;
{
	int i,len;

	if (!sql) return ERROR;
	len = strlen(sql);
	i = akxnskipin(sql,len," \t");
	sql += i;
	if (akxnskipto(sql,len-i," \t'+-(.!") == 6) {
		if(!strnicmp(sql,"select",6)) return D_FIND_SELECT;
	}
	return D_FIND_ANOTHER;
}

/********************************/
/*								*/
/*	rc > 0 : number				*/
/*	   = 0 : no number			*/
/*	   < 0 : number error		*/
/*								*/
/********************************/
int cl_sqltype(pszSQL, pnum)
char *pszSQL;
int  *pnum;
{
	int rc,num;
	char c;

	if (!pszSQL || !pnum) return ECL_SYSTEM_ERROR;

	while (((c = *pszSQL)==' ') || (c=='\t') || (c=='\n')) pszSQL++;

	rc = 0;
	if (c=='-' || c=='+') {
		c = *(pszSQL+1);
		if (c>='0' && c<='9') rc = 1;
	}
	else if (c>='0' && c<='9') rc = 1;

	if (rc) {
		if (axccvn(10,pszSQL,strlen(pszSQL),pnum)) rc = -1;
	}

	return rc;
}
