misc/profile.c

   1 /*
   2  * Initialization-File Functions.
   3  *
   4  * Copyright (c) 1993 Miguel de Icaza
   5  *
   6  * 1/Dec o Corrected return values for Get*ProfileString
   7  *
   8  *       o Now, if AppName == NULL in Get*ProfileString it returns a list
   9  *            of the KeyNames (as documented in the MS-SDK).
  10  *
  11  *       o if KeyValue == NULL now clears the value in Get*ProfileString
  12  */
  13
  14 static char Copyright [] = "Copyright (C) 1993 Miguel de Icaza";
  15
  16 #include <stdio.h>
  17 #include <stdlib.h>
  18 #include <string.h>
  19
  20 #include "wine.h"
  21 #include "windows.h"
  22 #include "prototypes.h"
  23
  24 /* #define DEBUG */
  25
  26 #define STRSIZE 255
  27 #define xmalloc(x) malloc(x)
  28 #define overflow (next == &CharBuffer [STRSIZE-1])
  29
  30 enum { FirstBrace, OnSecHeader, IgnoreToEOL, KeyDef, KeyValue };
  31
  32 typedef struct TKeys {
  33     char *KeyName;
  34     char *Value;
  35     struct TKeys *link;
  36 } TKeys;
  37
  38 typedef struct TSecHeader {
  39     char *AppName;
  40     TKeys *Keys;
  41     struct TSecHeader *link;
  42 } TSecHeader;
  43
  44 typedef struct TProfile {
  45     char *FileName;
  46     TSecHeader *Section;
  47     struct TProfile *link;
  48 } TProfile;
  49
  50 TProfile *Current = 0;
  51 TProfile *Base = 0;
  52
  53 static TSecHeader *is_loaded (char *FileName)
  54 {
  55     TProfile *p = Base;
  56
  57     while (p){
  58         if (!strcasecmp (FileName, p->FileName)){
  59             Current = p;
  60             return p->Section;
  61         }
  62         p = p->link;
  63     }
  64     return 0;
  65 }
  66
  67 static TSecHeader *load (char *file)
  68 {
  69     FILE *f;
  70     int state;
  71     TSecHeader *SecHeader = 0;
  72     char CharBuffer [STRSIZE];
  73     char *next;
  74     char c;
  75
  76 #ifdef DEBUG
  77     printf("Load %s\n", file);
  78 #endif
  79     if ((f = fopen (file, "r"))==NULL)
  80         return NULL;
  81
  82 #ifdef DEBUG
  83     printf("Loading %s\n", file);
  84 #endif
  85     state = FirstBrace;
  86     while ((c = getc (f)) != EOF){
  87         if (c == '\r')          /* Ignore Carriage Return */
  88             continue;
  89
  90         switch (state){
  91
  92         case OnSecHeader:
  93             if (c == ']' || overflow){
  94                 *next = '\0';
  95                 next = CharBuffer;
  96                 SecHeader->AppName = strdup (CharBuffer);
  97                 state = IgnoreToEOL;
  98 #ifdef DEBUG
  99                 printf("%s: section %s\n", file, CharBuffer);
 100 #endif
 101             } else
 102                 *next++ = c;
 103             break;
 104
 105         case IgnoreToEOL:
 106             if (c == '\n'){
 107                 state = KeyDef;
 108                 next = CharBuffer;
 109             }
 110             break;
 111
 112         case FirstBrace:
 113         case KeyDef:
 114             if (c == '['){
 115                 TSecHeader *temp;
 116
 117                 temp = SecHeader;
 118                 SecHeader = (TSecHeader *) xmalloc (sizeof (TSecHeader));
 119                 SecHeader->link = temp;
 120                 SecHeader->Keys = 0;
 121                 state = OnSecHeader;
 122                 next = CharBuffer;
 123                 break;
 124             }
 125             if (state == FirstBrace) /* On first pass, don't allow dangling keys */
 126                 break;
 127
 128             if (c == ' ' || c == '\t')
 129                 break;
 130
 131             if (c == '\n' || c == ';' || overflow) /* Abort Definition */
 132                 next = CharBuffer;
 133
 134             if (c == ';')
 135             {
 136                 state = IgnoreToEOL;
 137                 break;
 138             }
 139
 140             if (c == '=' || overflow){
 141                 TKeys *temp;
 142
 143                 temp = SecHeader->Keys;
 144                 *next = '\0';
 145                 SecHeader->Keys = (TKeys *) xmalloc (sizeof (TKeys));
 146                 SecHeader->Keys->link = temp;
 147                 SecHeader->Keys->KeyName = strdup (CharBuffer);
 148                 state = KeyValue;
 149                 next = CharBuffer;
 150 #ifdef DEBUG
 151                 printf("%s:   key %s\n", file, CharBuffer);
 152 #endif
 153             } else
 154                 *next++ = c;
 155             break;
 156
 157         case KeyValue:
 158             if (overflow || c == '\n'){
 159                 *next = '\0';
 160                 SecHeader->Keys->Value = strdup (CharBuffer);
 161                 state = c == '\n' ? KeyDef : IgnoreToEOL;
 162                 next = CharBuffer;
 163 #ifdef DEBUG
 164                 printf ("[%s] (%s)=%s\n", SecHeader->AppName,
 165                         SecHeader->Keys->KeyName, SecHeader->Keys->Value);
 166 #endif
 167             } else
 168                 *next++ = c;
 169             break;
 170
 171         } /* switch */
 172
 173     } /* while ((c = getc (f)) != EOF) */
 174     return SecHeader;
 175 }
 176
 177 static void new_key (TSecHeader *section, char *KeyName, char *Value)
 178 {
 179     TKeys *key;
 180
 181     key = (TKeys *) xmalloc (sizeof (TKeys));
 182     key->KeyName = strdup (KeyName);
 183     key->Value   = strdup (Value);
 184     key->link = section->Keys;
 185     section->Keys = key;
 186 }
 187
 188 static short GetSetProfile (int set, LPSTR AppName, LPSTR KeyName,
 189                      LPSTR Default, LPSTR ReturnedString, short Size,
 190                      LPSTR FileName)
 191
 192 {
 193     TProfile   *New;
 194     TSecHeader *section;
 195     TKeys      *key;
 196
 197     if (!(section = is_loaded (FileName))){
 198         New = (TProfile *) xmalloc (sizeof (TProfile));
 199         New->link = Base;
 200         New->FileName = strdup (FileName);
 201         New->Section = load (FileName);
 202         Base = New;
 203         section = New->Section;
 204         Current = New;
 205     }
 206     /* Start search */
 207     for (; section; section = section->link){
 208         if (strcasecmp (section->AppName, AppName))
 209             continue;
 210
 211         /* If no key value given, then list all the keys */
 212         if ((!AppName) && (!set)){
 213             char *p = ReturnedString;
 214             int left = Size - 1;
 215             int slen;
 216
 217             for (key = section->Keys; key; key = key->link){
 218                 strncpy (p, key->KeyName, left);
 219                 slen = strlen (key->KeyName) + 1;
 220                 left -= slen+1;
 221                 p += slen;
 222             }
 223             return left;
 224         }
 225         for (key = section->Keys; key; key = key->link){
 226             if (strcasecmp (key->KeyName, KeyName))
 227                 continue;
 228             if (set){
 229                 free (key->Value);
 230                 key->Value = strdup (Default ? Default : "");
 231                 return 1;
 232             }
 233             ReturnedString [Size-1] = 0;
 234             strncpy (ReturnedString, key->Value, Size-1);
 235             return 1;
 236         }
 237         /* If Getting the information, then don't write the information
 238            to the INI file, need to run a couple of tests with windog */
 239         /* No key found */
 240         if (set)
 241             new_key (section, KeyName, Default);
 242         else {
 243             ReturnedString [Size-1] = 0;
 244             strncpy (ReturnedString, Default, Size-1);
 245         }
 246         return 1;
 247     }
 248     /* Non existent section */
 249     if (set){
 250         section = (TSecHeader *) xmalloc (sizeof (TSecHeader));
 251         section->AppName = strdup (AppName);
 252         section->Keys = 0;
 253         new_key (section, KeyName, Default);
 254         section->link = Current->Section;
 255         Current->Section = section;
 256     } else {
 257         ReturnedString [Size-1] = 0;
 258         strncpy (ReturnedString, Default, Size-1);
 259     }
 260     return 1;
 261 }
 262
 263 short GetPrivateProfileString (LPSTR AppName, LPSTR KeyName,
 264                                LPSTR Default, LPSTR ReturnedString,
 265                                short Size, LPSTR FileName)
 266 {
 267     int v;
 268
 269     v = GetSetProfile (0,AppName,KeyName,Default,ReturnedString,Size,FileName);
 270     if (AppName)
 271         return strlen (ReturnedString);
 272     else
 273         return Size - v;
 274 }
 275
 276 int GetProfileString (LPSTR AppName, LPSTR KeyName, LPSTR Default,
 277                       LPSTR ReturnedString, int Size)
 278 {
 279     return GetPrivateProfileString (AppName, KeyName, Default,
 280                                     ReturnedString, Size, WIN_INI);
 281 }
 282
 283 WORD GetPrivateProfileInt (LPSTR AppName, LPSTR KeyName, short Default,
 284                            LPSTR File)
 285 {
 286     static char IntBuf [5];
 287     static char buf [5];
 288
 289     sprintf (buf, "%d", Default);
 290
 291     /* Check the exact semantic with the SDK */
 292     GetPrivateProfileString (AppName, KeyName, buf, IntBuf, 5, File);
 293     if (!strcasecmp (IntBuf, "true"))
 294         return 1;
 295     if (!strcasecmp (IntBuf, "yes"))
 296         return 1;
 297     return atoi (IntBuf);
 298 }
 299
 300 WORD GetProfileInt (LPSTR AppName, LPSTR KeyName, int Default)
 301 {
 302     return GetPrivateProfileInt (AppName, KeyName, Default, WIN_INI);
 303 }
 304
 305 BOOL WritePrivateProfileString (LPSTR AppName, LPSTR KeyName, LPSTR String,
 306                                 LPSTR FileName)
 307 {
 308     return GetSetProfile (1, AppName, KeyName, String, "", 0, FileName);
 309 }
 310
 311 BOOL WriteProfileString (LPSTR AppName, LPSTR KeyName, LPSTR String)
 312 {
 313     return (WritePrivateProfileString (AppName, KeyName, String, WIN_INI));
 314 }
 315
 316 static void dump_keys (FILE *profile, TKeys *p)
 317 {
 318     if (!p)
 319         return;
 320     dump_keys (profile, p->link);
 321     fprintf (profile, "%s=%s\r\n", p->KeyName, p->Value);
 322 }
 323
 324 static void dump_sections (FILE *profile, TSecHeader *p)
 325 {
 326     if (!p)
 327         return;
 328     dump_sections (profile, p->link);
 329     fprintf (profile, "\r\n[%s]\r\n", p->AppName);
 330     dump_keys (profile, p->Keys);
 331 }
 332
 333 static void dump_profile (TProfile *p)
 334 {
 335     FILE *profile;
 336
 337     if (!p)
 338         return;
 339     dump_profile (p->link);
 340     if ((profile = fopen (p->FileName, "w")) != NULL){
 341         dump_sections (profile, p->Section);
 342         fclose (profile);
 343     }
 344 }
 345
 346 void sync_profiles ()
 347 {
 348     dump_profile (Base);
 349 }