Implement WritePrivateProfileSectionA().
diff --git a/files/profile.c b/files/profile.c
index e2629a8..f14abdc 100644
--- a/files/profile.c
+++ b/files/profile.c
@@ -1321,24 +1321,36 @@
}
/***********************************************************************
- * WritePrivateProfileSection32A (KERNEL32)
+ * WritePrivateProfileSectionA (KERNEL32)
*/
BOOL WINAPI WritePrivateProfileSectionA( LPCSTR section,
LPCSTR string, LPCSTR filename )
{
- char *p =(char*)string;
+ BOOL ret = FALSE;
+ LPSTR p ;
- FIXME("WritePrivateProfileSection32A empty stub\n");
- if (TRACE_ON(profile)) {
- TRACE("(%s) => [%s]\n", filename, section);
- while (*(p+1)) {
- TRACE("%s\n", p);
- p += strlen(p);
- p += 1;
- }
+ EnterCriticalSection( &PROFILE_CritSect );
+
+ if (PROFILE_Open( filename )) {
+ if (!section && !string && !filename)
+ PROFILE_ReleaseFile(); /* always return FALSE in this case */
+ else {
+ while(*string){
+ LPSTR buf=HEAP_strdupA( GetProcessHeap(), 0, string );
+ if((p=strchr( buf, '='))){
+ *p='\0';
+ ret = PROFILE_SetString( section, buf, p+1 );
+
+ }
+ HeapFree( GetProcessHeap(), 0, buf );
+ string += strlen(string)+1;
+ }
+
+ }
}
-
- return FALSE;
+
+ LeaveCriticalSection( &PROFILE_CritSect );
+ return ret;
}
/***********************************************************************
