src/prop.c

   1 /* prop.c */
   2
   3 #include "FSViewer.h"
   4
   5
   6 WMPropList*
   7 GetDictObject(WMPropList* dictKey, WMPropList* valKey)
   8 {
   9     WMPropList* dict = NULL;
  10     WMPropList* val  = NULL;
  11
  12     if(dictKey && WMIsPLString(dictKey))
  13     {
  14         dict = WMGetFromPLDictionary(filesDB, dictKey);
  15         if(dict && WMIsPLDictionary(dict))
  16         {
  17             if(valKey && WMIsPLString(valKey))
  18             {
  19                 val = WMGetFromPLDictionary(dict, valKey);
  20                 if(val)
  21                     return val;
  22             }
  23 /*          else */
  24 /*              return dict; */
  25         }
  26     }
  27
  28     return NULL;
  29 }
  30
  31 WMPropList*
  32 GetCmdForExtn(char *extn, char *cmd)
  33 {
  34     WMPropList* dictKey = WMCreatePLString(extn);
  35     WMPropList* cmdKey  = WMCreatePLString(cmd);
  36     WMPropList* val     = NULL;
  37
  38
  39     val = GetDictObject(dictKey, cmdKey);
  40
  41     if(dictKey)
  42         WMReleasePropList(dictKey);
  43     if(cmdKey)
  44         WMReleasePropList(cmdKey);
  45
  46     return val;
  47 }
  48
  49 char *
  50 GetExecStringForExtn(char *extn)
  51 {
  52     WMPropList* val = NULL;
  53
  54     val = GetCmdForExtn(extn, "exec");
  55
  56     if(val != NULL)
  57         return WMGetFromPLString(val);
  58     else
  59         return NULL;
  60 }
  61
  62 char *
  63 GetViewerStringForExtn(char *extn)
  64 {
  65     WMPropList* val = NULL;
  66
  67     val = GetCmdForExtn(extn, "viewer");
  68
  69     if(val != NULL)
  70         return WMGetFromPLString(val);
  71     else
  72         return NULL;
  73 }
  74
  75 char *
  76 GetEditorStringForExtn(char *extn)
  77 {
  78     WMPropList* val = NULL;
  79
  80     val = GetCmdForExtn(extn, "editor");
  81
  82     if(val)
  83         return WMGetFromPLString(val);
  84     else
  85         return NULL;
  86 }
  87
  88 char *
  89 GetIconStringForExtn(char *extn)
  90 {
  91     WMPropList* val = NULL;
  92
  93     val = GetCmdForExtn(extn, "icon");
  94
  95     if(val != NULL)
  96         return WMGetFromPLString(val);
  97     else
  98         return NULL;
  99 }
 100
 101 WMPropList*
 102 FSRemoveArrayElement(WMPropList* array, WMPropList* val)
 103 {
 104     int i;
 105     Bool notFound = True;
 106
 107     if (array && WMIsPLArray(array))
 108     {
 109         for(i = 0; i < WMGetPropListItemCount(array); i++)
 110         {
 111             if(WMIsPropListEqualTo(val, WMGetFromPLArray(array, i)))
 112             {
 113                 WMDeleteFromPLArray(array, i);
 114                 WMReleasePropList(val);
 115                 break;
 116             }
 117         }
 118     }
 119
 120     return array;
 121 }
 122
 123 int
 124 FSGetIntegerForName(char *name)
 125 {
 126     return WMGetUDIntegerForKey(defaultsDB, name);
 127 }
 128
 129 void
 130 FSSetIntegerForName(char *name, int val)
 131 {
 132     WMSetUDIntegerForKey(defaultsDB, val, name);
 133 }
 134
 135 void
 136 FSSetStringForName(char *name, char *str)
 137 {
 138     WMSetUDStringForKey(defaultsDB, str, name);
 139 }
 140
 141 char *
 142 FSGetStringForName(char *name)
 143 {
 144     char *str;
 145
 146     str = WMGetUDStringForKey(defaultsDB, name);
 147
 148     if(str)
 149         return wstrdup(str);
 150     else
 151         return NULL;
 152 }
 153
 154 char *
 155 FSGetStringForNameKey(char *name, char *key)
 156 {
 157     WMPropList* val  = NULL;
 158     WMPropList* dict = NULL;
 159
 160     dict = FSGetUDObjectForKey(defaultsDB, name);
 161     val  = FSGetDBObjectForKey(dict, key);
 162
 163     if (!val)
 164         return NULL;
 165
 166     if (!WMIsPLString(val))
 167         return NULL;
 168
 169     return wstrdup(WMGetFromPLString(val));
 170 }
 171
 172 WMPropList*
 173 FSGetDBObjectForKey(WMPropList* dict, char *key)
 174 {
 175     WMPropList* val    = NULL;
 176     WMPropList* valKey = WMCreatePLString(key);
 177
 178     if(dict && WMIsPLDictionary(dict))
 179     {
 180         val = WMGetFromPLDictionary(dict, valKey);
 181     }
 182     WMReleasePropList(valKey);
 183
 184     return val;
 185 }
 186
 187 void
 188 FSSetStringForNameKey(char *name, char *dictKey, char *str)
 189 {
 190     WMPropList* val  = NULL;
 191     WMPropList* key  = NULL;
 192     WMPropList* dict = NULL;
 193
 194     val = WMCreatePLString(str);
 195     key = WMCreatePLString(dictKey);
 196
 197     dict = FSGetUDObjectForKey(defaultsDB, name);
 198     if(dict)
 199         WMPutInPLDictionary(dict, key, val);
 200     else
 201         dict = WMCreatePLDictionary(key, val, NULL);
 202
 203     WMSetUDObjectForKey(defaultsDB, dict, name);
 204 }
 205
 206 WMPropList*
 207 FSGetArrayForNameKey(char *name, char *key)
 208 {
 209     WMPropList* val  = NULL;
 210     WMPropList* dict = NULL;
 211
 212     dict = FSGetUDObjectForKey(defaultsDB, name);
 213     val  = FSGetDBObjectForKey(dict, key);
 214
 215     if (!val)
 216         return NULL;
 217
 218     if (!WMIsPLArray(val))
 219         return NULL;
 220
 221     return val;
 222 }
 223
 224 Bool
 225 InsertArrayElement(WMPropList* array, WMPropList* val)
 226 {
 227     int i;
 228     Bool notFound = True;
 229
 230     if (array && WMIsPLArray(array))
 231     {
 232         for(i = 0; i < WMGetPropListItemCount(array); i++)
 233         {
 234             if(WMIsPropListEqualTo(val, WMGetFromPLArray(array, i)))
 235             {
 236                 notFound = False;
 237                 break;
 238             }
 239         }
 240         if(notFound)
 241              WMAddToPLArray(array, val);
 242     }
 243     else
 244         array = WMCreatePLArray(val, NULL);
 245
 246     return notFound;
 247 }
 248
 249 WMPropList*
 250 FSGetUDObjectForKey(WMUserDefaults *database, char *defaultName)
 251 {
 252     WMPropList* origObj = NULL;
 253     WMPropList* copyObj = NULL;
 254
 255     origObj = WMGetUDObjectForKey(database, defaultName);
 256     if(origObj)
 257         copyObj = WMDeepCopyPropList(origObj);
 258
 259     return copyObj;
 260 }
 261
 262 void
 263 InitFilesDB(FSViewer *fsViewer)
 264 {
 265     WMPropList* key   = NULL;
 266     WMPropList* val   = NULL;
 267     WMPropList* dict  = NULL;
 268     WMPropList* array = NULL;
 269
 270     /* App settings */
 271     WMSetUDStringForKey(defaultsDB, "FSViewer", "App");
 272     /* ROOT Settings */
 273     key = WMCreatePLString("icon");
 274     val = WMCreatePLString("mycomputer");
 275     dict = WMCreatePLDictionary(key, val, NULL);
 276     WMSetUDObjectForKey(defaultsDB, dict, "ROOT");
 277
 278     WMReleasePropList(key);
 279     WMReleasePropList(val);
 280     WMReleasePropList(dict);
 281
 282     /* Default Folder setting */
 283     WMSetUDStringForKey(defaultsDB, "folder", "DIRECTORY");
 284     /*
 285        Default Icon Directory
 286        This is one of the place where the app looks for
 287        icons.  Check config.h for value.
 288     */
 289     WMSetUDStringForKey(defaultsDB, ICONDIR, "ICONDIR");
 290     /* Default File setting */
 291     WMSetUDStringForKey(defaultsDB, "file-plain", "DEFAULT_IMG");
 292     /* HOME setting */
 293     WMSetUDStringForKey(defaultsDB, "home", "HOME");
 294
 295     /* Shelf Settings */
 296     array = WMCreatePLArray(WMCreatePLString(wgethomedir()),
 297                                     NULL);
 298     WMSetUDObjectForKey(defaultsDB, array, "SHELF");
 299
 300     WMReleasePropList(array);
 301
 302     /* CONSOLE setting */
 303     key = WMCreatePLString("exec");
 304     val = WMCreatePLString("xterm");
 305     dict = WMCreatePLDictionary(key, val, NULL);
 306     WMSetUDObjectForKey(defaultsDB, dict, "CONSOLE");
 307
 308     WMReleasePropList(key);
 309     WMReleasePropList(val);
 310     WMReleasePropList(dict);
 311
 312     /* PROCRESS setting */
 313     key = WMCreatePLString("exec");
 314     val = WMCreatePLString("xterm -exec top");
 315     dict = WMCreatePLDictionary(key, val, NULL);
 316     WMSetUDObjectForKey(defaultsDB, dict, "PROCESS");
 317
 318     WMReleasePropList(key);
 319     WMReleasePropList(val);
 320     WMReleasePropList(dict);
 321
 322     /* DISKS setting */
 323 /*     key = WMCreatePLString("devices"); */
 324     val = WMCreatePLArray( WMCreatePLString("CDROM"),
 325                                    WMCreatePLString("/cdrom"),
 326                                    WMCreatePLString("/dev/hdc"),
 327                                    WMCreatePLString("mount %s"),
 328                                    WMCreatePLString("umount %s"),
 329                                    WMCreatePLString("eject %s"),
 330                                    WMCreatePLString("close %s"),
 331                                    NULL );
 332     array = WMCreatePLArray( val, NULL );
 333     WMSetUDObjectForKey(defaultsDB, array, "DISCS");
 334
 335     WMReleasePropList(array);
 336     WMReleasePropList(val);
 337
 338     /* Magic File file */
 339     WMSetUDStringForKey(defaultsDB, "MagicFiles", "MAGICFILE");
 340
 341     /* Default Editor */
 342     key = WMCreatePLString("exec");
 343     val = WMCreatePLString("xedit %s");
 344     dict = WMCreatePLDictionary(key, val, NULL);
 345     WMSetUDObjectForKey(defaultsDB, dict, "MAGICASCII");
 346
 347     WMReleasePropList(key);
 348     WMReleasePropList(val);
 349     WMReleasePropList(dict);
 350
 351     /* Default Image Viewer */
 352     key = WMCreatePLString("exec");
 353     val = WMCreatePLString("xv %s");
 354     dict = WMCreatePLDictionary(key, val, NULL);
 355     WMSetUDObjectForKey(defaultsDB, dict, "MAGICIMAGE");
 356
 357     WMReleasePropList(key);
 358     WMReleasePropList(val);
 359     WMReleasePropList(dict);
 360
 361     /* Default Postscript Viewer */
 362     key = WMCreatePLString("exec");
 363     val = WMCreatePLString("ghostview %s");
 364     dict = WMCreatePLDictionary(key, val, NULL);
 365     WMSetUDObjectForKey(defaultsDB, dict, "MAGICPS");
 366
 367     WMReleasePropList(key);
 368     WMReleasePropList(val);
 369     WMReleasePropList(dict);
 370
 371     WMSetUDIntegerForKey(defaultsDB, 0, "DisplayDotFiles");
 372     WMSetUDIntegerForKey(defaultsDB, 0, "DisplayMCListPixmap");
 373     WMSetUDIntegerForKey(defaultsDB, 1, "DisplaySVBG");
 374     WMSetUDIntegerForKey(defaultsDB, 0, "SortOrder");
 375     WMSetUDIntegerForKey(defaultsDB, 0, "SortDisplay");
 376     WMSetUDIntegerForKey(defaultsDB, 169, "ColumnWidth");
 377     WMSetUDIntegerForKey(defaultsDB, 164, "XPOS");
 378     WMSetUDIntegerForKey(defaultsDB, 164, "YPOS");
 379     WMSetUDIntegerForKey(defaultsDB, 520, "WSIZE");
 380     WMSetUDIntegerForKey(defaultsDB, 390, "HSIZE");
 381
 382
 383     /* List of EXEs */
 384     array = WMCreatePLArray( WMCreatePLString("xemacs"),
 385                                      WMCreatePLString("netscape"),
 386                                      WMCreatePLString("xv"),
 387                                      WMCreatePLString("gimp"),
 388                                      WMCreatePLString("xedit"),
 389                                      NULL );
 390     WMSetUDObjectForKey(defaultsDB, array, "EXE");
 391     WMReleasePropList(array);
 392
 393     /* List of EXTNs */
 394     array = WMCreatePLArray( WMCreatePLString(".bmp"),
 395                                      WMCreatePLString(".bz2"),
 396                                      WMCreatePLString(".c"),
 397                                      WMCreatePLString(".cgi"),
 398                                      WMCreatePLString(".class"),
 399                                      WMCreatePLString(".core"),
 400                                      WMCreatePLString(".csh"),
 401                                      WMCreatePLString(".dat"),
 402                                      WMCreatePLString(".gif"),
 403                                      WMCreatePLString(".gz"),
 404                                      WMCreatePLString(".h"),
 405                                      WMCreatePLString(".java"),
 406                                      WMCreatePLString(".jpg"),
 407                                      WMCreatePLString(".mp3"),
 408                                      WMCreatePLString(".o"),
 409                                      WMCreatePLString(".phtml"),
 410                                      WMCreatePLString(".pl"),
 411                                      WMCreatePLString(".png"),
 412                                      WMCreatePLString(".rpm"),
 413                                      WMCreatePLString(".sh"),
 414                                      WMCreatePLString(".shtml"),
 415                                      WMCreatePLString(".tgz"),
 416                                      WMCreatePLString(".tif"),
 417                                      WMCreatePLString(".txt"),
 418                                      WMCreatePLString(".xbm"),
 419                                      WMCreatePLString(".xcf"),
 420                                      WMCreatePLString(".xpm"),
 421                                      WMCreatePLString(".zip"),
 422                                      WMCreatePLString(".html"),
 423                                      NULL );
 424     WMSetUDObjectForKey(defaultsDB, array, "EXTN");
 425     WMReleasePropList(array);
 426
 427     /* Netscape Settings */
 428     key = WMCreatePLString("exec");
 429     val = WMCreatePLString("netscape %s");
 430     dict = WMCreatePLDictionary(key, val, NULL);
 431
 432     WMReleasePropList(key);
 433     WMReleasePropList(val);
 434
 435     key = WMCreatePLString("extn");
 436     array = WMCreatePLArray( WMCreatePLString(".html"),
 437                                      WMCreatePLString(".shtml"),
 438                                      WMCreatePLString(".phtml"),
 439                                      NULL );
 440     WMPutInPLDictionary(dict, key, array);
 441
 442     WMReleasePropList(key);
 443     WMReleasePropList(array);
 444
 445     key = WMCreatePLString("icon");
 446     val = WMCreatePLString("netscape");
 447     WMPutInPLDictionary(dict, key, val);
 448
 449     WMSetUDObjectForKey(defaultsDB, dict, "netscape");
 450
 451     WMReleasePropList(key);
 452     WMReleasePropList(val);
 453     WMReleasePropList(dict);
 454
 455     /* .html settings */
 456     key = WMCreatePLString("viewer");
 457     val = WMCreatePLString("netscape %s");
 458     dict = WMCreatePLDictionary(key, val, NULL);
 459
 460     WMReleasePropList(key);
 461     WMReleasePropList(val);
 462
 463     key = WMCreatePLString("editor");
 464     val = WMCreatePLString("xemacs %s");
 465     WMPutInPLDictionary(dict, key, val);
 466
 467     WMReleasePropList(key);
 468     WMReleasePropList(val);
 469
 470     key = WMCreatePLString("icon");
 471     val = WMCreatePLString("file-dot-html");
 472     WMPutInPLDictionary(dict, key, val);
 473     WMSetUDObjectForKey(defaultsDB, dict, ".html");
 474
 475     WMReleasePropList(key);
 476     WMReleasePropList(val);
 477     WMReleasePropList(dict);
 478
 479     /* .shtml settings */
 480     key = WMCreatePLString("viewer");
 481     val = WMCreatePLString("netscape %s");
 482     dict = WMCreatePLDictionary(key, val, NULL);
 483
 484     WMReleasePropList(key);
 485     WMReleasePropList(val);
 486
 487     key = WMCreatePLString("editor");
 488     val = WMCreatePLString("xemacs %s");
 489     WMPutInPLDictionary(dict, key, val);
 490
 491     WMReleasePropList(key);
 492     WMReleasePropList(val);
 493
 494     key = WMCreatePLString("icon");
 495     val = WMCreatePLString("file-dot-html");
 496     WMPutInPLDictionary(dict, key, val);
 497     WMSetUDObjectForKey(defaultsDB, dict, ".shtml");
 498
 499     WMReleasePropList(key);
 500     WMReleasePropList(val);
 501     WMReleasePropList(dict);
 502
 503     /* .phtml settings */
 504     key = WMCreatePLString("viewer");
 505     val = WMCreatePLString("netscape %s");
 506     dict = WMCreatePLDictionary(key, val, NULL);
 507
 508     WMReleasePropList(key);
 509     WMReleasePropList(val);
 510
 511     key = WMCreatePLString("editor");
 512     val = WMCreatePLString("xemacs %s");
 513     WMPutInPLDictionary(dict, key, val);
 514
 515     WMReleasePropList(key);
 516     WMReleasePropList(val);
 517
 518     key = WMCreatePLString("icon");
 519     val = WMCreatePLString("file-dot-html");
 520     WMPutInPLDictionary(dict, key, val);
 521     WMSetUDObjectForKey(defaultsDB, dict, ".phtml");
 522
 523     WMReleasePropList(key);
 524     WMReleasePropList(val);
 525     WMReleasePropList(dict);
 526
 527     /* .htm settings */
 528     key = WMCreatePLString("viewer");
 529     val = WMCreatePLString("netscape %s");
 530     dict = WMCreatePLDictionary(key, val, NULL);
 531
 532     WMReleasePropList(key);
 533     WMReleasePropList(val);
 534
 535     key = WMCreatePLString("editor");
 536     val = WMCreatePLString("xemacs %s");
 537     WMPutInPLDictionary(dict, key, val);
 538
 539     WMReleasePropList(key);
 540     WMReleasePropList(val);
 541
 542     key = WMCreatePLString("icon");
 543     val = WMCreatePLString("file-dot-html");
 544     WMPutInPLDictionary(dict, key, val);
 545     WMSetUDObjectForKey(defaultsDB, dict, ".htm");
 546
 547     WMReleasePropList(key);
 548     WMReleasePropList(val);
 549     WMReleasePropList(dict);
 550
 551     /* XEmacs Settings */
 552     key = WMCreatePLString("exec");
 553     val = WMCreatePLString("xemacs %s");
 554     dict = WMCreatePLDictionary(key, val, NULL);
 555
 556     WMReleasePropList(key);
 557     WMReleasePropList(val);
 558
 559     key = WMCreatePLString("extn");
 560     array = WMCreatePLArray( WMCreatePLString(".html"),
 561                                      WMCreatePLString(".shtml"),
 562                                      WMCreatePLString(".phtml"),
 563                                      WMCreatePLString(".pl"),
 564                                      WMCreatePLString(".txt"),
 565                                      WMCreatePLString(".java"),
 566                                      WMCreatePLString(".cgi"),
 567                                      WMCreatePLString(".sh"),
 568                                      WMCreatePLString(".csh"),
 569                                      WMCreatePLString(".dat"),
 570                                      WMCreatePLString(".c"),
 571                                      WMCreatePLString(".h"),
 572                                      NULL );
 573     WMPutInPLDictionary(dict, key, array);
 574
 575     WMReleasePropList(key);
 576     WMReleasePropList(array);
 577
 578     key = WMCreatePLString("icon");
 579     val = WMCreatePLString("xemacs");
 580     WMPutInPLDictionary(dict, key, val);
 581
 582     WMSetUDObjectForKey(defaultsDB, dict, "xemacs");
 583
 584     WMReleasePropList(key);
 585     WMReleasePropList(val);
 586     WMReleasePropList(dict);
 587
 588     /* .txt settings */
 589     key = WMCreatePLString("viewer");
 590     val = WMCreatePLString("xedit %s");
 591     dict = WMCreatePLDictionary(key, val, NULL);
 592
 593     WMReleasePropList(key);
 594     WMReleasePropList(val);
 595
 596     key = WMCreatePLString("editor");
 597     val = WMCreatePLString("xedit %s");
 598     WMPutInPLDictionary(dict, key, val);
 599
 600     WMReleasePropList(key);
 601     WMReleasePropList(val);
 602
 603     key = WMCreatePLString("icon");
 604     val = WMCreatePLString("file-dot-txt");
 605     WMPutInPLDictionary(dict, key, val);
 606     WMSetUDObjectForKey(defaultsDB, dict, ".txt");
 607
 608     WMReleasePropList(key);
 609     WMReleasePropList(val);
 610     WMReleasePropList(dict);
 611
 612     /* .cgi settings */
 613     key = WMCreatePLString("viewer");
 614     val = WMCreatePLString("xedit %s");
 615     dict = WMCreatePLDictionary(key, val, NULL);
 616
 617     WMReleasePropList(key);
 618     WMReleasePropList(val);
 619
 620     key = WMCreatePLString("editor");
 621     val = WMCreatePLString("xemacs %s");
 622     WMPutInPLDictionary(dict, key, val);
 623
 624     WMReleasePropList(key);
 625     WMReleasePropList(val);
 626
 627     key = WMCreatePLString("icon");
 628     val = WMCreatePLString("file-executable");
 629     WMPutInPLDictionary(dict, key, val);
 630     WMSetUDObjectForKey(defaultsDB, dict, ".cgi");
 631
 632     WMReleasePropList(key);
 633     WMReleasePropList(val);
 634     WMReleasePropList(dict);
 635
 636     /* .h settings */
 637     key = WMCreatePLString("viewer");
 638     val = WMCreatePLString("xemacs %s");
 639     dict = WMCreatePLDictionary(key, val, NULL);
 640
 641     WMReleasePropList(key);
 642     WMReleasePropList(val);
 643
 644     key = WMCreatePLString("editor");
 645     val = WMCreatePLString("xemacs %s");
 646     WMPutInPLDictionary(dict, key, val);
 647
 648     WMReleasePropList(key);
 649     WMReleasePropList(val);
 650
 651     key = WMCreatePLString("icon");
 652     val = WMCreatePLString("file-dot-h");
 653     WMPutInPLDictionary(dict, key, val);
 654     WMSetUDObjectForKey(defaultsDB, dict, ".h");
 655
 656     WMReleasePropList(key);
 657     WMReleasePropList(val);
 658     WMReleasePropList(dict);
 659
 660     /* .o settings */
 661     key = WMCreatePLString("icon");
 662     val = WMCreatePLString("file-dot-o");
 663     dict = WMCreatePLDictionary(key, val, NULL);
 664     WMSetUDObjectForKey(defaultsDB, dict, ".o");
 665
 666     WMReleasePropList(key);
 667     WMReleasePropList(val);
 668     WMReleasePropList(dict);
 669
 670     /* .java settings */
 671     key = WMCreatePLString("icon");
 672     val = WMCreatePLString("file-dot-java");
 673     dict = WMCreatePLDictionary(key, val, NULL);
 674
 675     WMReleasePropList(key);
 676     WMReleasePropList(val);
 677
 678     key = WMCreatePLString("editor");
 679     val = WMCreatePLString("xemacs %s");
 680     WMPutInPLDictionary(dict, key, val);
 681
 682     WMReleasePropList(key);
 683     WMReleasePropList(val);
 684
 685     key = WMCreatePLString("viewer");
 686     val = WMCreatePLString("xemacs %s");
 687     WMPutInPLDictionary(dict, key, val);
 688     WMSetUDObjectForKey(defaultsDB, dict, ".java");
 689
 690     WMReleasePropList(key);
 691     WMReleasePropList(val);
 692     WMReleasePropList(dict);
 693
 694     /* .class settings */
 695     key = WMCreatePLString("icon");
 696     val = WMCreatePLString("file-dot-class");
 697     dict = WMCreatePLDictionary(key, val, NULL);
 698     WMSetUDObjectForKey(defaultsDB, dict, ".class");
 699
 700     WMReleasePropList(key);
 701     WMReleasePropList(val);
 702     WMReleasePropList(dict);
 703
 704     /* .gz settings */
 705     key = WMCreatePLString("icon");
 706     val = WMCreatePLString("file-dot-gz");
 707     dict = WMCreatePLDictionary(key, val, NULL);
 708     WMSetUDObjectForKey(defaultsDB, dict, ".gz");
 709
 710     WMReleasePropList(key);
 711     WMReleasePropList(val);
 712     WMReleasePropList(dict);
 713
 714     /* .tgz settings */
 715     key = WMCreatePLString("icon");
 716     val = WMCreatePLString("file-dot-gz");
 717     dict = WMCreatePLDictionary(key, val, NULL);
 718     WMSetUDObjectForKey(defaultsDB, dict, ".tgz");
 719
 720     WMReleasePropList(key);
 721     WMReleasePropList(val);
 722     WMReleasePropList(dict);
 723
 724     /* .tar.gz settings */
 725     key = WMCreatePLString("icon");
 726     val = WMCreatePLString("file-dot-gz");
 727     dict = WMCreatePLDictionary(key, val, NULL);
 728     WMSetUDObjectForKey(defaultsDB, dict, ".tar.gz");
 729
 730     WMReleasePropList(key);
 731     WMReleasePropList(val);
 732     WMReleasePropList(dict);
 733
 734     /* .bz2 settings */
 735     key = WMCreatePLString("icon");
 736     val = WMCreatePLString("file-dot-bz2");
 737     dict = WMCreatePLDictionary(key, val, NULL);
 738     WMSetUDObjectForKey(defaultsDB, dict, ".bz2");
 739
 740     WMReleasePropList(key);
 741     WMReleasePropList(val);
 742     WMReleasePropList(dict);
 743
 744     /* .rpm settings */
 745     key = WMCreatePLString("icon");
 746     val = WMCreatePLString("file-dot-rpm");
 747     dict = WMCreatePLDictionary(key, val, NULL);
 748     WMSetUDObjectForKey(defaultsDB, dict, ".rpm");
 749
 750     WMReleasePropList(key);
 751     WMReleasePropList(val);
 752     WMReleasePropList(dict);
 753
 754     /* .png settings */
 755     key = WMCreatePLString("icon");
 756     val = WMCreatePLString("file-dot-png");
 757     dict = WMCreatePLDictionary(key, val, NULL);
 758     WMSetUDObjectForKey(defaultsDB, dict, ".png");
 759
 760     WMReleasePropList(key);
 761     WMReleasePropList(val);
 762     WMReleasePropList(dict);
 763
 764     /* .zip settings */
 765     /* Phew, 'z' at last! */
 766     key = WMCreatePLString("icon");
 767     val = WMCreatePLString("file-dot-zip");
 768     dict = WMCreatePLDictionary(key, val, NULL);
 769     WMSetUDObjectForKey(defaultsDB, dict, ".zip");
 770
 771     WMReleasePropList(key);
 772     WMReleasePropList(val);
 773     WMReleasePropList(dict);
 774
 775     /* .tif settings */
 776     /* When did 't' start coming after 'z'??? */
 777     key = WMCreatePLString("icon");
 778     val = WMCreatePLString("file-dot-tif");
 779     dict = WMCreatePLDictionary(key, val, NULL);
 780
 781     WMReleasePropList(key);
 782     WMReleasePropList(val);
 783
 784     key = WMCreatePLString("editor");
 785     val = WMCreatePLString("gimp %s");
 786     WMPutInPLDictionary(dict, key, val);
 787
 788     WMReleasePropList(key);
 789     WMReleasePropList(val);
 790
 791     key = WMCreatePLString("viewer");
 792     val = WMCreatePLString("xv %s");
 793     WMPutInPLDictionary(dict, key, val);
 794     WMSetUDObjectForKey(defaultsDB, dict, ".tif");
 795
 796     WMReleasePropList(key);
 797     WMReleasePropList(val);
 798     WMReleasePropList(dict);
 799
 800     /* .xpm settings */
 801     key = WMCreatePLString("icon");
 802     val = WMCreatePLString("file-dot-xpm");
 803     dict = WMCreatePLDictionary(key, val, NULL);
 804
 805     WMReleasePropList(key);
 806     WMReleasePropList(val);
 807
 808     key = WMCreatePLString("editor");
 809     val = WMCreatePLString("gimp %s");
 810     WMPutInPLDictionary(dict, key, val);
 811
 812     WMReleasePropList(key);
 813     WMReleasePropList(val);
 814
 815     key = WMCreatePLString("viewer");
 816     val = WMCreatePLString("xv %s");
 817     WMPutInPLDictionary(dict, key, val);
 818     WMSetUDObjectForKey(defaultsDB, dict, ".xpm");
 819
 820     WMReleasePropList(key);
 821     WMReleasePropList(val);
 822     WMReleasePropList(dict);
 823
 824     /* .jpg settings */
 825     key = WMCreatePLString("icon");
 826     val = WMCreatePLString("file-dot-jpg");
 827     dict = WMCreatePLDictionary(key, val, NULL);
 828
 829     WMReleasePropList(key);
 830     WMReleasePropList(val);
 831
 832     key = WMCreatePLString("editor");
 833     val = WMCreatePLString("gimp %s");
 834     WMPutInPLDictionary(dict, key, val);
 835
 836     WMReleasePropList(key);
 837     WMReleasePropList(val);
 838
 839     key = WMCreatePLString("viewer");
 840     val = WMCreatePLString("xv %s");
 841     WMPutInPLDictionary(dict, key, val);
 842     WMSetUDObjectForKey(defaultsDB, dict, ".jpg");
 843
 844     WMReleasePropList(key);
 845     WMReleasePropList(val);
 846     WMReleasePropList(dict);
 847
 848     /* .gif settings */
 849     key = WMCreatePLString("icon");
 850     val = WMCreatePLString("file-dot-gif");
 851     dict = WMCreatePLDictionary(key, val, NULL);
 852
 853     WMReleasePropList(key);
 854     WMReleasePropList(val);
 855
 856     key = WMCreatePLString("editor");
 857     val = WMCreatePLString("gimp %s");
 858     WMPutInPLDictionary(dict, key, val);
 859
 860     WMReleasePropList(key);
 861     WMReleasePropList(val);
 862
 863     key = WMCreatePLString("viewer");
 864     val = WMCreatePLString("xv %s");
 865     WMPutInPLDictionary(dict, key, val);
 866     WMSetUDObjectForKey(defaultsDB, dict, ".gif");
 867
 868     WMReleasePropList(key);
 869     WMReleasePropList(val);
 870     WMReleasePropList(dict);
 871
 872     /* .bmp settings */
 873     key = WMCreatePLString("icon");
 874     val = WMCreatePLString("file-dot-bmp");
 875     dict = WMCreatePLDictionary(key, val, NULL);
 876
 877     WMReleasePropList(key);
 878     WMReleasePropList(val);
 879
 880     key = WMCreatePLString("editor");
 881     val = WMCreatePLString("gimp %s");
 882     WMPutInPLDictionary(dict, key, val);
 883
 884     WMReleasePropList(key);
 885     WMReleasePropList(val);
 886
 887     key = WMCreatePLString("viewer");
 888     val = WMCreatePLString("xv %s");
 889     WMPutInPLDictionary(dict, key, val);
 890     WMSetUDObjectForKey(defaultsDB, dict, ".bmp");
 891
 892     WMReleasePropList(key);
 893     WMReleasePropList(val);
 894     WMReleasePropList(dict);
 895
 896     /* .xbm settings */
 897     key = WMCreatePLString("icon");
 898     val = WMCreatePLString("file-dot-xbm");
 899     dict = WMCreatePLDictionary(key, val, NULL);
 900
 901     WMReleasePropList(key);
 902     WMReleasePropList(val);
 903
 904     key = WMCreatePLString("editor");
 905     val = WMCreatePLString("gimp %s");
 906     WMPutInPLDictionary(dict, key, val);
 907
 908     WMReleasePropList(key);
 909     WMReleasePropList(val);
 910
 911     key = WMCreatePLString("viewer");
 912     val = WMCreatePLString("xv %s");
 913     WMPutInPLDictionary(dict, key, val);
 914     WMSetUDObjectForKey(defaultsDB, dict, ".xbm");
 915
 916     WMReleasePropList(key);
 917     WMReleasePropList(val);
 918     WMReleasePropList(dict);
 919
 920     /* .xpm settings */
 921     key = WMCreatePLString("icon");
 922     val = WMCreatePLString("file-dot-xpm");
 923     dict = WMCreatePLDictionary(key, val, NULL);
 924
 925     WMReleasePropList(key);
 926     WMReleasePropList(val);
 927
 928     key = WMCreatePLString("editor");
 929     val = WMCreatePLString("gimp %s");
 930     WMPutInPLDictionary(dict, key, val);
 931
 932     WMReleasePropList(key);
 933     WMReleasePropList(val);
 934
 935     key = WMCreatePLString("viewer");
 936     val = WMCreatePLString("xv %s");
 937     WMPutInPLDictionary(dict, key, val);
 938     WMSetUDObjectForKey(defaultsDB, dict, ".xpm");
 939
 940     WMReleasePropList(key);
 941     WMReleasePropList(val);
 942     WMReleasePropList(dict);
 943
 944     /* .xcf settings */
 945     key = WMCreatePLString("icon");
 946     val = WMCreatePLString("file-dot-xcf");
 947     dict = WMCreatePLDictionary(key, val, NULL);
 948
 949     WMReleasePropList(key);
 950     WMReleasePropList(val);
 951
 952     key = WMCreatePLString("editor");
 953     val = WMCreatePLString("gimp %s");
 954     WMPutInPLDictionary(dict, key, val);
 955
 956     WMReleasePropList(key);
 957     WMReleasePropList(val);
 958
 959     key = WMCreatePLString("viewer");
 960     val = WMCreatePLString("gimp %s");
 961     WMPutInPLDictionary(dict, key, val);
 962     WMSetUDObjectForKey(defaultsDB, dict, ".xcf");
 963
 964     WMReleasePropList(key);
 965     WMReleasePropList(val);
 966     WMReleasePropList(dict);
 967
 968     /* Gimp Settings */
 969     key = WMCreatePLString("exec");
 970     val = WMCreatePLString("gimp %s");
 971     dict = WMCreatePLDictionary(key, val, NULL);
 972
 973     WMReleasePropList(key);
 974     WMReleasePropList(val);
 975
 976     key = WMCreatePLString("extn");
 977     array = WMCreatePLArray( WMCreatePLString(".jpg"),
 978                                      WMCreatePLString(".gif"),
 979                                      WMCreatePLString(".bmp"),
 980                                      WMCreatePLString(".xcf"),
 981                                      WMCreatePLString(".xpm"),
 982                                      WMCreatePLString(".xbm"),
 983                                      WMCreatePLString(".png"),
 984                                      NULL );
 985     WMPutInPLDictionary(dict, key, array);
 986
 987     WMReleasePropList(key);
 988     WMReleasePropList(array);
 989
 990     key = WMCreatePLString("icon");
 991     val = WMCreatePLString("wilber");
 992     WMPutInPLDictionary(dict, key, val);
 993
 994     WMSetUDObjectForKey(defaultsDB, dict, "gimp");
 995
 996     WMReleasePropList(key);
 997     WMReleasePropList(val);
 998     WMReleasePropList(dict);
 999
1000     /* xedit Settings */
1001     key = WMCreatePLString("exec");
1002     val = WMCreatePLString("xedit %s");
1003     dict = WMCreatePLDictionary(key, val, NULL);
1004
1005     WMReleasePropList(key);
1006     WMReleasePropList(val);
1007
1008     key = WMCreatePLString("extn");
1009     array = WMCreatePLArray( WMCreatePLString(".txt"),
1010                                      WMCreatePLString(".dat"),
1011                                      NULL );
1012     WMPutInPLDictionary(dict, key, array);
1013
1014     WMReleasePropList(key);
1015     WMReleasePropList(array);
1016
1017     key = WMCreatePLString("icon");
1018     val = WMCreatePLString("file-dot-txt");
1019     WMPutInPLDictionary(dict, key, val);
1020
1021     WMSetUDObjectForKey(defaultsDB, dict, "xedit");
1022
1023     WMReleasePropList(key);
1024     WMReleasePropList(val);
1025     WMReleasePropList(dict);
1026
1027     /* .dat settings */
1028     key = WMCreatePLString("icon");
1029     val = WMCreatePLString("file-dot-dat");
1030     dict = WMCreatePLDictionary(key, val, NULL);
1031
1032     WMReleasePropList(key);
1033     WMReleasePropList(val);
1034
1035     key = WMCreatePLString("editor");
1036     val = WMCreatePLString("xemacs %s");
1037     WMPutInPLDictionary(dict, key, val);
1038
1039     WMReleasePropList(key);
1040     WMReleasePropList(val);
1041
1042     key = WMCreatePLString("viewer");
1043     val = WMCreatePLString("xedit %s");
1044     WMPutInPLDictionary(dict, key, val);
1045     WMSetUDObjectForKey(defaultsDB, dict, ".dat");
1046
1047     WMReleasePropList(key);
1048     WMReleasePropList(val);
1049     WMReleasePropList(dict);
1050
1051     /* XV Settings */
1052     key = WMCreatePLString("exec");
1053     val = WMCreatePLString("xv %s");
1054     dict = WMCreatePLDictionary(key, val, NULL);
1055
1056     WMReleasePropList(key);
1057     WMReleasePropList(val);
1058
1059     key = WMCreatePLString("extn");
1060     array = WMCreatePLArray( WMCreatePLString(".jpg"),
1061                                      WMCreatePLString(".gif"),
1062                                      WMCreatePLString(".bmp"),
1063                                      WMCreatePLString(".xpm"),
1064                                      WMCreatePLString(".xbm"),
1065                                      NULL );
1066     WMPutInPLDictionary(dict, key, array);
1067
1068     WMReleasePropList(key);
1069     WMReleasePropList(array);
1070
1071     key = WMCreatePLString("icon");
1072     val = WMCreatePLString("xv");
1073     WMPutInPLDictionary(dict, key, val);
1074
1075     WMSetUDObjectForKey(defaultsDB, dict, "xv");
1076
1077     WMReleasePropList(key);
1078     WMReleasePropList(val);
1079     WMReleasePropList(dict);
1080
1081     /* .mp3 settings */
1082     key = WMCreatePLString("icon");
1083     val = WMCreatePLString("file-dot-mp3");
1084     dict = WMCreatePLDictionary(key, val, NULL);
1085
1086     WMReleasePropList(key);
1087     WMReleasePropList(val);
1088
1089     key = WMCreatePLString("viewer");
1090     val = WMCreatePLString("mpg123 %s");
1091     WMPutInPLDictionary(dict, key, val);
1092     WMSetUDObjectForKey(defaultsDB, dict, ".mp3");
1093
1094     WMReleasePropList(key);
1095     WMReleasePropList(val);
1096     WMReleasePropList(dict);
1097
1098     /* mpg123 Settings */
1099     key = WMCreatePLString("exec");
1100     val = WMCreatePLString("mpg123 %s");
1101     dict = WMCreatePLDictionary(key, val, NULL);
1102
1103     WMReleasePropList(key);
1104     WMReleasePropList(val);
1105
1106     key = WMCreatePLString("extn");
1107     array = WMCreatePLArray( WMCreatePLString(".mp3"),
1108                                      NULL );
1109     WMPutInPLDictionary(dict, key, array);
1110
1111     WMReleasePropList(key);
1112     WMReleasePropList(array);
1113
1114     key = WMCreatePLString("icon");
1115     val = WMCreatePLString("file-dot-mp3");
1116     WMPutInPLDictionary(dict, key, val);
1117
1118     WMSetUDObjectForKey(defaultsDB, dict, "mp3");
1119
1120     WMReleasePropList(key);
1121     WMReleasePropList(val);
1122     WMReleasePropList(dict);
1123
1124     /* .sh settings */
1125     key = WMCreatePLString("icon");
1126     val = WMCreatePLString("file-dot-sh");
1127     dict = WMCreatePLDictionary(key, val, NULL);
1128     WMSetUDObjectForKey(defaultsDB, dict, ".sh");
1129
1130     WMReleasePropList(key);
1131     WMReleasePropList(val);
1132     WMReleasePropList(dict);
1133
1134     /* .csh settings */
1135     key = WMCreatePLString("icon");
1136     val = WMCreatePLString("file-dot-csh");
1137     dict = WMCreatePLDictionary(key, val, NULL);
1138     WMSetUDObjectForKey(defaultsDB, dict, ".csh");
1139
1140     WMReleasePropList(key);
1141     WMReleasePropList(val);
1142     WMReleasePropList(dict);
1143
1144     /* .core settings */
1145     key = WMCreatePLString("icon");
1146     val = WMCreatePLString("file-dot-core");
1147     dict = WMCreatePLDictionary(key, val, NULL);
1148     WMSetUDObjectForKey(defaultsDB, dict, ".core");
1149
1150     WMReleasePropList(key);
1151     WMReleasePropList(val);
1152     WMReleasePropList(dict);
1153
1154     /* .c settings */
1155     key = WMCreatePLString("icon");
1156     val = WMCreatePLString("file-dot-c");
1157     dict = WMCreatePLDictionary(key, val, NULL);
1158
1159     WMReleasePropList(key);
1160     WMReleasePropList(val);
1161
1162     key = WMCreatePLString("editor");
1163     val = WMCreatePLString("xemacs %s");
1164     WMPutInPLDictionary(dict, key, val);
1165
1166     WMReleasePropList(key);
1167     WMReleasePropList(val);
1168
1169     key = WMCreatePLString("viewer");
1170     val = WMCreatePLString("xemacs %s");
1171     WMPutInPLDictionary(dict, key, val);
1172     WMSetUDObjectForKey(defaultsDB, dict, ".c");
1173
1174     WMReleasePropList(key);
1175     WMReleasePropList(val);
1176     WMReleasePropList(dict);
1177
1178     /* ChangeLog settings */
1179     key = WMCreatePLString("icon");
1180     val = WMCreatePLString("file-dot-txt");
1181     dict = WMCreatePLDictionary(key, val, NULL);
1182
1183     WMReleasePropList(key);
1184     WMReleasePropList(val);
1185
1186     key = WMCreatePLString("editor");
1187     val = WMCreatePLString("xemacs %s");
1188     WMPutInPLDictionary(dict, key, val);
1189
1190     WMReleasePropList(key);
1191     WMReleasePropList(val);
1192
1193     key = WMCreatePLString("viewer");
1194     val = WMCreatePLString("xemacs %s");
1195     WMPutInPLDictionary(dict, key, val);
1196     WMSetUDObjectForKey(defaultsDB, dict, "ChangeLog");
1197
1198     WMReleasePropList(key);
1199     WMReleasePropList(val);
1200     WMReleasePropList(dict);
1201
1202     /* .pl settings */
1203     key = WMCreatePLString("icon");
1204     val = WMCreatePLString("file-dot-pl");
1205     dict = WMCreatePLDictionary(key, val, NULL);
1206
1207     WMReleasePropList(key);
1208     WMReleasePropList(val);
1209
1210     key = WMCreatePLString("editor");
1211     val = WMCreatePLString("xemacs %s");
1212     WMPutInPLDictionary(dict, key, val);
1213
1214     WMReleasePropList(key);
1215     WMReleasePropList(val);
1216
1217     key = WMCreatePLString("viewer");
1218     val = WMCreatePLString("xemacs %s");
1219     WMPutInPLDictionary(dict, key, val);
1220     WMSetUDObjectForKey(defaultsDB, dict, ".pl");
1221
1222     WMReleasePropList(key);
1223     WMReleasePropList(val);
1224     WMReleasePropList(dict);
1225
1226     WMSynchronizeUserDefaults(defaultsDB);
1227 }
1228