Subversion Repositories Games.Chess Giants

Var STR_HAYSTACK

Var STR_NEEDLE

Var STR_CONTAINS_VAR_1

Var STR_CONTAINS_VAR_2

Var STR_CONTAINS_VAR_3

Var STR_CONTAINS_VAR_4

Var STR_RETURN_VAR

Function StrContains

		Exch $STR_NEEDLE

		Exch 1

		Exch $STR_HAYSTACK

		StrCpy $STR_RETURN_VAR ""

		StrCpy $STR_CONTAINS_VAR_1 -1

		StrLen $STR_CONTAINS_VAR_2 $STR_NEEDLE

		StrLen $STR_CONTAINS_VAR_4 $STR_HAYSTACK

	loop:

		IntOp $STR_CONTAINS_VAR_1 $STR_CONTAINS_VAR_1 + 1

		StrCpy $STR_CONTAINS_VAR_3 $STR_HAYSTACK $STR_CONTAINS_VAR_2 $STR_CONTAINS_VAR_1

		StrCmp $STR_CONTAINS_VAR_3 $STR_NEEDLE found

		StrCmp $STR_CONTAINS_VAR_1 $STR_CONTAINS_VAR_4 done

		Goto loop

	found:

		StrCpy $STR_RETURN_VAR $STR_NEEDLE

		Goto done

	done:

		Pop $STR_NEEDLE

		Exch $STR_RETURN_VAR  

FunctionEnd

!macro _StrContainsConstructor OUT NEEDLE HAYSTACK

		Push `${HAYSTACK}`

		Push `${NEEDLE}`

		Call StrContains

		Pop `${OUT}`

!macroend

!define StrContains '!insertmacro "_StrContainsConstructor"'

Function .onVerifyInstDir

		Push $R0

		Push $R1

		${StrContains} $0 "Program Files" "$INSTDIR"

		StrCmp $0 "Program Files" pathbad

		StrCpy $R0 "$INSTDIR"

	loop:

		StrLen $R1 "$R0"

		StrCmp $R1 0 pathbad

		IfFileExists "$R0" 0 parentLoop

		${GetFileAttributes} "$R0" "DIRECTORY" $R1

		StrCmp $R1 0 parentLoop

		${GetFileAttributes} "$R0" "READONLY" $R1

		StrCmp $R1 1 pathbad

		ClearErrors

		IfFileExists "$R0\.nsis_test_dir" pathgood 0

		CreateDirectory "$R0\.nsis_test_dir"

		IfErrors pathbad 0

		RMDir "$R0\.nsis_test_dir"

		Goto pathgood

	parentLoop:

		${GetParent} "$R0" "$R0"

		Goto loop

	pathbad:

		Abort

	pathgood:

		Pop $R1

		Pop $R0

FunctionEnd