From c8a3f7acb2f72e2c4b89d1e531b952c3e37991e7 Mon Sep 17 00:00:00 2001
From: Ulrich Czekalla <ulrichc@corel.ca>
Date: Sat, 23 Oct 1999 16:50:58 +0000
Subject: [PATCH] Implemented StrRChrA.

---
 dlls/shell32/shellord.c   | 22 ++++++++++++++++++++++
 dlls/shell32/shlwapi.spec |  2 +-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/dlls/shell32/shellord.c b/dlls/shell32/shellord.c
index bb46174ae61..451ec00fd6f 100644
--- a/dlls/shell32/shellord.c
+++ b/dlls/shell32/shellord.c
@@ -1228,6 +1228,28 @@ HRESULT WINAPI SHFlushClipboard(void)
 	return 1;
 }
 /*************************************************************************
+ * StrRChrA					[SHELL32.346]
+ *
+ */
+LPSTR WINAPI StrRChrA(LPCSTR lpStart, LPCSTR lpEnd, DWORD wMatch)
+{
+    	if (!lpStart)
+	    return NULL;
+
+	/* if the end not given, search*/
+	if (!lpEnd)
+	{ lpEnd=lpStart;
+	  while (*lpEnd) 
+	    lpEnd++;
+	}
+
+	for (--lpEnd;lpStart <= lpEnd; lpEnd--)
+	    if (*lpEnd==(char)wMatch)
+		return (LPSTR)lpEnd;
+
+	return NULL;
+}
+/*************************************************************************
  * StrRChrW					[SHELL32.320]
  *
  */
diff --git a/dlls/shell32/shlwapi.spec b/dlls/shell32/shlwapi.spec
index 2e07eff2d37..f149fdb2d7b 100644
--- a/dlls/shell32/shlwapi.spec
+++ b/dlls/shell32/shlwapi.spec
@@ -346,7 +346,7 @@ type win32
 343	stub	StrNCatW
 344	stub	StrPBrkA
 345	stub	StrPBrkW
-346	stub	StrRChrA
+346	stdcall	StrRChrA (str str long) StrRChrA
 347	stub	StrRChrIA
 348	stub	StrRChrIW
 349	stdcall	StrRChrW (wstr wstr long) StrRChrW
-- 
2.11.4.GIT