kernel32: Make the locale test pass without errors under XP SP2.
[wine] / dlls / kernel32 / profile.c
1 /*
2  * Profile functions
3  *
4  * Copyright 1993 Miguel de Icaza
5  * Copyright 1996 Alexandre Julliard
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #include "config.h"
23 #include "wine/port.h"
24
25 #include <string.h>
26 #include <stdarg.h>
27
28 #include "windef.h"
29 #include "winbase.h"
30 #include "winnls.h"
31 #include "winerror.h"
32 #include "winternl.h"
33 #include "wine/winbase16.h"
34 #include "wine/unicode.h"
35 #include "wine/library.h"
36 #include "wine/debug.h"
37
38 WINE_DEFAULT_DEBUG_CHANNEL(profile);
39
40 static const char bom_utf8[] = {0xEF,0xBB,0xBF};
41
42 typedef enum
43 {
44     ENCODING_ANSI = 1,
45     ENCODING_UTF8,
46     ENCODING_UTF16LE,
47     ENCODING_UTF16BE
48 } ENCODING;
49
50 typedef struct tagPROFILEKEY
51 {
52     WCHAR                 *value;
53     struct tagPROFILEKEY  *next;
54     WCHAR                  name[1];
55 } PROFILEKEY;
56
57 typedef struct tagPROFILESECTION
58 {
59     struct tagPROFILEKEY       *key;
60     struct tagPROFILESECTION   *next;
61     WCHAR                       name[1];
62 } PROFILESECTION;
63
64
65 typedef struct
66 {
67     BOOL             changed;
68     PROFILESECTION  *section;
69     WCHAR           *filename;
70     FILETIME LastWriteTime;
71     ENCODING encoding;
72 } PROFILE;
73
74
75 #define N_CACHED_PROFILES 10
76
77 /* Cached profile files */
78 static PROFILE *MRUProfile[N_CACHED_PROFILES]={NULL};
79
80 #define CurProfile (MRUProfile[0])
81
82 /* Check for comments in profile */
83 #define IS_ENTRY_COMMENT(str)  ((str)[0] == ';')
84
85 static const WCHAR emptystringW[] = {0};
86 static const WCHAR wininiW[] = { 'w','i','n','.','i','n','i',0 };
87
88 static CRITICAL_SECTION PROFILE_CritSect;
89 static CRITICAL_SECTION_DEBUG critsect_debug =
90 {
91     0, 0, &PROFILE_CritSect,
92     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
93       0, 0, { (DWORD_PTR)(__FILE__ ": PROFILE_CritSect") }
94 };
95 static CRITICAL_SECTION PROFILE_CritSect = { &critsect_debug, -1, 0, 0, 0, 0 };
96
97 static const char hex[16] = "0123456789ABCDEF";
98
99 /***********************************************************************
100  *           PROFILE_CopyEntry
101  *
102  * Copy the content of an entry into a buffer, removing quotes, and possibly
103  * translating environment variables.
104  */
105 static void PROFILE_CopyEntry( LPWSTR buffer, LPCWSTR value, int len,
106                                BOOL strip_quote )
107 {
108     WCHAR quote = '\0';
109
110     if(!buffer) return;
111
112     if (strip_quote && ((*value == '\'') || (*value == '\"')))
113     {
114         if (value[1] && (value[strlenW(value)-1] == *value)) quote = *value++;
115     }
116
117     lstrcpynW( buffer, value, len );
118     if (quote && (len >= strlenW(value))) buffer[strlenW(buffer)-1] = '\0';
119 }
120
121 /* byte-swaps shorts in-place in a buffer. len is in WCHARs */
122 static inline void PROFILE_ByteSwapShortBuffer(WCHAR * buffer, int len)
123 {
124     int i;
125     USHORT * shortbuffer = (USHORT *)buffer;
126     for (i = 0; i < len; i++)
127         shortbuffer[i] = RtlUshortByteSwap(shortbuffer[i]);
128 }
129
130 /* writes any necessary encoding marker to the file */
131 static inline void PROFILE_WriteMarker(HANDLE hFile, ENCODING encoding)
132 {
133     DWORD dwBytesWritten;
134     WCHAR bom;
135     switch (encoding)
136     {
137     case ENCODING_ANSI:
138         break;
139     case ENCODING_UTF8:
140         WriteFile(hFile, bom_utf8, sizeof(bom_utf8), &dwBytesWritten, NULL);
141         break;
142     case ENCODING_UTF16LE:
143         bom = 0xFEFF;
144         WriteFile(hFile, &bom, sizeof(bom), &dwBytesWritten, NULL);
145         break;
146     case ENCODING_UTF16BE:
147         bom = 0xFFFE;
148         WriteFile(hFile, &bom, sizeof(bom), &dwBytesWritten, NULL);
149         break;
150     }
151 }
152
153 static void PROFILE_WriteLine( HANDLE hFile, WCHAR * szLine, int len, ENCODING encoding)
154 {
155     char * write_buffer;
156     int write_buffer_len;
157     DWORD dwBytesWritten;
158
159     TRACE("writing: %s\n", debugstr_wn(szLine, len));
160
161     switch (encoding)
162     {
163     case ENCODING_ANSI:
164         write_buffer_len = WideCharToMultiByte(CP_ACP, 0, szLine, len, NULL, 0, NULL, NULL);
165         write_buffer = HeapAlloc(GetProcessHeap(), 0, write_buffer_len);
166         if (!write_buffer) return;
167         len = WideCharToMultiByte(CP_ACP, 0, szLine, len, write_buffer, write_buffer_len, NULL, NULL);
168         WriteFile(hFile, write_buffer, len, &dwBytesWritten, NULL);
169         HeapFree(GetProcessHeap(), 0, write_buffer);
170         break;
171     case ENCODING_UTF8:
172         write_buffer_len = WideCharToMultiByte(CP_UTF8, 0, szLine, len, NULL, 0, NULL, NULL);
173         write_buffer = HeapAlloc(GetProcessHeap(), 0, write_buffer_len);
174         if (!write_buffer) return;
175         len = WideCharToMultiByte(CP_UTF8, 0, szLine, len, write_buffer, write_buffer_len, NULL, NULL);
176         WriteFile(hFile, write_buffer, len, &dwBytesWritten, NULL);
177         HeapFree(GetProcessHeap(), 0, write_buffer);
178         break;
179     case ENCODING_UTF16LE:
180         WriteFile(hFile, szLine, len * sizeof(WCHAR), &dwBytesWritten, NULL);
181         break;
182     case ENCODING_UTF16BE:
183         PROFILE_ByteSwapShortBuffer(szLine, len);
184         WriteFile(hFile, szLine, len * sizeof(WCHAR), &dwBytesWritten, NULL);
185         break;
186     default:
187         FIXME("encoding type %d not implemented\n", encoding);
188     }
189 }
190
191 /***********************************************************************
192  *           PROFILE_Save
193  *
194  * Save a profile tree to a file.
195  */
196 static void PROFILE_Save( HANDLE hFile, const PROFILESECTION *section, ENCODING encoding )
197 {
198     PROFILEKEY *key;
199     WCHAR *buffer, *p;
200
201     PROFILE_WriteMarker(hFile, encoding);
202
203     for ( ; section; section = section->next)
204     {
205         int len = 0;
206
207         if (section->name[0]) len += strlenW(section->name) + 6;
208
209         for (key = section->key; key; key = key->next)
210         {
211             len += strlenW(key->name) + 2;
212             if (key->value) len += strlenW(key->value) + 1;
213         }
214
215         buffer = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
216         if (!buffer) return;
217
218         p = buffer;
219         if (section->name[0])
220         {
221             *p++ = '\r';
222             *p++ = '\n';
223             *p++ = '[';
224             strcpyW( p, section->name );
225             p += strlenW(p);
226             *p++ = ']';
227             *p++ = '\r';
228             *p++ = '\n';
229         }
230         for (key = section->key; key; key = key->next)
231         {
232             strcpyW( p, key->name );
233             p += strlenW(p);
234             if (key->value)
235             {
236                 *p++ = '=';
237                 strcpyW( p, key->value );
238                 p += strlenW(p);
239             }
240             *p++ = '\r';
241             *p++ = '\n';
242         }
243         PROFILE_WriteLine( hFile, buffer, len, encoding );
244         HeapFree(GetProcessHeap(), 0, buffer);
245     }
246 }
247
248
249 /***********************************************************************
250  *           PROFILE_Free
251  *
252  * Free a profile tree.
253  */
254 static void PROFILE_Free( PROFILESECTION *section )
255 {
256     PROFILESECTION *next_section;
257     PROFILEKEY *key, *next_key;
258
259     for ( ; section; section = next_section)
260     {
261         for (key = section->key; key; key = next_key)
262         {
263             next_key = key->next;
264             HeapFree( GetProcessHeap(), 0, key->value );
265             HeapFree( GetProcessHeap(), 0, key );
266         }
267         next_section = section->next;
268         HeapFree( GetProcessHeap(), 0, section );
269     }
270 }
271
272 /* returns 1 if a character white space else 0 */
273 static inline int PROFILE_isspaceW(WCHAR c)
274 {
275         if (isspaceW(c)) return 1;
276         if (c=='\r' || c==0x1a) return 1;
277         /* CR and ^Z (DOS EOF) are spaces too  (found on CD-ROMs) */
278         return 0;
279 }
280
281 static inline ENCODING PROFILE_DetectTextEncoding(const void * buffer, int * len)
282 {
283     int flags = IS_TEXT_UNICODE_SIGNATURE |
284                 IS_TEXT_UNICODE_REVERSE_SIGNATURE |
285                 IS_TEXT_UNICODE_ODD_LENGTH;
286     if (*len >= sizeof(bom_utf8) && !memcmp(buffer, bom_utf8, sizeof(bom_utf8)))
287     {
288         *len = sizeof(bom_utf8);
289         return ENCODING_UTF8;
290     }
291     RtlIsTextUnicode(buffer, *len, &flags);
292     if (flags & IS_TEXT_UNICODE_SIGNATURE)
293     {
294         *len = sizeof(WCHAR);
295         return ENCODING_UTF16LE;
296     }
297     if (flags & IS_TEXT_UNICODE_REVERSE_SIGNATURE)
298     {
299         *len = sizeof(WCHAR);
300         return ENCODING_UTF16BE;
301     }
302     *len = 0;
303     return ENCODING_ANSI;
304 }
305
306
307 /***********************************************************************
308  *           PROFILE_Load
309  *
310  * Load a profile tree from a file.
311  */
312 static PROFILESECTION *PROFILE_Load(HANDLE hFile, ENCODING * pEncoding)
313 {
314     void *pBuffer;
315     WCHAR * szFile;
316     const WCHAR *szLineStart, *szLineEnd;
317     const WCHAR *szValueStart, *szEnd, *next_line;
318     int line = 0, len;
319     PROFILESECTION *section, *first_section;
320     PROFILESECTION **next_section;
321     PROFILEKEY *key, *prev_key, **next_key;
322     DWORD dwFileSize;
323     
324     TRACE("%p\n", hFile);
325     
326     dwFileSize = GetFileSize(hFile, NULL);
327     if (dwFileSize == INVALID_FILE_SIZE)
328         return NULL;
329
330     pBuffer = HeapAlloc(GetProcessHeap(), 0 , dwFileSize);
331     if (!pBuffer) return NULL;
332     
333     if (!ReadFile(hFile, pBuffer, dwFileSize, &dwFileSize, NULL))
334     {
335         HeapFree(GetProcessHeap(), 0, pBuffer);
336         WARN("Error %d reading file\n", GetLastError());
337         return NULL;
338     }
339     len = dwFileSize;
340     *pEncoding = PROFILE_DetectTextEncoding(pBuffer, &len);
341     /* len is set to the number of bytes in the character marker.
342      * we want to skip these bytes */
343     pBuffer = (char *)pBuffer + len;
344     dwFileSize -= len;
345     switch (*pEncoding)
346     {
347     case ENCODING_ANSI:
348         TRACE("ANSI encoding\n");
349
350         len = MultiByteToWideChar(CP_ACP, 0, (char *)pBuffer, dwFileSize, NULL, 0);
351         szFile = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
352         if (!szFile)
353         {
354             HeapFree(GetProcessHeap(), 0, pBuffer);
355             return NULL;
356         }
357         MultiByteToWideChar(CP_ACP, 0, (char *)pBuffer, dwFileSize, szFile, len);
358         szEnd = szFile + len;
359         break;
360     case ENCODING_UTF8:
361         TRACE("UTF8 encoding\n");
362         
363         len = MultiByteToWideChar(CP_UTF8, 0, (char *)pBuffer, dwFileSize, NULL, 0);
364         szFile = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
365         if (!szFile)
366         {
367             HeapFree(GetProcessHeap(), 0, pBuffer);
368             return NULL;
369         }
370         MultiByteToWideChar(CP_UTF8, 0, (char *)pBuffer, dwFileSize, szFile, len);
371         szEnd = szFile + len;
372         break;
373     case ENCODING_UTF16LE:
374         TRACE("UTF16 Little Endian encoding\n");
375         szFile = (WCHAR *)pBuffer;
376         szEnd = (WCHAR *)((char *)pBuffer + dwFileSize);
377         break;
378     case ENCODING_UTF16BE:
379         TRACE("UTF16 Big Endian encoding\n");
380         szFile = (WCHAR *)pBuffer;
381         szEnd = (WCHAR *)((char *)pBuffer + dwFileSize);
382         PROFILE_ByteSwapShortBuffer(szFile, dwFileSize / sizeof(WCHAR));
383         break;
384     default:
385         FIXME("encoding type %d not implemented\n", *pEncoding);
386         HeapFree(GetProcessHeap(), 0, pBuffer);
387         return NULL;
388     }
389
390     first_section = HeapAlloc( GetProcessHeap(), 0, sizeof(*section) );
391     if(first_section == NULL)
392     {
393         if (szFile != pBuffer)
394             HeapFree(GetProcessHeap(), 0, szFile);
395         HeapFree(GetProcessHeap(), 0, pBuffer);
396         return NULL;
397     }
398     first_section->name[0] = 0;
399     first_section->key  = NULL;
400     first_section->next = NULL;
401     next_section = &first_section->next;
402     next_key     = &first_section->key;
403     prev_key     = NULL;
404     next_line    = szFile;
405
406     while (next_line < szEnd)
407     {
408         szLineStart = next_line;
409         next_line = memchrW(szLineStart, '\n', szEnd - szLineStart);
410         if (!next_line) next_line = szEnd;
411         else next_line++;
412         szLineEnd = next_line;
413
414         line++;
415
416         /* get rid of white space */
417         while (szLineStart < szLineEnd && PROFILE_isspaceW(*szLineStart)) szLineStart++;
418         while ((szLineEnd > szLineStart) && ((szLineEnd[-1] == '\n') || PROFILE_isspaceW(szLineEnd[-1]))) szLineEnd--;
419
420         if (szLineStart >= szLineEnd) continue;
421
422         if (*szLineStart == '[')  /* section start */
423         {
424             const WCHAR * szSectionEnd;
425             if (!(szSectionEnd = memrchrW( szLineStart, ']', szLineEnd - szLineStart )))
426             {
427                 WARN("Invalid section header at line %d: %s\n",
428                     line, debugstr_wn(szLineStart, (int)(szLineEnd - szLineStart)) );
429             }
430             else
431             {
432                 szLineStart++;
433                 len = (int)(szSectionEnd - szLineStart);
434                 /* no need to allocate +1 for NULL terminating character as
435                  * already included in structure */
436                 if (!(section = HeapAlloc( GetProcessHeap(), 0, sizeof(*section) + len * sizeof(WCHAR) )))
437                     break;
438                 memcpy(section->name, szLineStart, len * sizeof(WCHAR));
439                 section->name[len] = '\0';
440                 section->key  = NULL;
441                 section->next = NULL;
442                 *next_section = section;
443                 next_section  = &section->next;
444                 next_key      = &section->key;
445                 prev_key      = NULL;
446
447                 TRACE("New section: %s\n", debugstr_w(section->name));
448
449                 continue;
450             }
451         }
452
453         /* get rid of white space after the name and before the start
454          * of the value */
455         len = szLineEnd - szLineStart;
456         if ((szValueStart = memchrW( szLineStart, '=', szLineEnd - szLineStart )) != NULL)
457         {
458             const WCHAR *szNameEnd = szValueStart;
459             while ((szNameEnd > szLineStart) && PROFILE_isspaceW(szNameEnd[-1])) szNameEnd--;
460             len = szNameEnd - szLineStart;
461             szValueStart++;
462             while (szValueStart < szLineEnd && PROFILE_isspaceW(*szValueStart)) szValueStart++;
463         }
464
465         if (len || !prev_key || *prev_key->name)
466         {
467             /* no need to allocate +1 for NULL terminating character as
468              * already included in structure */
469             if (!(key = HeapAlloc( GetProcessHeap(), 0, sizeof(*key) + len * sizeof(WCHAR) ))) break;
470             memcpy(key->name, szLineStart, len * sizeof(WCHAR));
471             key->name[len] = '\0';
472             if (szValueStart)
473             {
474                 len = (int)(szLineEnd - szValueStart);
475                 key->value = HeapAlloc( GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR) );
476                 memcpy(key->value, szValueStart, len * sizeof(WCHAR));
477                 key->value[len] = '\0';
478             }
479             else key->value = NULL;
480
481            key->next  = NULL;
482            *next_key  = key;
483            next_key   = &key->next;
484            prev_key   = key;
485
486            TRACE("New key: name=%s, value=%s\n",
487                debugstr_w(key->name), key->value ? debugstr_w(key->value) : "(none)");
488         }
489     }
490     if (szFile != pBuffer)
491         HeapFree(GetProcessHeap(), 0, szFile);
492     HeapFree(GetProcessHeap(), 0, pBuffer);
493     return first_section;
494 }
495
496
497 /***********************************************************************
498  *           PROFILE_DeleteSection
499  *
500  * Delete a section from a profile tree.
501  */
502 static BOOL PROFILE_DeleteSection( PROFILESECTION **section, LPCWSTR name )
503 {
504     while (*section)
505     {
506         if ((*section)->name[0] && !strcmpiW( (*section)->name, name ))
507         {
508             PROFILESECTION *to_del = *section;
509             *section = to_del->next;
510             to_del->next = NULL;
511             PROFILE_Free( to_del );
512             return TRUE;
513         }
514         section = &(*section)->next;
515     }
516     return FALSE;
517 }
518
519
520 /***********************************************************************
521  *           PROFILE_DeleteKey
522  *
523  * Delete a key from a profile tree.
524  */
525 static BOOL PROFILE_DeleteKey( PROFILESECTION **section,
526                                LPCWSTR section_name, LPCWSTR key_name )
527 {
528     while (*section)
529     {
530         if ((*section)->name[0] && !strcmpiW( (*section)->name, section_name ))
531         {
532             PROFILEKEY **key = &(*section)->key;
533             while (*key)
534             {
535                 if (!strcmpiW( (*key)->name, key_name ))
536                 {
537                     PROFILEKEY *to_del = *key;
538                     *key = to_del->next;
539                     HeapFree( GetProcessHeap(), 0, to_del->value);
540                     HeapFree( GetProcessHeap(), 0, to_del );
541                     return TRUE;
542                 }
543                 key = &(*key)->next;
544             }
545         }
546         section = &(*section)->next;
547     }
548     return FALSE;
549 }
550
551
552 /***********************************************************************
553  *           PROFILE_DeleteAllKeys
554  *
555  * Delete all keys from a profile tree.
556  */
557 static void PROFILE_DeleteAllKeys( LPCWSTR section_name)
558 {
559     PROFILESECTION **section= &CurProfile->section;
560     while (*section)
561     {
562         if ((*section)->name[0] && !strcmpiW( (*section)->name, section_name ))
563         {
564             PROFILEKEY **key = &(*section)->key;
565             while (*key)
566             {
567                 PROFILEKEY *to_del = *key;
568                 *key = to_del->next;
569                 HeapFree( GetProcessHeap(), 0, to_del->value);
570                 HeapFree( GetProcessHeap(), 0, to_del );
571                 CurProfile->changed =TRUE;
572             }
573         }
574         section = &(*section)->next;
575     }
576 }
577
578
579 /***********************************************************************
580  *           PROFILE_Find
581  *
582  * Find a key in a profile tree, optionally creating it.
583  */
584 static PROFILEKEY *PROFILE_Find( PROFILESECTION **section, LPCWSTR section_name,
585                                  LPCWSTR key_name, BOOL create, BOOL create_always )
586 {
587     LPCWSTR p;
588     int seclen, keylen;
589
590     while (PROFILE_isspaceW(*section_name)) section_name++;
591     p = section_name + strlenW(section_name) - 1;
592     while ((p > section_name) && PROFILE_isspaceW(*p)) p--;
593     seclen = p - section_name + 1;
594
595     while (PROFILE_isspaceW(*key_name)) key_name++;
596     p = key_name + strlenW(key_name) - 1;
597     while ((p > key_name) && PROFILE_isspaceW(*p)) p--;
598     keylen = p - key_name + 1;
599
600     while (*section)
601     {
602         if ( ((*section)->name[0])
603              && (!(strncmpiW( (*section)->name, section_name, seclen )))
604              && (((*section)->name)[seclen] == '\0') )
605         {
606             PROFILEKEY **key = &(*section)->key;
607
608             while (*key)
609             {
610                 /* If create_always is FALSE then we check if the keyname
611                  * already exists. Otherwise we add it regardless of its
612                  * existence, to allow keys to be added more than once in
613                  * some cases.
614                  */
615                 if(!create_always)
616                 {
617                     if ( (!(strncmpiW( (*key)->name, key_name, keylen )))
618                          && (((*key)->name)[keylen] == '\0') )
619                         return *key;
620                 }
621                 key = &(*key)->next;
622             }
623             if (!create) return NULL;
624             if (!(*key = HeapAlloc( GetProcessHeap(), 0, sizeof(PROFILEKEY) + strlenW(key_name) * sizeof(WCHAR) )))
625                 return NULL;
626             strcpyW( (*key)->name, key_name );
627             (*key)->value = NULL;
628             (*key)->next  = NULL;
629             return *key;
630         }
631         section = &(*section)->next;
632     }
633     if (!create) return NULL;
634     *section = HeapAlloc( GetProcessHeap(), 0, sizeof(PROFILESECTION) + strlenW(section_name) * sizeof(WCHAR) );
635     if(*section == NULL) return NULL;
636     strcpyW( (*section)->name, section_name );
637     (*section)->next = NULL;
638     if (!((*section)->key  = HeapAlloc( GetProcessHeap(), 0,
639                                         sizeof(PROFILEKEY) + strlenW(key_name) * sizeof(WCHAR) )))
640     {
641         HeapFree(GetProcessHeap(), 0, *section);
642         return NULL;
643     }
644     strcpyW( (*section)->key->name, key_name );
645     (*section)->key->value = NULL;
646     (*section)->key->next  = NULL;
647     return (*section)->key;
648 }
649
650
651 /***********************************************************************
652  *           PROFILE_FlushFile
653  *
654  * Flush the current profile to disk if changed.
655  */
656 static BOOL PROFILE_FlushFile(void)
657 {
658     HANDLE hFile = NULL;
659     FILETIME LastWriteTime;
660
661     if(!CurProfile)
662     {
663         WARN("No current profile!\n");
664         return FALSE;
665     }
666
667     if (!CurProfile->changed) return TRUE;
668
669     hFile = CreateFileW(CurProfile->filename, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
670
671     if (hFile == INVALID_HANDLE_VALUE)
672     {
673         WARN("could not save profile file %s (error was %d)\n", debugstr_w(CurProfile->filename), GetLastError());
674         return FALSE;
675     }
676
677     TRACE("Saving %s\n", debugstr_w(CurProfile->filename));
678     PROFILE_Save( hFile, CurProfile->section, CurProfile->encoding );
679     if(GetFileTime(hFile, NULL, NULL, &LastWriteTime))
680        CurProfile->LastWriteTime=LastWriteTime;
681     CloseHandle( hFile );
682     CurProfile->changed = FALSE;
683     return TRUE;
684 }
685
686
687 /***********************************************************************
688  *           PROFILE_ReleaseFile
689  *
690  * Flush the current profile to disk and remove it from the cache.
691  */
692 static void PROFILE_ReleaseFile(void)
693 {
694     PROFILE_FlushFile();
695     PROFILE_Free( CurProfile->section );
696     HeapFree( GetProcessHeap(), 0, CurProfile->filename );
697     CurProfile->changed = FALSE;
698     CurProfile->section = NULL;
699     CurProfile->filename  = NULL;
700     CurProfile->encoding = ENCODING_ANSI;
701     ZeroMemory(&CurProfile->LastWriteTime, sizeof(CurProfile->LastWriteTime));
702 }
703
704
705 /***********************************************************************
706  *           PROFILE_Open
707  *
708  * Open a profile file, checking the cached file first.
709  */
710 static BOOL PROFILE_Open( LPCWSTR filename )
711 {
712     WCHAR windirW[MAX_PATH];
713     WCHAR buffer[MAX_PATH];
714     HANDLE hFile = INVALID_HANDLE_VALUE;
715     FILETIME LastWriteTime;
716     int i,j;
717     PROFILE *tempProfile;
718     
719     ZeroMemory(&LastWriteTime, sizeof(LastWriteTime));
720
721     /* First time around */
722
723     if(!CurProfile)
724        for(i=0;i<N_CACHED_PROFILES;i++)
725        {
726           MRUProfile[i]=HeapAlloc( GetProcessHeap(), 0, sizeof(PROFILE) );
727           if(MRUProfile[i] == NULL) break;
728           MRUProfile[i]->changed=FALSE;
729           MRUProfile[i]->section=NULL;
730           MRUProfile[i]->filename=NULL;
731           MRUProfile[i]->encoding=ENCODING_ANSI;
732           ZeroMemory(&MRUProfile[i]->LastWriteTime, sizeof(FILETIME));
733        }
734
735     GetWindowsDirectoryW( windirW, MAX_PATH );
736
737     if (!filename)
738         filename = wininiW;
739
740     if ((RtlDetermineDosPathNameType_U(filename) == RELATIVE_PATH) &&
741         !strchrW(filename, '\\') && !strchrW(filename, '/'))
742     {
743         static const WCHAR wszSeparator[] = {'\\', 0};
744         strcpyW(buffer, windirW);
745         strcatW(buffer, wszSeparator);
746         strcatW(buffer, filename);
747     }
748     else
749     {
750         LPWSTR dummy;
751         GetFullPathNameW(filename, sizeof(buffer)/sizeof(buffer[0]), buffer, &dummy);
752     }
753         
754     TRACE("path: %s\n", debugstr_w(buffer));
755     
756     hFile = CreateFileW(buffer, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
757     
758     if ((hFile == INVALID_HANDLE_VALUE) && (GetLastError() != ERROR_FILE_NOT_FOUND))
759     {
760         WARN("Error %d opening file %s\n", GetLastError(), debugstr_w(buffer));
761         return FALSE;
762     }
763
764     for(i=0;i<N_CACHED_PROFILES;i++)
765     {
766         if ((MRUProfile[i]->filename && !strcmpiW( buffer, MRUProfile[i]->filename )))
767         {
768             TRACE("MRU Filename: %s, new filename: %s\n", debugstr_w(MRUProfile[i]->filename), debugstr_w(buffer));
769             if(i)
770             {
771                 PROFILE_FlushFile();
772                 tempProfile=MRUProfile[i];
773                 for(j=i;j>0;j--)
774                     MRUProfile[j]=MRUProfile[j-1];
775                 CurProfile=tempProfile;
776             }
777
778             if (hFile != INVALID_HANDLE_VALUE)
779             {
780                 if (TRACE_ON(profile))
781                 {
782                     GetFileTime(hFile, NULL, NULL, &LastWriteTime);
783                     if (memcmp(&CurProfile->LastWriteTime, &LastWriteTime, sizeof(FILETIME)))
784                         TRACE("(%s): already opened (mru=%d)\n",
785                               debugstr_w(buffer), i);
786                     else
787                         TRACE("(%s): already opened, needs refreshing (mru=%d)\n",
788                               debugstr_w(buffer), i);
789                 }
790                 CloseHandle(hFile);
791             }
792             else TRACE("(%s): already opened, not yet created (mru=%d)\n",
793                        debugstr_w(buffer), i);
794             return TRUE;
795         }
796     }
797
798     /* Flush the old current profile */
799     PROFILE_FlushFile();
800
801     /* Make the oldest profile the current one only in order to get rid of it */
802     if(i==N_CACHED_PROFILES)
803       {
804        tempProfile=MRUProfile[N_CACHED_PROFILES-1];
805        for(i=N_CACHED_PROFILES-1;i>0;i--)
806           MRUProfile[i]=MRUProfile[i-1];
807        CurProfile=tempProfile;
808       }
809     if(CurProfile->filename) PROFILE_ReleaseFile();
810
811     /* OK, now that CurProfile is definitely free we assign it our new file */
812     CurProfile->filename  = HeapAlloc( GetProcessHeap(), 0, (strlenW(buffer)+1) * sizeof(WCHAR) );
813     strcpyW( CurProfile->filename, buffer );
814
815     if (hFile != INVALID_HANDLE_VALUE)
816     {
817         CurProfile->section = PROFILE_Load(hFile, &CurProfile->encoding);
818         GetFileTime(hFile, NULL, NULL, &CurProfile->LastWriteTime);
819         CloseHandle(hFile);
820     }
821     else
822     {
823         /* Does not exist yet, we will create it in PROFILE_FlushFile */
824         WARN("profile file %s not found\n", debugstr_w(buffer) );
825     }
826     return TRUE;
827 }
828
829
830 /***********************************************************************
831  *           PROFILE_GetSection
832  *
833  * Returns all keys of a section.
834  * If return_values is TRUE, also include the corresponding values.
835  */
836 static INT PROFILE_GetSection( PROFILESECTION *section, LPCWSTR section_name,
837                                LPWSTR buffer, UINT len, BOOL return_values, BOOL return_noequalkeys )
838 {
839     PROFILEKEY *key;
840
841     if(!buffer) return 0;
842
843     TRACE("%s,%p,%u\n", debugstr_w(section_name), buffer, len);
844
845     while (section)
846     {
847         if (section->name[0] && !strcmpiW( section->name, section_name ))
848         {
849             UINT oldlen = len;
850             for (key = section->key; key; key = key->next)
851             {
852                 if (len <= 2) break;
853                 if (!*key->name) continue;  /* Skip empty lines */
854                 if (IS_ENTRY_COMMENT(key->name)) continue;  /* Skip comments */
855                 if (!return_noequalkeys && !return_values && !key->value) continue;  /* Skip lines w.o. '=' */
856                 PROFILE_CopyEntry( buffer, key->name, len - 1, 0 );
857                 len -= strlenW(buffer) + 1;
858                 buffer += strlenW(buffer) + 1;
859                 if (len < 2)
860                     break;
861                 if (return_values && key->value) {
862                         buffer[-1] = '=';
863                         PROFILE_CopyEntry ( buffer, key->value, len - 1, 0 );
864                         len -= strlenW(buffer) + 1;
865                         buffer += strlenW(buffer) + 1;
866                 }
867             }
868             *buffer = '\0';
869             if (len <= 1)
870                 /*If either lpszSection or lpszKey is NULL and the supplied
871                   destination buffer is too small to hold all the strings,
872                   the last string is truncated and followed by two null characters.
873                   In this case, the return value is equal to cchReturnBuffer
874                   minus two. */
875             {
876                 buffer[-1] = '\0';
877                 return oldlen - 2;
878             }
879             return oldlen - len;
880         }
881         section = section->next;
882     }
883     buffer[0] = buffer[1] = '\0';
884     return 0;
885 }
886
887 /* See GetPrivateProfileSectionNamesA for documentation */
888 static INT PROFILE_GetSectionNames( LPWSTR buffer, UINT len )
889 {
890     LPWSTR buf;
891     UINT buflen,tmplen;
892     PROFILESECTION *section;
893
894     TRACE("(%p, %d)\n", buffer, len);
895
896     if (!buffer || !len)
897         return 0;
898     if (len==1) {
899         *buffer='\0';
900         return 0;
901     }
902
903     buflen=len-1;
904     buf=buffer;
905     section = CurProfile->section;
906     while ((section!=NULL)) {
907         if (section->name[0]) {
908             tmplen = strlenW(section->name)+1;
909             if (tmplen >= buflen) {
910                 if (buflen > 0) {
911                     memcpy(buf, section->name, (buflen-1) * sizeof(WCHAR));
912                     buf += buflen-1;
913                     *buf++='\0';
914                 }
915                 *buf='\0';
916                 return len-2;
917             }
918             memcpy(buf, section->name, tmplen * sizeof(WCHAR));
919             buf += tmplen;
920             buflen -= tmplen;
921         }
922         section = section->next;
923     }
924     *buf='\0';
925     return buf-buffer;
926 }
927
928
929 /***********************************************************************
930  *           PROFILE_GetString
931  *
932  * Get a profile string.
933  *
934  * Tests with GetPrivateProfileString16, W95a,
935  * with filled buffer ("****...") and section "set1" and key_name "1" valid:
936  * section      key_name        def_val         res     buffer
937  * "set1"       "1"             "x"             43      [data]
938  * "set1"       "1   "          "x"             43      [data]          (!)
939  * "set1"       "  1  "'        "x"             43      [data]          (!)
940  * "set1"       ""              "x"             1       "x"
941  * "set1"       ""              "x   "          1       "x"             (!)
942  * "set1"       ""              "  x   "        3       "  x"           (!)
943  * "set1"       NULL            "x"             6       "1\02\03\0\0"
944  * "set1"       ""              "x"             1       "x"
945  * NULL         "1"             "x"             0       ""              (!)
946  * ""           "1"             "x"             1       "x"
947  * NULL         NULL            ""              0       ""
948  *
949  *
950  */
951 static INT PROFILE_GetString( LPCWSTR section, LPCWSTR key_name,
952                               LPCWSTR def_val, LPWSTR buffer, UINT len, BOOL win32 )
953 {
954     PROFILEKEY *key = NULL;
955     static const WCHAR empty_strW[] = { 0 };
956
957     if(!buffer) return 0;
958
959     if (!def_val) def_val = empty_strW;
960     if (key_name)
961     {
962         if (!key_name[0])
963         {
964             /* Win95 returns 0 on keyname "". Tested with Likse32 bon 000227 */
965             return 0;
966         }
967         key = PROFILE_Find( &CurProfile->section, section, key_name, FALSE, FALSE);
968         PROFILE_CopyEntry( buffer, (key && key->value) ? key->value : def_val,
969                            len, TRUE );
970         TRACE("(%s,%s,%s): returning %s\n",
971               debugstr_w(section), debugstr_w(key_name),
972               debugstr_w(def_val), debugstr_w(buffer) );
973         return strlenW( buffer );
974     }
975     /* no "else" here ! */
976     if (section && section[0])
977     {
978         INT ret = PROFILE_GetSection(CurProfile->section, section, buffer, len, FALSE, !win32);
979         if (!buffer[0]) /* no luck -> def_val */
980         {
981             PROFILE_CopyEntry(buffer, def_val, len, TRUE);
982             ret = strlenW(buffer);
983         }
984         return ret;
985     }
986     buffer[0] = '\0';
987     return 0;
988 }
989
990
991 /***********************************************************************
992  *           PROFILE_SetString
993  *
994  * Set a profile string.
995  */
996 static BOOL PROFILE_SetString( LPCWSTR section_name, LPCWSTR key_name,
997                                LPCWSTR value, BOOL create_always )
998 {
999     if (!key_name)  /* Delete a whole section */
1000     {
1001         TRACE("(%s)\n", debugstr_w(section_name));
1002         CurProfile->changed |= PROFILE_DeleteSection( &CurProfile->section,
1003                                                       section_name );
1004         return TRUE;         /* Even if PROFILE_DeleteSection() has failed,
1005                                 this is not an error on application's level.*/
1006     }
1007     else if (!value)  /* Delete a key */
1008     {
1009         TRACE("(%s,%s)\n", debugstr_w(section_name), debugstr_w(key_name) );
1010         CurProfile->changed |= PROFILE_DeleteKey( &CurProfile->section,
1011                                                   section_name, key_name );
1012         return TRUE;          /* same error handling as above */
1013     }
1014     else  /* Set the key value */
1015     {
1016         PROFILEKEY *key = PROFILE_Find(&CurProfile->section, section_name,
1017                                         key_name, TRUE, create_always );
1018         TRACE("(%s,%s,%s):\n",
1019               debugstr_w(section_name), debugstr_w(key_name), debugstr_w(value) );
1020         if (!key) return FALSE;
1021
1022         /* strip the leading spaces. We can safely strip \n\r and
1023          * friends too, they should not happen here anyway. */
1024         while (PROFILE_isspaceW(*value)) value++;
1025
1026         if (key->value)
1027         {
1028             if (!strcmpW( key->value, value ))
1029             {
1030                 TRACE("  no change needed\n" );
1031                 return TRUE;  /* No change needed */
1032             }
1033             TRACE("  replacing %s\n", debugstr_w(key->value) );
1034             HeapFree( GetProcessHeap(), 0, key->value );
1035         }
1036         else TRACE("  creating key\n" );
1037         key->value = HeapAlloc( GetProcessHeap(), 0, (strlenW(value)+1) * sizeof(WCHAR) );
1038         strcpyW( key->value, value );
1039         CurProfile->changed = TRUE;
1040     }
1041     return TRUE;
1042 }
1043
1044
1045 /********************* API functions **********************************/
1046
1047
1048 /***********************************************************************
1049  *           GetProfileIntA   (KERNEL32.@)
1050  */
1051 UINT WINAPI GetProfileIntA( LPCSTR section, LPCSTR entry, INT def_val )
1052 {
1053     return GetPrivateProfileIntA( section, entry, def_val, "win.ini" );
1054 }
1055
1056 /***********************************************************************
1057  *           GetProfileIntW   (KERNEL32.@)
1058  */
1059 UINT WINAPI GetProfileIntW( LPCWSTR section, LPCWSTR entry, INT def_val )
1060 {
1061     return GetPrivateProfileIntW( section, entry, def_val, wininiW );
1062 }
1063
1064 /*
1065  * if win32, copy:
1066  *   - Section names if 'section' is NULL
1067  *   - Keys in a Section if 'entry' is NULL
1068  * (see MSDN doc for GetPrivateProfileString)
1069  */
1070 static int PROFILE_GetPrivateProfileString( LPCWSTR section, LPCWSTR entry,
1071                                             LPCWSTR def_val, LPWSTR buffer,
1072                                             UINT len, LPCWSTR filename,
1073                                             BOOL win32 )
1074 {
1075     int         ret;
1076     LPWSTR      defval_tmp = NULL;
1077
1078     TRACE("%s,%s,%s,%p,%u,%s\n", debugstr_w(section), debugstr_w(entry),
1079           debugstr_w(def_val), buffer, len, debugstr_w(filename));
1080
1081     /* strip any trailing ' ' of def_val. */
1082     if (def_val)
1083     {
1084         LPCWSTR p = &def_val[strlenW(def_val)]; /* even "" works ! */
1085
1086         while (p > def_val)
1087         {
1088             p--;
1089             if ((*p) != ' ')
1090                 break;
1091         }
1092         if (*p == ' ') /* ouch, contained trailing ' ' */
1093         {
1094             int len = (int)(p - def_val);
1095
1096             defval_tmp = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
1097             memcpy(defval_tmp, def_val, len * sizeof(WCHAR));
1098             defval_tmp[len] = '\0';
1099             def_val = defval_tmp;
1100         }
1101     }
1102
1103     RtlEnterCriticalSection( &PROFILE_CritSect );
1104
1105     if (PROFILE_Open( filename )) {
1106         if (win32 && (section == NULL))
1107             ret = PROFILE_GetSectionNames(buffer, len);
1108         else 
1109             /* PROFILE_GetString can handle the 'entry == NULL' case */
1110             ret = PROFILE_GetString( section, entry, def_val, buffer, len, win32 );
1111     } else if (buffer && def_val) {
1112        lstrcpynW( buffer, def_val, len );
1113        ret = strlenW( buffer );
1114     }
1115     else
1116        ret = 0;
1117
1118     RtlLeaveCriticalSection( &PROFILE_CritSect );
1119
1120     HeapFree(GetProcessHeap(), 0, defval_tmp);
1121
1122     TRACE("returning %s, %d\n", debugstr_w(buffer), ret);
1123
1124     return ret;
1125 }
1126
1127 /***********************************************************************
1128  *           GetPrivateProfileString   (KERNEL.128)
1129  */
1130 INT16 WINAPI GetPrivateProfileString16( LPCSTR section, LPCSTR entry,
1131                                         LPCSTR def_val, LPSTR buffer,
1132                                         UINT16 len, LPCSTR filename )
1133 {
1134     UNICODE_STRING sectionW, entryW, def_valW, filenameW;
1135     LPWSTR bufferW;
1136     INT16 retW, ret = 0;
1137
1138     bufferW = buffer ? HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)) : NULL;
1139     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1140     else sectionW.Buffer = NULL;
1141     if (entry) RtlCreateUnicodeStringFromAsciiz(&entryW, entry);
1142     else entryW.Buffer = NULL;
1143     if (def_val) RtlCreateUnicodeStringFromAsciiz(&def_valW, def_val);
1144     else def_valW.Buffer = NULL;
1145     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1146     else filenameW.Buffer = NULL;
1147
1148     retW = PROFILE_GetPrivateProfileString( sectionW.Buffer, entryW.Buffer,
1149                                      def_valW.Buffer, bufferW, len,
1150                                      filenameW.Buffer, FALSE );
1151     if (len)
1152     {
1153         ret = WideCharToMultiByte(CP_ACP, 0, bufferW, retW + 1, buffer, len, NULL, NULL);
1154         if (!ret)
1155         {
1156             ret = len - 1;
1157             buffer[ret] = 0;
1158         }
1159         else
1160             ret--; /* strip terminating 0 */
1161     }
1162
1163     RtlFreeUnicodeString(&sectionW);
1164     RtlFreeUnicodeString(&entryW);
1165     RtlFreeUnicodeString(&def_valW);
1166     RtlFreeUnicodeString(&filenameW);
1167     HeapFree(GetProcessHeap(), 0, bufferW);
1168     return ret;
1169 }
1170
1171 /***********************************************************************
1172  *           GetPrivateProfileStringA   (KERNEL32.@)
1173  */
1174 INT WINAPI GetPrivateProfileStringA( LPCSTR section, LPCSTR entry,
1175                                      LPCSTR def_val, LPSTR buffer,
1176                                      UINT len, LPCSTR filename )
1177 {
1178     UNICODE_STRING sectionW, entryW, def_valW, filenameW;
1179     LPWSTR bufferW;
1180     INT retW, ret = 0;
1181
1182     bufferW = buffer ? HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)) : NULL;
1183     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1184     else sectionW.Buffer = NULL;
1185     if (entry) RtlCreateUnicodeStringFromAsciiz(&entryW, entry);
1186     else entryW.Buffer = NULL;
1187     if (def_val) RtlCreateUnicodeStringFromAsciiz(&def_valW, def_val);
1188     else def_valW.Buffer = NULL;
1189     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1190     else filenameW.Buffer = NULL;
1191
1192     retW = GetPrivateProfileStringW( sectionW.Buffer, entryW.Buffer,
1193                                      def_valW.Buffer, bufferW, len,
1194                                      filenameW.Buffer);
1195     if (len)
1196     {
1197         ret = WideCharToMultiByte(CP_ACP, 0, bufferW, retW + 1, buffer, len, NULL, NULL);
1198         if (!ret)
1199         {
1200             ret = len - 1;
1201             buffer[ret] = 0;
1202         }
1203         else
1204             ret--; /* strip terminating 0 */
1205     }
1206
1207     RtlFreeUnicodeString(&sectionW);
1208     RtlFreeUnicodeString(&entryW);
1209     RtlFreeUnicodeString(&def_valW);
1210     RtlFreeUnicodeString(&filenameW);
1211     HeapFree(GetProcessHeap(), 0, bufferW);
1212     return ret;
1213 }
1214
1215 /***********************************************************************
1216  *           GetPrivateProfileStringW   (KERNEL32.@)
1217  */
1218 INT WINAPI GetPrivateProfileStringW( LPCWSTR section, LPCWSTR entry,
1219                                      LPCWSTR def_val, LPWSTR buffer,
1220                                      UINT len, LPCWSTR filename )
1221 {
1222     TRACE("(%s, %s, %s, %p, %d, %s)\n", debugstr_w(section), debugstr_w(entry), debugstr_w(def_val), buffer, len, debugstr_w(filename));
1223
1224     return PROFILE_GetPrivateProfileString( section, entry, def_val,
1225                                             buffer, len, filename, TRUE );
1226 }
1227
1228 /***********************************************************************
1229  *           GetProfileStringA   (KERNEL32.@)
1230  */
1231 INT WINAPI GetProfileStringA( LPCSTR section, LPCSTR entry, LPCSTR def_val,
1232                               LPSTR buffer, UINT len )
1233 {
1234     return GetPrivateProfileStringA( section, entry, def_val,
1235                                      buffer, len, "win.ini" );
1236 }
1237
1238 /***********************************************************************
1239  *           GetProfileStringW   (KERNEL32.@)
1240  */
1241 INT WINAPI GetProfileStringW( LPCWSTR section, LPCWSTR entry,
1242                               LPCWSTR def_val, LPWSTR buffer, UINT len )
1243 {
1244     return GetPrivateProfileStringW( section, entry, def_val,
1245                                      buffer, len, wininiW );
1246 }
1247
1248 /***********************************************************************
1249  *           WriteProfileStringA   (KERNEL32.@)
1250  */
1251 BOOL WINAPI WriteProfileStringA( LPCSTR section, LPCSTR entry,
1252                                  LPCSTR string )
1253 {
1254     return WritePrivateProfileStringA( section, entry, string, "win.ini" );
1255 }
1256
1257 /***********************************************************************
1258  *           WriteProfileStringW   (KERNEL32.@)
1259  */
1260 BOOL WINAPI WriteProfileStringW( LPCWSTR section, LPCWSTR entry,
1261                                      LPCWSTR string )
1262 {
1263     return WritePrivateProfileStringW( section, entry, string, wininiW );
1264 }
1265
1266
1267 /***********************************************************************
1268  *           GetPrivateProfileIntW   (KERNEL32.@)
1269  */
1270 UINT WINAPI GetPrivateProfileIntW( LPCWSTR section, LPCWSTR entry,
1271                                    INT def_val, LPCWSTR filename )
1272 {
1273     WCHAR buffer[30];
1274     UNICODE_STRING bufferW;
1275     INT len;
1276     ULONG result;
1277
1278     if (!(len = GetPrivateProfileStringW( section, entry, emptystringW,
1279                                           buffer, sizeof(buffer)/sizeof(WCHAR),
1280                                           filename )))
1281         return def_val;
1282
1283     /* FIXME: if entry can be found but it's empty, then Win16 is
1284      * supposed to return 0 instead of def_val ! Difficult/problematic
1285      * to implement (every other failure also returns zero buffer),
1286      * thus wait until testing framework avail for making sure nothing
1287      * else gets broken that way. */
1288     if (!buffer[0]) return (UINT)def_val;
1289
1290     RtlInitUnicodeString( &bufferW, buffer );
1291     RtlUnicodeStringToInteger( &bufferW, 10, &result);
1292     return result;
1293 }
1294
1295 /***********************************************************************
1296  *           GetPrivateProfileIntA   (KERNEL32.@)
1297  *
1298  * FIXME: rewrite using unicode
1299  */
1300 UINT WINAPI GetPrivateProfileIntA( LPCSTR section, LPCSTR entry,
1301                                    INT def_val, LPCSTR filename )
1302 {
1303     UNICODE_STRING entryW, filenameW, sectionW;
1304     UINT res;
1305     if(entry) RtlCreateUnicodeStringFromAsciiz(&entryW, entry);
1306     else entryW.Buffer = NULL;
1307     if(filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1308     else filenameW.Buffer = NULL;
1309     if(section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1310     else sectionW.Buffer = NULL;
1311     res = GetPrivateProfileIntW(sectionW.Buffer, entryW.Buffer, def_val,
1312                                 filenameW.Buffer);
1313     RtlFreeUnicodeString(&sectionW);
1314     RtlFreeUnicodeString(&filenameW);
1315     RtlFreeUnicodeString(&entryW);
1316     return res;
1317 }
1318
1319 /***********************************************************************
1320  *           GetPrivateProfileSectionW   (KERNEL32.@)
1321  */
1322 INT WINAPI GetPrivateProfileSectionW( LPCWSTR section, LPWSTR buffer,
1323                                       DWORD len, LPCWSTR filename )
1324 {
1325     int         ret = 0;
1326
1327     TRACE("(%s, %p, %d, %s)\n", debugstr_w(section), buffer, len, debugstr_w(filename));
1328
1329     RtlEnterCriticalSection( &PROFILE_CritSect );
1330
1331     if (PROFILE_Open( filename ))
1332         ret = PROFILE_GetSection(CurProfile->section, section, buffer, len, TRUE, FALSE);
1333
1334     RtlLeaveCriticalSection( &PROFILE_CritSect );
1335
1336     return ret;
1337 }
1338
1339 /***********************************************************************
1340  *           GetPrivateProfileSectionA   (KERNEL32.@)
1341  */
1342 INT WINAPI GetPrivateProfileSectionA( LPCSTR section, LPSTR buffer,
1343                                       DWORD len, LPCSTR filename )
1344 {
1345     UNICODE_STRING sectionW, filenameW;
1346     LPWSTR bufferW;
1347     INT retW, ret = 0;
1348
1349     bufferW = buffer ? HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)) : NULL;
1350     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1351     else sectionW.Buffer = NULL;
1352     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1353     else filenameW.Buffer = NULL;
1354
1355     retW = GetPrivateProfileSectionW(sectionW.Buffer, bufferW, len, filenameW.Buffer);
1356     if (len > 2)
1357     {
1358         ret = WideCharToMultiByte(CP_ACP, 0, bufferW, retW + 1, buffer, len, NULL, NULL);
1359         if (ret > 2)
1360             ret -= 1;
1361         else
1362         {
1363             ret = 0;
1364             buffer[len-2] = 0;
1365             buffer[len-1] = 0;
1366         }
1367     }
1368     else
1369     {
1370         buffer[0] = 0;
1371         buffer[1] = 0;
1372     }
1373
1374     RtlFreeUnicodeString(&sectionW);
1375     RtlFreeUnicodeString(&filenameW);
1376     HeapFree(GetProcessHeap(), 0, bufferW);
1377     return ret;
1378 }
1379
1380 /***********************************************************************
1381  *           GetProfileSectionA   (KERNEL32.@)
1382  */
1383 INT WINAPI GetProfileSectionA( LPCSTR section, LPSTR buffer, DWORD len )
1384 {
1385     return GetPrivateProfileSectionA( section, buffer, len, "win.ini" );
1386 }
1387
1388 /***********************************************************************
1389  *           GetProfileSectionW   (KERNEL32.@)
1390  */
1391 INT WINAPI GetProfileSectionW( LPCWSTR section, LPWSTR buffer, DWORD len )
1392 {
1393     return GetPrivateProfileSectionW( section, buffer, len, wininiW );
1394 }
1395
1396
1397 /***********************************************************************
1398  *           WritePrivateProfileStringW   (KERNEL32.@)
1399  */
1400 BOOL WINAPI WritePrivateProfileStringW( LPCWSTR section, LPCWSTR entry,
1401                                         LPCWSTR string, LPCWSTR filename )
1402 {
1403     BOOL ret = FALSE;
1404
1405     RtlEnterCriticalSection( &PROFILE_CritSect );
1406
1407     if (!section && !entry && !string) /* documented "file flush" case */
1408     {
1409         if (!filename || PROFILE_Open( filename ))
1410         {
1411             if (CurProfile) PROFILE_ReleaseFile();  /* always return FALSE in this case */
1412         }
1413     }
1414     else if (PROFILE_Open( filename ))
1415     {
1416         if (!section) {
1417             FIXME("(NULL?,%s,%s,%s)?\n",
1418                   debugstr_w(entry), debugstr_w(string), debugstr_w(filename));
1419         } else {
1420             ret = PROFILE_SetString( section, entry, string, FALSE);
1421             PROFILE_FlushFile();
1422         }
1423     }
1424
1425     RtlLeaveCriticalSection( &PROFILE_CritSect );
1426     return ret;
1427 }
1428
1429 /***********************************************************************
1430  *           WritePrivateProfileStringA   (KERNEL32.@)
1431  */
1432 BOOL WINAPI WritePrivateProfileStringA( LPCSTR section, LPCSTR entry,
1433                                         LPCSTR string, LPCSTR filename )
1434 {
1435     UNICODE_STRING sectionW, entryW, stringW, filenameW;
1436     BOOL ret;
1437
1438     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1439     else sectionW.Buffer = NULL;
1440     if (entry) RtlCreateUnicodeStringFromAsciiz(&entryW, entry);
1441     else entryW.Buffer = NULL;
1442     if (string) RtlCreateUnicodeStringFromAsciiz(&stringW, string);
1443     else stringW.Buffer = NULL;
1444     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1445     else filenameW.Buffer = NULL;
1446
1447     ret = WritePrivateProfileStringW(sectionW.Buffer, entryW.Buffer,
1448                                      stringW.Buffer, filenameW.Buffer);
1449     RtlFreeUnicodeString(&sectionW);
1450     RtlFreeUnicodeString(&entryW);
1451     RtlFreeUnicodeString(&stringW);
1452     RtlFreeUnicodeString(&filenameW);
1453     return ret;
1454 }
1455
1456 /***********************************************************************
1457  *           WritePrivateProfileSectionW   (KERNEL32.@)
1458  */
1459 BOOL WINAPI WritePrivateProfileSectionW( LPCWSTR section,
1460                                          LPCWSTR string, LPCWSTR filename )
1461 {
1462     BOOL ret = FALSE;
1463     LPWSTR p;
1464
1465     RtlEnterCriticalSection( &PROFILE_CritSect );
1466
1467     if (!section && !string)
1468     {
1469         if (!filename || PROFILE_Open( filename ))
1470         {
1471             if (CurProfile) PROFILE_ReleaseFile();  /* always return FALSE in this case */
1472         }
1473     }
1474     else if (PROFILE_Open( filename )) {
1475         if (!string) {/* delete the named section*/
1476             ret = PROFILE_SetString(section,NULL,NULL, FALSE);
1477             PROFILE_FlushFile();
1478         } else {
1479             PROFILE_DeleteAllKeys(section);
1480             ret = TRUE;
1481             while(*string) {
1482                 LPWSTR buf = HeapAlloc( GetProcessHeap(), 0, (strlenW(string)+1) * sizeof(WCHAR) );
1483                 strcpyW( buf, string );
1484                 if((p = strchrW( buf, '='))) {
1485                     *p='\0';
1486                     ret = PROFILE_SetString( section, buf, p+1, TRUE);
1487                 }
1488                 HeapFree( GetProcessHeap(), 0, buf );
1489                 string += strlenW(string)+1;
1490             }
1491             PROFILE_FlushFile();
1492         }
1493     }
1494
1495     RtlLeaveCriticalSection( &PROFILE_CritSect );
1496     return ret;
1497 }
1498
1499 /***********************************************************************
1500  *           WritePrivateProfileSectionA   (KERNEL32.@)
1501  */
1502 BOOL WINAPI WritePrivateProfileSectionA( LPCSTR section,
1503                                          LPCSTR string, LPCSTR filename)
1504
1505 {
1506     UNICODE_STRING sectionW, filenameW;
1507     LPWSTR stringW;
1508     BOOL ret;
1509
1510     if (string)
1511     {
1512         INT lenA, lenW;
1513         LPCSTR p = string;
1514
1515         while(*p) p += strlen(p) + 1;
1516         lenA = p - string + 1;
1517         lenW = MultiByteToWideChar(CP_ACP, 0, string, lenA, NULL, 0);
1518         if ((stringW = HeapAlloc(GetProcessHeap(), 0, lenW * sizeof(WCHAR))))
1519             MultiByteToWideChar(CP_ACP, 0, string, lenA, stringW, lenW);
1520     }
1521     else stringW = NULL;
1522     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1523     else sectionW.Buffer = NULL;
1524     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1525     else filenameW.Buffer = NULL;
1526
1527     ret = WritePrivateProfileSectionW(sectionW.Buffer, stringW, filenameW.Buffer);
1528
1529     HeapFree(GetProcessHeap(), 0, stringW);
1530     RtlFreeUnicodeString(&sectionW);
1531     RtlFreeUnicodeString(&filenameW);
1532     return ret;
1533 }
1534
1535 /***********************************************************************
1536  *           WriteProfileSectionA   (KERNEL32.@)
1537  */
1538 BOOL WINAPI WriteProfileSectionA( LPCSTR section, LPCSTR keys_n_values)
1539
1540 {
1541     return WritePrivateProfileSectionA( section, keys_n_values, "win.ini");
1542 }
1543
1544 /***********************************************************************
1545  *           WriteProfileSectionW   (KERNEL32.@)
1546  */
1547 BOOL WINAPI WriteProfileSectionW( LPCWSTR section, LPCWSTR keys_n_values)
1548 {
1549    return WritePrivateProfileSectionW(section, keys_n_values, wininiW);
1550 }
1551
1552
1553 /***********************************************************************
1554  *           GetPrivateProfileSectionNamesW  (KERNEL32.@)
1555  *
1556  * Returns the section names contained in the specified file.
1557  * FIXME: Where do we find this file when the path is relative?
1558  * The section names are returned as a list of strings with an extra
1559  * '\0' to mark the end of the list. Except for that the behavior
1560  * depends on the Windows version.
1561  *
1562  * Win95:
1563  * - if the buffer is 0 or 1 character long then it is as if it was of
1564  *   infinite length.
1565  * - otherwise, if the buffer is too small only the section names that fit
1566  *   are returned.
1567  * - note that this means if the buffer was too small to return even just
1568  *   the first section name then a single '\0' will be returned.
1569  * - the return value is the number of characters written in the buffer,
1570  *   except if the buffer was too small in which case len-2 is returned
1571  *
1572  * Win2000:
1573  * - if the buffer is 0, 1 or 2 characters long then it is filled with
1574  *   '\0' and the return value is 0
1575  * - otherwise if the buffer is too small then the first section name that
1576  *   does not fit is truncated so that the string list can be terminated
1577  *   correctly (double '\0')
1578  * - the return value is the number of characters written in the buffer
1579  *   except for the trailing '\0'. If the buffer is too small, then the
1580  *   return value is len-2
1581  * - Win2000 has a bug that triggers when the section names and the
1582  *   trailing '\0' fit exactly in the buffer. In that case the trailing
1583  *   '\0' is missing.
1584  *
1585  * Wine implements the observed Win2000 behavior (except for the bug).
1586  *
1587  * Note that when the buffer is big enough then the return value may be any
1588  * value between 1 and len-1 (or len in Win95), including len-2.
1589  */
1590 DWORD WINAPI GetPrivateProfileSectionNamesW( LPWSTR buffer, DWORD size,
1591                                              LPCWSTR filename)
1592 {
1593     DWORD ret = 0;
1594
1595     RtlEnterCriticalSection( &PROFILE_CritSect );
1596
1597     if (PROFILE_Open( filename ))
1598         ret = PROFILE_GetSectionNames(buffer, size);
1599
1600     RtlLeaveCriticalSection( &PROFILE_CritSect );
1601
1602     return ret;
1603 }
1604
1605
1606 /***********************************************************************
1607  *           GetPrivateProfileSectionNamesA  (KERNEL32.@)
1608  */
1609 DWORD WINAPI GetPrivateProfileSectionNamesA( LPSTR buffer, DWORD size,
1610                                              LPCSTR filename)
1611 {
1612     UNICODE_STRING filenameW;
1613     LPWSTR bufferW;
1614     INT retW, ret = 0;
1615
1616     bufferW = buffer ? HeapAlloc(GetProcessHeap(), 0, size * sizeof(WCHAR)) : NULL;
1617     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1618     else filenameW.Buffer = NULL;
1619
1620     retW = GetPrivateProfileSectionNamesW(bufferW, size, filenameW.Buffer);
1621     if (retW && size)
1622     {
1623         ret = WideCharToMultiByte(CP_ACP, 0, bufferW, retW+1, buffer, size-1, NULL, NULL);
1624         if (!ret)
1625         {
1626             ret = size-2;
1627             buffer[size-1] = 0;
1628         }
1629         else
1630           ret = ret-1;
1631     }
1632
1633     RtlFreeUnicodeString(&filenameW);
1634     HeapFree(GetProcessHeap(), 0, bufferW);
1635     return ret;
1636 }
1637
1638 /***********************************************************************
1639  *           GetPrivateProfileStructW (KERNEL32.@)
1640  *
1641  * Should match Win95's behaviour pretty much
1642  */
1643 BOOL WINAPI GetPrivateProfileStructW (LPCWSTR section, LPCWSTR key,
1644                                       LPVOID buf, UINT len, LPCWSTR filename)
1645 {
1646     BOOL        ret = FALSE;
1647
1648     RtlEnterCriticalSection( &PROFILE_CritSect );
1649
1650     if (PROFILE_Open( filename )) {
1651         PROFILEKEY *k = PROFILE_Find ( &CurProfile->section, section, key, FALSE, FALSE);
1652         if (k) {
1653             TRACE("value (at %p): %s\n", k->value, debugstr_w(k->value));
1654             if (((strlenW(k->value) - 2) / 2) == len)
1655             {
1656                 LPWSTR end, p;
1657                 BOOL valid = TRUE;
1658                 WCHAR c;
1659                 DWORD chksum = 0;
1660
1661                 end  = k->value + strlenW(k->value); /* -> '\0' */
1662                 /* check for invalid chars in ASCII coded hex string */
1663                 for (p=k->value; p < end; p++)
1664                 {
1665                     if (!isxdigitW(*p))
1666                     {
1667                         WARN("invalid char '%x' in file %s->[%s]->%s !\n",
1668                              *p, debugstr_w(filename), debugstr_w(section), debugstr_w(key));
1669                         valid = FALSE;
1670                         break;
1671                     }
1672                 }
1673                 if (valid)
1674                 {
1675                     BOOL highnibble = TRUE;
1676                     BYTE b = 0, val;
1677                     LPBYTE binbuf = (LPBYTE)buf;
1678
1679                     end -= 2; /* don't include checksum in output data */
1680                     /* translate ASCII hex format into binary data */
1681                     for (p=k->value; p < end; p++)
1682                     {
1683                         c = toupperW(*p);
1684                         val = (c > '9') ?
1685                                 (c - 'A' + 10) : (c - '0');
1686
1687                         if (highnibble)
1688                             b = val << 4;
1689                         else
1690                         {
1691                             b += val;
1692                             *binbuf++ = b; /* feed binary data into output */
1693                             chksum += b; /* calculate checksum */
1694                         }
1695                         highnibble ^= 1; /* toggle */
1696                     }
1697                     /* retrieve stored checksum value */
1698                     c = toupperW(*p++);
1699                     b = ( (c > '9') ? (c - 'A' + 10) : (c - '0') ) << 4;
1700                     c = toupperW(*p);
1701                     b +=  (c > '9') ? (c - 'A' + 10) : (c - '0');
1702                     if (b == (chksum & 0xff)) /* checksums match ? */
1703                         ret = TRUE;
1704                 }
1705             }
1706         }
1707     }
1708     RtlLeaveCriticalSection( &PROFILE_CritSect );
1709
1710     return ret;
1711 }
1712
1713 /***********************************************************************
1714  *           GetPrivateProfileStructA (KERNEL32.@)
1715  */
1716 BOOL WINAPI GetPrivateProfileStructA (LPCSTR section, LPCSTR key,
1717                                       LPVOID buffer, UINT len, LPCSTR filename)
1718 {
1719     UNICODE_STRING sectionW, keyW, filenameW;
1720     INT ret;
1721
1722     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1723     else sectionW.Buffer = NULL;
1724     if (key) RtlCreateUnicodeStringFromAsciiz(&keyW, key);
1725     else keyW.Buffer = NULL;
1726     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1727     else filenameW.Buffer = NULL;
1728
1729     ret = GetPrivateProfileStructW(sectionW.Buffer, keyW.Buffer, buffer, len,
1730                                    filenameW.Buffer);
1731     /* Do not translate binary data. */
1732
1733     RtlFreeUnicodeString(&sectionW);
1734     RtlFreeUnicodeString(&keyW);
1735     RtlFreeUnicodeString(&filenameW);
1736     return ret;
1737 }
1738
1739
1740
1741 /***********************************************************************
1742  *           WritePrivateProfileStructW (KERNEL32.@)
1743  */
1744 BOOL WINAPI WritePrivateProfileStructW (LPCWSTR section, LPCWSTR key,
1745                                         LPVOID buf, UINT bufsize, LPCWSTR filename)
1746 {
1747     BOOL ret = FALSE;
1748     LPBYTE binbuf;
1749     LPWSTR outstring, p;
1750     DWORD sum = 0;
1751
1752     if (!section && !key && !buf)  /* flush the cache */
1753         return WritePrivateProfileStringW( NULL, NULL, NULL, filename );
1754
1755     /* allocate string buffer for hex chars + checksum hex char + '\0' */
1756     outstring = HeapAlloc( GetProcessHeap(), 0, (bufsize*2 + 2 + 1) * sizeof(WCHAR) );
1757     p = outstring;
1758     for (binbuf = (LPBYTE)buf; binbuf < (LPBYTE)buf+bufsize; binbuf++) {
1759       *p++ = hex[*binbuf >> 4];
1760       *p++ = hex[*binbuf & 0xf];
1761       sum += *binbuf;
1762     }
1763     /* checksum is sum & 0xff */
1764     *p++ = hex[(sum & 0xf0) >> 4];
1765     *p++ = hex[sum & 0xf];
1766     *p++ = '\0';
1767
1768     RtlEnterCriticalSection( &PROFILE_CritSect );
1769
1770     if (PROFILE_Open( filename )) {
1771         ret = PROFILE_SetString( section, key, outstring, FALSE);
1772         PROFILE_FlushFile();
1773     }
1774
1775     RtlLeaveCriticalSection( &PROFILE_CritSect );
1776
1777     HeapFree( GetProcessHeap(), 0, outstring );
1778
1779     return ret;
1780 }
1781
1782 /***********************************************************************
1783  *           WritePrivateProfileStructA (KERNEL32.@)
1784  */
1785 BOOL WINAPI WritePrivateProfileStructA (LPCSTR section, LPCSTR key,
1786                                         LPVOID buf, UINT bufsize, LPCSTR filename)
1787 {
1788     UNICODE_STRING sectionW, keyW, filenameW;
1789     INT ret;
1790
1791     if (section) RtlCreateUnicodeStringFromAsciiz(&sectionW, section);
1792     else sectionW.Buffer = NULL;
1793     if (key) RtlCreateUnicodeStringFromAsciiz(&keyW, key);
1794     else keyW.Buffer = NULL;
1795     if (filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename);
1796     else filenameW.Buffer = NULL;
1797
1798     /* Do not translate binary data. */
1799     ret = WritePrivateProfileStructW(sectionW.Buffer, keyW.Buffer, buf, bufsize,
1800                                      filenameW.Buffer);
1801
1802     RtlFreeUnicodeString(&sectionW);
1803     RtlFreeUnicodeString(&keyW);
1804     RtlFreeUnicodeString(&filenameW);
1805     return ret;
1806 }
1807
1808
1809 /***********************************************************************
1810  *           WriteOutProfiles   (KERNEL.315)
1811  */
1812 void WINAPI WriteOutProfiles16(void)
1813 {
1814     RtlEnterCriticalSection( &PROFILE_CritSect );
1815     PROFILE_FlushFile();
1816     RtlLeaveCriticalSection( &PROFILE_CritSect );
1817 }
1818
1819 /***********************************************************************
1820  *           CloseProfileUserMapping   (KERNEL32.@)
1821  */
1822 BOOL WINAPI CloseProfileUserMapping(void) {
1823     FIXME("(), stub!\n");
1824     SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
1825     return FALSE;
1826 }