/*******************************************************************************

 WINBINDER - The native Windows binding for PHP

 Copyright © Hypervisual - see LICENSE.TXT for details
 Author: Rubem Pechansky (http://winbinder.org/contact.php)

 General-purpose functions

*******************************************************************************/

//----------------------------------------------------------------- DEPENDENCIES

#include "wb.h"

//----------------------------------------------------------- EXPORTED FUNCTIONS

/* Return TRUE if pwbo is a valid WinBinder object */

BOOL wbIsWBObj(void *pwbo, BOOL bShowErrors)
{
	if(!pwbo) {
		if(bShowErrors)
			wbError(__FUNCTION__, MB_ICONWARNING, "NULL WinBinder object");
		return FALSE;
	}

	// Is pwbo a valid memory address?

	if(IsBadReadPtr(pwbo, sizeof(WBOBJ))) {
		if(bShowErrors)
			wbError(__FUNCTION__, MB_ICONWARNING, "Invalid memory address");
//		printf("%d\n", pwbo);
		return FALSE;
	}

	// A Windows or menu handle is not a WinBinder object

	if(IsWindow(pwbo) || IsMenu(pwbo)) {
		if(bShowErrors)
			wbError(__FUNCTION__, MB_ICONWARNING, "Not a WinBinder object");
		return FALSE;
	}

	// Does it have a valid handle?

	{
		PWBOBJ pwboTest = wbMalloc(sizeof(WBOBJ));
		if(pwboTest) {
			CopyMemory(pwboTest, pwbo, sizeof(WBOBJ));

			if(!pwboTest->hwnd) {
				wbFree(pwboTest);
				if(bShowErrors)
					wbError(__FUNCTION__, MB_ICONWARNING, "NULL WinBinder object handle");
				return FALSE;
			}
			wbFree(pwboTest);
		}
	}

	if(IsMenu((HMENU)((PWBOBJ)pwbo)->hwnd))
		return TRUE;

	if(IsWindow((HWND)((PWBOBJ)pwbo)->hwnd))
		return TRUE;

	if(bShowErrors)
		wbError(__FUNCTION__, MB_ICONWARNING, "Invalid WinBinder object");

	return FALSE;
}


/* TODO: Return PWBOBJ from menus */

PWBOBJ wbGetWBObj(HANDLE hwnd)
{
	if(IsWindow(hwnd))
		return (PWBOBJ)GetWindowLong((HWND)hwnd, GWL_USERDATA);
	else
		return NULL;
}


/* Convert line breaks for Windows use. Allocs memory for ppszTarget. */

BOOL wbConvertLineBreaks(char **ppszTarget, const char *pszSource)
{
	int i, src, tgt, nLen;

	if(!pszSource || !*pszSource) {			// Zero-length or NULL source

		nLen = 1;
		*ppszTarget = wbMalloc(1);
		**ppszTarget = NUL;
		return FALSE;

	} else {

		nLen = strlen(pszSource);
		*ppszTarget = wbMalloc(nLen * 2 + 1);	// At the maximum, converts all chars

		for(i = 0, src = 0, tgt = 0; i < nLen; src++, i++) {
			switch(*(pszSource + src)) {

				case '\r':
					break;

				case '\n':
					*(*ppszTarget + tgt) = '\r';
					tgt++;
					*(*ppszTarget + tgt) = '\n';
					tgt++;
					break;

				default:
					*(*ppszTarget + tgt) = *(pszSource + src);
					tgt++;
					break;
			}
		}

		*(*ppszTarget + tgt) = NUL;
		return TRUE;
	}
}


/* Local stristr() replacement to solve MSVC compilation problems
   Thanks to the SNIPPETS C source code archives (http://c.snippets.org/) */

LPTSTR wbStriStr(LPCTSTR String, LPCTSTR Pattern)
{
	char *pptr, *sptr, *start;

	for(start = (char *)String; *start != NUL; start++) {

		/* Find start of pattern in string */

		for(; ((*start != NUL) && (toupper(*start) != toupper(*Pattern))); start++)
			;

		if(NUL == *start)
			return NULL;

		pptr = (char *)Pattern;
		sptr = (char *)start;

		while(toupper(*sptr) == toupper(*pptr)) {
			sptr++;
			pptr++;

			/* If end of pattern then pattern was found */

			if(NUL == *pptr)
				return (start);
		}
	}
	return NULL;
}

//------------------------------------------------------------------ END OF FILE