/* _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

	縲先ｩ溯�讎りｦ√�    : 蜈ｱ譛峨Γ繝｢繝ｪ讀懃ｴ｢逕ｨWHERE蜿･隗｣譫�/邱ｨ髮�API
					  蜈ｱ譛峨Γ繝｢繝ｪ螳夂ｾｩ繝輔ぃ繧､繝ｫ縺ｮ險倩ｿｰ蜀�ｮｹ繧定ｧ｣譫舌＠縺ｦ縲∝他縺ｳ蜈��繝ｭ繧ｰ繝ｩ繝�
					  縺ｫ蜀�ｮｹ繧定ｿ泌唆縺吶ｋ

	縲蝉ｽ懈�譌･縲�		: 2021.04.23

	縲仙他蜃ｺ蠖｢蠑上�	: GG_SHM1003 (
						 char *inWhere				# 隗｣譫仙ｯｾ雎｡WHERE蜿･��in��
						,char *outWhere				# 邱ｨ髮�ｵ先棡WHERE蜿･��out��
					  )
	縲先綾繧雁､縲�		: int                           #  0 : 豁｣蟶ｸ邨ゆｺ�
													# -1 : 逡ｰ蟶ｸ邨ゆｺ�
													#  n : 逡ｰ蟶ｸ邨ゆｺ�］縺ｯinWhere縺ｮ繧ｨ繝ｩ繝ｼ邂�園

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include "GG_SHMCOM.h"

int	GG_SHM1003 ( char *inWhere , char *outWhere ) {
	
	int  inPos  = 0 ;
	int  outPos = 0 ;
	char Ketugo [ 20 ] ;
	int  whereStat = 0 ; /* 0 : 蟾ｦ霎ｺ邱ｨ髮�ｸｭ�域ｯ碑ｼ�擅莉ｶ蜷ｫ繧�� , 1 : 蜿ｳ霎ｺ邱ｨ髮�ｸｭ , 2 : and/or 繧ｵ繝ｼ繝∽ｸｭ */

	memset ( Ketugo , 0x00 , sizeof(Ketugo) ) ;

	// 繧ｹ繝壹�繧ｹ縺励°險倩ｿｰ縺ｮ縺ｪ縺ЦHERE蜿･縺ｯ繧ｨ繝ｩ繝ｼ邨ゆｺ�
	for (;inPos < strlen(inWhere) ;inPos++)
		if ( inWhere [ inPos ] != ' ' ) break ; 
	if ( inPos == strlen(inWhere) ) return ( -1 ) ;

	/* _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
		WHERE蜿･縺ｮ隗｣譫舌�邱ｨ髮��逅�
		蜈ｱ譛峨Γ繝｢繝ｪ繧｢繧ｯ繧ｻ繧ｹ逕ｨ縺ｮWHERE蜿･縺ｯ縲∽ｻ･荳九�譚｡莉ｶ縺ｧ縺ゅｋ蠢�ｦ√′縺ゅｋ
			1. 蜷���岼縺ｨ豈碑ｼ�擅莉ｶ縲∫ｵ仙粋譚｡莉ｶ縺ｯ縲∝濠隗偵せ繝壹�繧ｹ縺ｧ縺ゅｋ縺薙→
			2. 豈碑ｼ�擅莉ｶ縺ｯ縲�6遞ｮ��=,<,<=,>,>=,!=)縺ｮ縺�★繧後°縺ｧ縺ゅｋ縺薙→
			3. 邨仙粋譚｡莉ｶ縺ｯ縲�2遞ｮ��and,or�峨�縺�★繧後°縺ｧ縲∝�縺ｦ縺ｮ邨仙粋譚｡莉ｶ縺ｯ蜷後§縺ｧ縺ゅｋ縺薙→
		1.縺ｫ縺､縺�※縺ｯ縲∽ｸ贋ｽ喉P縺九ｉ貂｡縺輔ｌ縺欷HERE蜿･繧堤ｷｨ髮�＠縺ｦ縲∵ｭ｣縺励＞蠖｢縺ｫ邱ｨ髮�☆繧九�
		2,3.縺ｫ縺､縺�※縺ｯ縲∬ｪ､繧翫′縺ゅ▲縺溷�ｴ蜷医�繧ｨ繝ｩ繝ｼ繝ｪ繧ｿ繝ｼ繝ｳ縺吶ｋ縲�
 	_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ */

	for (;;) {
		// 蟾ｦ霎ｺ鬆�岼縺ｾ縺溘�豈碑ｼ�擅莉ｶ縺ｮ蛻�梵繝ｻ邱ｨ髮�
		if ( whereStat == 0 ) {	
			if ( inWhere [ inPos ] == '=' ) {
				outWhere [ outPos ]     = ' ' ;						// 豈碑ｼ�擅莉ｶ縲�=縲阪�蜑榊ｾ後↓繧ｹ繝壹�繧ｹ繧堤ｩｺ縺代ｋ
				outWhere [ outPos + 1 ] = inWhere [ inPos ] ;
				outWhere [ outPos + 2 ] = ' ' ;
				inPos  ++ ;
				outPos += 3 ;
				for ( ; inPos < strlen(inWhere) ; inPos++ )
					if ( inWhere [ inPos ] != ' ' ) break ; 
				whereStat = 1 ;										// 蜿ｳ霎ｺ縺ｮ髢句ｧ倶ｽ咲ｽｮ縺ｧwhereSet=1繧定ｨｭ螳�
			} else if ( inWhere [ inPos ] == '<' ||
						inWhere [ inPos ] == '>' ) {
				outWhere [ outPos ]     = ' ' ;						// 豈碑ｼ�擅莉ｶ縲�>縲阪�<縲阪�譎ゅ∵ｯ碑ｼ�擅莉ｶ縺ｮ蜑阪↓繧ｹ繝壹�繧ｹ繧堤ｩｺ縺代ｋ
				outWhere [ outPos + 1 ] = inWhere [ inPos ] ;
				if ( inWhere [ inPos  + 1 ] == '=' ) {
					outWhere [ outPos + 2 ] = inWhere [ inPos + 1 ] ;// 縲�>縲阪�<縲阪�谺｡縺後�=縲阪�蝣ｴ蜷医√�=縲阪ｒ縺昴�縺ｾ縺ｾ莉倅ｸ�
					inPos  += 2 ;
					outPos += 3 ;
				} else {
					inPos  ++ ;
					outPos += 2 ;
				}
				outWhere [ outPos ] = ' ' ;							// 豈碑ｼ�擅莉ｶ縺ｮ蠕後↓繧ｹ繝壹�繧ｹ繧堤ｩｺ縺代ｋ
				outPos ++ ;
				for ( ; inPos < strlen(inWhere) ; inPos++ )
					if ( inWhere [ inPos ] != ' ' ) break ;
				whereStat = 1 ;										// 蜿ｳ霎ｺ縺ｮ髢句ｧ倶ｽ咲ｽｮ縺ｧwhereSet=1繧定ｨｭ螳�
			} else if ( inWhere [ inPos ] == '!' ) {
				outWhere [ outPos ]     = ' ' ;						// 豈碑ｼ�擅莉ｶ縲�!縲阪�譎ゅ∵ｯ碑ｼ�擅莉ｶ縺ｮ蜑阪↓繧ｹ繝壹�繧ｹ繧堤ｩｺ縺代ｋ
				outWhere [ outPos + 1 ] = inWhere[ inPos ] ;
				if ( inWhere[ inPos + 1 ] == '=' ) {
					outWhere [ outPos + 2 ] = inWhere [ inPos + 1 ] ;// 縲�!縲阪�谺｡縺後�=縲阪�蝣ｴ蜷医√�=縲阪ｒ縺昴�縺ｾ縺ｾ莉倅ｸ�
					inPos  += 2 ;
					outPos += 3 ;
				} else {
					return ( inPos ) ;								// 縲�!縲阪�谺｡縺後�=縲堺ｻ･螟悶�譎ゅ�繧ｨ繝ｩ繝ｼ邨ゆｺ�
				}
				outWhere [ outPos ] = ' ' ;							// 豈碑ｼ�擅莉ｶ縺ｮ蠕後↓繧ｹ繝壹�繧ｹ繧堤ｩｺ縺代ｋ
				outPos ++ ;
				for ( ; inPos < strlen(inWhere) ; inPos++ )
					if ( inWhere [ inPos ] != ' ' ) break ;
				whereStat = 1 ;										// 蜿ｳ霎ｺ縺ｮ髢句ｧ倶ｽ咲ｽｮ縺ｧwhereSet=1繧定ｨｭ螳�
			} else if ( inWhere [ inPos ] == ' ' ) {
				inPos  ++ ;											// 荳崎ｦ√↑繧ｹ繝壹�繧ｹ縺ｯ蜑企勁
			} else {
				outWhere [ outPos ] = inWhere [ inPos ] ;			// 蟾ｦ霎ｺ鬆�岼蜷咲ｧｰ繧�1繝舌う繝医★縺､莉倅ｸ�
				inPos  ++ ;
				outPos ++ ;
			}
			if ( inPos >= strlen(inWhere) ) return ( -1 ) ;
		} else
		// 蜿ｳ霎ｺ鬆�岼縺ｮ蛻�梵繝ｻ邱ｨ髮�
		if ( whereStat == 1 ) {
			if ( inWhere [ inPos ] != ' ' ) {
				outWhere [ outPos ] = inWhere [ inPos ] ;			// 繧ｹ繝壹�繧ｹ莉･螟悶�蛟､縺ｯ蜿ｳ霎ｺ鬆�岼繧�1繝舌う繝医★縺､莉倅ｸ�
				inPos  ++ ;
				outPos ++ ;
				if ( inPos >= strlen(inWhere) ) {
					outWhere [ outPos ] = '\0' ;
					return ( 0 ) ;									// inWhere繧ｵ繝ｼ繝√′螳御ｺ�＠縺溘◆繧∵ｭ｣蟶ｸ邨ゆｺ�
				}
			} else {												// 繧ｹ繝壹�繧ｹ縺後≠縺｣縺溷�ｴ蜷�
				for ( ; inPos < strlen(inWhere) ; inPos++ )
					if ( inWhere [ inPos ] != ' ' ) break ;
				if ( inPos >= strlen(inWhere) ) {
					outWhere [ outPos ] = '\0' ;
					return ( 0 ) ;									// 繧ｹ繝壹�繧ｹ縺九ｉ谺｡縺ｮ譁�ｭ怜�繧偵し繝ｼ繝√＠縺ｦ縲√せ繝壹�繧ｹ
																	// 縺後↑縺代ｌ縺ｰ縲∵ｭ｣蟶ｸ邨ゆｺ�
				} else {
					whereStat = 2 ;									// 繧ｹ繝壹�繧ｹ莉･螟悶′縺ゅｌ縺ｰ縲『hereStat=2繧定ｨｭ螳�
				}
			}
		} else
		// 邨仙粋譚｡莉ｶ縺ｮ蛻�梵繝ｻ邱ｨ髮�
		if ( whereStat == 2 ) {
			char KetugoWork [ 20 ] ;
			int  KetugoPos = 0 ;
			for ( ; inPos < strlen(inWhere) ; inPos++ ) {			
				if ( inWhere [ inPos ] != ' ' ) {
					KetugoWork [ KetugoPos ] = inWhere [ inPos ] ;	// 繧ｹ繝壹�繧ｹ莉･螟悶�邨仙粋譚｡莉ｶ縺ｫ1繝舌う繝井ｻ倅ｸ�
					KetugoPos ++ ;
				} else {
					KetugoWork [ KetugoPos ] = '\0' ;
					inPos ++ ;
					break ;											// 繧ｹ繝壹�繧ｹ縺後≠繧後�邨仙粋譚｡莉ｶ縺ｯ邨ゅｏ繧�
				}
			}
			if ( Ketugo[0] == '\0' ) {
				if ( strcmp ( KetugoWork , "and" ) == 0 ||
					 strcmp ( KetugoWork , "or"  ) == 0 ) {
					strcpy ( Ketugo , KetugoWork ) ;				// 譛蛻昴�邨仙粋譚｡莉ｶ縺ｮ蝣ｴ蜷医゜etugo縺ｫand/or繧定ｨｭ螳�
				} else {
					return ( inPos ) ;								// and/or莉･螟悶�繧ｨ繝ｩ繝ｼ邨ゆｺ�
				}
			} else if ( 0 == strcmp ( Ketugo , KetugoWork ) ) {
				strcpy ( Ketugo , KetugoWork ) ;					// 2蝗樒岼莉･髯阪�邨仙粋譚｡莉ｶ縺ｮ蝣ｴ蜷医∝�蝗槭→蜷後§縺ｪ繧碓K
			} else {
				return ( inPos ) ;									// 逡ｰ縺ｪ繧狗ｵ仙粋譚｡莉ｶ縺ｮ蝣ｴ蜷医√お繝ｩ繝ｼ邨ゆｺ�
			}
			outWhere [ outPos ] = ' ' ;								// 邨仙粋譚｡莉ｶ縺ｨ蜑榊ｾ後�繧ｹ繝壹�繧ｹ繧剃ｻ倅ｸ�
			strcpy ( outWhere + outPos + 1 , Ketugo ) ;
			outWhere [ outPos + 1 + strlen(Ketugo) ] = ' ' ;
			outPos += strlen ( Ketugo ) + 2 ;

			for ( ; inPos < strlen(inWhere) ; inPos++ )
				if ( inWhere [ inPos ] != ' ' ) break ; 
			if ( inPos >= strlen(inWhere) ) return ( -1 ) ;
			whereStat = 0 ;											// 繧ｹ繝壹�繧ｹ莉･螟悶′縺ゅｌ縺ｰ縲『hereStat=0繧定ｨｭ螳�
		}
	}
}